Arkadaslar Uzun Zamandır Üzerinde Calıstığımız Projeler sebebiyle irc üzerinden shell destek ve satısı yapamamaktayız. Ancak Elimde Boş boş duran Bu .tcl yi yine bu işi yapan veya kendine göre kullanma isteyen arkadaslara sunayım dedim. Herkesin işine yarıacak benim cok işime yaradı /paket help
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
bind join - * selamlama
bind pub - yardim pub_yardim
bind msgm - yardim msg_yardim
bind msgm - ircd msg_ircd
bind msgm - eggdrop msg_eggdrop
bind msgm - bnc msg_bnc
bind msgm - domain msg_domain
bind msgm - host msg_host
bind msgm - dedicated msg_dedicated
bind msgm - hesap msg_hesap
bind msgm - iletisim msg_iletisim
bind msgm - radyo msg_radyo
proc selamlama {nick uhost handle chan} {
if {$chan == "#shell"} {
putserv "NOTICE $nick :4$nick 12#shell 5kanalı tüm sorulanız için4 /msg 2SHELL 4yardim 5Yazınız."
putserv "NOTICE $nick :4$nick 5Size Yeteri kadar bilgi veremiyorsam lütfen msn aracılığıyla
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. veya 12#shell 5kanalı op(@)ları ile görüşünüz."
putserv "NOTICE $nick :12 -----------------------------------------------------------------"
putserv "NOTICE $nick :4 Banka Hesap Numaralarımız...."
putserv "NOTICE $nick :4 İşBankası (TL) : 12 6210 0564769"
putserv "NOTICE $nick :4 Akbank (TL) : 12 333 006665"
putserv "NOTICE $nick :4 Hesaplar 12Ahmet Sincar 4adınadır."
putserv "NOTICE $nick :12 -----------------------------------------------------------------"
putserv "NOTICE $nick :4 DNS Adreslerimi.... "
putserv "NOTICE $nick :4 ns1.mirctr.com 5-4 67.159.16.117"
putserv "NOTICE $nick :4 ns2.mirctr.com 5-4 67.159.16.117"
putserv "PRIVMSG $nick :4 Bu ayki kampanyamız...."
putserv "PRIVMSG $nick :12 IRCD + Services + Proxy Koruma + 3 EggDrop (Oyun, Arama, Karşılama)+"
putserv "PRIVMSG $nick :12 Reklam Koruma + Türkçe Nick + IRCOps Modulu + Özel Okuma Modulu + Ftp&SSH Erişimi"
putserv "PRIVMSG $nick :12
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şeklin Web IRCD Girişi..... "
putserv "PRIVMSG $nick :12 Aylık :4XX.000.000.- TL 4**12Yıllık :5XXX.000.000.- TL "
putserv "PRIVMSG $nick :4 -----------------------------------------------------------------"
putserv "PRIVMSG $nick :4 **12 Yıllık alımlarda 1 adet domain hediyemizdir."
putserv "PRIVMSG $nick :4 -----------------------------------------------------------------"
putserv "PRIVMSG $nick :4 Banka Hesap Numaralarımız...."
putserv "PRIVMSG $nick :4 İşBankası (TL) : 12 XXX XXX XXX "
putserv "PRIVMSG $nick :4 Garanti Bankası (TL) : 12 XXX XXX XXX "
putserv "PRIVMSG $nick :4 Hesaplar 12Ahmet Sincar 4adınadır."
}
if {$chan == "#Sohbet"} {
putserv "NOTICE $nick :4$nick 12MircTR.4Com 12 SheLL HizmetleriIRCD Sunucusuna Hoşgeldiniz."
putserv "NOTICE $nick :12 Yardım ve istekleriniz 4#Shell 12Kanalı Operatorleri tarafından karşılanıcaktır."
putserv "NOTICE $nick :12 Fiyatlar ve İletişim Konusunda yardım almak için özelim 4yardim 12yazınız."
putserv "NOTICE $nick :12 Düzeyli ve Seviyeli Sohbetler. Lütfen kendinize yapılmasını istemediğiniz davranışları başkalarına yapmayınız."
putserv "NOTICE $nick :12 mIRCTr.4Com 12SheLL Hizmetleri"
}
if {$chan == "#Radyo"} {
putserv "NOTICE $nick :4$nick 12mIRCTr.4CoM 12Radyo Sistemleri...!"
putserv "NOTICE $nick :12 Kendi isminiz altında yayın yapmaya nedersiniz...?"
putserv "NOTICE $nick :12 Eger Cevabınız 'EVET' ise tam yerindesiniz. Özelime 'radyo' yazmanız yeterli olucaktır."
putserv "NOTICE $nick :12 Diyer hizmetlerimiz hakkında bilgi almak isterseniz özelime 'yardim' yazmanız yeticektir."
putserv "NOTICE $nick :12mIRCTr.4CoM12Internet Sistemleri"
}
return 1
}
proc msg_yardim { nick uhost handle text } {
putserv "PRIVMSG $nick : 4$nick , size asagidaki konularda yardimci olabilirim:"
putserv "PRIVMSG $nick : IRCd hakkinda yardim almak icin: ( 4ircd )"
putserv "PRIVMSG $nick : Eggdrop hakkinda yardim almak icin: ( 4eggdrop )"
putserv "PRIVMSG $nick : Bnc hakkinda yardim almak icin: ( 4bnc )"
putserv "PRIVMSG $nick : Web hosting hakkinda yardim almak icin: ( 4host )"
putserv "PRIVMSG $nick : Dedicated hakkinda yardim almak icin: ( 4dedicated )"
putserv "PRIVMSG $nick : Domain hakkinda yardim almak icin: ( 4domain )"
putserv "PRIVMSG $nick : İletisim: ( 4iletisim )"
putserv "PRIVMSG $nick : Hesap numaramiz hakkinda bilgi almak: ( 4hesap )"
}
proc msg_ircd { nick uhost handle text } {
putserv "PRIVMSG $nick :2Paket-1 12IRCd-Services Reklam Koruma aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2Paket-2 12IRCd-Services Proxy Koruma BOT & Reklam Koruma aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2Paket-3 12IRCd-Services Proxy Reklam Koruma Oyun Karsilama Botu aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2Paket-4 12IRCd-Services Proxy Reklam Koruma Oyun Karsilama Botu 1 BNC User aylik 4 XX.000.000 2TL."
putserv "PRIVMSG :$nick 2PTlink Bahamut Unreal Ultimate TRIRCd vs. Her Turlu IRCd Versiyonu Calistirilabilir (CR Haric!)" }
proc msg_eggdrop { nick uhost handle text } {
putserv "PRIVMSG $nick :2 1 Egg Process 3 Aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2 2 Egg Process 3 Aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2 3 Egg Process 3 Aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2Eggdrop Kurulumlari Bize TCL Yüklemeleri Size Aittir.." }
proc msg_bnc { nick uhost handle text } {
putserv "PRIVMSG $nick :2 1 BNC Process 1 Aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2 10 BNC Admin 1 Aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2 20 BNC Admin 1 Aylik 4 XX.000.000 2TL."
putserv "PRIVMSG $nick :2Bir Portuna Maximum 7 Kullanici Eklenebilir"
putserv "PRIVMSG $nick :2Bnc psyBNC ve bnc2.8.4 Olarak 2 Çeşittir." }
proc msg_domain { nick uhost handle text } {
putserv "PRIVMSG $nick :2 1 Yillik Domain Kayit Ucretimiz. 4 202 YTLTL."
putserv "PRIVMSG $nick :2 Domaininiz Tamamen Sizin Adiniza Kayit Edilir.!"
putserv "PRIVMSG $nick :2 Domainler için Size Özel Panel
}
proc msg_host { nick uhost handle text } {
putserv "PRIVMSG $nick :2Paket-1 12 50 MB Disk alanı 1000Mb. Bant Genişliği 10 Adet Pop3 mail Aylik 4 5 2$."
putserv "PRIVMSG $nick :2Paket-2 12 75 MB Disk alanı 1500Mb. Bant Genişliği 20 Adet Pop3 mail Aylik 4 10 2$.."
putserv "PRIVMSG $nick :2Paket-3 12 100 MB Disk alanı 20000Mb. Bant Genişliği 30 Adet Pop3 mail 4 15 2$."
putserv "PRIVMSG $nick :2Paket-4 12 150 MB Disk alanı 30000Mb. Bant Genişliği 50 Adet Pop3 mail Aylik 4 20 2$."
}
proc msg_dedicated { nick uhost handle text } {
putserv "PRIVMSG $nick :2---"
}
proc msg_iletisim { nick uhost handle text } {
putserv "PRIVMSG $nick :4Velehmet - 2Ahmet Sincar"
putserv "PRIVMSG $nick :4E-Posta
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir."
putserv "PRIVMSG $nick :4MSN
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir."
putserv "PRIVMSG $nick :4Cep 2 537 504 24 69"
putserv "PRIVMSG $nick :4----------------------"
putserv "PRIVMSG $nick :4CrazY_BoY - 2Hüseyin Uysal"
putserv "PRIVMSG $nick :4E-Posta
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir."
putserv "PRIVMSG $nick :4MSN
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir."
putserv "PRIVMSG $nick :4Cep 2 xxx xxx xx xx"
putserv "PRIVMSG $nick :4----------------------"
putserv "PRIVMSG $nick :MircTR DesTeK HaTTı"
putserv "PRIVMSG $nick :4Tel&Fax 2 XXX XXX XX XX"
putserv "PRIVMSG $nick :4Adres 2 . ........"
}
proc msg_hesap { nick uhost handle text } {
putserv "PRIVMSG $nick :1iŞ Bankası "
putserv "PRIVMSG $nick :1Hesap Numaraları:"
putserv "PRIVMSG $nick :1TL 4 6210 0564769"
putserv "PRIVMSG $nick :1USD($) 4 XXXX"
putserv "PRIVMSG $nick :1EUR( ) 4 XXXX"
putserv "PRIVMSG $nick :1-------------------------------"
putserv "PRIVMSG $nick :1AKBank 2Şube Kodu:4 333 "
putserv "PRIVMSG $nick :1Hesap Numaraları:"
putserv "PRIVMSG $nick :1TL 4 0066655"
putserv "PRIVMSG $nick :1-------------------------------"
putserv "PRIVMSG $nick :1Hesaplar 4AHMET Sincar 1Adınadır"
}
proc msg_radyo { nick uhost handle text } {
putserv "PRIVMSG $nick :1Paket 1"
putserv "PRIVMSG $nick :1Winamp Üzerinden Kendi Mp3 listenizi dinleyicilerinize sunmak."
putserv "PRIVMSG $nick :1Dinleyici Sayısı (Aynıanda) = 32 Kullanıcı"
putserv "PRIVMSG $nick :1Disk Alanı = Yok"
putserv "PRIVMSG $nick :1Ftp Erişimi = Yok"
putserv "PRIVMSG $nick :1SSH Erişimi = Yok"
putserv "PRIVMSG $nick :1Tekil IP = Yok"
putserv "PRIVMSG $nick :1Port = 1 Adet"
putserv "PRIVMSG $nick :1Fiyat (Aylık) = 10.-YTL"
putserv "PRIVMSG $nick :4*1Fiyat (6 Aylık) = XXX.000.000.-Tl"
putserv "PRIVMSG $nick :4**1Fiyat (Senelik) = XXX.000.000.-Tl"
putserv "PRIVMSG $nick :4*16 Aylık Alımlarda 1 ay Ücretsizdir."
putserv "PRIVMSG $nick :4**1Senelik Alımlarda 2 ay Ücretsiz + 1 Domain Hediyemizdir."
putserv "PRIVMSG $nick :1-------------------------------"
putserv "PRIVMSG $nick :1Paket 2"
putserv "PRIVMSG $nick :1Winamp Üzerinden Kendi Mp3 listenizi dinleyicilerinize sunmak ve"
putserv "PRIVMSG $nick :1Oluşturulan (70-80) şarkılık listenizin çalmasını sağlamak."
putserv "PRIVMSG $nick :1Dinleyici Sayısı (Aynıanda) = 32 Kullanıcı"
putserv "PRIVMSG $nick :1Disk Alanı = 500mb"
putserv "PRIVMSG $nick :1Ftp Erişimi = Var"
putserv "PRIVMSG $nick :1SSH Erişimi = Var"
putserv "PRIVMSG $nick :1Tekil IP = 1 adet"
putserv "PRIVMSG $nick :1Port = 1 Adet"
putserv "PRIVMSG $nick :1Fiyat (Aylık) = XXX.000.000.-Tl"
putserv "PRIVMSG $nick :4*1Fiyat (6 Aylık) = XXX.000.000.-Tl"
putserv "PRIVMSG $nick :4**1Fiyat (Senelik) = XXX.000.000.000.-Tl"
putserv "PRIVMSG $nick :4*16 Aylık Alımlarda 1 ay Ücretsizdir.+ 1 Domain Hediyemizdir. + 250Mb Disk Alanı Artırımı"
putserv "PRIVMSG $nick :4**1Senelik Alımlarda 2 ay Ücretsiz + 1 Domain Hediyemizdir. + 500Mb Disk Alanı Artırımı"
putserv "PRIVMSG $nick :1-------------------------------"
putserv "PRIVMSG $nick :1Kurulum ve sistem yönetimleri 12 MircTR.4CoM 1' a aittir."
}
artık kendinize göre editlersiniz herkese kolay gelsin