Kod: Kodu kopyalamak için üzerine çift tıklayın!
#########################
# 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"
}
#################
# KULLANIM #
#################
#Destek odasıba giren kişiyi #Yonetim odasına rapor eder.
#Yonetim odasında uygulanacak komutlar:
!kabul <nick> : #Destek odasında +v verir ve Beklemesine dair bir mesaj verir.
!red <nick> : Kullanıcının Destek Talebinin Reddedildiğine Dair Bir Mesaj Verir...
Anladığım kadarıyla yazdım, çizdim ve biçtim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Diğer fonksiyonlarını sen eklersin dilediğin gibi...