21/11/2009, 20:51
tcl
set SalonAide "#aide"
bind pub - !test test_utimer
proc test_utimer { nick host hand chan arg } {
global botnick
if {$arg == ""} {
utimer 10 [list TimerMsg $chan $nick]
}
if {$arg != ""} {
utimer 10 [list TimeMsg $chan $arg]
return 0
}
}
proc TimerMsg {chan nick} {
if {![botisop $chan]} { return 0 }
if {[onchan $nick $chan] && ![isvoice $nick $chan] && ![isop $nick $chan]} {
putserv "privmsg $::SalonAide : $nick ceci est un test après 10secondes"
}
return 0
}
proc TimeMsg {chan arg} {
if {![botisop $chan]} { return 0 }
putserv "privmsg $::SalonAide : ceci est un test après 10 secondes $arg"
return 0
}
ce qui te donne ceci :
Citation :|19:46:58| fedora: !test
|19:47:08| @bOten: fedora ceci est un test après 10secondes
|19:47:12| fedora: !test 123
|19:47:24| @bOten: ceci est un test après 10 secondes 123
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]