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

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:
#tcl başlangıç#

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 #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çin kulllanabilirsiniz"
 

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

putquick "privmsg $Yonetim !away = away duruma geçerken kullanabilirsiniz"
 

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

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

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 #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ö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ö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..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üsterilerle ilgilenmektedir , suanda siraya alinmis durumdasiniz lü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 çö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 4Domain.Com 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 - /paket4 - /paket5 - / webhosting"
 

putquick "privmsg $nick 4Hesap Numaralari’miz Hakkinda Bilgi almak için 3/hesapno"
 

putquick "privmsg $nick 4-"
 

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: 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üş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 ç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#