begin process at 2010 02 09 21:59:59
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > MODERATEUR V1.B UPTADE

MODERATEUR V1.B UPTADE


 Information sur la source

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Initié Date de création :25/01/2004 Date de mise à jour :30/01/2004 22:25:08 Vu :2 927

Auteur : vesparo

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Ben c'est un moderateur en version beta bientot une update surment demain mais j'ai pas le temps aujourd'hui

Source

  • 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
  • }
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


 Sources du même auteur

Source avec Zip QUOTE SYSTEME V1.0 AVANCER !
GENERATEUR DE PROFIL D'USER IRC
GESTION DES AMIS
EFFECTUER DES RECHERCHES SUR IRCFR
CALCULATRICE SIMPLE

 Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Commentaires et avis

Commentaire de ReMi34 le 25/01/2004 19:52:49

T'es rapide dis donc :)

Commentaire de SornDrixer le 25/01/2004 20:35:44 administrateur CS

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.

Commentaire de SornDrixer le 26/01/2004 17:37:49 administrateur CS

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 :)

Commentaire de vesparo le 26/01/2004 19:21:19

ok mci je vais corriger :p mais bon c'est qu'une version alpha. je prepare la vrai version bien plus complète.

Commentaire de Kolibot le 01/02/2004 21:33:30

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...

Commentaire de DarKiNg virus le 11/02/2004 10:59:06

?????????? ( 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 =)

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix


HTC Hero

Entre 550€ et 550€

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,608 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales