|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
GESTION DE TOPICS
Information sur la source
Description
sauvegardez vos plus beaux topics, visionnez les, appliquer les ....
Le zip join contient des topics en exemple ( a mettre dans le rep mirc )
pour le faire fonctionner , click droit sur le channel [Topic]
A vos claviers pour nous faire profiter de vos dons d'artiste :)
Source
- menu channel {
- [Topic]:dialog -m topicrea topicrea
- }
- alias -l top { return topic.txt }
- alias -l topicwin {
- if ($dialog(topicrea)) {
- window -ph +d @pp 0 0 328 26
- drawfill @pp 1 1 0 1
- drawtext -pb @pp 0 1 Arial 12 5 3 $iif($did(topicrea,6),$did(topicrea,6),)
- drawsave @pp "temptopic.bmp"
- close -@ @pp
- did -g topicrea 27 "temptopic.bmp"
- }
- }
- dialog topicrea {
- title "Topic Creator"
- size -1 -1 336 283
- option pixels
- box "Modèles", 1, 7 83 160 60
- button "Quitter", 2, 230 250 90 27, flat cancel
- button "Appliquer Topic", 3, 228 210 90 27, flat
- text "Entre ton topic", 4, 10 41 78 15
- button "Effacer", 5, 250 36 66 20, flat
- edit "", 6, 9 57 310 22, autohs
- combo 7, 15 108 140 260, drop
- button "Enreg. Modéle", 31, 8 209 90 28, flat
- icon 27, 11 6 310 26
- button "Voir", 30, 127 36 66 20, flat
- edit "", 8, 203 108 100 21
- box "Channel", 9, 188 85 131 58
- text "", 10, 28 164 274 29
- box "Aide", 11, 18 149 290 52
- text "", 12, 11 251 213 16
- button "Effacer Modéle", 13, 118 210 90 28, flat
- }
-
- on *:dialog:topicrea:*:*:{
- if ($devent == init) {
- initlig
- did -ar $dname 6 $chan($active).topic
- topicwin
- did -ar topicrea 8 $active
- did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf $did(8)
- }
- if ($devent == sclick) {
- if ($did == 3) { topic $did(8) $did(6) }
- if ($did == 5) { did -r $dname 6 | topicwin }
- if ($did == 7) { did -r $dname 6 | did -a $dname 6 $read($top,$did(7)) | topicwin }
- if ($did == 13) { dellig }
- if ($did == 30) { topicwin }
- if ($did == 31) {
- if ($did(6) != $null) {
- if exists($top) { var %numlig = $read($top,0) }
- else { var %numlig = 0 }
- .write -l1 $top $eval($calc(%numlig + 1)) | .write $top $replace($did(6),$did(8),$chr(36) $+ did $+ $chr(40) $+ 8 $+ $chr(41))
- initlig
- }
- else {
- did -ar topicrea 12 Aucun modéle saisie
- .timer 1 3 did -r topicrea 12
- }
- }
- }
- if ($devent == edit) {
- if ($did == 8) { did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf $did(8) }
- }
- }
-
- alias -l initlig {
- if exists($top) {
- did -r topicrea 7
- var %lig = $read($top,0)
- var %lig1 = 1
- while (%lig1 <= $eval(%lig)) {
- did -a topicrea 7 %lig1
- inc %lig1
- }
- }
- }
- alias -l dellig {
- if ($did(7) != $null) {
- write -dl $+ $calc($did(7).sel +1 ) scripts/topic.txt
- var %numlig = $read($top,0)
- .write -l1 $top $eval($calc(%numlig - 1))
- did -ar topicrea 12 Modèle effacé
- .timer 1 3 did -r topicrea 12
- initlig
- }
- else {
- did -ar topicrea 12 Aucun modèle selectionné dans la liste
- .timer 1 3 did -r topicrea 12
- }
- }
menu channel {
[Topic]:dialog -m topicrea topicrea
}
alias -l top { return topic.txt }
alias -l topicwin {
if ($dialog(topicrea)) {
window -ph +d @pp 0 0 328 26
drawfill @pp 1 1 0 1
drawtext -pb @pp 0 1 Arial 12 5 3 $iif($did(topicrea,6),$did(topicrea,6),)
drawsave @pp "temptopic.bmp"
close -@ @pp
did -g topicrea 27 "temptopic.bmp"
}
}
dialog topicrea {
title "Topic Creator"
size -1 -1 336 283
option pixels
box "Modèles", 1, 7 83 160 60
button "Quitter", 2, 230 250 90 27, flat cancel
button "Appliquer Topic", 3, 228 210 90 27, flat
text "Entre ton topic", 4, 10 41 78 15
button "Effacer", 5, 250 36 66 20, flat
edit "", 6, 9 57 310 22, autohs
combo 7, 15 108 140 260, drop
button "Enreg. Modéle", 31, 8 209 90 28, flat
icon 27, 11 6 310 26
button "Voir", 30, 127 36 66 20, flat
edit "", 8, 203 108 100 21
box "Channel", 9, 188 85 131 58
text "", 10, 28 164 274 29
box "Aide", 11, 18 149 290 52
text "", 12, 11 251 213 16
button "Effacer Modéle", 13, 118 210 90 28, flat
}
on *:dialog:topicrea:*:*:{
if ($devent == init) {
initlig
did -ar $dname 6 $chan($active).topic
topicwin
did -ar topicrea 8 $active
did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf $did(8)
}
if ($devent == sclick) {
if ($did == 3) { topic $did(8) $did(6) }
if ($did == 5) { did -r $dname 6 | topicwin }
if ($did == 7) { did -r $dname 6 | did -a $dname 6 $read($top,$did(7)) | topicwin }
if ($did == 13) { dellig }
if ($did == 30) { topicwin }
if ($did == 31) {
if ($did(6) != $null) {
if exists($top) { var %numlig = $read($top,0) }
else { var %numlig = 0 }
.write -l1 $top $eval($calc(%numlig + 1)) | .write $top $replace($did(6),$did(8),$chr(36) $+ did $+ $chr(40) $+ 8 $+ $chr(41))
initlig
}
else {
did -ar topicrea 12 Aucun modéle saisie
.timer 1 3 did -r topicrea 12
}
}
}
if ($devent == edit) {
if ($did == 8) { did -ar $dname 10 Pour enregistrer comme modéle, entrez comme texte : $crlf $did(8) }
}
}
alias -l initlig {
if exists($top) {
did -r topicrea 7
var %lig = $read($top,0)
var %lig1 = 1
while (%lig1 <= $eval(%lig)) {
did -a topicrea 7 %lig1
inc %lig1
}
}
}
alias -l dellig {
if ($did(7) != $null) {
write -dl $+ $calc($did(7).sel +1 ) scripts/topic.txt
var %numlig = $read($top,0)
.write -l1 $top $eval($calc(%numlig - 1))
did -ar topicrea 12 Modèle effacé
.timer 1 3 did -r topicrea 12
initlig
}
else {
did -ar topicrea 12 Aucun modèle selectionné dans la liste
.timer 1 3 did -r topicrea 12
}
}
Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
Télécharger le zip
Historique
- 03 mars 2006 02:32:46 :
- ajout de la partie menu
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Topic ne s'affiche pas [ par botfreeman ]
Bonjour,Voici une question qui demande a réfléchir.Voilà j'ai un script (ash-project) et le problème que j'ai avec, c'est que je ne vois pas les topic
Enlever le code couleur de mIRC [ par maxpeg0705 ]
Bonjour,je cherche desesperement comment enlever d'une chaine de caracteres le code couleur de mIRCJe m'explique :%salon.1 = #salon%topic.chan1 = $cha
topic [ par angeldavid ]
Bonjour j'ai un code pour que si kkun change le topic sa le ban 15 min , mais par contre si le mec change le topic sa le ban apres kil est changer le
question $nick [ par kishkaya ]
j'aimerai pouvoir changer le topic quand j'arrive sur un salon et que je suis la seule personne presente (sur le serveur voila) mais le script que j'a
afficher un | dans un topic à l'aide d'un alias [ par Bonhomet ]
Voilà, je cherche le moyen de placer le caractere | dans le topic de mon channel..Pas de probleme pour le faire manuellement ...Mais qd je veux le fai
Gestion des Hash tables. [ par tofu ]
Simple gestionnaire de hash tables lui même fait en hash tables (utilisation de quelques regex pour les $did().sel ça mévitai
auto-change topic [ par lenain77 ]
Salut, Je un débutant en prog et je voudrai savoi comment on fait pour :si une personne change le topic de mon chan, mon bot le r
Comment effacer un topic ? [ par Squallou ]
Salut à tous.Une question toute bête :y'a-t-il une commande pour effacer le topic d'un salon ?j'ai déjà vu quand le menu "Effacer
Enregistrer le topic d'un chan [ par Bonhomet ]
Bonjour, mon bot est sous quakenet En fait j'aimerais qu'à chaque fois que qqn modifie le topic d'un channel mon bot l'enregistre (dans une varia
Bnc gestion [ par ricolla ]
salut ! j'ai acheter 4 bnc's mais je m'emmelle les pinceaux vec les servers et tout.j'amerais savoir si il existe quelque chose pour ke je puisse conn
|
Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|