IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
#####Bekleme kanalı######################

set tgchan "#destek"

                                        #        

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

set tgchan2 "#hizmet"

                                        #

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

set nicklist "scripts/nick.txt"

                                        #

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

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

set pass "12345"

                                        #

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

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

set operpass "1234"

                                        #

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

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