#########################
# Hazırlayan by: CanCeL #
#########################
set join_msg {
{
"$nick Rumuzlu Kisi $chan Odasına Girdi ve Sizden Destek Bekliyor..."
}
}
# Mesaj Atacagi Kanallar...
set join_chans "#Destek"
bind join - * join_join
#########################
# Genel Ayarlar
#########################
proc join_join {nick uhost hand chan} {
global join_msg join_destek botnick
if {(([lsearch -exact [string tolower $join_destek] [string tolower $chan]] != -1) || ($join_destek == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
set join_temp [lindex $join_msg [rand [llength $join_msg]]]
foreach msgline $join_temp {
putquick "PRIVMSG #Yonetim :[subst $msgline]"
}
}
}
##############################
# KabuL Komutu :)
##############################
bind pub - !kabul okey
#protokollllllllllllllllllllll
proc okey {nick uhand host chan text} {
putquick "MODE #Destek +v $text"
putquick "PRIVMSG #Destek :$text Lütfen bekleyin $nick rumuzlu yetkili operator size yardım edecektir..."
putquick "PRIVMSG #Yonetim :$text Rumuzlu Kullanıcıya $nick Destek Vermekde..."
}
##############################
# RED Komutu :)
##############################
bind pub - !red pasif
#protokollllllllllllllllllllll
proc pasif {nick uhand host chan text} {
putquick "PRIVMSG #Destek :$text Destek Talebeniz Reddedilmistir, Iyi gunler..."
putquick "PRIVMSG #Yonetim :$text Rumuzlu Kullanıcının Destek Talebi Reddedilmistir"
}