MusteriServ v1.o By BuCaLI - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

sanaldahost · 30 Haziran 2007, 18:51

linki yenilerseniz sevinirim linkölü

BuCaLI · 30 Haziran 2007, 21:18

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.

CONSTANTiN · 30 Haziran 2007, 22:10

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

sanaldahost · 30 Haziran 2007, 22:49

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

Turkeri · 15 Ekim 2009, 21:37

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

BuCaLI · 16 Ekim 2009, 09:38

Dosya ilk posta eklenti olarak eklendi.

KTeknoloji · 12 Haziran 2014, 20:08

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ı?

saywhat · 12 Haziran 2014, 20:44

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: Kodu kopyalamak için üzerine çift tıklayın!

\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: Kodu kopyalamak için üzerine çift tıklayın!

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.

No_FeaR · 12 Haziran 2014, 21:38

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

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

#####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..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

KTeknoloji · 14 Haziran 2014, 09:17

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
MusteriServ Botu	Kjm	mIRC Scripting Hazır Kodlar	4	05 Eylül 2011 06:20
MusteriServ v1.0	BuCaLI	TCL Scriptler	14	30 Ocak 2011 10:52
MusteriServ	OkyAnuS	Eggdrop, NeoStats, BNC	5	19 Ekim 2010 13:56
Eggdrop MusteriServ.	AspavA	Eggdrop, NeoStats, BNC	10	04 Haziran 2009 01:37
MusteriServ?	MasterShell	Eggdrop, NeoStats, BNC	2	06 Temmuz 2007 03:52

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.