;# 07/09/2010 - Cks #; ;# alias dinter { dialog -m inter inter } ;# alias autojoin-inter { var %x $numtok(%autojoin-inter,44) var %y 0 while (%y != %x) { inc %y | join $gettok(%autojoin-inter,%y,44) } } ;# alias reloadliste-autojoin-inter { Set %autojoin-inter $sorttok(%autojoin-inter,44) did -r inter 7 set -u5 %x $numtok(%autojoin-inter,44) var %y 0 while (%y != %x) { inc %y didtok -a inter 7 44 $gettok(%autojoin-inter,%y,44) } } dialog inter { title "Connexion à InterPlanete" size -1 -1 104 143 option dbu box "", 1, 3 3 97 125 check "Connexion auto On/Off", 2, 6 10 84 10 check "Connexion en /server -m", 15, 6 19 73 10 text "Pseudo", 3, 9 29 25 8 text "Pass X", 4, 9 41 25 8 edit "", 5, 37 29 44 10 edit "", 6, 37 41 44 10, pass list 7, 6 68 50 58, size check "Autojoin des Salons On/Off", 8, 6 53 84 10 button "Ajouter", 9, 63 74 32 10 button "Supprimer", 10, 63 87 32 10 button "Fermer", 11, 63 114 32 10, ok link "www.InterPlanete.com", 12, 23 131 59 8 text "© 2010", 13, 69 102 30 8 button "Ok", 14, 82 35 14 12 } dialog inter-con { title "Congrats !!" size -1 -1 78 31 option dbu box "", 1, 3 2 73 27 link "www.InterPlanete.com", 2, 10 16 57 8 text "Pseudo et Pass Enregistrés.", 3, 7 7 76 8 } dialog inter-del { title "Congrats !!" size -1 -1 78 31 option dbu box "", 1, 3 2 73 27 link "www.InterPlanete.com", 2, 10 16 57 8 text "Pseudo et Pass Effacés", 3, 10 7 76 8 } ;# on *:dialog:inter-con:sclick:*: { dialog -x inter-con | dinter } on *:dialog:inter-del:sclick:*: { dialog -x inter-del | dinter } on *:dialog:inter:*:*: { if (!%interplanete.etat) { set %interplanete.etat off } if (%interplanete.etat == on) { did -c inter 2 } if (%interplanete-m == on) { did -c inter 15 } if (!%autojoin-salons) { set %autojoin-salons off } if (%autojoin-salons == on) { did -c inter 8 } if ($devent == init) { did -a inter 5 %interplanete.pseudo did -a inter 6 %interplanete.pass .reloadliste-autojoin-inter } if ($devent == sclick) { if ($did == 10) && ($len($did(inter,7).seltext) > 0) { set %autojoin-inter $REMtok(%autojoin-inter,$did(inter,7).seltext,44) .reloadliste-autojoin-inter } if ($did == 9) { set %autojoin-inter $addtok(%autojoin-inter,$$?"Tapes le salon avec le #",44) .reloadliste-autojoin-inter } if ($did == 2) { if (%interplanete.etat == on) { set %interplanete.etat off | did -u inter 2 } else { set %interplanete.etat On | did -c inter 2 } } if ($did == 8) { if (%autojoin-salons == on) { set %autojoin-salons off | did -u inter 8 } else { set %autojoin-salons On | did -c inter 8 } } if ($did == 15) { if (%interplanete-m == on) { set %interplanete-m off | did -u inter 15 } else { set %interplanete-m on | did -u inter 15 } } if ($did == 14) { if ($len($did(inter,5).text) != 0) { set %interplanete.pseudo $did(inter,5).text } if ($len($did(inter,6).text) != 0) { set %interplanete.pass $did(inter,6).text } dialog -x inter dialog -m inter-con inter-con halt } if ($len($did(inter,5)) == 0 && $len($did(inter,6)) == 0) { unset %interplanete.pseudo | unset %interplanete.pass dialog -x inter dialog -m inter-del inter-del } } } ;# on *:start:{ unset %inter-logué if (%interplanete.etat == on) { if (%interplanete-m == on) { server -m interplanete.com:6667 } else { server interplanete.com:6667 } } } on *:connect:{ if ($server == interplanete.com) && (%autojoin-salons == On) { nick %interplanete.pseudo | autojoin-inter } } on *:notice:*:?:{ if ($server == interplanete.com) && ($nick == X) { if (*login réussi* iswm $strip($1-)) { set %inter-logué On } if (*Vous venez de vous déloguer* iswm $strip($1-)) { unset %inter-logué } if (*Le pseudo*est enregistré* iswm $1-) || (*Le pseudo*est un alias* iswm $strip($1-)) { if ($strip($5) == %interplanete.pseudo) { /x recover %interplanete.pseudo %interplanete.pass } if ($strip($5) != %interplanete.pseudo) { nick %interplanete.pseudo } } } } ;# menu nicklist { $iif(%inter-logué == on && X isop $chan && $server == interplanete.com,Commandes X -) .OP $snick(#) par X:{ .X op $chan $snicks | halt } .DEOP $snick(#) par X:{ .x deop $chan $replace($snicks,$chr(44),$chr(32)) | halt } .HOP $snick(#) par X:{ .x hop $chan $replace($snicks,$chr(44),$chr(32)) | halt } .DEHOP $snick(#) par X:{ .x dehop $chan $replace($snicks,$chr(44),$chr(32)) | halt } .VOICE $snick(#) par X:{ .x voice $chan $replace($snicks,$chr(44),$chr(32)) | halt } .DEVOICE $snick(#) par X:{ .x devoice $chan $replace($snicks,$chr(44),$chr(32)) | halt } .- .BAN $snick(#) par X ..Bannir en *nick*!*@* :.x ban $chan * $+ $$1 $+ *!*@* ..Bannir en *!*ident@???.fr:.x ban $chan $address($$1,13)) ..Bannir en *!*@host.fr:.x ban $chan $address($$1,2)) .KICK $snick(#) par X: { .x kick # $$1 $?"Entre la raison de ton Kick" } } menu menubar { Configuration InterPlanete:/dinter } menu channel { Configuration InterPlanete:/dinter } ;# Merci à Efis de m'avoir soutenu dans la correction de cet addon ! #;