Bonjour,
j'aurai aimé savoir comment il fallait créer un link d'un service existant ircu pour le connecter sur un serveur Bahamut ?
Le code en tcl que j'ai actuellement est:
Auriez vous une idée quelconque ?
Cordialement,
Foufou
Edit Artix: Les codes mIRC, cay le mal !
j'aurai aimé savoir comment il fallait créer un link d'un service existant ircu pour le connecter sur un serveur Bahamut ?
Le code en tcl que j'ai actuellement est:
TCL
bind dcc Z xconnect proc:xconnect
proc proc:xconnect {nick idx text} {
global eva hostclone check_connect
if {[info exists eva(idx)] && [valididx $eva(idx)]} {
if {$text=="-s"} {
send ":$eva(nicke) QUIT $eva(serv) 0 :Maintenance technique !"
send ":$eva(csnick) QUIT $eva(serv) 0 :Maintenance technique !"
send ":$eva(nick) QUIT $eva(serv) 0 :Maintenance technique !"
send ":$eva(nickserv) QUIT $eva(serv) 0 :Maintenance technique !"
send ":$eva(nick) SQUIT $eva(serv) 0 :Rebooting Services!"
} else {
putdcc $idx "UWorld déjà connecté. Tapez '.xconnect -s' pour squiter et reconnecter."
return 0
}
}
if ![catch {connect $eva(link) $eva(port)} eva(idx)] {
send "PASS :$eva(pass)"
send "SERVER $eva(serv) 1 [unixtime] [unixtime] J09 ACAA\] +s :$eva(info)"
control $eva(idx) eva_event
# control $eva(idx) evaz_event
} else {putlog "\002Connection de $eva(serv) à $eva(idx) impossible.\002"}
coneva
utimer 30 check_connect
#utimer 60 "annonce12"
return 1
}
Auriez vous une idée quelconque ?
Cordialement,
Foufou
Edit Artix: Les codes mIRC, cay le mal !