Un code pour se loger et modifier des accec

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 758 fois - Téléchargée 27 fois

Contenu du snippet

bon alors comme le dit le titre c un code pour se log et modifier des accec ( auto op auto voice ... )
mais il est reserver au serveur Quakenet
donc dedant on peu se log , cree un auth , modifier le pass , cacher sont ip grase au mode +x , si on est master du chan donner des auto op et des auto voice
et si on est owner dun chan on peu donner auto op auto voice master et owner a dautre personne du chan si elle sont log
par contre il ne marche que pour les salon qui on L car sur quakenet il y a 2 bot L ( plus courant ) et Q
le code pour Q est en projet

Source / Exemple :



    • Auth**
dialog Auth { title "Auth" size -1 -1 66 105 option dbu text "Auth", 1, 2 2 15 10 edit "", 2, 20 2 43 10 text "Pass", 3, 2 15 15 10 edit "", 4, 20 15 43 10, pass button "Cree un Auth", 5, 2 30 62 10 button "Changer de pass", 6, 2 40 62 10 check "Oui", 7, 5 62 21 10, left box "Auth a la connection", 8, 2 53 63 20 check "Non", 9, 40 62 21 10 box "Cacher sont ip", 10, 2 73 63 20 check "Oui", 11, 5 81 25 10, left check "Non", 12, 37 81 24 10 button "Ok", 13, 2 93 31 10 button "Cancel", 14, 33 93 31 10, cancel } on *:dialog:auth:*:*: { if $devent == init { if %modex == oui { did -c auth 11 } if %modex == non { did -c auth 12 } if %auto == oui { did -c auth 7 } if %auto == non { did -c auth 9 } did -ra auth 2 %auth did -ra auth 4 %pass } if $devent == sclick { if $did == 5 { dialog -md Cree Cree } if $did == 6 { dialog -md pass pass } if $did == 7 { set %auto oui did -u auth 9 } if $did == 9 { set %auto non did -u auth 7 } if $did == 11 { set %modex oui did -u auth 12 } if $did == 12 { set %modex non did -u auth 11 } if $did == 13 { set %auth $did(2) set %pass $did(4) /msg Q@CServe.quakenet.org AUTH %auth %pass if %modex == oui { /mode $me +x } dialog -x auth auth } } } dialog Cree { title "Création d'un Auth Qnet" size -1 -1 128 42 option dbu text "Auth", 1, 2 3 15 10 edit "", 2, 20 3 106 10 text "Adresse mail", 3, 2 15 34 10 edit "", 4, 38 15 88 10 button "Crée", 5, 31 27 37 10 button "Cancel", 6, 68 27 37 10, cancel } on *:dialog:cree:sclick:*: { if $did == 5 { set %mail $did(4) set %auth $did(2) /nick %auth /msg Q hello %mail %mail dialog -x cree cree dialog -md mail mail } } dialog pass { title "Changer de pass" size -1 -1 107 40 option dbu text "Ansien mot de pass", 1, 2 3 49 10 edit "", 2, 55 3 50 10 text "Nouveau mot de pass", 3, 2 15 53 8 edit "", 4, 56 15 49 10 button "Changer", 5, 15 28 37 10 button "Cancel", 6, 52 28 37 10, cancel } on *:dialog:pass:*:*: { if $devent == init { did -ra pass 2 %pass } if $devent == sclick { if $did == 5 { set %ansienpass $did(2) set %pass $did(4) /msg Q newpass %ansienpass %pass %pass unset %ansienpass dialog -x pass pass dialog -md passc passc } } } dialog mail { title "" size -1 -1 107 40 option dbu text "Aller voir dans ", 1, 2 3 36 10 text "Votre pass va vous y etre donner. Merci Dutiliser BeauBrius script", 3, 2 13 102 24 text "", 2, 38 3 66 10 } on *:dialog:mail:init:*: { did -ra mail 2 %mail } dialog passc { title "" size -1 -1 79 40 option dbu text "Votre pass a bien ete changer", 1, 2 3 75 10 text "Votre pass actuelle est :", 2, 2 15 59 10 text "", 3, 2 26 75 8 } on *:dialog:passc:init:*: { did -ra passc 3 %pass } on *:connect: { if quakenet isin $server { if %auto == oui { /msg Q@CServe.quakenet.org AUTH %auth %pass } if %modex == oui { /mode $me +x } } }
    • Controle**
