Çevrimdışı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Paylasımın İcin Teşekkürler Deneyeceğim peki Syn @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bu Botun Yeni Sürümünü Cıkarıcakmı acaba?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 07:17 -->-> Daha önceki mesaj 06:44 --

Aslında @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bahsettigim Bot Aslında Buydu

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 #Shell 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 !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 #KraLSheLL +o KraLSheLL"
putserv "mode #Yonetim +o KraLSheLL"
putserv "mode #Shell +o KraLSheLL"
putserv "mode #Musteri +o KraLSheLL"
putserv "mode #Musteri1 +o KraLSheLL"
putserv "mode #Musteri2 +o KraLSheLL"
}
}

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 KraLSheLL Hizmetleri (IRC Destek Server)"
putquick "privmsg $chan 3 MusteriServ.Tcl"
putquick "privmsg $chan 10 AzRaiL Tarafından Düzenlenmiştir"
putquick "privmsg $chan 10 email: [email]Destek[MENTION=31965]kralshell[/MENTION].Net[/email]"
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 #Shell"
putquick "mode #Shell +v $text"
putquick "privmsg #Shell 12Sayın 4 $text 12operatorlerimizden 4 $nick 12size yardımcı olacaktır. Soru ve sorunlarınızı yöneltiniz."
putquick "privmsg #yonetim $text #Shell 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..KraLSheLL.Net - Set ßy AzRaiL"
}
}

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]"

}
}
}

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. KraLSheLL"
}
}

bind pub - !geldim celdim
proc celdim {nick user hand chan arg} {
global yonetim
}
else {
if {[onchan $nick $yonetim]} {
putquick "privmsg OperServ global 2KraLSheLL admin teknik Ekibinden 4 $nick 2 Suanda Online !!!"
putquick "chgname $nick 0 4KraLSheLL.Net - $nick  "
putquick "privmsg $yonetim Geldiginiz Bildirildi Ve Realname iniz 0 4KraLSheLL.Net - $nick   Şeklinde Değiştirildi"
}
}
}
}
}
bind pub - eyw oknssd
proc oknssd {nick uhand host chan text} {
global botnick
if {$nick == "AzRaiL"} {
putquick "privmsg $chan Nedemek Görevimiz"
}
}

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 2KraLSheLL 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 12KraLSheLL 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 #Shell"
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 4KraLSheLL 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 - /hesapno - / iletisim- / webhosting"
putquick "privmsg $nick 4Hesap Numaralari'miz Hakkinda Bilgi almak için 3/hesapno"
putquick "privmsg $nick 4reseller icin /reseller"
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: 2Destek[MENTION=31965]kralshell[/MENTION].Net"
putquick "privmsg $nick 4ircd icin /j #KraLSheLL kanalına giriniz ßy AzRaiL"
putquick "privmsg #yonetim 2 $nick 12, #KraLSheLL odasına giriş yaptı ."
putquick "privmsg #yonetim 1 -"
putquick "privmsg #yonetim 4 !a1 $nick 1 - #Shell"
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 9,1 Müşteri Bekliyor bi kanala alin(AdmiraL,ShiLa,OzCaN,AzRaiL)aLooo Kime Diyorum Baksanıza!!!.."
putquick "privmsg #yonetim 9,1 AdmiraL,ShiLa,OzCaN,AzRaiL aLooo Kime Diyorum Baksanıza!!!.."

}
}


set admin_chan "#Yonetim"
bind raw * notice snotice
proc snotice {from keyword arg} {
global admin_chan
if { [string match "*Size Whois Cekti*" $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 10KraLSheLL INT. Hizmetleri (IRC Destek)"
putquick "privmsg $nick 15M14uster15S14erv 4V2 By 15Az14Ra15iL"
}
}
}

set pwhcode "Oto Mesaj"
bind msgm - * reklamcheck
proc reklamcheck {nick host hand things} {
global pwhcode
if {[string match "*" $things]} {
putserv "privmsg #Yonetim :Nick: $nick - Mesaj: $things"
return 0
}
putserv "privmsg #Yonetim :Nick: $nick - Mesaj: $things"
}

Birde Bu tcl i kullanırken Eggdrop girmiyo Sunucuya Böyle Bir Hata Alıyorum Musteriserv.conf 143 ncü satırda musteriserv.tcl var oda burada


[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]