Auto voice

Trunks · Post by **Trunks** » Sat Dec 20, 2003 4:00 pm

Somone know of an autovoice script that voice ppl after about half an houre ore something like that ?

Nimo · Post by **Nimo** » Sat Dec 20, 2003 4:31 pm

bind join - * auto_voice

proc auto_voice {nick uhost hand channel } {
  if {![matchattr $hand q|q $channel]} {
     utimer [expr 1700 + [rand 200]] if {((![isvoice $nick $channel]) && ([ison $nick $channel]) && (![matchattr $hand q|q $channel]))} {pushmode $channel +v $nick}                           
   }  
}

I haven't tried the code but it should work.

Post by **Sir_Fz** » Sat Dec 20, 2003 7:47 pm

utimer [expr 1700 + [rand 200]] if {((![isvoice $nick $channel]) && ([ison $nick $channel]) && (![matchattr $hand q|q $channel]))} {pushmode $channel +v $nick}

this would return an error like:

Tcl error: wrong # args: should be "utimer seconds command"

better calling another proc in timer

Code: Select all

utimer [expr 1700 + [rand 200]] [list voice:user $nick $channel $hand]

and put the voice code withing this proc

Code: Select all

proc voice:user {nick channel hand} {
if {((![isvoice $nick $channel]) && ([ison $nick $channel]) && (![matchattr $hand q|q $channel]))} {pushmode $channel +v $nick}
}