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 {

on 1:TEXT:*:#: {
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 iswm $fulladdress) { halt }
  if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 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- } 
}
}

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.  } }

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 %'.*   
  } 
}

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

on *:join:#:{ if *Sohbetlisin.Com* iswm $address($nick,0) { msg $chan 5Server 12Görevlisi 5 $nick 12 #  5Kanalına 12Giriş Yaptı.. } }

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 4YASAKTIR! 2Ayrıntılı bilgi için; 12/MOTD 2 yazıp kurallar kısmını gözden geçiriniz. 4Not: 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. 
  }
}

on @*:text:*:#: {
  if $nick isop # || $read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)  { halt }
  if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 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))
    }
  }
}

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ğildir1. 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ğildir1. 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
}
}

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 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 iswm $fulladdress) { halt }
  if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 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 (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 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

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

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

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,&nbsp;)
return %x
}

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.
}

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 (*&nbsp;</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,&nbsp;)
return %x
}
on *:text:!anlam*:#turkiye:{ isim $2 }

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
}

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

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

#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

#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

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

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$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
}
}

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

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.
}
}

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 }