Smile responding

[]Kami[]

Andbody know what could be wrong here, this script make responde on smiles

Code: Select all

set ransmile {
  ":-)"
  ":-))"
  ":-D"
  "&:-)"
  ":-p"
  ";-)"
  ";-))"
  ":-O"
  ":-1"
}
bind pub - {:-)} pub_smiling
bind pub - {:)} pub_smiling
bind pub -|- {smile} pub_smiling


# random smile proc
proc pub_smiling {nick uhost hand chan $ran:-)} {
  global ransmile
  if [rand 2] {
    putchan $chan "[lindex $ransmile [rand [llength $ransmile]]]"
    }
    return 1
}

putlog "Smiling TCL script by Laurababe loaded."

bot say

Code: Select all

[12:11:38] <King_Kai> [12:11] Tcl error in script for 'timer8':
[12:11:38] <King_Kai> [12:11] can't read "hand": no such variable
[12:11:39] <King_Kai> [12:11] Tcl error [pub_smiling]: invalid command name "putchan"

Greetings ....

[Papillon]

well, the error-msgs says it all really.
The timer-error is not from that proc.
The putchan command is one beeing provided with the alltools.tcl script which usually comes with eggdrop. Make sure it is loaded

[]Kami[]

TNX i looked alltools.tcl and i found one mistake in it