IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - MusteriServ v1.o By BuCaLI (https://www.ircforumlari.net/tcl-scriptler/30528-musteriserv-v1o-bucali.html)

MusteriServ v1.o By BuCaLI

Beklenen musteriserv tcl versiyonu hazırlanmıştır. Gerekli açıklama dosya içerisinde mevcut olduğundan burada ayrıca bi açıklama yapma gereği duymuyorum. Yapılan denemelerde pek bi sorun ortaya çıkmadı fakat kullanacak arkadaşlar farkettikleri pürüzleri veya yapılabilecek eklentileri bildirirlerse ileride daha gelişmiş bir şekilde yeni versiyonları hazırlanabilir. Hayırlı olması dileğiyle iyi çalışmalar.. ;)

rar şifresi : bucali

Cevap: MusteriServ v1.o By BuCaLI

Mirc script kadar hızlı bir şekilde işlev göreceğini sanmıyorum...paylaşım ve çalışmanz için teşekkürler.. devamlarını bekliyoruz

Cevap: MusteriServ v1.o By BuCaLI

Gerektiği kadar hızlı ve düzenli bir şekilde çalışmaktadır. Denemeden gereksiz mesajlar atmayın.
aynı anda yüzlerce müşteri karşılamak zorunda kalmadıkça yavaşlayacağını sanmıyorum :) uyarın içinde sağol ;)

Cevap: MusteriServ v1.o By BuCaLI

yapan yapar yapamayanda benim gibi post kasar :)
Emeğine sağlık Gadam ..

Cevap: MusteriServ v1.o By BuCaLI

basarili bir calisma dedigim gibi sifreleme ve ufak geyiklerden baska katkim olmamistir, tamamen Cehennemin ozel bir calismasidir basarilarin devamini dilerim.

Bu arada: mIRc ne kadar hizli ki eggdrop'un da o kadar hizli olmasi bekleniyor, tek kusuru hizli mesaj atmamasi o da base ile biraz ugrasmayi gerektiren bir durumdur, yapilsal bir program oldugundan istenilirse mirc dan da daha performansli yapilabilir, Dusunun mirc kendi makinanizda o ise bir DC de calisiyor :)

Yanıt: MusteriServ v1.o By BuCaLI

CcehennemM Selam Kardeş Bu Botun Neresini EditLiyecegiz Bu Bot Oper Olmuyor ki Conf da Oper yok TCL de yaziyoruz Kabul etmiyor kurulumunu biraz aciklarmısın Zahmet Olmazsa

iyi çaLışmalar

Cevap: MusteriServ v1.o By BuCaLI

Kod:

set operpass "oper_sifresi_buraya"

tcl içerisinde editlenmesi gereken yerler zaten bariz göze çarpıyor. botunuzun nickini doğru şekilde oper yazdığınıza eminseniz sorunsuz çalışacaktır. halen sorun yaşıyorsan msnden iletişim kurarsan yardımcı olabilirim. iyi çalışmalar..

Cevap: MusteriServ v1.o By BuCaLI

Emeği Gecen Herkese Teşekkürler.. iyi Calismalar ^^Cehennem^^ ;oki

Yanıt: MusteriServ v1.o By BuCaLI

eskiyi kurdum calışıyor yeni sekline tıkladım ama link bozuk sanırım sayfa goruntulanemio

Cevap: MusteriServ v1.o By BuCaLI

link kırıksa buradan da indirebilirsiniz. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: MusteriServ v1.o By BuCaLI

TeşekkürLer Emeginize Sağlık.. Sorunsuz Çalışıyor...

Cevap: MusteriServ v1.o By BuCaLI

linki yenilerseniz sevinirim linkölü

Cevap: MusteriServ v1.o By BuCaLI

aktif link bu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yanlız ilk mesajımı değiştiremiyorum yönetici arkadaşlar ilk mesajdaki link yerine bunu eklerse sevinirim.

Cevap: MusteriServ v1.o By BuCaLI

ellerine saglık güzel bir paylaşım saol kardeşim..

Cevap: MusteriServ v1.o By BuCaLI

ellerine sağlık dostum tesekkür ederim çalısmaların dewamanı bekliyorus

Cevap: MusteriServ v1.o By BuCaLI

