IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

# 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."

DipNot: Alıntıdır.

99 olan kısım saniye cinsidir.
Kanallarda oto voice aktif olmaması lazım. 99 saniyede kendine göre düzenleyebilirsiniz. Bot oto voice vericektir.