0/5 (3 avis)
Snippet vu 4 361 fois - Téléchargée 27 fois
;***************************** Table alias gesttexte { dialog -mdo gesttexte gesttexte } dialog gesttexte { size 83 585 630 25 title "Pour" icon v_schtroumph.ico button "t" 1,1 1 1 1,ok icon 30 , 0 1 18 18 , images\blanc0.bmp icon 45, 20 1 18 18 , images\gris15.bmp icon 44, 40 1 18 18 , images\grisfonce14.bmp icon 31 , 60 1 18 18 , images\noir1.bmp icon 38 , 80 1 18 18 , images\jaune8.bmp icon 39 , 100 1 18 18 , images\vertclair9.bmp icon 33, 120 1 18 18 , images\vertfonce3.bmp icon 40, 140 1 18 18 , images\cyanfonce10.bmp icon 32 , 160 1 18 18 , images\bleufonce2.bmp icon 42, 180 1 18 18 , images\bleu12.bmp icon 41, 200 1 18 18 , images\cyan11.bmp icon 43, 220 1 18 18 , images\violet13.bmp icon 36, 240 1 18 18 , images\violetfonce6.bmp icon 35, 260 1 18 18 , images\marron5.bmp icon 34, 280 1 18 18 , images\rouge4.bmp icon 37, 300 1 18 18 , images\orange7.bmp icon 70, 325 1 18 18 , images\gras.bmp icon 71, 345 1 18 18 , images\soul.bmp icon 72, 370 1 18 18 , images\01.bmp icon 73, 390 1 18 18 , images\02.bmp icon 74, 410 1 18 18 , images\04.bmp icon 75, 430 1 18 18 , images\03.bmp icon 76, 450 1 18 18 , images\05.bmp icon 77, 470 1 18 18 , images\07.bmp icon 78, 500 1 18 18 , images\06.bmp icon 79, 520 1 18 18 , images\09.bmp icon 80, 540 1 18 18 , images\08.bmp icon 81, 560 1 18 18 , images\10.bmp icon 82,585 1 18 18, images\monter.bmp icon 83,605 1 18 18, images\descendre.bmp } ;***************************** Init on 1:dialog:gesttexte:init:*: { set -u6 %xmain $window(-2).x + 100 set -u6 %ymain $window(-2).y + 42 dialog -s gesttexte %xmain %ymain 630 25 /did -bv gesttexte 1 } ;***************************** Click on 1:dialog:gesttexte:sclick:*: { if ($did == 10) { set %quiaction $replace($snick($active),$chr(44),$chr(32)) set %nbv 1 set %voicer + while (%nbv <= $snick($active,0)) { set %voicer %voicer $+ v inc %nbv } /mode $active %voicer %quiaction } if ($did == 11) { set %quiaction $replace($snick($active),$chr(44),$chr(32)) set %nbv 1 set %voicer + while (%nbv <= $snick($active,0)) { set %voicer %voicer $+ o inc %nbv } /mode $active %voicer %quiaction } if ($did == 12) { set %quiaction $replace($snick($active),$chr(44),$chr(32)) set %nbv 1 set %voicer - while (%nbv <= $snick($active,0)) { set %voicer %voicer $+ v inc %nbv } /mode $active %voicer %quiaction } if ($did == 13) { set %quiaction $replace($snick($active),$chr(44),$chr(32)) set %nbv 1 set %voicer - while (%nbv <= $snick($active,0)) { set %voicer %voicer $+ o inc %nbv } /mode $active %voicer %quiaction } if ($did == 14) { /kick $active $snick($active,1) %kickdef } if ($did == 15) { /kick $active $snick($active,1) faut bien... /ban $active $snick($active,1) 2 /kick $active $snick($active,1) sisi il le faut /ban $active $snick($active,1) 3 /ban $active $snick($active,1) 5 } if ($did == 16) { /msg chanserv op $active $me } if (($did > 29) && ($did < 46)) { set -u5 %colorline $did - 30 /editbox -a $editbox($active) $+ $+ %colorline } if (($did > 49) && ($did < 66)) { set -u6 %couleursel $did + 1 if (%couleursel > 65) /set -u6 %couleursel 50 did -h gesttexte $did did -v gesttexte %couleursel set %couleurtexte %couleursel - 50 } if ($did == 70) { /editbox -a $editbox($active) $+ } if ($did == 71) { /editbox -a $editbox($active) $+ } if ($did == 72) { /editbox -a $editbox($active) :) } if ($did == 73) { /editbox -a $editbox($active) :( } if ($did == 74) { /editbox -a $editbox($active) :o) } if ($did == 75) { /editbox -a $editbox($active) :o( } if ($did == 76) { /editbox -a $editbox($active) ;-) } if ($did == 77) { /editbox -a $editbox($active) :-\? } if ($did == 78) { /editbox -a $editbox($active) :-)) } if ($did == 79) { /editbox -a $editbox($active) :-(( } if ($did == 80) { /editbox -a $editbox($active) :-o } if ($did == 81) { /editbox -a $editbox($active) :oÞ } if ($did == 82) { set -u6 %xmain $window(-2).x + 100 set -u6 %ymain $window(-2).y + 42 dialog -s gesttexte %xmain %ymain 630 25 } if ($did == 83) { set -u6 %xmain $window(-2).x + $window(-2).w set -u6 %ymain $window(-2).y + $window(-2).h dec %xmain 635 dialog -s gesttexte %xmain %ymain 630 25 } } ;***************************** Evénements on 1:active:#: { dialog -t gesttexte sur le chan $active %topicof [ $+ [ $active ] ] ; /did -ra gesttexte 20 $snick($active) } on 1:active:?: { dialog -t gesttexte En PV avec $active } on 1:start: { .gesttexte } on 1:topic:*:{ set %topicof $+ $chan $1- if $chan == $active /dialog -t gesttexte sur le chan $chan %topicof [ $+ [ $active ] ] } raw 332:*: { set %topicof $+ $2 $3- if $2 == $active /dialog -t gesttexte sur le chan $2 %topicof [ $+ [ $active ] ] } ;***************************** Menus menu menubar { - Smileys:/gesttexte }
30 août 2005 à 11:59
22 août 2004 à 10:57
Excuse .. trompé de fenetre pour la question ! dsl !
22 août 2004 à 10:54
Je viens de découvrir ce script, mais je n'arriva pas à l'installer : J'ai fais un copier/coller dans les allias, mais quand je lance mirc, il me dir erreur ligne 501 ... et comme suis un super scripteur ... Help !
(Je n'ais pas trouvé ce script sur les liens indiqués)
Merci d'avance
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.