UN PETIT DIALOGUE POUR OPER/DEOPER... D'UN SIMPLE CLICK SUR UNE IMAGE

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