Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 651 fois - Téléchargée 29 fois
on *:load:{ mkdir logs\notices echo -a 4Notice script loaded echo -a 4Tous vos notices seront loggués dans logs\notices echo -a 4Dernière mise à jour du 16/12/03 à 16h00 : correction du bug du dialog qui effaçait la liste entière echo -a 4- echo -a 4Appuiez sur F7 pour configurer les exceptions qui n'auront pas de fenêtre (bots de serveur par exemple) echo -a 4Si F7 ne vous convient pas, tapez /set %cqn xxx, où xxx est la touche désirée echo -a 4- echo -a 4http://www.simcamb.be simcamb@simcamb.be } alias f7 { dialog -m qnconfig qnconfig } on *:input:@*:{ set %nrep $replace($active,@,) notice %nrep $1- haltdef } on ^*:notice:*:*:{ if (@ !isin $active) { echo -a 4 $+ $timestamp - $+ $nick $+ - $1- } if ($nick isin %qnconfig_list) { haltdef } else { haltdef window -e @ $+ $nick aline @ $+ $nick $+ $time $+ - $+ $nick $+ - $1- write logs\notices\ $+ $nick $+ .txt $timestamp - $+ $nick $+ - $1- } } alias notice { if ($active != @ $+ $1) { notice $1 $2- } else { .notice $1 $2- } window -e @ $+ $1 aline @ $+ $1 4 $+ $+ $time $+ - $+ $me $+ - $2- write logs\notices\ $+ $1 $+ .txt $timestamp - $+ $me $+ - $2- } dialog qnconfig { title "Exceptions pour les Q-notices" size -1 -1 166 74 option dbu list 8, 5 6 55 64, sort size hsbar vsbar button "OK", 6, 90 57 37 12, ok button "Add", 5, 64 34 37 12, default button "Delete", 9, 114 34 37 12 edit "", 4, 64 13 87 11 box "Nickname", 2, 61 5 94 24 } on 1:dialog:qnconfig:*:*:{ if ($devent == INIT) { var %i = 1 while ($gettok(%qnconfig_list,%i,35)) { did -a qnconfig 8 $gettok(%qnconfig_list,%i,35) inc %i } } if ($devent == SCLICK) { if ($did == 8) { set %qnconfig.save $did(qnconfig,8).seltext } if ($did == 5) && ($did(4)) { set %qnconfig.save $did(4) set %qnconfig_list $addtok(%qnconfig_list,%qnconfig.save,35) did -a qnconfig 8 %qnconfig.save did -r qnconfig 4 } if ($did == 9) { set %qnconfig.save $did(qnconfig,8).seltext set %qnconfig_list $remtok(%qnconfig_list,%qnconfig.save,1,35) unset [ $+($chr(37),qnconfig_,%qnconfig.save,$chr(42)) ] unset %qnconfig.save did -d qnconfig 8 $did(qnconfig,8).sel } } }
15 déc. 2003 à 18:57
15 déc. 2003 à 18:38
oublie ou partie de code en attente ?
15 déc. 2003 à 18:17
15 déc. 2003 à 12:27
15 déc. 2003 à 07:28
8/10
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.