Ben c'est un moderateur en version beta bientot une update surment demain mais j'ai pas le temps aujourd'hui
Source / Exemple :
alias m { dialog -m mod mod }
dialog mod {
title " -=- Modérateur V.A -=-"
size -1 -1 175 136
option dbu
list 1, 6 25 74 93, size
box "Liste des présents :", 2, 2 17 82 118
button "Voicer", 3, 90 27 37 12, flat
button "Dévoicer", 4, 131 27 37 12, flat
button "Oper", 5, 90 44 37 12, flat
button "Déopper", 6, 131 44 37 12, flat
button "Déhalfop", 7, 131 61 37 12, flat
button "Halfop", 8, 90 61 37 12, flat
button "Kicker", 9, 90 78 37 12, flat
button "Bannir", 10, 90 94 37 12, flat
button "Kickbanner", 11, 131 78 37 12, flat
button "Débannir", 12, 131 94 37 12, flat
box "Commandes d'Opérateurs :", 13, 87 17 85 94
text "Salon :", 16, 2 5 25 8, center
edit "", 17, 27 3 52 10, read, center
text "Total :", 18, 5 123 25 8, center
edit "", 19, 32 122 46 10, read
button "Plus d'infos", 20, 80 3 35 10
button "Topic", 21, 115 3 20 10
button "Fermer", 22, 90 115 78 18, ok
}
on *:DIALOG:mod:init:*:{
did -ra $dname 17 $active
did -ra $dname 19 $nick($active,0)
yahoo $active
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetBorderStyle $dname 3,4,5,6,7,8,9, staticedge
dll mdx.dll SetFont $dname 3,4,5,6,7,8,9,10,11,12,16,17,18,19,20,21,22, +a 15 300 comic sans ms
dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
dll mdx.dll SetColor $dname
}
alias yahoo { if (!$1) { halt } | var %a = 0, %aa = $nick($1,0) | while (%aa > %a) { inc %a 1 | did -a mod 1 $nick($1,%a) } }
On *:DIALOG:mod:sclick:*:{
if ($did == 3) { mode $active +v $did(mod,1).seltext }
if ($did == 4) { mode $active -v $did(mod,1).seltext }
if ($did == 5) { mode $active +o $did(mod,1).seltext }
if ($did == 6) { mode $active -o $did(mod,1).seltext }
if ($did == 7) { mode $active -h $did(mod,1).seltext }
if ($did == 8) { mode $active +h $did(mod,1).seltext }
if ($did == 9) { inc %nbrk 1 | kick $active $did(mod,1).seltext 4Requested By 12 $+ $me $+ . 4 $+ Nombre De Kick 12 $+ %nbrk }
if ($did == 10) { mode $active +b $did(mod,1).seltext }
if ($did == 11) { inc %nbrkb 1 | kick $active $did(mod,1).seltext 4Requested By 12 $+ $me $+ . 4 $+ Nombre De Kick 12 $+ %nbrkb | mode $active +b $did(mod,1).seltext }
if ($did == 12) { set %nickunban $?="Quel nick?" | mode $active -b %nickunban }
if ($did == 20) { dialog -m mod2 mod2 }
if ($did == 21) { dialog -m topic topic }
}
dialog mod2 {
title " -=- Moderator V.A -=-"
size -1 -1 145 80
option dbu
box "Mes Infos", 1, 1 1 140 75
text "Pseudo:", 2, 5 10 30 7
edit "",3, 27 09 35 10, read autohs disable
text "Server:", 4, 65 10 20 7
edit "", 5, 85 10 45 10, read autohs disable
text "Uptime:", 6, 3 22 20 7
edit "", 7, 22 21 52 10, read autohs disable
text "Ip:", 8, 76 23 15 7
edit "", 9, 86 21 50 10, disable
text "Résolution:", 10, 5 33 40 7
edit "", 11, 33 33 71 10, disable
text "Votre Ram:", 12, 5 45 30 7
edit "", 13, 33 45 78 10, disable
text "Espace Disque:", 14, 5 60 60 7
edit "", 15, 43 60 75 10, disable
}
On *:DIALOG:mod2:init:*:{
did -ra $dname 3 $me
did -ra $dname 5 $network
did -ra $dname 7 $Duration($calc($ticks / 1000))
did -ra $dname 9 $ip
did -ra $dname 11 $dll($mircdirmoo.dll,gfxinfo,_) - $window(-1).w $+ x $+ $window(-1).h
did -ra $dname 13 $dll($mircdirmoo.dll,meminfo,_)
did -ra $dname 15 $round($calc(($disk(c:).size + $disk(d:).size + $disk(e:).size + $disk(f:).size) / 1024 / 1024 / 1024),2) Go au total - $round($calc(($disk(c:).free + $disk(d:).free + $disk(e:).free + $disk(f:).free) / 1024 / 1024 / 1024),2) $+ Go libres
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetBorderStyle $dname 3,4,5,6,7, staticedge
dll mdx.dll SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15, +a 15 300 comic sans ms
dll mdx.dll SetDialog $dname bgcolor $rgb(000,000,000)
dll mdx.dll SetColor $dname
}
Conclusion :
have fun ^^
c'est de ReMi34 et de moi remi a fait le dialog et j'ai fait le code
Gros merci a SornDrixer pour l'alias yahoo
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.