| DaDaS | 21 Eylül 2010 18:49 |
Hazır Kodlar Depo
!Temizle Kod:
on *:text:*:#:{
if !temizle isin $1 {
if !temizle isin $1 {
if $nick !isop $chan {
.msg $chan 7 $nick $+ : 14Operatör 7Simgenizi 14« @ » 7System Görmedi.!
}
else {
.msg $chan 14& 14««« 7Kanal Temizleniyor.. 14»»»
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14& 14««« 7 $read(script3.txt) 14»»»
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14& 14««« 7Kanal Temizleniyor.. 14»»»
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14& 14««« 7 $read(script3.txt) 14»»»
.msg $chan 7~
.msg $chan 14&
.msg $chan 7~
.msg $chan 14&
.msg #bilgi 12 # 12Kanalında .Temizle 12Komutunu Kullanan Yetkili; 4 $nick
.msg $chan 14««« 7 $chan Kanalında 14Küfür/Reklam 7Nedeni ile 14!Temizle Komutu 7Kullanan 14Nick $nick 14( 7Hoş Sohbetler $chan 14)14 »»»
}
}
}
= Lcxcx {
küfur koruması Kod:
on 1:TEXT:*:#: {
if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
if (--- isin $1-) || (AMINA isin $1-) || (AMINI isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (----- isin $1-) || (siker isin $1-) || (****** isin $1-) || (------ isin $1-) || (fahişe isin $1-) || (ananı isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (-------- isin $1-) || (shit isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahişe isin $1-) || (--- isin $1-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) || (.net isin $1-) || (.org isin $1-) || (tr.gg isin $1-) || (irc. isin $1-) || (http:// isin $1-) || (.com isin $1-) || (hotmail isin $1-) || (a.q isin $1-) {
if $me !isop $chan {
halt
}
if $nick isop $chan {
halt
}
.samode $chan +b $wildsite
.samode $chan +b $nick
.kick $chan $nick 7 $chan Kanalında 14Sohbet Kurallarina 7Aykiri 7Kelime Kullandiniz. 14 $date 7 $time
.msg #bilgi 14 » 4 $nick 14 « 12 $chan 1 odasinda 12 reklam/küfür 1 sebebinden atildi. | .msg #bilgi 5 Tespit edilen reklam veya küfür mesaji: 4,4 $1- }
}
}
Whois Floot Kod:
on *:SNOTICE:*is*doing*whois*on*you*:{ inc -u4 $+(%,whoisflood.,$1) | if $($+(%,whoisflood.,$1),2) = 3 { .notice $1 /msg $chan 0,1 UYARI :1,0 Lütfen Lag'a düşürecek WHOIS FLOOD Yapmayiniz, Devam Ederseniz Atilacaksiniz!.. 0 | .msg $1 0,1 UYARI :1,0 Lütfen WHOIS FLOOD Yapmayiniz, Devam Ederseniz Atilacaksiniz!.. 0 } | elseif $($+(%,whoisflood.,$1),2) > 3 { .kill $1 0,2 WHOIS FLOOD . } }
!Ban ac Kod:
on *:text:*:#Kontrol:{
if !banac isin $1 {
set %'.ip $2 | set %'.kanal $chan | .stats k
.unzline $2
.unkline $2
.os akill del *@ $+ $2
.msg #kontrol $2 üzerindeki tüm engellemeler kaldırıldı.
}
}
raw 216:*: {
if (%'.ip == $3) && ($2 === A) { haltdef | set %akillident $+($4,@,$3) | unakill $+($4,@,$3) | unset %'.*
}
}
oper giriş tespiti Kod:
on *^:snotice:*: {
if (*is*now*an*operator* iswm $1-) && (@ isin $1-) {
var %kimin_pass $gettok($left($4,$calc($pos($4,!) - 1 )),1,40)
var %kim_bu $gettok($left($4,$calc($pos($4,!) - 1 )),2,40)
.msg #yönetim 4 UYARI 4 %kim_bu 1 iRCOP Girisi Yapti..
.msg #yönetim 4 BiLGi : 1 Oper Sahibi 4 %kimin_pass
.fjoin #yönetim %kim_bu | .fjoin #help %kim_bu | .fjoin #bilgi %kim_bu | .fjoin #Opers %kim_bu | .fjoin #operhelp %kim_bu | .fjoin #kontrol %kim_bu
.samode #help +o %kim_bu | .samode #operhelp +o %kim_bu | .samode #bilgi +o %kim_bu | .samode #kontrol +o %kim_bu
}
}
server gorevlılerını karsılama Kod:
on *:join:#:{ if *Sohbetlisin.Com* iswm $address($nick,0) { msg $chan 5Server 12Görevlisi 5 $nick 12 # 5Kanalına 12Giriş Yaptı.. } }
!komutlar Kod:
on *:text:*:?:{
if !komutlar isin $1 {
.msg $nick 7,17,1 14«15««7 KANALLARDA KULLANILABİLİR KOMUT DİZİNİ ; 15»»14»
.msg $nick 7!kick 4: 14Eger kanalda OP iseniz, belirttiginiz rumuzu kanaldan atar. Kullanimi: 7!kick rumuz sebep
.msg $nick 7!kb 4: 14Eger kanalda OP iseniz, belirttiginiz rumuzu ve IP'yi banlar, kanaldan atar. Kullanimi: 7!kb rumuz sebep
.msg $nick 7!unban 4: 14Eger kanalda OP iseniz, belirttiginiz kanaldaki tum banlari temizler. Kullanımı: 7!unban
.msg $nick 7!voice 4: 14Eger kanalda OP iseniz, belirttiginiz rumuza voice (+v) verilir. Kullanimi: 7!voice rumuz
.msg $nick 7!devoice 4: 14Eger kanalda OP iseniz, belirttiginiz rumuzdan voice (+v) alinir. Kullanimi: 7!devoice rumuz
.msg $nick 7!unban 4: 14Eger kanalda OP iseniz, Kanaldakı Banları Tek tek Acar Kullanimi: 7!Unban
.msg $nick 7!temizle 4: 14Eger kanalda OP iseniz, kanaldaki yazıları temizler. Kullanimi: 7!temizle
.msg $nick 7!Uyar 4: 14Kanalda Bır Kullanıcıyı Uyarmak Icın Kullanırlır Kullanımı: 7!uyar rumuz
.msg $nick 7!kural 4: 14Yazarak Kanal Genelinde Kurallar Hakkında Bilgi Alabilirsiniz
.msg $nick 7!soz 4: 14Yazarak Güzel Sozler Alabılırsinız. Kullanımı: 7!Soz
.msg $nick 7!anlam isim 4: 14Yazarak İsmınızın Ne anlama Geldıgını Ögrenebılırsınız . Kullanımı: 7!Anlam isminiz
.msg $nick 7!Puan Nick 4: 14Yazarak Turkiye Kanalında Konusma Puanınızı Ögrenebilirsiniz. Kullanımı: 7!Puan TRBot
.msg $nick 7!Puan List 4: 14Yazarak Turkiye Kanalında ilk 10 Kişinin Listesini Gorebılırsınız. Kullanımı: 7!Puan List
.msg $nick 7!Saat !Tarih !Gun 4: 14Kanal Genelıne Yazarak Gereklı Bılgılerı Alabılırsınız.
.msg $nick 7,17,1 14«15««7 ÖZELİMDE KULLANILABİLİR KOMUT DİZİNİ ; 15»»14»
.msg $nick 7!reklam 14Nick Yapılan Reklamı Yazarak reklam raporu iletebilirsiniz..
.msg $nick 14#Haber Kanalında Kanal Geneline 7!sondakika Basla 14Son dakıka haberlerı gormek ıcındır Başlatmak İçin 7!sondakika basla 14Durdurmak için 7!sondakika dur
.msg $nick 7!Burc 14Burcunuzu Yazarak Gunluk Burcunuzu Ogrenebılırsınız Ornek 7!Burc Aslan
.msg $nick 7!sikayet 4: 14Sorunlarınızda yönetime kanalına sikeyetlerinizi bildirebilirisiniz.Kullanimi Özelime 7!sikayet mesaj
.msg $nick 7!yardım 14(Resmi Yardım Odası Operhelp de Iken Özelime !yardım Yazarsanız Yetkılı Arkadasları Uyarılır
.msg $nick 7!Operhelp 14(Resmi Yardım Odasına Yönlendirilirsiniz. Maximum 5 Dakikada Bir Kullanılır
.msg $nick 7!bilgi 14Yazarak ßenim hakkımda bilgi alabilirsiniz!
.msg $nick 7!kurallar 14Yazarak Sunucu Kuralları Hakkında Bilgi Alabilirsiniz.
.msg $nick 7!ip 14Yazarak Sunucu Yetkililerine Ban Açtırabılırsınız.
.msg $nick 7!hatalıban 14Yazarak Sunucu Yetkililerine Hatali Banı Bildirebilirsiniz.
.msg $nick 7!Yardım 14Operhelp Kanalına Gırdıgınızde Özelime 7!yardım 14Yazarak Yönetime Yardım Bekledıgınız Bıldırılır.
.msg $nick 7!help 14!help Yazarak Otomatık Olarak 7#Help 14Kanalına Yönlendırılırsınız
.msg $nick 7,17,1 14«15««7 RADYO HİZMETİ İLE İLGİLİ KOMUT DİZİNİ ; ( 7#Radyo 7,1KANALI GENELİNE) 15»»14»
.msg $nick 7!Link 14Yazarak Radyo Linkine Ulaşabilirsiniz!
.msg $nick 7!istek 14Sanatçı - Şarkısı Şeklinde Beğendiniz Şarkıyı Dinleyebilirsiniz.
.msg $nick 7,17,1 14«15««7 YUKARIDAKİ KOMUT DİZİNİ DIŞINDA KOMUT KULLANAMAZSINIZ ! 15»»14»
}
if !reklam * iswm $1- {
.msg #yönetim $nick $+ : 4Reklam raporu verdi 2Reklam Yapan Nick; 4 $2 , 2Reklamı 4 $3-
.msg $nick 2Teşekkürler Raporunuz Alındı
}
if !reklam iswm $1- {
.msg $nick Eksik parametre girdiniz. > !reklam reklam yapan nick, reklamı < şeklinde rapor iletiniz
}
if !Link isin $1 {
.msg $nick 0,4 ** 9,1 Radyomuzu Winamp'ten dinlemek icin tiklayin 0,4 >>> 12 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
if !Bilgi isin $1 {
.msg $nick
}
if !ip * iswm $1- {
.msg #Yönetim $nick $+ : 4Ban açtırmak istiyor! 12Banlı Olan IP; 4 $2 | msg $2
.msg $nick 2Teşekkürler Raporunuz Alındı.
}
if !ip iswm $1- {
.msg $nick Eksik parametre girdiniz. > !ip banlı olan ip < şeklinde rapor iletiniz.
}
if !kurallar isin $1 {
.msg $nick 6TRBot 2IRC Network'u üzerinde küfür etmek, reklam yapmak, proxy kullanmak, saldırı teşebbüsünde bulunmak, diğer kullanıcıları rahatsız etmek 4 YASAKTIR ! 2Ayrıntılı bilgi için; 12/MOTD 2 yazıp kurallar kısmını gözden geçiriniz. 4 Not: 2Sunucuya bağlanan herkez bu kuralları okumuş ve kabul etmiş sayılır.
}
if !hatalıban isin $1 {
.msg #Yönetim $nick $+ : 14Hatalı Banlandığını Düşünüyor. Banlanan Nick 7 $nick 14, IP Adresi 7 $ip
.msg $nick 0,2Teşekkürler Raporunuz Alındı. Eğer Gerçekten Hatalı Atıldıysanız Yönetim Sizinle Temasa Geçeçektir.
}
if !Sikayet isin $1 {
.msg #Yönetim $nick $+ : 14Şikayeti var , 7Şikayet 14: 4 $4-
.msg $nick 14Teşekkürler Şikayetiniz Alındı. 7Şikayetiniz İletilmiştir , 14Yönetim Sizinle Temasa Geçeçektir.
}
if !djexit isin $1 {
.msg #Dj $nick $+ : 4Yayın devrediyor... Online DJ lere Önemle Duyrulur !..
.msg $nick 2Online djlerimize çıkış haberiniz iletilmiştir, bir şarkı sonra yayını terkedebilirsiniz.
}
}
uzun harf koruması Kod:
on @*:text:*:#: {
if $nick isop # || $read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick) { halt }
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
if ($nick isvo $chan) { halt }
if ($chan == #yönetim) { halt }
if ($chan == #dj) { halt }
if ($chan == #istek) { halt }
if ($chan == #operhelp) { halt }
if ($chan == #help) { halt }
if ($chan == #kontrol) { halt }
if ($chan == #radyo) { halt }
if $regex($1-,/([[:print:]])\1\1/gi) >= 4 {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # 4 $nick 2 $chan 5Kanalında Lütfen Harfleri Uzatmadan Yazınız...
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.ban # $nick 5
.kick # $nick 2 $chan 5Kanalında Lütfen Harfleri Uzatmadan Yazmaniz Konusunda Uyarıyı Dikkate Almadiniz..
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}
dj kanalına ozel komutlar Kod:
on *:TEXT:*:#dj: {
if ($1 == !var) { /msg $chan $2 5Nickinin Özeline Mesaj Yollanmıştır1. | /msg $2 5 İstediğiniz Şarkı Mevcut 1,5 Çalma Listesine Alınmıştır1. 4Teşekkür Ederiz1. }
if ($1 == !yok) { /msg $chan $2 5Nickinin Özeline Mesaj Yollanmıştır1. | /msg $2 5 Üzgünüm İstediğiniz Şarkı Mevcut 4Değildir 1. 5Dilerseniz Başka Bir İstek Şarkısı İsteyebilirsiniz1. }
if ($1 == !reklam) { /msg $chan $2 5Nickine Özel Radyo Global Reklamı Atılmıştır1. | /amsg 4,4 0,7 Radyo Yayınımızı Dj' $2 İle Dinlemek İçin Tıklayın >> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4,4 }
if ($1 == !sifre) { /msg $chan 5Şifre Bilgileri Özelinize Gönderiliyor. Lütfen Bekleyin
/msg $nick 12 IP buraya yaz
/msg $nick 12 Port 12: buraya yaz
/msg $nick 12 Şifre 12: buraya yaz
/msg $nick 12 Radyo Bilgilerinin Sonu.
/msg $nick 12 Radyo Bilgilerini Alan Nick 1( 5 $nick 1) 12 $me Bot İyı Yayınlar Dıler.
}
if ($1 == !bilgi) {
/msg $chan 5 İstenilen Şarkı Varsa 4 !var Nick 5 Yazınız 1( 6 Belirttiğiniz Nick'in Özeline Şarkının Olduğunu Belirten Mesaj Atar 1)
/msg $chan 5 İstenilen Şarkı Yoksa 4 !yok Nick 5 Yazınız 1( 6 Belirttiğiniz Nick'in Özeline Şarkının Olmadığını Belirten Mesaj Atar 1)
/msg $chan 5 Dj'e Özel Radyo Reklamı İçin 4 !reklam Nick 5 Yazınız 1( 6 Belirttiğiniz Nick'e Özel Radyo Global Reklamı Atar 1)
/msg $chan 5 Radyo Bilgileri İçin 4!şifre5 Yazınız 1( 6 Radyo Bilgilerini : IP , Port , Şifre Bilgilerini Verir 1)
/msg $chan 5 !var Nick 1-- 5 !yok Nick 5 Komutlarında Kullanılan Mesajları Görmek İçin 4 !msj 5 Yazınız
/msg $chan 5 Bilgi Listesinin Sonu.
}
if ($1 == !msj) {
msg $chan !var Nick Komutunda ;
msg $chan 5 İstediğiniz Şarkı Mevcut 1,5 Çalma Listesine Alınmıştır1. 4Teşekkür Ederiz1.
msg $chan 5 Mesajı Yollanıyor.
msg $chan !yok Nick Komutunda ;
msg $chan 5 5 Üzgünüm İstediğiniz Şarkı Mevcut 4Değildir 1. 5Dilerseniz Başka Bir İstek Şarkısı İsteyebilirsiniz1.
msg $chan 5 Mesajı Yollanıyor.
}
}
if ($1 == !reklam Dj-Nick) {
msg $chan 5Bu komutla servere notice atarsınız. Radyo link'i bütün userlerin özeline gider
}
}
Reklam Koruması Kod:
alias preklam { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | .samode # +b $wildsite | .zline $nick REKLAM! | .temizle | kick $chan $1 0,6|0,7|0,130,40,2 Reklam YASAK! 0,6|0,7| | halt }
#kReklampro on
ON *:TEXT:*:#:{
if $nick isop $chan || $nick isvoice $chan || $nick == "Sohbetlisin-Fm" { goto adviserend }
if ($_reklam(#,$nick,$1-)) { preklam $nick }
:adviserend
}
ON *:NOTICE:*:#:{
if $nick isop $chan || $nick isvoice $chan { goto adviserend }
if ($_reklam(#,$nick,$1-)) { preklam $nick }
:adviserend
}
ON *:ACTION:*:#:{
if $nick isop $chan || $nick isvoice $chan { goto adviserend }
if ($_reklam(#,$nick,$1-)) { preklam $nick }
:adviserend
}
#kReklampro end
; $_reklam(kanal,nick,yazi)
alias _reklam {
if ($2 isop $1) || ($2 isvoice $1) || ($istok(#yönetim #help #op #operhelp,$1,32)) return
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
if (*!Oper@* iswm $fulladdress) { halt }
if (*!Admin@* iswm $fulladdress) { halt }
if (*!Oyun@* iswm $fulladdress) { halt }
if (*!FM@* iswm $fulladdress) { halt }
if (*!Root@* iswm $fulladdress) { halt }
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $fulladdress) { halt }
if (*http:* iswm $3-) || (*balradyonet* iswm $3-) || (*.org* iswm $3-) || (*[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $3-) || (*.com* iswm $3-) || (*irc.* iswm $3-) || (*.net* iswm $3-) || (*.tr.gg* iswm $3-) || (*/server* iswm $3-) || (*hotmail* iswm $3-) || (*msn.* iswm $3-) || (*Sohbetbanko* iswm $3-) return 1
}
on *:JOiN:#:{
if ($nick == $me) {
set %reklamchan $chan
.timerunset 1 9 unset %reklamchan
}
}
#kReklampro end
!topic Kod:
on *:Text:*:#kontrol: { if $1 == !Topic { list | msg #kontrol 4Reklamcıl topic taraması başlatıldı. } }
raw *:*: {
if $numeric = 322 {
if *http* iswm $6- || *
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $6- || *irc* iswm $6- {
/join $6
msg #kontrol 4Reklam Unsuru Topic Belirlenmiştir... 4Kanal ismi: $2 4Topic: $6-
halt
}
}
}
agresşf gırıs cıkıs koruması Kod:
on @1:join:#: {
inc -u60 %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < 3 halt
unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
ban $chan $wildsite | kick $chan $nick 5Agresif Giris/Cikis Tespit Edildi..TRBot!. }
}
!nerden (Cr Sunucular Icin) Kod:
alias nerden {
set %ip $1
sockclose nerden
sockopen nerden whatismyipaddress.com 80
}
on *:sockopen:nerden:{
sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1
sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf
}
on *:sockread:nerden:{
var %happen
sockread $htmlfree(%happen)
.tokenize 32 $htmlfree(%happen)
if (*State/Region:* iswm %happen) {
.set %yerelbölge 0
.set %yerelbölge $1 $2
.set %yerelbölge $remove(%yerelbölge,State/Region:)
}
if (*City:* iswm %happen) {
.set %yerelsehir 0
.set %yerelsehir $1 $2
.set %yerelsehir $remove(%yerelsehir,City:)
}
if (*Country:* iswm %happen) {
.set %yerelulke 0
.set %yerelulke $1 $2
.set %yerelulke $remove(%yerelulke,Country:)
}
if (*Latitude:* iswm %happen) {
.set %yerelenlem 0
.set %yerelenlem $1 $2
.set %yerelenlem $remove(%yerelenlem,Latitude:)
}
if (*Longitude:* iswm %happen) {
.set %yerelboylam 0
.set %yerelboylam $1 $2
.set %yerelboylam $remove(%yerelboylam,Longitude:)
msg #kontrol Nick: %yerelnick
msg #kontrol IP No: %ip
msg #kontrol Bölge: %yerelbölge
msg #kontrol Şehir: %yerelsehir
msg #kontrol Ülke: $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin,EGYPT,Mısır)
msg #kontrol Enlem: %yerelenlem
msg #kontrol Boylam: %yerelboylam
}
}
on *:text:*:#kontrol:{
if ($1 == !nerden) && $2 { bak $2 }
}
alias bak { .whois $1 | enable #dirim }
#dirim off
raw 328:*: { nerden $7 | .set %yerelnick $2 | disable #dirim }
#dirim end
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, )
return %x
}
yanlıs opere kill atar Kod:
on *:SNOTICE:*attempts*to*OPER*incorrect*:{
inc -u60 $+(%,wo.,$gettok($4,1,33),.,$remove($gettok($4,2,6 4),$chr(41)))
var %' = $+(%,wo.,$gettok($4,1,33),.,$remove($gettok($4,2,6 4),$chr(41)))
if $(%',2) = 1 { .msg #yönetim 14Hatalı yönetici girişi tespit edildi. Deneyen: 7 $gettok(%',2,46) 14Hesabı Denenen: 7 $9 }
if $(%',2) = 2 { .kill $gettok(%',2,46) 2 kere hatalı yönetici şifresi denediniz. 3. bir yanlış denemede, girişiniz yasaklanacaktır. TRBot! }
if $(%',2) = 3 { .kill $+($gettok(%',2,46)) 3 defa üst üste, hatalı yönetici girişi yapmaya çalıştınız ama hepsi başarısızlıkla sonuçlandı. Hesabınızın akıbetini, Diger Yöneticilerden Ögrenebılırsınız ) | .msg #yönetim $+($gettok(%',2,46)) 3 defa ard arda hatalı yönetici girişi yapmış ve başarısız olmuştur, kullanıcıya yasaklama getirildi. | unset %' }
}
on !*:JOIN:#Help:{
.notice $nick 14Merhaba 7 $nick Ben DaDaS 14Tarafından Editlenmiş 7Help Bot14'uyum
.notice $nick 14Komutlar Hakkında Bilgi Almak Icın 7#Help 14Kanalına Şu Komutlari Yazınız.
.notice $nick 14!ChanServ 7!NickServ 14!MemoServ 7TRBot 14SockControl Hoş Sohbetler Diler.
}
!anlam isim Kod:
alias isim {
sockclose anlam
sockopen anlam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
msg #turkiye Arama yapılıyor bekleyiniz ..
set %isim $1
}
on *:sockopen:anlam:{
sockwrite -n $sockname GET /isimara.asp?ad= $+ $replace(%isim,ü,$chr(37) $+ FC,ş,$chr(37) $+ FE,ğ,$chr(37) $+ F0,ç,$chr(37) $+ E7,ı,$chr(37) $+ FD,ö,$chr(37) $+ F6) HTTP/1.1
sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:anlam:{
var %hppn
sockread %hppn
if (*<center>*</font></center>* iswm %hppn) { msg #turkiye $htmlfree(%hppn) | sockclose anlam }
if (* </td><td width="514" >*</td>* iswm %hppn) { msg #turkiye $remove($htmlfree(%hppn),%isim) | sockclose anlam }
}
alias htmlfree {
var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:text:!anlam*:#turkiye:{ isim $2 }
!puan list kanalda konusma puanları verıyor Kod:
on *:text:*:#Turkiye:{
if $1 == !puan {
if ($2 == list) { top10 | goto t0p10 }
elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1)
write $+(-l,%dify) puan.txt $nick %yeah
if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg #turkiye 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
while %top10 <= %hit { msg #turkiye 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 }
window -c %cnk
}
radyo istek Kod:
on *:text:*:#:{
if $chan == #radyo {
if !istek* iswm $1- {
if $2 == $null {
msg $chan 1Lütfen Bir İstek Parça Belirtin $nick Örnegin: .istek <sanatçı> <mesajınız> şeklinde istekte bulunabilirsiniz.
}
else {
inc -u180 $+(%,istek.,$nick) 1
if ($($+(%,istek.,$nick),2) >= 2) {
.msg $chan 4,4 0,1 Lütfen Ard Arda Istek Istemeyin $nick ßir Kişi 15 Dakikada ßir Istek Isteyebilir..4,4 | return }
else {
inc %isayi
msg #dj 4,4 0,1 Yeni Bir Sarkı Istegi Geldi isteyen Kişi $nick 9,1 İstedigi Sarkı ==> $+ $2- $+ 4,4
msg #dj 4,4 0,1 Yayındakı Djyın Dıkkatıne ıstenılen Sarkı Arsıvınızde Varsa !var nick yoksa !yok nick yazınız #dj Kanalına Sarkı Isteyen Kısıye Bıldırmıs Olursunuz
msg $chan 4,4 1,8 İsteginiz DJ'lerimize iletilmistir
msg $chan 4,4 0,1 İstenilen İstek Sayısı: %isayi
msg $chan 4,4 0,1 Nickiniz ==> $nick 9,1 isteginiz ==> $+ $2- $+
msg $chan 4,4 4,1SohbetLisinFm 8,1WinAmp Adresimiz Http://72.20.58.220:8687/listen.pls
.write istekler.txt $+($nick,$chr(11),$2-)
}
}
}
}
if $chan == #dj {
if !istekvar* iswm $1- {
if $2 == $null {
msg $chan 1Lütfen Bir Nick Belirtin.. ÖRN: !istekvar <nick>
}
else {
if $read(istekler.txt,w,$2 $+ *) {
msg #istek Sıradaki parça ( $+ $2- $+ ) iletildi; Isteği: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1 7Radyo kanalında yapmış olduğunuz istek sıraya alınmıştır.En kısa sürede yayınlanacaktır.12 Sizin Sesiniz Radyo BeykozFm'desiniz 4İyi dinletiler ..
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 5 isteğiniz: 4 $gettok($read(istekler.txt,w,$2 $+ *),2,11)
write $+(-,dl,$readn) istekler.txt
.halt
}
if !$read(istekler.txt,w,$2 $+ *) {
msg $chan $2 1Nicki Listede Gözükmüyor.
}
}
}
if !istekyok* iswm $1- {
if $2 == $null {
msg $chan 1Lütfen Bir Nick Belirtin.. ÖRN: !istekyok <nick>
}
else {
if $read(istekler.txt,w,$2 $+ *) {
msg #dj Reddedilen Istek ( $+ $2- $+ ) iletildi; Isteği: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1Radyo kanalında yapmış olduğunuz istek Dj'imizin Arşivinde olmadığından,Sıradaki çalışma Dj tarafından size Armağan edilecektir.Yada yeni bir istekte bulunabilirsiniz.[ Sizin Sesiniz Radyo BeykozFm'desiniz ] İyi dinletiler.
msg $gettok($read(istekler.txt,w,$2 $+ *),1,11) 1isteğiniz: $gettok($read(istekler.txt,w,$2 $+ *),2,11)
write $+(-,dl,$readn) istekler.txt
.halt
}
if !$read(istekler.txt,w,$2 $+ *) {
msg $chan $2 1Nicki Listede Gözükmüyor
}
}
}
}
}
radyo kodu Kod:
alias radyom {
sockclose radyo*S
sockclose radyo*J
if (: !isin $1) && (!$2) { echo -a 8244 radyo.Sohbetlisin-Fm.com | return }
if ($1 == $null) { echo -a 72.20.58.220 radyo.Sohbetlisin-Fm.com | return }
if (: isin $1) {
echo -a Lütfen Bekleyin..
tokenize 58 $remove($1,http://,/)
sockopen $+(radyo,$r(1,9999),S) $1 $2
set %site $1 $2
}
else { sockopen $+(radyo,$r(1,999),!) $remove($1-,http://,/) | set %site $remove($1-,http://,/) | echo -a Lütfen Bekleyin.. }
}
on *:SockOpen:radyo*S:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
sockwrite -tn $sockname GET / HTTP/1.1
sockwrite -tn $sockname $crlf
}
on *:Sockread:radyo*S:{
sockread %radyo
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $remove($gettok(%radyo,2,58),|) }
if (icy-url isin %radyo) { set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo | radyo2 }
}
on *:Sockclose:radyo*S:radyo2
alias radyo2 { sockopen $+(radyo,$r(1,9999),J) %site | unset %site }
on *:SockOpen:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! }
sockwrite -tn $sockname GET /7.html HTTP/1.0
sockwrite -tn $sockname User-Agent: Mozilla
sockwrite -tn $sockname
}
on *:Sockread:radyo*J:{
if ($sockerr) { echo -a Siteye BağLanmada Hata! | return }
var %z
sockread %z
}
on *:SockClose:radyo*J:{
sockread -f %radyo
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
var %i $numtok(%z,44)
while %i {
set %radyo2 %radyo2 ¿ $remove($gettok(%z,%i,44),|)
dec %i
}
gostert
unset %radyo2
unset %radyo
}
alias -l gostert {
sockclose radyo*S
sockclose radyo*J
tokenize 191 %radyo2
; $1 = Dj in Yazdığı İsim
; $2 = Genre
; $3 = URL
; $4 = ÇaLan Parça
; $5 = Şarkı Kalitesi
; $6 = Dinleyici Sayısı
; $7 = Max. Dinleyici Sayısı
; $8 & $9 = DinLeyici Rekoru
echo -a İsim : $1
echo -a Genre : $2
echo -a URL : $3
echo -a ÇaLan Parça : $4
echo -a Şarkı KaLiteSi : $5
echo -a DinLeyici Sayısı : $6
echo -a Max. Dinleyici Sayısı : $7
echo -a DinLeyici Rekoru : $8 & $9
.msg #radyo 4,4 4,4 0,1 Sohbetlisin-Fm Şuanda Çalan Parçamız. :7,1 $4 4,4 4,4
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4
.msg #radyo 4,4 4,4 0,1 Yayını Winamptan Dinlemek Için Tıklayınız 7,1Http://72.20.58.220:8687/listen.pls 4,4 4,4
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4
.msg #radyo 4,4 4,4 0,1 Yayındaki DJ'imiz 7,1 $1 4,4 4,4
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4
.msg #radyo 4,4 4,4 0,1 Şuanda Yayınımızı 7,1 $6 Kişi Dinlemektedir..4,4 4,4
.msg #radyo 4,4 4,4 0,1 ~~~~ 4,4 4,4
.msg #radyo 4,4 4,4 0,1 !istek Sanatcı Ismi & Şarkısı & Mesajınız Komutunu Kullandıgınızda Isteğiniz Otomatikman Dj'e iletiliyor.4,4 4,4
}
}
on me:*:join:#radyo:{
.timer 1 2 radyom Http://72.20.58.220:8687/listen.pls
.timer 0 240 radyom Http://72.20.58.220:8687/listen.pls
.timer 0 300 msg #radyo 4,4 4,4 0,1Sohbetlisin-Fm Winamp'tan Dinlemek icin Tiklayınız --> Http://72.20.58.220:8687/listen.pls 4,4 4,4
.timer 0 350 msg #radyo 4,4 0,1 İsteklerinizi Radyo Kanalina 7!istek <istediginiz Şarki ve Mesajiniz>0 Şeklinde Yapabilirsiniz. 4,4
}
on *:text:!durum:#radyo:.radyom irc.sohbetlisin.com:8687
on *:text:*:*:{
if !link == $1 {
/msg $chan 0,1 9SohbetLisin-Fm 'i 7Winamp'tan Dinlemek icin Tiklayınız 4 --> 8 Http://72.20.58.220:8687/listen.pls
}
if !dj == $1 {
/msg $chan 1 Yayında Bulunan DJ : 4[ %bo ]
}
if !dinleyen == $1 {
/msg $chan 1 1 Şuan Radyomuzu : 4[ $6 ] 1Kişi Dinlemekte.
}
if !calan == $1 {
/msg $chan 1 Şuanda Radyomuzda Çalan Şarkı 4[ $4 ]
}
}
}
clone koruması Kod:
#sericlone on
on *:snotice:*Client connecting on*:{
.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 3 {
.kline $+(*@,$gettok($gettok($10,2,64),1,41)) 4P12roxy 1/ 4S12ocks/4C12lone 4G12irisi 4Y12apmak 4Y12asaktır 4K12oruma..!
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
#sericlone end
tel numarası yasak Kod:
#telkoru on
on @*:text:*:#: {
if $nick !isreg # { halt }
if $nick ison #Op || $nick isop $chan { halt }
if (*!*@*.sohbetlisin.com iswm $fulladdress) { halt }
if (*@irc.sohbetlisin.com iswm $fulladdress) { halt }
if *532* iswm $1- || *0533* iswm $1- || *0535* iswm $1- || *0537* iswm $1- || *0538* iswm $1- || *0542* iswm $1- || *0541* iswm $1- || *0543* iswm $1- || *0544* iswm $1- || *0546* iswm $1- || *0547* iswm $1- || *0555* iswm $1- || *500* iswm $1- || *0505* iswm $1- {
ban -u900 # $nick
samode # +b $nick
samode # +b $wildsite
kick $chan $nick 2Cep telefonu numarası vermek yasaktır $nick Kaybol!
}
}
#telkoru end
!idle #kanal Kod:
on *:text:!idle*:#: {
set %asilkanal $chan
/idle $2
}
raw 317:*:{
if %kanal != $null {
msg %asilkanal $2 :Nickli KişiNin Konusmadıgı Sure : $int($calc($3 / 60)) dakika, $calc( $3 - $calc($int($calc($3 / 60)) * 60 )) saniye.
}
if $2 == $nick(%kanal,%kacuser) {
msg %asilkanal -- Liste sonu --
unset %kanal
}
}
alias idle {
set %kanal $1
msg %asilkanal -- %kanal kanalinda bulunan kisilerin idle sureleri listeleniyor --
if $me ison %kanal {
set %kacuser $nick(%kanal,0)
var %i 1
while %i <= %kacuser {
set %userx $nick(%kanal,%i)
whois %userx
inc %i
}
}
}
!burc burc adınız Kod:
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
alias isn { if ($2 isin $1) return $true }
on *:sockopen:burc*: {
var %s = sockwrite -n $sockname
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1
%s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:burc*: {
sockread %data
if (face="Arial Narrow"> isin %data) {
msg $remove($sock($sockname),burc*) $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu:
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32)
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32)
unset %burcid %data
}
}
Kod:
on *:text:*:?:{
if ($1 == !burc) {
if (!$2) msg $nick Burcun adını girmediniz!
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick $nick $+ : Türkçe karakter girmeyiniz!
else {
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik
if ($istok(%burclar,$2,32)) {
msg $nick 4,1 $+ $nick $+ : Burcun Yorumu Alınıyor.Bekleyin...
set %burcid $findtok(%burclar,$2,32)
sockclose $+(burc*,$nick)
sockopen $+(burc*,$nick)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid)
}
else msg $nick 4,1Burç adı hatalı! Tekrar deneyiniz..!
}
}
}
!topicat Kod:
on *:text:*:#kontrol:{
if !topicat isin $1 {
.cs set $2 topiclock off
.os topic $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18 $19 $20 $21 $22 $23 $24 $25 $26 $27 $28 $29 $30
.cs set $2 topiclock on
.msg #kontrol 1 $nick $2 1Kanalına Mesajınız Topiclendi.
}
}
!sondakika basla Kod:
alias rss {
var %e = !echo $color(info) -a * Rss:, %r = return $false
if ($os isin 9598) { %e this snippet requires Windows ME or higher | %r }
if ($version < 5.91) { %e this snippet requires atleast mIRC 5.91 or higher | %r }
if (!$regex(%e,$1-,/^-[fhi] \S+ \S+$/i)) {
%e Syntax: /rss <-fhi> <url> <file|htb> or $!rss(-fhi, url, file|htb) | %r
}
var %flag = $mid($1,2), %filepath
if (%flag == h) %filepath = " $+ $mircdirtmprss"
else {
var %dir = $nofile($3-), %file = $nopath($3-)
if (%file != $mkfn(%file)) { %e file %file contains illegal characters. | %r }
if (* !iswm %dir) %dir = $mircdir
elseif (!$isdir(%dir)) { %e no such folder %dir | %r }
%filepath = $+(",%dir,%file,")
}
var %w = $+(@rss,$ticks,$r(1111,9999),.vbs), %a = aline %w, %size, %n = $lf
write -c %filepath
window -h %w
%a Function nohtml(byref string)
%a set regex = new regexp
%a regex.global = true : regex.pattern = "<[^>]*>|[\r\n\177]+" : nohtml = regex.replace(string,"")
%a set regex = nothing
%a End Function
%a set xml = createobject("msxml.domdocument") : set ado = createobject("adodb.stream")
%a ado.open : ado.type = 2 : ado.charset = "ascii"
%a xml.validateonparse = false : xml.async = false : xml.load " $+ $2"
%a for each item in xml.getelementsbytagname("item")
if (%flag == i) {
%a i = i + 1
%a ado.writetext "[" & i & "]",1
%a for each node in item.childnodes
%a if node.text <> "" then ado.writetext node.nodename & "=" & nohtml(node.text),1
%a next %n ado.writetext vbcrlf
}
else {
%a for each node in item.childnodes
%a name = node.nodename
%a if name = "açıklama" then %n desc = name & ": " & nohtml(node.text)
%a elseif name = "adres" or name = "Başlık" then %n tmp = tmp & name & ": " & nohtml(node.text) & chr(127)
%a end if %n next
if (%flag == h) %a i = i + 1 %n ado.writetext i & chr(10) & left(tmp & desc,920) & chr(10)
else %a ado.writetext left(tmp & desc,920) & vbcrlf
%a tmp = null
}
%a next %n ado.savetofile %filepath ,2 : ado.close %n set ado = nothing : set xml = nothing
savebuf %w %w | close -@ %w
.comopen %w wscript.shell
if (!$comerr) .comclose %w $com(%w,run,1,bstr*,%w,uint,0,bool,true)
.remove %w
if (%flag == h) {
if ($hget($3)) hfree $3
hmake $3
hload $3 %filepath
.remove %filepath
%size = $hget($3,0).item
}
else %size = $file(%filepath)
if ($isid) return $iif(%size,$true,$false)
if ($show) {
if (!%size) msg %rss websitesinden verilere ulasilamiyor. $2
;else %e Finished retrieving info from $2 (saved to $iif(%flag == h,hash table:,file:) $3-)
}
return
:error
if ($com(%w)) .comclose %w
if ($isfile(%w)) .remove %w
if ($window(%w)) close -@ %w
}
alias degistir { say $replace($1-,GMT,$null,$1,$null,apr,nis,agu,agustos,jan,ocak,feb,şubat,mar,mart,may,mayis,jun,haziran,jul,temmuz,sep,eylül,oct,ekim,nov,kasım,dec,aralık,Mon,Pazartesi,Tue,Sali,Wed,Carsamba,Thu,Persembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,title=,04Konu Başlığı:02,description=,4Açıklama:02,pubdate=,04Tarih:02,link=,$+(04Devami icin:02,$chr(32))) }
alias _rmsg {
if !%a { set %a 1 } | else { inc %a | msg $1 $chr(160) | msg $1 $chr(160) }
$iif($readini(hurriyet.txt,%a,title),.play $+(-at,%a) degistir $1 hurriyet.txt,durdur)
}
on *:text:!sondakika*:#: {
if $2 == Basla {
if $timer(rss) { msg $chan Sondakika haberleri zaten acik! | halt }
else {
var %z = $shortfn($mircdirhurriyet.txt),%a = 1 | if $exists(%z) { .remove %z }
rss -i [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hurriyet.txt | msg # Sondakika Haber Özeti akışı Başlatildi. | .timerrss 0 10 _rmsg $chan
}
}
if $2 == dur && $timer(rss) { .timerrss off | msg $chan Sondakika haber akışı durduruldu. | halt }
}
alias durdur { .timerrss off | unset %a }
Saygılar:) |