dialog controlen { title "Acces" size -1 -1 110 120 option dbu edit "", 1, 56 3 52 10, read text "Nick de la personne", 2, 2 3 50 10 box "Acces de la personne", 3, 3 16 105 86 text "Auto voice", 4, 5 25 27 10 check "Oui", 5, 35 25 20 10, left check "Non", 6, 56 25 20 10 text "Auto op", 7, 5 40 21 10 check "Oui", 8, 35 40 20 10, left check "Non", 9, 56 40 20 10 text "Master", 10, 5 55 18 10 check "Oui", 11, 35 55 20 10, left check "Non", 12, 56 55 20 10 text "Owner", 13, 5 70 17 10 check "Non", 15, 56 70 20 10 check "Oui", 14, 35 70 20 10, left edit "", 16, 20 85 50 10, read text "Sur", 17, 5 85 14 10 button "Ok", 18, 11 106 37 12 button "Cancel", 19, 48 106 37 12 } on *:dialog:controlen:*:*: { if $devent == init { if v isin %text { set %ovoice oui } else { set %ovoice non } if o isin %text { set %oop oui } else { set %oop non } if m isin %text { set %omaster oui } else { set %omaster non } if n isin %text { set %oowner oui } else { set %oowner non } did -ra controlen 1 %nickaccec did -ra controlen 16 %chanaccec if %ovoice == oui { did -c controlen 5 } else { did -c controlen 6 } if %oop == oui { did -c controlen 8 } else { did -c controlen 9 } if %omaster == oui { did -c controlen 11 } else { did -c controlen 12 } if %oowner == oui { did -c controlen 14 } else { did -c controlen 15 } } if $devent == sclick { if $did == 5 { did -u controlen 6 set %ovoice oui } if $did == 6 { did -u controlen 5 set %ovoice non } if $did == 8 { did -u controlen 9 set %oop oui } if $did == 9 { did -u controlen 8 set %oop non } if $did == 11 { did -u controlen 12 set %omaster oui } if $did == 12 { did -u controlen 11 set %omaster non } if $did == 14 { did -u controlen 15 set %oowner oui } if $did == 15 { did -u controlen 14 set %oowner non } if $did == 18 { var %accecfinal1 a if %ovoice == oui { var %accecfinal2 %accecfinal1 $+ v } else { var %accecfinal2 %accecfinal1 $+ -v } if %oop == oui { var %accecfinal3 %accecfinal2 $+ o } else { var %accecfinal3 %accecfinal2 $+ -o } if %omaster == oui { var %accecfinal4 %accecfinal3 $+ m } else { var %accecfinal4 %accecfinal3 $+ -m } if %oowner == oui { var %accecfinal5 %accecfinal4 $+ n } else { var %accecfinal5 %accecfinal4 $+ -n } /msg L chanlev %chanaccec %nickaccec %accecfinal5 unset %chanaccec unset %nickaccec unset %ovoice unset %oop unset %omaster unset %oowner unset %text dialog -x controlen controlen } if $did == 19 { dialog -x controlen controlen } } } dialog pascontrole { title "Desoler" size -1 -1 70 45 option dbu text "Desole mais tu na pas accec a cette fonction sur", 1, 3 4 63 17 text "Text Label", 2, 3 20 63 8 text "Aissai de voir avec ladmn du salon", 3, 3 27 63 15 } on *:dialog:pascontrole:init:*: { did -ra pascontrole 2 %chanaccec } dialog controlem { title "Acces" size -1 -1 110 88 option dbu edit "", 1, 56 3 52 10, read text "Nick de la personne", 2, 2 3 50 10 box "Acces de la personne", 3, 3 16 105 55 text "Auto voice", 4, 5 25 27 10 check "Oui", 5, 35 25 20 10, left check "Non", 6, 56 25 20 10 text "Auto op", 7, 5 40 21 10 check "Oui", 8, 35 40 20 10, left check "Non", 9, 56 40 20 10 edit "", 16, 20 55 50 10, read text "Sur", 17, 5 55 14 10 button "Ok", 18, 15 74 37 12 button "Cancel", 19, 52 74 37 12 } on*:dialog:controlem:*:*: { if $devent == init { if v isin %text { set %ovoice oui } else { set %ovoice non } if o isin %text { set %oop oui } else { set %oop non } did -ra controlen 1 %nickaccec did -ra controlen 16 %chanaccec if %ovoice == oui { did -c controlen 5 } else { did -c controlen 6 } if %oop == oui { did -c controlen 8 } else { did -c controlen 9 } } if $devent == sclick { if $did == 5 { did -u controlen 6 set %ovoice oui } if $did == 6 { did -u controlen 5 set %ovoice non } if $did == 8 { did -u controlen 9 set %oop oui } if $did == 9 { did -u controlen 8 set %oop non } if $did == 18 { var %accecfinal1 a if %ovoice == oui { var %accecfinal2 %accecfinal1 $+ v } else { var %accecfinal2 %accecfinal1 $+ -v } if %oop == oui { var %accecfinal3 %accecfinal2 $+ o } else { var %accecfinal3 %accecfinal2 $+ -o } /msg L chanlev %chanaccec %nickaccec %accecfinal3 unset %chanaccec unset %nickaccec unset %ovoice unset %oop unset %text dialog -x controlen controlen } if $did == 19 { dialog -x controlen controlen } } } menu nicklist { accec L :{ if $nick($chan,L) != $null { set %accec 1 set %chanaccec $chan set %nickaccec $snick($chan,1) msg L chanlev $chan $me } else { echo -a 4,1 Desoler mais il ni a pas L sur le chan } } } menu channel,menubar { Auth :/dialog -md Auth Auth } on *:notice:*:*: { if %accec == 1 { if (n isin $1-) && (%auth isin $1-) { set %accec 2 msg L chanlev %chanaccec %nickaccec } elseif (m isin $1-) && (%auth isin $1-) { set %accec 3 msg L chanlev %chanaccec %nickaccec } elseif (%auth isin $1-) { dialog -md pascontrole pascontrole unset %chanaccec unset %nickaccec set %accec off } } if %accec == 2 { if - isin $1- { set %accec 4 } elseif (is not known isin $1-) { unset %text | dialog -md controlen controlen } } if %accec == 3 { if - isin $1- { set %accec 5 } elseif (is not known isin $1-) { unset %text | dialog -md controlem controlem } } if %accec == 4 { echo -a $2 set %text $2 set %accec off dialog -md controlen controlen } if %accec == 5 { echo -a $2 set %text $2 set %accec off dialog -md controlem controlem } }

