#tcl başlangıç#
set Yonetim "#Yonetim"

bind pub - !komutlar bilgi

proc bilgi {nick user hand chan arg} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "privmsg #Yonetim ############################################"

putquick "privmsg $Yonetim !komutlar = tüm komutları gösterir"

putquick "privmsg $Yonetim !opla = MusteriServ botunu kanallarda op yapar"

putquick "privmsg $Yonetim !a1 nick = nicki #destek kanalına alır"

putquick "privmsg $Yonetim !a2 nick = nicki #musteri kanalına alır"

putquick "privmsg $Yonetim !a3 nick = nicki #musteri1 kanalına alır"

putquick "privmsg $Yonetim !a4 nick = nicki #musteri2 kanalına alır"

putquick "privmsg $Yonetim !sira nick = nicke suanda başkalarına bakıldıgını ve sıraya alındıgını bildirir"

putquick "privmsg $Yonetim !at nick = nicke gereksiz bekleme yapma diye kill atar"

putquick "privmsg $Yonetim !iptal nick = nickin destek istemi iptal eder ve odalardan cıkartır"

putquick "privmsg $Yonetim !geldim = online oldugunuzu ve destek verebilecek durumda oldugunuzu belirtmek için kulllanabilirsiniz"

putquick "privmsg $Yonetim !gidiyom = ircden cikarken kullanabilirsiniz"

putquick "privmsg $Yonetim !away = away duruma geçerken kullanabilirsiniz"

putquick "privmsg $Yonetim !on = 9,1 Destek Departmanimiz Suanda Online Çalışma Saatlerimiz : Sabah 09:00 Akşam 02:00"

putquick "privmsg $Yonetim !ofline = 9,1 Destek Departmanimiz Suanda Ofline Çalışma Saatlerimiz : Sabah 09:00 Akşam 02:00 "

putquick "privmsg $Yonetim !yapimci = 4MusteriServ.Tcl Yapimcisini Gösterir"

putquick "privmsg $Yonetim #############################################"

}

}

 

bind pub - !opla opver

proc opver {nick user hand chan arg} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putserv "mode #Shell +o MusteriServ"

putserv "mode #Yonetim +o MusteriServ"

putserv "mode #Destek +o MusteriServ"

putserv "mode #Musteri +o MusteriServ"

putserv "mode #Musteri1 +o MusteriServ"

putserv "mode #Musteri2 +o MusteriServ"

putserv "mode #Musteri3 +o MusteriServ"

putserv "mode #Musteri4 +o MusteriServ"

}

}

bind pub - !yapimci yapan

proc yapan {nick user hand chan arg} {

global botnick

putquick "privmsg $chan 4 ===================================================="

putquick "privmsg $chan 4 -"

putquick "privmsg $chan 2 BensumShell INT. Hizmetleri (IRC Destek Server)"

putquick "privmsg $chan 3 MusteriServ.Tcl"

putquick "privmsg $chan 10 SeckiN Tarafından Editlenip düzenlenmiştir."

putquick "privmsg $chan 10 email: destek@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Shell.NeT"

putquick "privmsg $chan 4 –"

putquick "privmsg $chan 4 ==================================================="

}

bind pub - !a1 al

proc al {nick uhand host chan text} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "sajoin $text #destek"

putquick "mode #destek +v $text"

putquick "privmsg #destek 12Sayın 4 $text 12operatorlerimizden 4 $nick 12size yardımcı olacaktır. Soru ve sorunlarınızı yöneltiniz."

putquick "privmsg #Yonetim $text #destek kanalına alındı $nick"

}

}

bind pub - !a2 alm

proc alm {nick uhand host chan text} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "sajoin $text #musteri"

putquick "mode #musteri +v $text"

putquick "privmsg #musteri 12Sayın 4 $text 12operatorlerimizden 4 $nick 12size yardımcı olacaktır. Soru ve sorunlarınızı yöneltiniz."

putquick "privmsg #Yonetim $text #musteri kanalına alındı $nick"

}

}

bind pub - !a3 alma

proc alma {nick uhand host chan text} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "sajoin $text #musteri1"

putquick "mode #musteri1 +v $text"

putquick "privmsg #musteri1 12Sayın 4 $text 12operatorlerimizden 4 $nick 12size yardımcı olacaktır. Soru ve sorunlarınızı yöneltiniz."

putquick "privmsg #Yonetim $text #musteri1 kanalına alındı $nick"

}

}

bind pub - !a4 almas

proc almas {nick uhand host chan text} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "sajoin $text #musteri2"

putquick "mode #musteri2 +v $text"

putquick "privmsg #musteri2 12Sayın 4 $text 12operatorlerimizden 4 $nick 12size yardımcı olacaktır. Soru ve sorunlarınızı yöneltiniz."

putquick "privmsg #Yonetim $text #musteri2 kanalına alındı $nick"

}

}

 

 

set onjoin_msg {

{

"0#Yonetim kanalına hoş geldiniz. kullanabileceğiniz komutları görmeniz için !komutlar yazınız..BensumShell - Set by Nefret"

}

}