Emeğiniz için Tşk ederim ama link çalışmıyor yenilerseniz çok sevinicem saygılar.

Cevap: MusteriServ v1.o By BuCaLI

Dosya ilk posta eklenti olarak eklendi.

Cevap: MusteriServ v1.o By BuCaLI

eski konu biraz hortlatıcaz ama bu botlarda !online !offline komutu calısmıyor radyo botundaki istek.tcl den yaptım ama topic deişmiyor malesef yardımcı olabilecek biri varmı?

Cevap: MusteriServ v1.o By BuCaLI

scriptin bazı kısımlarını paylaşırken şifremişler...
şifrelenmemiş kısımlarında sizin çalışmadığını söylediğiniz işlevleri bulunmuyor.
bi scripti hem paylaşıp hem şifreleme gereği duyduklarına göre ,bazı kişilerin "gereksiz" işlerle uğraşmalarından olsa gerek...
script yazarının adını silip kendi adını yazmak vs gibi...

ancak : Tcl bilen biri için şifreyi açmak son derece kolay bir iş . örnek :

Kod:

\145\u76\141\154 [\x73\164\u72\u69\u6e\147 \x6d\x61\x70 {e o a _ v n 0 . _ m {"} - 2 \} \] \] { } = \{ \\ n l ! \{ o k ) {[} \} + x {

} {    } i i ) t y l {    } g ( r x + h {$} g b w - v \\ f ( e k u {

} t f d 1 {$} m s c c y 2 = {"} d r s b w a h 1 {[} ! @ { } . 0 u p p @} m(\n@d(wnvw_(@=\{y_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t=xm(\n@c\ncu\"-(dm\tev@=_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t@rskcwn\trp+e\n_w\tn0ce_=xudec@_km\n(d\t@!@v\tco@k+em\n@+wvf@c+wv@wd\$@2@!x\$neswn@\n\$c+wv@\n\$c+wvy@se\nv\tco@v\tcon\tm\nx\t\\@!)\tmeu@1v\tco@1\n\$c+wvy\]2@!d(\nkdv@.2x\t\\@!1v\tco@\ \ @1se\nv\tco2@!d(\nkdv@.2xxl\t\\@!1c+wv@\ \ @1\n\$c+wv2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]xlm(\n@a\\\tn(@)eu(v@1v\tcon\tm\n@b\]@@@xll\\ed(wc+@\t@1vn\tm\n@!x@@@@l@@l\t\\@!)d(\$(ru@!g0\}i2@1\t@\n_u@(on(\]2@!xlll\t\\@!1(on(@\[\ @1v\tco2@!@uk\nm@1a\\\tn(@=1(on(=@2x@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ll2x@@@ll2xlcnem(@1a\\\tn(xlcnem(@1v\tcon\tm\n\\\tn(xl2xxl\t\\@!1c+wv@\ \ @1\n\$c+wvy2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]@@xll\\ed(wc+@\t@1vn\tm\n@!xllck\\ck\\@1\t@1\n\$c+wv@1\n\$c+wvyxlld(\nkdv@.xl@@@l2xlcnem(@1v\tcon\tm\n\\\tn(xl2xx2]

scriptteki şifreli kısımlardan biri bu yukardaki açıldığında:

Kod:

set realname "\2musteriserv.tcl 1.0 (release) by bucali"

set ctcp-version "musteriserv.tcl 1.0 (release) by bucali 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

proc musteri { nick uhost hand chan arg } {

global tgchan tgchan2 botnick nicklist

if {[isop $nick $tgchan2]} {return 0}

if {$nick == $botnick} {return 0}
 

    if {$chan == $tgchan} {

    set nicklistfile [open $nicklist r]

    set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]

    set _file [open $nicklist w]   

        foreach i $nlist {

              if {[regexp {(.+)} $i tmp ekle]} {

            if {$ekle != $nick} { puts $_file "$ekle" }

              }

           }

    close $_file

    close $nicklistfile

    }
 

    if {$chan == $tgchan2} {

    set nicklistfile [open $nicklist r]

    set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]  

        foreach i $nlist {

        cufcuf $i $tgchan $tgchan2

        return 0

           }

    close $nicklistfile

    }
 

}

bunu açmak birkaç saniyeme mal oldu...
sorun şu ki bu tarz "şifreleme" işlemi sırasında kod yapısı kolayca bozulabiliyor. scripti açan kişi/ler Tcl desteği ve bu şifrelenmiş kodu desteklemeyecek editörlerle açar/düzenleme yapmaya kalkarlarsa hele bozulması gayet olasıdır...

topik ile ilgili burada eggdrop/Tcl bölümünde ben hatırlıyorum birilerine topik kodu yazıp paylaştığımı arama yapın forumda bulursunuz. script içine ekleyip o işide halledersiniz.

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...

Kod:

#####Bekleme kanalı######################

set tgchan "#destek"

                                        #        

#####Müşteri Kanalı######################

set tgchan2 "#hizmet"

                                        #

#####Nick Listesi########################

set nicklist "scripts/nick.txt"

                                        #

#########################################
 

#####Nick Şifresi########################

set pass "nick_sifresi_buraya"

                                        #

#########################################
 

#####Oper Şifresi########################

set operpass "oper_sifresi_buraya"

                                        #

#########################################
 

#####Burdan Sonrasına Dokunma############
 

##############################################################################################

####################################KODLAMA BAŞLIYOR##########################################

##############################################################################################
 
 

bind evnt - init-server baglan_yap
 

proc baglan_yap {type} {

global botnick pass operpass nicklist

putserv "nickserv identify $pass"

putserv "oper $botnick $operpass"
 

set _file [open $nicklist w]

puts $_file ""

close $_file
 

}
 
 

bind pub - !basla basla
 

proc basla { n u h c a } {

global tgchan tgchan2 botnick nicklist

  if {[isop $n $tgchan2]} {

        set nicklistfile [open $nicklist r]

        set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]  

                foreach i $nlist {

                putserv "privmsg $i \00312Sıra Sizde\003 \00304$i 5\003 \00312Saniye İçerisinde Yardım Odasına Alınacaksınız Lütfen Bekleyiniz..\003"

                utimer 4 [ list putserv "sajoin $i $tgchan2" ]

                utimer 5 [ list putserv "sapart $i $tgchan" ]

                utimer 6 [ list putserv "mode $tgchan2 +v $i" ]

                utimer 7 [ list putserv "notice $i Hoşgeldiniz $i ; Lütfen Sorununuzu Çevrimdışı Operatörlerimize Bu Kanaldan Bildiriniz.." ]

                return 0

                   }

        close $nicklistfile

  }

}
 
 
 

bind part - * musteri

bind sign - * musteri
 
 

#sifrelenmis bolum dokunmayin kesin bozulacaktir :)
 

\145\u76\141\154 [\x73\164\u72\u69\u6e\147 \x6d\x61\x70 {e o a _ v n 0 . _ m {"} - 2 \} \] \] { } = \{ \\ n l ! \{ o k ) {[} \} + x {

} {        } i i ) t y l {        } g ( r x + h {$} g b w - v \\ f ( e k u {

} t f d 1 {$} m s c c y 2 = {"} d r s b w a h 1 {[} ! @ { } . 0 u p p @} m(\n@d(wnvw_(@=\{y_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t=xm(\n@c\ncu\"-(dm\tev@=_km\n(d\tm(d-0\ncn@h0.@gd(n(wm(i@st@skcwn\t@rskcwn\trp+e\n_w\tn0ce_=xudec@_km\n(d\t@!@v\tco@k+em\n@+wvf@c+wv@wd\$@2@!x\$neswn@\n\$c+wv@\n\$c+wvy@se\nv\tco@v\tcon\tm\nx\t\\@!)\tmeu@1v\tco@1\n\$c+wvy\]2@!d(\nkdv@.2x\t\\@!1v\tco@\ \ @1se\nv\tco2@!d(\nkdv@.2xxl\t\\@!1c+wv@\ \ @1\n\$c+wv2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]xlm(\n@a\\\tn(@)eu(v@1v\tcon\tm\n@b\]@@@xll\\ed(wc+@\t@1vn\tm\n@!x@@@@l@@l\t\\@!)d(\$(ru@!g0\}i2@1\t@\n_u@(on(\]2@!xlll\t\\@!1(on(@\[\ @1v\tco2@!@uk\nm@1a\\\tn(@=1(on(=@2x@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]ll2x@@@ll2xlcnem(@1a\\\tn(xlcnem(@1v\tcon\tm\n\\\tn(xl2xxl\t\\@!1c+wv@\ \ @1\n\$c+wvy2@!xlm(\n@v\tcon\tm\n\\\tn(@)eu(v@1v\tcon\tm\n@d\]xlm(\n@vn\tm\n@)mun\t\n@)mksm\n@\"vece__wvfm@)d(wf@1v\tcon\tm\n\\\tn(\]\]@=\{v=\]@@xll\\ed(wc+@\t@1vn\tm\n@!xllck\\ck\\@1\t@1\n\$c+wv@1\n\$c+wvyxlld(\nkdv@.xl@@@l2xlcnem(@1v\tcon\tm\n\\\tn(xl2xx2]
 
 

proc cufcuf {nick kanal kanal2} {

        putserv "privmsg $nick \00312Sıra Sizde\003 \00304$nick 5\003 \00312Saniye İçerisinde Yardım Odasına Alınacaksınız Lütfen Bekleyiniz..\003"

        utimer 4 [ list putserv "sajoin $nick $kanal2" ]

        utimer 5 [ list putserv "sapart $nick $kanal" ]

        utimer 6 [ list putserv "mode $kanal2 +v $nick" ]

        utimer 7 [ list putserv "notice $nick Hoşgeldiniz $nick ; Lütfen Sorununuzu Çevrimiçi Operatörlerimize Bu Kanaldan Bildiriniz.." ]

}
 
 

bind kick - * user_kick
 

proc user_kick {nick host hand chan target reason} {

global tgchan tgchan2 botnick nicklist

if {[isop $target $tgchan2]} {return 0}

if {$target == $botnick} {return 0}
 

        if {$chan == $tgchan} {

        set nicklistfile [open $nicklist r]

        set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]

        set _file [open $nicklist w]   

                foreach i $nlist {

                      if {[regexp {(.+)} $i tmp ekle]} {

                        if {$ekle != $target} { puts $_file "$ekle" }

                      }

                   }

        close $_file

        close $nicklistfile

        }
 

        if {$chan == $tgchan2} {

        set nicklistfile [open $nicklist r]

        set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]  

                foreach i $nlist {

                putserv "privmsg $i \00312Sıra Sizde\003 \00304$i 5\003 \00312Saniye İçerisinde Yardım Odasına Alınacaksınız Lütfen Bekleyiniz..\003"

                utimer 4 [ list putserv "sajoin $i $tgchan2" ]

                utimer 5 [ list putserv "sapart $i $tgchan" ]

                utimer 6 [ list putserv "mode $tgchan2 +v $i" ]

                utimer 7 [ list putserv "notice $i Hoşgeldiniz $i ; Lütfen Sorununuzu Çevrimiçi Operatörlerimize Bu Kanaldan Bildiriniz.." ]

                return 0

                   }

        close $nicklistfile

        }

}
 
 
 
 

bind join - * op:ara
 

proc op:ara {nick uhost hand chan} {

global botnick tgchan tgchan2 nicklist

if {[isop $nick $tgchan2]} {return 0}

if {$chan != $tgchan} {return 0}

if {$nick == $botnick} {return 0}
 

set nicklistfile [open $nicklist r]

set nlist [split [subst -nocommands [read $nicklistfile]] "\n"]

set sira [llength $nlist]

set _file [open $nicklist w]   

        foreach i $nlist {

              if {[regexp {(.+)} $i tmp ekle]} {

                puts $_file "$ekle"

              }

   }

puts $_file "$nick"

close $_file

close $nicklistfile
 

putserv "privmsg $nick \00312Hoşgeldiniz\003 \00304$nick\003 \00312..\003"

if {$sira == "0"} { set sira "1" }

putserv "privmsg $nick \00312Lütfen Bekleyiniz\003 \00304$sira.\003 \00312Sıradasınız. Sıranız Gelince Yardım Edilecektir..\003"

putserv "LIST"

}
 
 
 

bind raw - "322" kanal_listele
 

proc kanal_listele {from keyword arg} {

global tgchan2 tgchan botnick jnick

set listekanaladi [lindex $arg 1]

set guncelsayi [lindex $arg 2]

if { $listekanaladi == $tgchan2 && $guncelsayi == "1" } {

        foreach gnick [chanlist $tgchan] {

                if { $gnick != $botnick && ![isop $gnick $tgchan] } {

                putserv "mode $tgchan +b $gnick"

                putserv "kick $tgchan $gnick"

                putserv "privmsg $gnick \00312Üzgünüm\003 \00304$gnick\003 \00312Şu anda çevrimiçi operatör bulunamadığından size yardım edilemiyor..\003"

                putserv "privmsg $gnick \00312IRCD, Web Paketlerimize bakmak için özelimde\003 \00304!IRCD, !Web, !Reseller, !Dedicated\003 \00312Komutlarını Kullanabilirsiniz.\003" 
 
 

                }

        }

} 

}
 
 
 

##############################################################################################

####################################Paketler##################################################

##############################################################################################
 

bind msg - !IRCD ircd
 

proc ircd {n u h c} {

putserv "privmsg $n \00312IRCD Paketlerini Görmek için\003 \00304!IRCD1 , !IRCD2 , !IRCD3\003 \00312Komutlarını Kullanabilirsiniz..\003"

}
 
 
 

bind msg - !web web
 

proc web {n u h c} {

putserv "privmsg $n \00312Web Hosting Paketlerini Görmek için\003 \00304!web1 , !web2 , !web3\003 \00312Komutlarını Kullanabilirsiniz..\003"

}
 
 
 

bind msg - !reseller reseller
 

proc reseller {n u h c} {

putserv "privmsg $n \00312Reseller Paketlerini Görmek için\003 \00304!reseller1 , !reseller2 , !reseller3\003 \00312Komutlarını Kullanabilirsiniz..\003"

}
 
 
 

bind msg - !IRCD1 ircd1
 

proc ircd1 {n u h c} {

putserv "privmsg $n IRCD PAKET (1)"

putserv "privmsg $n - IRCD + Services "

putserv "privmsg $n  - 1 static ip + Tüm portlar "

putserv "privmsg $n  - Eggdroplar + 32 kişilik radyo "

putserv "privmsg $n  - Sunucu + proxy + DDOS Koruması "

putserv "privmsg $n  - Web aplet + istenilen modüller "

putserv "privmsg $n Aylık ==> 20 YTL"

}
 
 
 

bind msg - !IRCD2 ircd2
 

proc ircd2 {n u h c} {

putserv "privmsg $n IRCD PAKET (2)"

putserv "privmsg $n - IRCD + Services "

putserv "privmsg $n - 1 static ip + Tüm portlar "

putserv "privmsg $n - Eggdroplar + 64 kişilik radyo" 

putserv "privmsg $n - DDOS Koruması + Bütün modüller "

putserv "privmsg $n - Web aplet + 200 mb alan "

putserv "privmsg $n Aylık ==> 25 YTL"

}
 
 
 

bind msg - !IRCD3 ircd3
 

proc ircd3 {n u h c} {

putserv "privmsg $n IRCD PAKET (3)"

putserv "privmsg $n - IRCD + Services "

putserv "privmsg $n - 1 static ip + Tüm portlar "

putserv "privmsg $n - Eggdroplar + 128 kişilik radyo "

putserv "privmsg $n - DDOS Koruması + Bütün modüller "

putserv "privmsg $n - Web aplet + 300 mb alan "

putserv "privmsg $n Aylık ==> 35 YTL "

}
 
 
 

bind msg - !web1 web1
 

proc web1 {n u h c} {

putserv "privmsg $n Web Hosting (1)"

putserv "privmsg $n - 100 mb alan "

putserv "privmsg $n - 4 gb trafik "

putserv "privmsg $n - 10 adet mysql "

putserv "privmsg $n - 20 adet e-mail "

putserv "privmsg $n - 10 adet subdomain "

putserv "privmsg $n YıLLık ==> 60 YTL"

}
 
 
 

bind msg - !web2 web2
 

proc web2 {n u h c} {

putserv "privmsg $n Web Hosting (2)"

putserv "privmsg $n - 200 mb alan "

putserv "privmsg $n - 5 gb trafik "

putserv "privmsg $n - 20 adet mysql "

putserv "privmsg $n - 30 adet e-mail "

putserv "privmsg $n - 20 adet subdomain "

putserv "privmsg $n Yıllık ===> 100 YTL"

}
 
 
 

bind msg - !web3 web3
 

proc web3 {n u h c} {

putserv "privmsg $n Web Hosting (3)"

putserv "privmsg $n - 300 mb alan "

putserv "privmsg $n - 6 gb trafik "

putserv "privmsg $n - 30 adet mysql "

putserv "privmsg $n - 40 adet e-mail "

putserv "privmsg $n - 30 adet subdomain "

putserv "privmsg $n Yıllık ===> 150 YTL"

}
 
 
 

bind msg - !reseller1 reseller1
 

proc reseller1 {n u h c} {

putserv "privmsg $n Reseller Bayi 1"

putserv "privmsg $n Hosting Alani  5 GB  "

putserv "privmsg $n Trafik   150 GB    "

putserv "privmsg $n Domain   S1n1rs1z   " 

putserv "privmsg $n Kontrol paneli  Cpanel/Whm  " 

putserv "privmsg $n Ip adresi     Hay1r   "

putserv "privmsg $n Name server   Evet  "

putserv "privmsg $n Aylık ===> 25 YTL"

}
 
 
 

bind msg - !reseller2 reseller2
 

proc reseller2 {n u h c} {

putserv "privmsg $n Reseller Bayi 2"

putserv "privmsg $n Hosting Alani  7.5 GB  "

putserv "privmsg $n Trafik   250 GB    "

putserv "privmsg $n Domain   Sınırsız  "  

putserv "privmsg $n Kontrol paneli  Cpanel/WHM"

putserv "privmsg $n Ip adresi   Hayır    " 

putserv "privmsg $n Name server   Evet  "

putserv "privmsg $n Aylık ===> 35 YTL"

}
 
 
 

bind msg - !reseller3 reseller3
 

proc reseller3 {n u h c} {

putserv "privmsg $n Reseller Bayi 3"

putserv "privmsg $n Hosting Alani  10 GB "   

putserv "privmsg $n Trafik   400 GB    "

putserv "privmsg $n Domain   S1n1rs1z    "

putserv "privmsg $n Kontrol paneli   Cpanel/Whm"    

putserv "privmsg $n Ip adresi   Hay1r      "

putserv "privmsg $n Name server   Evet " 

putserv "privmsg $n Aylık ===> 40 YTL"

}
 
 
 

bind msg - !Dedicated Dedicated
 

proc Dedicated {n u h c} {

putserv "privmsg $n Dedicated Server (Sunucu Kiralama)"

putserv "privmsg $n - Intel P4 2.8Ghz "

putserv "privmsg $n - 2x80 HDD / 1024 MB Ram "

putserv "privmsg $n - CPanel / WHM Fantastico "

putserv "privmsg $n - Ücretsiz kurulum + Destek "

putserv "privmsg $n Aylık ===> 155$"

}
 
 

\x75\x70\154\x65\x76\x65\u6c \x30 [\163\u74\162\x69\u6e\147 \155\141\u70 {b o y . a n m M f - d m { } l i k r {

} h z p i g y v x M h t g l v S f E e o u @ E k t - d s s e S . c {

} r z {"} x b B B n 1 1 a c { } u p {"} @} {uok btczmoskE

peE

lclnybcxgcxo.1 pzruok btcz@fd1p cvxo.1 pv"Mbkd1p y.bdzruok btczBocxbkcsoao.oaohcohE

pa-EcdoskE

p E

paphEcMphdEkclE

dEicp.pack1s1

 1adpskp

zruok btczeb

oaclEcspi1gEk E

paphpc okSEacgoi1

p-1cxE p

kp EacEfd1p c1-

Espcp Ecp

kpx1k1ctE.E

Eics1t 1gpaphz}]

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

Kod:

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"

} 

} 

} 

} 

}

Kod:

bind pub - !geldim celdim

proc celdim {nick user hand chan arg} {

global yonetim

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"

}

}

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...