Conclusion :


euh donc copier sa dans vaux remote

A voir également

Ajouter un commentaire Commentaires
Messages postés
120
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
8 février 2008

C sur que c reserver a un serveur un particulier
mais c le serveur don je me sert le plus et il y a que sur se serveur ou il y a se bot
je connai tres tres bien toutes les commande du bot alors que celle de helio ou autre je lai connai pas du tous
deplus se serveur est le plus peupler
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
C'est dommage de faire un addon réservé à un serveur en particulier, mais sinon, bon boulot ;)
8/10
Messages postés
817
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
19 avril 2004

Tout ce que j'ai à dire, c'est qu'il est clair que tu as fait un gros effort de scripting. Et je me dois de le récompenser même si il est clair que tu t'es compliqué la vie. Je te mets 8/10
Messages postés
120
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
8 février 2008

au niveau des code j ai essai de redire la taille de ce code ( en utilisant de code plus dure )
mais je les metrise que trop peu et jarrivai pas a mon but
donc jai prefere faire simple
au niveau de l utilite elle parrai pas enorma lorsquon est pas sur quakenet
mais moi qui suis sur plien de salon en mm temps est que lon doit donner des accec a des personne ....
au lieu de taper de commande comme /msg L chanlev $chan $nick accec
on clike droit et mon modifi tous simplement
Messages postés
133
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
16 mars 2004

Vu mon orthographe, je m'en fou un peu et je peu pas critiquer lol, mais pour en vennir à son script, tu t'est donner un peu trop de mal pour rien, ou plutôt, tu as perdu trop de temps pour pas grand chose, je te met 7/10 our l'effort, mais c'est vu et revu, les codes sont trop simples.
+ et bon scripting.
Afficher les 7 commentaires

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.