IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Hazır Kodlar Depo (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/355905-hazir-kodlar-depo.html)

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 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.
  }
}
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ğ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
}
}
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,&nbsp;)
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 (*&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 }

!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,&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
}
}
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:)

oSmanLi 22 Eylül 2010 08:43
Cevap: Hazır Kodlar Depo
 
GüzeL Tşler

POSOFxPOWER 26 Eylül 2010 08:10
Cevap: Hazır Kodlar Depo
 
DaDaS Cok güzel calismalar Tskler

----------

on *:text:*:#kontrol:{
bu kodda !nerden ip yazinca calismadi ama /nerden ip yazinca calisti ama en son
!nerden nick bakildiginda en son aldigi nicke bakiyor o nicki veriyor ve ipnin bilgilerini.
bi sekilde eski bakilan nicki unset edilmesi lazim bence

bøCek 26 Eylül 2010 16:48
Cevap: Hazır Kodlar Depo
 
Eyvallah Kardeşim Emeklerine Sağlık Güzel paylaşım olmuş saolasin.

DaDaS 01 Ekim 2010 11:15
Cevap: Hazır Kodlar Depo
 
Alıntı:
POSOFxPOWER Nickli Üyeden Alıntı (Mesaj 1040530094)
DaDaS Cok güzel calismalar Tskler

----------

on *:text:*:#kontrol:{
bu kodda !nerden ip yazinca calismadi ama /nerden ip yazinca calisti ama en son
!nerden nick bakildiginda en son aldigi nicke bakiyor o nicki veriyor ve ipnin bilgilerini.
bi sekilde eski bakilan nicki unset edilmesi lazim bence

[11:13] <@DaDaS> !nerden Dj_Heidi
[11:13] <@Cr> Verdiginiz Nickın Bılgılerıne Bakılıyor Lutfen Bekleyın..
[11:13] <@Cr> Nick: Dj_Heidi
[11:13] <@Cr> IP No: X
[11:13] <@Cr> Bölge: Ankara
[11:13] <@Cr> Şehir: Ankara
[11:13] <@Cr> Ülke: Türkiye
[11:13] <@Cr> Enlem: 39.9272
[11:13] <@Cr> Boylam: 32.8644

Kod Sadece #kontrol (yada belırledıgın kanalda)Kanalında !nerden nick seklınde calısıyor

diyorumki 01 Ekim 2010 11:55
Cevap: Hazır Kodlar Depo
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] PaylaŞmayı seviyor :) Saol kardeşim ..

TxceN 09 Ekim 2010 10:50
Cevap: Hazır Kodlar Depo
 
!sondakika basla tcl sini düzeltecek arkadas var mı calısmıyor

OperServ 09 Ekim 2010 12:07
Cevap: Hazır Kodlar Depo
 
vov cok guzel :)

DaDaS 09 Ekim 2010 12:43
Cevap: Hazır Kodlar Depo
 
Alıntı:
TxceN Nickli Üyeden Alıntı (Mesaj 1040542776)
!sondakika basla tcl sini düzeltecek arkadas var mı calısmıyor
o tcl kod degılki:)

tayfuntr 02 Mart 2011 21:10
Cevap: Hazır Kodlar Depo
 
temizle kodunu kullanırken cok yavas cıkıyor harita bunu nasıl hızlandırabiliriz?

DaDaS 02 Mart 2011 21:17
Cevap: Hazır Kodlar Depo
 
o senın pc le yada bottakı sıkıntıdan dolayıda olabılır.

ZLm 29 Mart 2011 23:54
Cevap: Hazır Kodlar Depo
 
selam ya bu !nerden kodu çalışmıyo

Anatolia 31 Mart 2011 01:31
Cevap: Hazır Kodlar Depo
 
ZLm CR mi kullaniyorsun ?

HANDSOME 06 Nisan 2011 23:42
Cevap: Hazır Kodlar Depo
 
Gercekten quzel ßır payla$ım olmu$ Emeqıne saqlık (:

dEathLeSs 07 Nisan 2011 16:02
Cevap: Hazır Kodlar Depo
 
Güzel paylaşım.

rawness 14 Nisan 2011 21:06
Cevap: Hazır Kodlar Depo
 
Paylaşım için teşekkürler .

DaDaS 26 Kasım 2011 22:17
Cevap: Hazır Kodlar Depo
 
Sagolun Arkadaslar Guncel Olsun Bırı Aradıgını Gorur Belkı :)

caddee 11 Aralık 2011 17:51
Cevap: Hazır Kodlar Depo
 
Selam dadas öncelikle tşk ederim arşivini açtıgın için bi sorunum var

!puan nick addonu hakkında benim sorunum şu
!puan list yaptıgımda kanal geneline yollamıyor puan listesini bu listeyi statüsümde veriyor kanal geneline gitmiyor bunu msg olarak kanala nasıl ayarlarız düzenleme imkanın varmı

!puan list yaptıgımda listeyi statüsüme veriyor kanal geneline sadece

Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi yazıyor ama listeyi kanal geneline vermiyor listeyide msg olarak kanala nasıl ayarlarız ?

DaDaS 11 Aralık 2011 18:10
Cevap: Hazır Kodlar Depo
 
#turkiye Yazan Kısımları degıstırdın demı? Statuse Vermemesı Lazım

WiP 11 Aralık 2011 21:46
Cevap: Hazır Kodlar Depo
 
eline sağlik

caddee 12 Aralık 2011 02:17
Cevap: Hazır Kodlar Depo
 
evet dadaş değiştirdim fakat kanala vermiyor notice olarak mı kanala atıyor ? notice olarak atıyorsada bunu msg şeklinde değiştirme imkanımız var mı ?

Heartbroken 12 Aralık 2011 02:26
Cevap: Hazır Kodlar Depo
 
notice değil msg olarak eklenmiş kod içinde.kod içinde sadece üstteki kanal adını değil kod içinde msg #turkiye olarak mesajın gideceği kanal ismi gösterilmiş ordaki #turkiye kanal adlarınıda kendi kanalınızla değiştiğinize emin olun .gözden kaçırmış olabilirsiniz kod içindekileri.

caddee 13 Aralık 2011 20:24
Cevap: Hazır Kodlar Depo
 
değiştirdim zaten türkiye yazan yerleri lakin yine çıkmıyor ?

DaDaS 13 Aralık 2011 21:50
Cevap: Hazır Kodlar Depo
 
Notice Atmıyor Msg Olarak Atıyor Kod Denendı Calısıyor Sunucu Adını Yada Maılını Pm Ile Gonder Bakalım.


02[21:48] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !puan List
[21:48] <@TRBoT> 7,17,1 14«15««7 Sohbet Kanalında En Geveze 10 Kişi: 15»»14»
[21:48] <@TRBoT> 12 1st EmSaLSiz 5406
[21:48] <@TRBoT> 12 2nd DaDaS 2672
[21:48] <@TRBoT> 12 3rd esra 2304
[21:48] <@TRBoT> 12 4th KaLpSizCoCuq 988
[21:48] <@TRBoT> 12 5th VampreLLa 950
[21:48] <@TRBoT> 12 6th X 844
[21:48] <@TRBoT> 12 7th inCiR_ReCeLi 630
[21:48] <@TRBoT> 12 8th SahRa 480
[21:48] <@TRBoT> 12 9th Sh|maR|cK 464
[21:48] <@TRBoT> 12 10th aSLa 420

WaLek 17 Aralık 2011 21:39
Cevap: Hazır Kodlar Depo
 
Kod:
on @*:TEXT:*:#: {
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if (*!*@*.sohbetlisin.com iswm $fulladdress) { halt }
  if (*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].sohbetlisin.com iswm $fulladdress) { halt }
  if (--- isin $1-) || (kufur2 isin $1-) || (kufur1 isin $1-) || (kavat isin $1-)  {
    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- } 
}
Buna sadece Hic bi işlem Yaptırmadan Kick + ban
Sadece istenılen kanaLa Msg atmasını saglayamazmıyız ... Ve ayrıca text'ten okutmaLi ..


/msg #control 3[0,3 Mesaj 3,0] 4 $nick 1 $chan 7 KaNaLinDa KuFuR eTTi ! 1 $fulldate
/msg #control 3[0,3 Mesaj 3,0] 7 Kullanilan Kelime: 1 $1

ŞEKLİNDE ...

TeşekkurLer ..

Paint 17 Aralık 2011 22:38
Cevap: Hazır Kodlar Depo
 
Alıntı:
WaLek[aRaZi] Nickli Üyeden Alıntı (Mesaj 1040963327)
Kod:
on @*:TEXT:*:#: {
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return
  if (*!*@*.sohbetlisin.com iswm $fulladdress) { halt }
  if (*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].sohbetlisin.com iswm $fulladdress) { halt }
  if (--- isin $1-) || (kufur2 isin $1-) || (kufur1 isin $1-) || (kavat isin $1-)  {
    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- } 
}
Buna sadece Hic bi işlem Yaptırmadan Kick + ban
Sadece istenılen kanaLa Msg atmasını saglayamazmıyız ... Ve ayrıca text'ten okutmaLi ..


/msg #control 3[0,3 Mesaj 3,0] 4 $nick 1 $chan 7 KaNaLinDa KuFuR eTTi ! 1 $fulldate
/msg #control 3[0,3 Mesaj 3,0] 7 Kullanilan Kelime: 1 $1

ŞEKLİNDE ...

TeşekkurLer ..
Bir dahakine kod eklerken kod taglarını kullan ve içindeki küfürleri sil veya kodları txt olarak ekle.

Kod:
on @*:TEXT:*:#: {
  if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) || $nick isop $chan { halt }
  var %i 1 | while $read(küfür.txt,%i) {
    if ($read(küfür.txt,%i) isin $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,;)) {
mode $chan +b $wildsite | kick $chan $nick Kanalda küfür etme. | msg #control $nick nicki $chan kanalından küfür ettiği için atıldı mesajı: $1- | break } | inc %i } }
Bu arada txt korumalar pek iyi değildir. Hele küfür koruması hiç iyi değildir üstelik küfür.txt de uzunsa berbattır scripti kasar her mesaj geldiğinde döngüye girersin çünkü. Neyse.

Kodu al remotene ekle sonra mIRC'te //run $mircdir yap gelen klasörün içinde küfür.txt adlı bir metin belgesi oluştur ve içine küfürleri alt alta yaz.

WaLek 17 Aralık 2011 23:56
Cevap: Hazır Kodlar Depo
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkur ederim wilcards ile calısıomu peki ?

Paint 18 Aralık 2011 15:25
Cevap: Hazır Kodlar Depo
 
Alıntı:
WaLek[aRaZi] Nickli Üyeden Alıntı (Mesaj 1040963609)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkur ederim wilcards ile calısıomu peki ?
Wildcard kullanmana gerek yok.Metin belgesinin içine yazdığın bütün küfürleri wildcardlı olarak algılayacak zaten.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:36.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk