event.

[djkenny]

salut,

tclcopier

if {$arg2=="QUIT"} {
    set pseudo [string trim [lindex $arg 0] :]
    set message [string trim [lrange $arg 2 end] :]
    if [string equal "KILL" [lindex $message 0]] {
      putdcc $geofront(idx) ":$geofront(logservnick) PRIVMSG $geofront(log) :\0035° \0037Kill \0035° \0036$pseudo \0031vein d'être kill du serveur : \0034$message"
 
    } else {
        putdcc $geofront(idx) ":$geofront(logservnick) PRIVMSG $geofront(log) :\0035° \0037Quit \0035° \0036$pseudo \0031a quitter le serveur : \0034$message"
    }
  }