SAMODE
#10
Je crois que pour le version, Babytigrou16 attend qu'un robot renvoit la version d'un autre utilisateur:
tcl
set caller ""
bind pub -|o !version version:call
proc version:call {nick uhost hand chan args} {
   set ::caller $nick
   set victim [lindex $args 0]
   if {$victim == "" } { return 0 }
   if { $::botnick == $victim } { return 0 }
   puthelp "PRIVMSG $victim :\001VERSION\001"
}
 
bind ctcr - VERSION version:read
proc version:read {nick uhost handle dest key text} {
   if { ![info exists ::caller] || ($::caller == "") } { return 0 }
   if {$dest == ""} {set dest $::botnick}
   puthelp "PRIVMSG $::caller: $nick use $text"
   set ::caller ""
}


Répondre


Messages dans ce sujet
SAMODE - par Babytigrou16 - 30/03/2008, 04:47
RE: SAMODE - par NuNuX - 30/03/2008, 10:46
RE: SAMODE - par DaV34 - 30/03/2008, 11:16
RE: SAMODE - par Babytigrou16 - 30/03/2008, 18:10
RE: SAMODE - par NuNuX - 30/03/2008, 18:35
RE: SAMODE - par Babytigrou16 - 31/03/2008, 00:57
RE: SAMODE - par NuNuX - 31/03/2008, 08:29
RE: SAMODE - par Babytigrou16 - 01/04/2008, 05:56
RE: SAMODE - par NuNuX - 01/04/2008, 06:46
RE: SAMODE - par CrazyCat - 01/04/2008, 09:34
RE: SAMODE - par CrazyCat - 03/04/2008, 13:27
RE: SAMODE - par NuNuX - 01/04/2008, 11:01
RE: SAMODE - par Babytigrou16 - 01/04/2008, 21:35
RE: SAMODE - par CrazyCat - 02/04/2008, 09:40
RE: SAMODE - par Babytigrou16 - 02/04/2008, 22:29
RE: SAMODE - par NuNuX - 03/04/2008, 04:37
RE: SAMODE - par Babytigrou16 - 03/04/2008, 18:50
RE: SAMODE - par NuNuX - 03/04/2008, 19:01
RE: SAMODE - par DaV34 - 03/04/2008, 19:46
RE: SAMODE - par Babytigrou16 - 09/04/2008, 01:36
RE: SAMODE - par Babytigrou16 - 28/08/2009, 08:24
RE: SAMODE - par CrazyCat - 28/08/2009, 12:16
RE: SAMODE - par BdS - 28/08/2009, 12:22
RE: SAMODE - par CrazyCat - 28/08/2009, 14:41
RE: SAMODE - par BdS - 28/08/2009, 15:21
RE: SAMODE - par Babytigrou16 - 28/08/2009, 17:53

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté