Moderateur v1.b uptade

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (vesparo)