Link services Bahamut

[foufou]

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:

tclcopier

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 !