Un petit dialogue pour oper/deoper... d'un simple click sur une image

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 205 fois - Téléchargée 25 fois

Contenu du snippet

Heuuu, pour ceux qui ont vu l'addition de couleurs ou smileys dans la saisie, c'est la même chose, mais pour oper se oper, se déope voice, etc...
un dialogue qui se met soit à gauche soit à droite de mIRC.
Les images peuvent-être chargées sur http://alerion.nerim.net/addon/petiteaidecommandes.htm

Source / Exemple :


;************************************************************ 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
}

Conclusion :


ça marche avec ChanServ, sous les autres serveurs IRC je ne connait pas du tout, alors ce serait sympa, pour tous les dev très connus ici, si y en a un ki connait particulièrement d'ajouter la partie *** Click par les bonnes commandes (je pense particulièrement à irix
:)
Et Quidni!

A voir également

Ajouter un commentaire

Commentaires

cs_thyb
Messages postés
217
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
22 mai 2004
-
heu... tu devrai mettre toute tes image et ton code dans un zip et tu l'ajoute a ton addon ... et puis sa sert a rien a dialog pour @ et de@
... le /mode $chan +o $$1 c bcp plus rapide :p
Alerion
Messages postés
97
Date d'inscription
mercredi 10 septembre 2003
Statut
Membre
Dernière intervention
7 juillet 2004
-
bah vi, je sais, à priori ça ne sert pas à grand chose, mais, pour certains (voir certaines) avoir des commandes sous la forme d'outils, ça simplifie la vie.
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!
Mycado
Messages postés
50
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
16 mai 2008
-
10/10
Code original, et ça m'a permis de connaitre comment marche $snick($active) et compagnie :)

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.