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