[Correct script] putchan error

[SoLLo]

Am un TCL (este de la un prieten,nu stiu copyright) si nu reusesc sa il fac sa mearga !

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 !

[00:00] Tcl error [checkbaseAWAY]: invalid command name "putchan"

[Madalin]

normal pentru ca acea comanda nu exista, totusi ce vrei ca acel tcl sa faca ?!!

[SoLLo]

Pai cand scrii pe canal "away" bot-ul sa raspunda cu una din liniile setate mai sus ! Nu stii cum pot face sa functioneze ala ?

[Madalin]

Incarca scriptul alltools.tcl (source scripts/alltools.tcl)

[arcade]

inlocuiesti asta:

putchan $chan "[lindex $quoteAWAY [rand [llength $quoteAWAY]]]"

cu asta

puthelp "PRIVMSG $chan :[lindex $quoteAWAY [rand [llength $quoteAWAY]]]"