4/5 (3 avis)
Snippet vu 4 606 fois - Téléchargée 27 fois
;************************************************************ Table alias gestcommandes { dialog -m gestcommandes gestcommandes } dialog gestcommandes { size -1 -1 45 450 title "Com" button "t" 1,1 1 1 1,ok icon 30 , 5 5 30 30 ,images\meop.bmp icon 31 , 5 40 30 30 , images\dopvoice.bmp icon 32 , 5 80 30 30 , images\oper.bmp icon 33 , 5 115 30 30 , images\helper.bmp icon 34 , 5 150 30 30 , images\voicer.bmp icon 35 , 5 190 30 30, images\deoper.bmp icon 36 , 5 225 30 30 , images\dehelper.bmp icon 37, 5 260 30 30, images\devoicer.bmp ; icon 38, 5 300 30 30, images\kick.bmp ; icon 39, 5 335 30 30, images\kickban.bmp icon 40, 5 375 30 30, images\gauche.bmp icon 41, 5 410 30 30, images\droite.bmp } ;************************************************************* Init on 1:dialog:gestcommandes:init:*: { set -u6 %xmain $window(-2).x + $window(-2).w set -u6 %ymain $window(-2).y + 42 dialog -s gestcommandes %xmain %ymain 45 450 /did -bv gestcommandes 1 } ;************************************************************* Alias ;************************************************************* Click on 1:dialog:gestcommandes:sclick:*: { if ($did == 30) { /msg chanserv op $active $me } if ($did == 31) { /mode $active +v-o $me $me } if ($did == 32) { set %snick 1 | set %opppp +o | while (%snick < $snick($active,0)) { set %opppp %opppp $+ o | inc %snick } set %snick $replace($snick($active),$chr(44),$chr(32)) | /mode $active %opppp %snick | unset %opppp %snick } if ($did == 33) { set %snick 1 | set %hpppp +h | while (%snick < $snick($active,0)) { set %hpppp %hpppp $+ h | inc %snick } set %snick $replace($snick($active),$chr(44),$chr(32)) | /mode $active %hpppp %snick | unset %hpppp %snick } if ($did == 34) { set %snick 1 | set %vpppp +v | while (%snick < $snick($active,0)) { set %vpppp %vpppp $+ v | inc %snick } set %snick $replace($snick($active),$chr(44),$chr(32)) | /mode $active %vpppp %snick | unset %vpppp %snick } if ($did == 35) { set %snick 1 | set %opppp -o | while (%snick < $snick($active,0)) { set %opppp %opppp $+ o | inc %snick } set %snick $replace($snick($active),$chr(44),$chr(32)) | /mode $active %opppp %snick | unset %opppp %snick } if ($did == 36) { set %snick 1 | set %hpppp -h | while (%snick < $snick($active,0)) { set %hpppp %hpppp $+ h | inc %snick } set %snick $replace($snick($active),$chr(44),$chr(32)) | /mode $active %hpppp %snick | unset %hpppp %snick } if ($did == 37) { set %snick 1 | set %vpppp -v | while (%snick < $snick($active,0)) { set %vpppp %vpppp $+ v | inc %snick } set %snick $replace($snick($active),$chr(44),$chr(32)) | /mode $active %vpppp %snick | unset %vpppp %snick } if ($did == 40) { set -u6 %xmain $window(-2).x - 50 | set -u6 %ymain $window(-2).y + 42 | dialog -s gestcommandes %xmain %ymain 45 450 } if ($did == 41) { set -u6 %xmain $window(-2).x + $window(-2).w | set -u6 %ymain $window(-2).y + 42 | dialog -s gestcommandes %xmain %ymain 45 450 } } ;************************************************************** Evénements on 1:start: { .gestcommandes } ;************************************************************** Menus menu menubar { - Commandes:/gestcommandes }
23 nov. 2005 à 10:12
Code original, et ça m'a permis de connaitre comment marche $snick($active) et compagnie :)
26 sept. 2003 à 19:12
A titre perso sur mon script j'utilise des alias et ça va bien plus vite, mais, ma femme estime que c'est mieux comme cela, il n'y a qu'à sélectionner, et cliquer sur l'icone. "Magique"
Pour le zip oui, j’essaierai pour le prochain :o)
(ha oui si quelqu'un connais le truc pour repasser le focus sur l'édit boxe...)voir le code sur les smileys :)
Et Quidini!
26 sept. 2003 à 12:48
... le /mode $chan +o $$1 c bcp plus rapide :p
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.