Am un TCL (este de la un prieten,nu stiu copyright) si nu reusesc sa il fac sa mearga !
Code:
set quoteAWAY {
"io nu's away :)"
"hai sa ne bagam si noi away :P"
"di ma .. mda toti is away aici ?"
"precis o mers la buda :)~"
":( nu mai am cu cine povesti :p"
}
set allyourbaseAWAY "*is*away*"
bind pubm - * checkbaseAWAY
bind ctcp - "ACTION" checkbaseAWAY
proc checkbaseAWAY {nick uhost hand chan args} {
global allyourbaseAWAY quoteAWAY
if {[string match -nocase $allyourbaseAWAY $args]} {
putchan $chan "[lindex $quoteAWAY [rand [llength $quoteAWAY]]]"
}
return 1
}
putlog "\00313away *ON* !\00313"
Imi da eroarea asta in botnet
!
Code:
[00:00] Tcl error [checkbaseAWAY]: invalid command name "putchan"