Moderateur v1.b uptade

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 314 fois - Téléchargée 24 fois

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

Ajouter un commentaire

Commentaires

DarKiNg virus
Messages postés
137
Date d'inscription
samedi 29 novembre 2003
Statut
Membre
Dernière intervention
23 juillet 2005
-
?????????? ( quelqu'un peut me soufler se que sa ve dire !!!!! )
Mouais Mouais Pas Mal J'conaissais pas la commande Yahoo sinon c bien
( Zutttt ya pas de 7,5) donc 7 =)
cs_Kolibot
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004
-
Tu pourrais mettre tout ça :
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

Directement dans ton dialog {

Autre chose... -r dans un $init ... c'est totalement inutile...
vesparo
Messages postés
230
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
13 mai 2004
-
ok mci je vais corriger :p mais bon c'est qu'une version alpha. je prepare la vrai version bien plus complète.
cs_SornDrixer
Messages postés
2087
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
2 -
Je viens de remarquer un problème sur ta source :
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 }

Pour compter le nombre de kick, sa inclut la variable automatiquement, tu vérifies même pas si la personne qui veut kicker est oppé. ( if ($nick isop $chan) { } )
Voila pour la petite incohérence, mais sans grande importance.

Sinon, pour set %nickunban $?="Quel nick?" , utilise une variable interne, c'est à dire avec var, au lieu de set. Comme ca, la variable sera automatiquement supprimé à la fin du script. ( tandis que la tienne réside dans mIRC, sinon tu peux la /unset )

Pour finir : 2 événéments DIALOG, un seul aurait suffit, par exemple :
ON *:DIALOG:mod:*:*:{
if ($devent == init) { action au lancement }
if ($devent == sclick) {
if ($did == id) { }
}
}
etc etc...

Voila, je crois avoir tout dit :)
cs_SornDrixer
Messages postés
2087
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
2 -
et l'alias yahoo que tu savais pas faire, c'est qui qui l'a fais hein ? rhalala, comment tu as pu oublier de me remercier :(

Dans tes actions, je te conseille de vérifier si $did(mod,1).seltext est vide ou non, pour éviter les messages d'erreur.

Et vu que tu utilises $did(mod,1).seltext dans l'événement DIALOG, pas besoin de spécifier le nom du dialog dans ton $did.
$did(1).seltext suffit.

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.