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

RahmetLi · 10 Şubat 2013, 15:30

Selam arkadaslar Elınde Saglıklı calısan Musteriserv botu Arıyorum

sımdıden tşkler ıyı gunler

10 Şubat 2013, 15:53

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] belki işini görür.

RahmetLi · 10 Şubat 2013, 15:58

calısmıyor usta :S

10 Şubat 2013, 16:05

pm den ulaş bana kontrol edelim beraber.

Tejxele · 08 Eylül 2013, 23:32

RitteR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

calısmıyor usta :S

eger tcl isinizi görürse pm atiniz vereyim..

SeckiN · 08 Eylül 2013, 23:53

Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] birde bunu deneyiniz.

Ayrıca @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] burası paylaşım platformu neden pm yolu ile vermeyi tercih ediyorsunuz anlamıyorum. Her neyse iyi forumlar.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#tcl başlangı&#231;#
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&#252;m komutları g&#246;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&#231;in kulllanabilirsiniz"

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

putquick "privmsg $Yonetim !away = away duruma ge&#231;erken kullanabilirsiniz"

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

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

putquick "privmsg $Yonetim !yapimci = 4MusteriServ.Tcl Yapimcisini G&#246;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 Domain.Com INT. Hizmetleri (IRC Destek Server)"

putquick "privmsg $chan 3 MusteriServ.Tcl"

putquick "privmsg $chan 10 Domain.Com "

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

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&#246;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&#246;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&#246;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&#246;neltiniz."

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

}

}

 

 

set onjoin_msg {

{

"0#Yonetim kanalına hoş geldiniz. kullanabileceğiniz komutları g&#246;rmeniz i&#231;in !komutlar yazınız..Domain.Com"

}

}

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 4Domain.Com - $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&#252;sterilerle ilgilenmektedir , suanda siraya alinmis durumdasiniz l&#252;tfen bekleyiniz operatorlerimiz sizi destek kanallarimiza alcaktir. Domain.Com"

}

}

bind pub - !geldim celdim

proc celdim {nick user hand chan arg} {

global Yonetim

if {[onchan $nick $Yonetim]} {

putquick "privmsg OperServ global 2Domain.Com 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 2Domain.Com 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 12Domain.Com 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 &#231;&#246;z&#252;mlendiyse l&#252;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 4Domain.Com 2INT. Hizmetleri (IRC Destek Server) Sunucusuna Hos Geldiniz"

putquick "privmsg $nick 4Paketler Hakkında Bilgi almak i&#231;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&#231;in 3/hesapno"

putquick "privmsg $nick 4-"

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

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

putquick "privmsg #Yonetim 2 $nick 12, #shell 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&#252;ş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 &#231;ekti!"

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

set ::whoiscount($wnick) 0

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

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

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

}

}

}

#tcl biter#

Krieq · 08 Eylül 2013, 23:56

Prens02 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

eger tcl isinizi görürse pm atiniz vereyim..

6 ay olmuş o mesaj atılalı.Madem konuyu hortlatıp yazdınız,kodları paylaşsaydınız keşke.Böylece ihtiyacı olan alırdı.

Tupac · 18 Ekim 2013, 04:53

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] al dostum istedigini indir

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Shell hosting botu (MusteriServ)	¿	TCL Scriptler	19	07 Mayıs 2019 23:30
Musteriserv Botu Acil	RahmetLi	Eggdrop, NeoStats, BNC	1	28 Haziran 2013 11:21
Domain ve Musteriserv Botu lazım acilll	Tejxele	IRCd Botlar	8	29 Haziran 2012 14:46
MusteriServ Botu	Kjm	mIRC Scripting Hazır Kodlar	4	05 Eylül 2011 06:20

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.