IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
##########################################################

# Onjoin.tcl 0.1 by Banned@abv.bg  by Banned             #

#                                                        # 

########################################################## 

set onjoin_msg {

 {

  "4FixSohbet.Net 2Sohbet Platformuna Hoşgeldiniz. Güvenlik Taramasina Alindiniz. Simdi Kanallara Alinacaksin 7~ $nick ~"

 }

}

set onjoin_chans "#Karantina"
 

bind join - * join_onjoin
 

putlog "Onjoin.tcl 0.1 by Banned loaded"
 

proc join_onjoin {nick uhost hand chan} {

 global onjoin_msg onjoin_chans botnick

 if {(([lsearch -exact [string tolower $onjoin_chans] [string tolower $chan]] != -1) || ($onjoin_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {

  set onjoin_temp [lindex $onjoin_msg [rand [llength $onjoin_msg]]]

  foreach msgline $onjoin_temp {

   putserv "PRIVMSG $chan [subst $msgline]"

  }

 }

}