Communauté Eggdrop

namespace eval sockegg {
  
  set egg(clone1) {
     nick "clone1"
     realname "I am a clone"
     identd "UserRBL"
     serv   "irc.radiobluelight.fr"
     port   6667
     host   "radiobluelight.fr"
     idx   0
  }
  
  variable bot
  
  bind dcc - "clone" [namespace current]::come
  proc come { i f a } {
     [namespace current]::connect clone1 $a
  }
  
  proc connect {nick chan} {
     variable egg
     variable bot
     array set bot $egg($nick)
     putlog "Going to $bot(serv)"
     set mserver $bot(serv)
     set mport $bot(port)
     putlog "Connection to $mserver $mport"
     set bot(idx) [::connect $mserver $mport]
     control $bot(idx) $chan
     putdcc $bot(idx) "USER $bot(nick) 0 0 :$bot(realname)"
     putdcc $bot(idx) "NICK $bot(nick)"
  }
  
  bind dcc - "unclone" [namespace current]::go
  proc go {i f a} {
     array set ::sockegg::bot $::sockegg::egg($nick)
     killdcc $::sockegg::bot(idx)
     set ::sockegg::bot(idx) 0
  }
}