activechatter help

Help for those learning Tcl or writing their own scripts.
Post Reply
n
neotr
Voice
Posts: 7
Joined: Sat Jun 28, 2008 5:16 pm

activechatter help

Post by neotr »

hi ;
how txt messages write give the user +v voice ?

voice + :

Code: Select all

 

proc autovoice:delay {nick chan} {

 set user [split [string tolower $nick:$chan]]

 if {[botisop $chan] && [onchan $nick $chan] && ![isop $nick $chan] && ![isvoice $nick $chan]} {

  pushmode $chan +v $nick

  set voiced($user) 1

 }



voice - :

Code: Select all


if {![info exists exempt($user)] && ([getchanidle $user $chan] >= $autovoice(dvtime))} {

pushmode $chan -v $user

if {![info exists devoice($chan)]} {

set devoice($chan) 1

}



pushmode $chan +v $nick : başarı ile voice aldı" not be

putserv "NOTICE $nick :Iyi Eğlenceler dileriz.." not be

Thank you for help
Post Reply