bind join - * join_onjoin

proc join_onjoin {nick uhost hand chan} {

global onjoin_msg Yonetim botnick

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

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

foreach msgline $onjoin_temp {

puthelp "NOTICE $nick :[subst $msgline]"

putserv "chgname $nick 0 4BensumShell - $nick  "

}

}

}

bind pub - !sira siradaki

proc siradaki {nick uhand host chan text} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "privmsg $text 12Sayın4 $text , 12destek ekibimiz suanda diger müsterilerle ilgilenmektedir , suanda siraya alinmis durumdasiniz lütfen bekleyiniz operatorlerimiz sizi destek kanallarimiza alcaktir. BensumShell"

}

}

bind pub - !geldim celdim

proc celdim {nick user hand chan arg} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "privmsg OperServ global 2BensumShell Internet Hizmetleri Ekibinden 4 $nick 2 Suanda Online !!!"

putquick "privmsg $Yonetim Bildirdim geldiğinizi"

}

}

bind pub - !away evey

proc evey {nick user hand chan arg} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "PRIVMSG OperServ RAW SVSNICK $nick $nick|away :0"

putquick "PRIVMSG OperServ Global 2BensumShell Internet Hizmetleri Ekibinden 4 $nick 2 Suanda Away !!!"

}

}

bind pub - !gidiyom gitt

proc gitt {nick user hand chan arg} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "privmsg operserv raw svsmode $nick -NaAOo"

putserv "kill $nick 12BensumShell Internet Hizmetleri Ekibinden 4 $nick 12IRC’den Cikti !!!"

}

}

 

 

#Oper Odası

set Yonetims "#Yonetim"

bind pub - !iptal uzaklas

#Komut algılama

proc uzaklas {nick uhand host chan text} {

global Yonetims

if {[onchan $nick $Yonetims]} {

putquick "sapart $text #Destek"

putquick "sapart $text #Musteri"

putquick "sapart $text #Musteri1"

putquick "sapart $text #Musteri2"

putquick "privmsg $text Sayın4 $text , sorunununuz çözümlendiyse lütfen gereksiz bekleme yapmayınız."

}

}

#Oper Odası

set Yonetimss "#Yonetim"

bind pub - !at ttt

#Komut algılama

proc ttt {nick uhand host chan text} {

global Yonetimss

if {[onchan $nick $Yonetimss]} {

putquick "kill $text 4islemleriniz başarili bir sekilde halledilmistir. 12Gereksiz bekleme yapmak yasaktir."

}

}

bind raw - NOTICE baglanti

 

proc baglanti {from keyword text} {

if {[string match -nocase "*client connecting*" $text]} {

set nick [lindex [split $text] 9]

putquick "privmsg $nick 4Merhaba 12$nick"

putquick "privmsg $nick 4BensumShell 2INT. Hizmetleri (IRC Destek Server) Sunucusuna Hos Geldiniz"

putquick "privmsg $nick 4Paketler Hakkında Bilgi almak için kanal genelinde altaki komutları kullanınız.."

putquick "privmsg $nick 2Komutlar: 3/paket1 - /paket2 - /paket3 - /paket4 - /paket5 - / webhosting"

putquick "privmsg $nick 4Hesap Numaralari’miz Hakkinda Bilgi almak için 3/hesapno"

putquick "privmsg $nick 4-"

putquick "privmsg $nick 4Kişilerin adaletli bir şekilde yardım alabilmesi için, sıralamaya alan ve sırası geleni Destek kanalına Yönlendirmekteyim."

putquick "privmsg $nick 4IRCD/Shell hosting iletişim mail adresi: 2Satis@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Shell.NeT"

putquick "privmsg #Yonetim 2 $nick 12, #destek odasına giriş yaptı ."

putquick "privmsg #Yonetim 1 -"

putquick "privmsg #Yonetim 4 !a1 $nick 1 - #destek"

putquick "privmsg #Yonetim 4 !a2 $nick 1 - #musteri"

putquick "privmsg #Yonetim 4 !a3 $nick 1 - #Musteri1"

putquick "privmsg #Yonetim 4 !a4 $nick 1 - #Musteri2"

putquick "privmsg #Yonetim 1 –"

putquick "privmsg #Yonetim 1 Müşteri Bekliyor bi kanala alin.."

}

}

set admin_chan "#Yonetim"

bind raw * notice snotice

proc snotice {from keyword arg} {

global admin_chan

if { [string match "*/whois on you.*" $arg] } {

set nick [lindex $arg 2]

set host [lindex $arg 3]

putquick "PRIVMSG $admin_chan \00303-> \00312$nick $host \00303<- \00312whois çekti!"

if {![info exists ::whoiscount([set wnick [md5 [string tolower $host]]])]} {

set ::whoiscount($wnick) 0

timer 30[list unset ::whoiscount($wnick)]

putquick "privmsg $nick 10BensumShell INT. Hizmetleri (IRC Destek)"

putquick "privmsg $nick 15M14uster15S14erv 4V2 By aLoNe"

}

}

}

#tcl biter#