Cevap: MusteriServ v1.o By BuCaLI
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
En Son Denediğim de Çalışıyordu bi Bak İstersen...

Arviş de Duruyordu bi Dene.. ;)

DipNot ; Alıntıdır...

Cevap: MusteriServ v1.o By BuCaLI
 

@[Ü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...]

Cevap: MusteriServ v1.o By BuCaLI
 

bu

olmalı... düzenlerken artık bırakılmış geride ....ayrıca .conf'unuzdaki load modules CycleBots satırını silmelisiniz. öyle bir module bulunmuyor buda "yok böyle birşey" diye hata vermiş.
Birde kullanıcı dosyası halihazırda oluşturulmuş olduğundan ortadaki -m seçeneğine artık gerek yok* demiş. botunuza kendinizi tanıttıktan sonra o -m gerek kalmaz. sadece ./eggdrop bot.conf yeterli. birde kill ile -9'ada gerek yok. bu bruteforce yani kaba kuvvetle işlemi sonlandırmak için kullanılır. yani windows görev yöneticisinden bir işlemi görevi sonlandırla kapatmaya benzer. sadece kill PID yeterlidir. bu botunuza kapanırken işleri kaydetmesi ve daha sağlıklı kapanması için "zaman" tanır.kill -9 da ise buna şansı olmaz.

Cevap: MusteriServ v1.o By BuCaLI
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] `da Olmasa Eggdrop Bölümünün Hâli Sakat Valla ;)

Anlatan Ellerin Dert Görmesin...