This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

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