lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - Unreal, Services ve Botlar Eggdrop, BNC ve Socket Botlar TCL Scriptler


Like Tree1Teşekkürler;
  • 1 Post By Ahmet

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 01 Şubat 2015, 23:27   #1
 
Ahmet - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 01 Şubat 2015
Bulunduğu yer: istanbul
Mesajlar: 50
WEB Sitesi: www.hobichat.net
IRC Sunucusu:
İlgi Alanı: Unreal
Alınan Beğeni: 21
Standart Shell Hosting Firmaları için Musteriserv.tcl

Merhaba Arkadaşlar Cogu kişiler MusteriServ.tcl arayıpta bulamamakta Bu sebebden dolayı Paylaşmak istedim buyrun ;

PHP- Kodu: 
#####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@@@@@@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ızSı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 \00312IRCDWeb 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  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 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 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
}] 

Entrance bu mesaja teşekkür etti
 Ahmet isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
firmaları, hosting, için, musteriservtcl, shell


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
MusteriServ.tcl v2 Ahmet TCL Scriptler 1 24 Haziran 2016 03:04
Dev TCL Shell Deposu.. Entrance TCL Scriptler 6 01 Ekim 2015 21:08
Shell firmaları için müşteriler arası mesaj engeli.. Entrance Unreal - Hazır Kodlar 1 20 Eylül 2015 19:12
IRCd shell paketler modulü. Entrance Unreal - Hazır Kodlar 1 06 Eylül 2015 13:40
Hosting Takip Toprak Hazır Kodlar 0 27 Ocak 2015 22:53

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.