AUTO JOIN & IDENT MULTI SERVER
COOLMAN002
Messages postés
969
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
1 juillet 2012
-
22 août 2005 à 14:27
cs_PaDa Messages postés 1804 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 22 septembre 2009 - 15 oct. 2005 à 10:43
cs_PaDa Messages postés 1804 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 22 septembre 2009 - 15 oct. 2005 à 10:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33378-auto-join-ident-multi-server
https://codes-sources.commentcamarche.net/source/33378-auto-join-ident-multi-server
15 oct. 2005 à 10:43
15 oct. 2005 à 10:37
Guigui653 a créer un auto join + ident pour le script Zaibatsu.
Il l'a créer POUR le script. Et je peut t'assure PaDa, que c'est exactement le meme code ! je peut meme te faire une demonstration :)
alias autoj {
if ($dialog(aj2)) halt
dialog -m aj2 aj2
}
dialog aj2 {
size -1 -1 250 200
title "Auto Join"
combo 1 ,10 10 120 100, size drop
button Ajouter ,2, 140 10 100 21, flat
text _____________________________________ ,999, 10 32 225 15, disable center
list 3, 10 55 130 140, size drop sort
button Ajouter ,4, 145 55 100 21, flat
button Supprimer ,5, 145 76 100 21, flat disable
radio On ,6, 150 120 40 15,
radio Off ,7, 195 120 50 15,
button Fermer ,8, 150 150 90 40, ok cancel
}
on *:dialog:aj2:*:*: {
if $devent == init {
didtok $dname 1 44 %aj.list
did -c $dname 1 1
var %a 1
var %c $did(1).text $+ .aj
while ($read(%c,%a)) {
did -a $dname 3 $ifmatch
inc %a
}
if ($group(#auto-join) == on) { did -c $dname 6 }
if ($group(#auto-join) == off) { did -c $dname 7 }
}
if $devent == sclick {
if ($did == 2) {
var %a $?="Nom du NetWork $crlf $+ (Ex: EpiKnet)"
if (!%a) { halt }
var %b 1
while ($gettok(%aj.list,%b,44)) {
if (%a == $ifmatch) { var %er $input( %a est déjà dans la liste d'auto join,308,Auto Join) | halt }
inc %b
}
set %aj.list $addtok(%aj.list,%a,44)
did -a $dname 1 %a
write %a $+ .aj
}
if ($did == 1) {
did -r $dname 3
var %a 1
var %c $did(1).text $+ .aj
while ($read(%c,%a)) {
did -a $dname 3 $ifmatch
inc %a
}
did -b $dname 5
}
if ($did == 4) {
var %a $?="Quel canal ajouter"
if (!%a) { halt }
var %c $did(1).text $+ .aj
write %c %a
did -a $dname 3 %a
}
if ($did == 3) {
if ($did(3).sel) { did -e $dname 5 }
}
if ($did == 5) {
if ($did(3).sel) {
write -dw"* $+ $did(3).seltext $+ *" $did(1).text $+ .aj
did -d $dname 3 $did(3).sel
did -b $dname 5
}
}
if ($did == 6) { .enable #auto-join }
if ($did == 7) { .disable #auto-join }
}
}
#auto-join on
on *:connect: {
var %a 1
while ($gettok(%aj.list,%a,44)) {
if ($network == $ifmatch) { goto suite }
inc %a
}
halt
:suite
var %a 1
while ($read($network $+ .aj,%a)) {
j $ifmatch
inc %a
}
}
#auto-join end
alias autoid {
if ($dialog(ai2)) halt
dialog -m ai2 ai2
}
dialog ai2 {
size -1 -1 250 200
title "Auto Identify"
combo 1 ,10 10 120 100, size drop
button Ajouter ,2, 140 10 100 21, flat
text _____________________________________ ,999, 10 32 225 15, disable center
list 3, 10 55 130 140, size drop sort
button Ajouter ,4, 145 55 100 21, flat
button Supprimer ,5, 145 76 100 21, flat disable
radio On ,6, 150 120 40 15,
radio Off ,7, 195 120 50 15,
button Fermer ,8, 150 150 90 40, ok cancel
}
on *:dialog:ai2:*:*: {
if $devent == init {
didtok $dname 1 44 %ai.list
did -c $dname 1 1
var %a 1
while ($ini(Auto.Identify,$did(1).text,%a)) {
did -a $dname 3 $ifmatch
inc %a
}
if ($group(#auto-ident) == on) { did -c $dname 6 }
if ($group(#auto-ident) == off) { did -c $dname 7 }
}
if $devent == sclick {
if ($did == 2) {
var %a $?="Nom du NetWork $crlf $+ (Ex: EpiKnet)"
if (!%a) { halt }
var %b 1
while ($gettok(%ai.list,%b,44)) {
if (%a == $ifmatch) { var %er $input( %a est déjà dans la liste d'auto ident,308,Auto Ident) | halt }
inc %b
}
set %ai.list $addtok(%aj.list,%a,44)
did -a $dname 1 %a
}
if ($did == 3) {
if ($did(3).sel) { did -e $dname 5 }
}
if ($did == 4) {
var %add $?="Pseudo a ajouter"
var %add1 $?*"Mot de passe"
if (!%add) || (!%add1) { halt }
writeini auto.identify $did(1).text %add %add1
did -a $dname 3 %add
}
if ($did == 1) {
did -r $dname 3
var %a 1
while ($ini(auto.identify,$did(1).text,%a)) {
did -a $dname 3 $ifmatch
inc %a
}
}
if ($did == 5) {
if ($did(3).sel) {
remini auto.identify $did(1).text $did(3).seltext
did -d $dname 3 $did(3).sel
did -b $dname 5
}
}
if ($did == 6) { .enable #auto-ident }
if ($did == 7) { .disable #auto-ident }
}
}
#auto-ident on
on *:notice:*identify*:*: {
if ($nick Themis) || ($nick NickServ) {
if ($readini(auto.identify,$network,$me)) {
.msg NickServ identify $readini(auto.identify,$network,$me)
}
}
}
#auto-ident end
Je ne dit donc pas que la source est sur le site !
15 oct. 2005 à 10:35
plutot que de troller, t'as pas envie d'étayer ce que tu dis J3rK ? [...]
15 oct. 2005 à 09:55
A mon avis, t'as rippé car, guigui l'avait fait pour le zaib' script...
Pas bo tout ca ;(
23 août 2005 à 14:34
23 août 2005 à 08:50
Pour l'addon, pas envie de tester, on voit ca tout le temps, et le screenshot montre rien d'innovant
23 août 2005 à 03:50
22 août 2005 à 20:22
22 août 2005 à 17:19
Juste un question... Qui a voté 10 ?
Bon c'est pas horrible non plus, je ne sais pas si tu fait du scripting depuis longtemps.
Plusieurs problèmes...
1)Il faut que le nom du network soit parfaitement bien écrit.
2)Si on ajoute un serveur coté ident, il y est pas coté autojoin.
Je pense que là où l'on s'ident, on a des joins à faire :) Autant relier les 2 !
3) Code à améliorer. Notamment dans le On Connect(pas besoin de goto)
4) le Dialog : juste un peu baisser les éléments pour que les tabs ne cachent pas les BOX.
5) J'ai essayé sur un mirc vierge, et l'alias j ne fonctionne pas :) aller rajoute "oin" ^^
6)création de beaucoup de fichier.
7) Une erreur pour l'affichage des pseudo auto-ident var %a 11 au lieu de var %a 1 (si c'est pas moi qui ait rajouté sans faire exprès)
Bon ben sinon rien à en dire.
C'est pas le pire autojoin/ident ni le meilleur. Bon ben sinon ça marche évidemment, mais difficile de le faire marcher :)
Corrige les bugs et ça vaudra bien 7-8 parce que c'est du débutant et que ça marche. Avec les bugs, ça vaut pas grand chose :S désolé
Tout ceci n'est que mon avis.
22 août 2005 à 16:02
22 août 2005 à 14:27
devient: menu * {
if ($group(#auto-join) == on) did -c $dname 6
if ($group(#auto-join) == off) did -c $dname 7