# Simple slowvoice.tcl by FireEgl@EFNet <FireEgl@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Fan.com> - 8/?/99

# Desc:
# Will voice +v users on join within 0-99 seconds.
# (if another bot hasn't already done the +v mode.) =)

# You must set the channel -autovoice for
# this script to takeover the job of autovoicing.

# Simple because there's no options,
# voicing will be active on all channels.


bind join v|v * join_check_voice
proc join_check_voice {nick host hand chan} {
   utimer [rand 99] [split "check_voice $nick $chan"]
}

proc check_voice {nick chan} {
   if {![isvoice $nick $chan]} {
      puthelp "MODE $chan +v $nick"
   }
}

putlog "simple slowvoice.tcl by FireEgl@EFNet <FireEgl@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Fan.com> - Loaded."