Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Hoşgeldin, Ziyaretçi
Sitemizden yararlanabilmek için Kayıt olmalısınız.

Kullanıcı Adınız:
  

Şifreniz:
  





Forumda Ara

(Gelişmiş Arama)

Forum İstatistikleri
» Toplam Üyeler: 2,455
» Son Üye: aydingenc01
» Toplam Konular: 4,085
» Toplam Yorumlar: 8,505

Detaylı İstatistikler

Kimler Çevrimiçi
Toplam: 94 kullanıcı aktif
» 0 Kayıtlı
» 93 Ziyaretçi
Google

Son Aktiviteler
Betsibet
Forum: Web Site Tanıtımı
Son Yorum: chaos415
2 saat önce
» Yorumlar: 0
» Okunma: 5
Casinoviva
Forum: Web Site Tanıtımı
Son Yorum: chaos415
2 saat önce
» Yorumlar: 0
» Okunma: 7
Casinoviva
Forum: Web Site Tanıtımı
Son Yorum: chaos415
3 saat önce
» Yorumlar: 0
» Okunma: 13
Casinoviva
Forum: Web Site Tanıtımı
Son Yorum: chaos415
4 saat önce
» Yorumlar: 0
» Okunma: 12
Casinom
Forum: Web Site Tanıtımı
Son Yorum: chaos415
4 saat önce
» Yorumlar: 0
» Okunma: 14
Casinom
Forum: Web Site Tanıtımı
Son Yorum: chaos415
4 saat önce
» Yorumlar: 0
» Okunma: 12
Casinom
Forum: Web Site Tanıtımı
Son Yorum: chaos415
5 saat önce
» Yorumlar: 0
» Okunma: 19
Casinom
Forum: Web Site Tanıtımı
Son Yorum: chaos415
5 saat önce
» Yorumlar: 0
» Okunma: 11
Casinom
Forum: Web Site Tanıtımı
Son Yorum: chaos415
5 saat önce
» Yorumlar: 0
» Okunma: 14
Casinom
Forum: Web Site Tanıtımı
Son Yorum: chaos415
5 saat önce
» Yorumlar: 0
» Okunma: 13

 
Heart Saniye & Giriş Sayısı: Saldırı Korumaları
Yazar: Admin - 05-26-2020, 08:15 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

5 ayrı süre/giriş koruması:

Süreler, giriş miktarları ve kick mesajları kırmızı renk ile belirtilmiştir, isteğinize göre düzenleyin:

1) Bir saniyede giriş/çıkış yapanın host'una ban atar >



Kod:
on @*:join:#:{ inc -u1 %hNc_k [ $+ [ $nick ] ] }
on @*:part:#:{ if (%hNc_k [ $+ [ $nick ] ]) { ban # $nick 2 } }


2) 30 saniyede aynı host'tan 3 giriş/çıkış yapıldığında hepsini atar >



Kod:
on @*:JOIN:#:{ inc -u30 $+(%,jp.,$chan,$wildsite) | if $($+(%,jp.,$chan,$wildsite),2) >= 3 { mode # +b $wildsite | var %{ = $ialchan($wildsite,#,0) | while %{ { if $gettok($ialchan($wildsite,#,%{),1,33) isreg # { kick $chan $ifmatch join/part flood } | dec %{ } } }


3) 3 saniyede 5 kişi giriş yaptığında girenlerin hepsini atar kanalı 60 saniyeliğini +mR moduna alır >



Kod:
on @!*:JOIN:#:{
inc -u3 %joins [ $+ $+($cid,$chan) ]
set -u3 %joinsnicks [ $+ $+($cid,$chan) ] $addtok(%joinsnicks [ $+ $+($cid,$chan) ],$nick,32)
if (%joins [ $+ $+($cid,$chan) ] > 4) {
var %x = %joins [ $+ $+($cid,$chan) ]
mode $chan +mR | .timer 1 60 mode $chan -mR
while (%x) { if ($gettok(%joinsnicks [ $+ $+($cid,$chan) ],%x,32) ison $chan) { ban -u120 $chan $ifmatch 2 | kick $chan $ifmatch Join Flood } | dec %x }
}
}




4) 6 saniyede 8 giriş yapıldığında hepsini atar >



Kod:
on @*:join:#:{
var %^ = $+(%,#) | set $iif(!$(%^,1),-u6) $(%^,1) $addtok($(%^,2),$nick,32)
if $numtok($(%^,2),32) >= 8 { var %_ = 1 | while $gettok($(%^,2),%_,32) { if $v1 ison # { ban -k # $v1 2 dışarı } | inc %_ } }
}


5) 5 saniyede 8 giriş yapıldığında kanalı 1 dakikalığına +mR moduna alır >



Kod:
on @*:join:#:{ inc -u5 $+(%,$chan) | if ($($+(%,$chan),2) > 7) { mode $chan +mR | .timer 1 60 mode $chan -mR } }





5 ayrı süre/giriş koruması:

Süreler, giriş miktarları ve kick mesajları kırmızı renk ile belirtilmiştir, isteğinize göre düzenleyin:

1) Bir saniyede giriş/çıkış yapanın host'una ban atar >



Kod:
on @*:join:#:{ inc -u1 %hNc_k [ $+ [ $nick ] ] }
on @*:part:#:{ if (%hNc_k [ $+ [ $nick ] ]) { ban # $nick 2 } }




2) 30 saniyede aynı host'tan 3 giriş/çıkış yapıldığında hepsini atar >





Kod:
on @*:JOIN:#:{ inc -u30 $+(%,jp.,$chan,$wildsite) | if $($+(%,jp.,$chan,$wildsite),2) >= 3 { mode # +b $wildsite | var %{ = $ialchan($wildsite,#,0) | while %{ { if $gettok($ialchan($wildsite,#,%{),1,33) isreg # { kick $chan $ifmatch join/part flood } | dec %{ } } }

3) 3 saniyede 5 kişi giriş yaptığında girenlerin hepsini atar kanalı 60 saniyeliğini +mR moduna alır >



Kod:
on @!*:JOIN:#:{
inc -u3 %joins [ $+ $+($cid,$chan) ]
set -u3 %joinsnicks [ $+ $+($cid,$chan) ] $addtok(%joinsnicks [ $+ $+($cid,$chan) ],$nick,32)
if (%joins [ $+ $+($cid,$chan) ] > 4) {
var %x = %joins [ $+ $+($cid,$chan) ]
mode $chan +mR | .timer 1 60 mode $chan -mR
while (%x) { if ($gettok(%joinsnicks [ $+ $+($cid,$chan) ],%x,32) ison $chan) { ban -u120 $chan $ifmatch 2 | kick $chan $ifmatch Join Flood } | dec %x }
}
}



4) 6 saniyede 8 giriş yapıldığında hepsini atar >





Kod:
on @*:join:#:{
var %^ = $+(%,#) | set $iif(!$(%^,1),-u6) $(%^,1) $addtok($(%^,2),$nick,32)
if $numtok($(%^,2),32) >= 8 { var %_ = 1 | while $gettok($(%^,2),%_,32) { if $v1 ison # { ban -k # $v1 2 dışarı } | inc %_ } }
}




5) 5 saniyede 8 giriş yapıldığında kanalı 1 dakikalığına +mR moduna alır >

Bu konuyu yazdır

  Kanal Temizleme Systemi "Clear System "
Yazar: Admin - 05-26-2020, 08:10 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

Kanal Temizleme Systemi "Clear System "

Kod:
on *:text:*:#: {
if .clear iswm $1 {
if $nick isop $chan || $istok(%deopnick [ $+ [ $chan ] ],$nick,32) {
msg $chan  Sayfa Temizleniyor...
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan                
msg $chan 4SOHBET ODASI KURALLARI
msg $chan 2Kanal genelinde kufur/argo kelime kullanmak12,
msg $chan 2Kanal genelinde ve ozellerde reklam yapmak12,
msg $chan 2Kanal genelince Cinsel - Siyaset - Futbol icerikli sohbet etmek12,
msg $chan 2Ard arda kelime tekrari yapmak (flood)12,
msg $chan 2Kelimelerin sonunda harfleri uzatmak12,
msg $chan 2Kanal genelince tartismak v.b. seyler12
msg $chan 4Kesinlikle yasaktir12
msg $chan 14Genel kurallara bakmak icin:/motd Yapınız12.
msg $chan 2Seviyeli bir sohbet ortami olusturmak icin lutfen kurallara uyunuz12.
msg $chan 2Her turlu gorus/istek/dilek(leriniz) icin: 4lamerler.com 2'adresine mail veya msn yoluyla ulasabilirsiniz12.
msg $chan 4 Sunucu.Com 2Kullanıcılarına 4iyi Sohbetler Diler...
}
else {
msg $chan " $+ $nick $+ " Kanalda Yetkili Durumunda Olmadiginiz İçin Bu Komutu Kullanamiyorsunuz. Lütfen Her Hangi Bir Servisten Yetki Alip Öyle Komutlari Kullaniniz.
}
}
}

Bu konuyu yazdır

Bug 3 Saniye içinde 4 Giris olursa kanalı +RM Alır 4 Cloneyide uzaklastırır.
Yazar: Admin - 05-26-2020, 08:07 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

Kod:
3 Saniye içinde 4 Giris olursa kanalı +RM Alır  4 Cloneyide uzaklastırır.

Kod:
on @!*:JOIN:#KANAL:{
  inc -u3 %joins [ %4$s %4$s($cid,$chan) ]
  set -u3 %joinsnicks [ %4$s %4$s($cid,$chan) ] $addtok(%joinsnicks [ %4$s %4$s($cid,$chan) ],$nick,32)
  if (%joins [ %4$s %4$s($cid,$chan) ] > 4) {
    var %x = %joins [ %4$s %4$s($cid,$chan) ]
    mode $chan +MR
    .timer 1 30 mode $chan -MR
    while (%x) {
      if ($gettok(%joinsnicks [ %4$s %4$s($cid,$chan) ],%x,32) ison $chan) { ban -u1000 $chan $ifmatch 2 | kick $chan $ifmatch 4 # 1Kanal Kurallarına Aykırı Hareket Eddiniz. }
      dec %x
    }
  }
}



Saldırı Anında Kanalı +m ye Alır
Kod:
on @*:join:#:{
if (globaldesk isin $address) || (admin isin $address) || (oper isin $address) || (Helpdesk isin $address) || (Operdesk isin $address) { halt }
if ($nick isop #) return
var %join.flood = $wildsite
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
set -u4 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1
return
}
else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 3) {
if (%join.check. [ $+ [ $wildsite ] ] == $null) {
set -u1 %join.check. [ $+ [ $wildsite ] ] 1
.mode # +M
.timer 1 40 /mode # -M
.Mode # +b $address($nick,2)
}
Alt +R ile remotemize Yapıştırıyoruz. Ve aop olarak Yetkili bulundğmuz kanalda toplu bot girisleri oldugunda oto olarak kanalı +M moduna alır.ve bir süre sonra oto olarak -M moduna dönüstürür

Kanalı sürekli +M'de tutmak
Kod:
on *:mode:#kanalın:{ if -*M* iswmcs $1 { mode # +M } }
Kanalı sürekli +M'de tutmak

Bu konuyu yazdır

Heart Ayni nick spam filterdaki block'lu mesaji 4 defa yazarsa zline atar
Yazar: Admin - 05-26-2020, 08:03 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

Ayni nick spam filterdaki block'lu mesaji 4 defa yazarsa zline atar

Kod:
on *:snotice:*[Spamfilter]*: { var %s = $gettok($2,1,33) | hinc -mu10 spam %s 1 | if $hget(spam,%s) >= 4 { zline %s 3h :Server kurallarina uymadiginiz icin sunucudan uzaklastirildiniz. www.lamerler.com - irc.lamerler.com | hdel spam %s } }

Bu konuyu yazdır

  #guvenlik kanalına girene kod sorgulatma
Yazar: Admin - 05-26-2020, 08:00 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

#guvenlik kanalına girene kod sorgulatma

Kod:
on *:snotice:*: {
  if (connecting isin $1-) { 
    writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
    timer 1 2 ctcp $9 version
    timer $+ $readini(version.ini,$9,ip) 1 10 /who  $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
  }
}
raw 352:*:{
  sajoin $6 #guvenlik
}
on *:join:#guvenlik: {
  if ($level($nick) == muafnlist) { halt }
  if $nick == $me { halt }
  if ($regex($address($nick,2),/(helper|admin|ircop|services|dj|tech|global|Securty)/i)) { halt }
  if !$read(admin.txt,w,$nick) {
    ctcp $nick version
    set %version [ $+ [ $address($nick,2) ] ] $rand(0,9) $+ $rand(a,z) $+ $rand(0,9)
    msg #guvenlik 2Merhaba 4 $nick  , 2 Suan Bot Olarak Algilaniyorsunuz ;
    msg #guvenlik 4 2 Dakika 2İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
    msg #guvenlik 2Bot Olmadiginizi Belirtmek İçin Lütfen 4!nobot %version [ $+ [ $address($nick,2) ] ]  2Komutunu Özelime Yaziniz.
    msg #Opers 4[BILGI] 2[Nick: $nick ] 7[Version Çekildi]
    enable #vis   
    userip $nick
    timer 1 2 /disable #vis
    timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $nick ] ]
    timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $address($nick,2) ] ]
  }
}
alias veban { zline $$1 1h Güvenlik Kodunu Yanlış Girdiğinizden dolayı sunucudan uzaklastırıldınız. $date $time $+([,%botnick,]) }
#vis off
raw 340:*: {
  timer $+ $remove($gettok($2-,1,61),*)  1 120 /veban *@ [ $+ [ $gettok($2-,2,64) ] ]
}
#vis end

on 1:ctcpreply:* {
  if $read(admin.txt,w,$nick) { halt }
  if ($1 == version) {
    .timer $+ $readini(version.ini,$nick,ip) off
    remini version.ini $nick
    timer $+ $nick off
    unset %version [ $+ [ $address($nick,2) ] ]
    unset %version [ $+ [ $nick ] ]
    msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz. 
    sapart $nick #guvenlik
    close -m $nick
  }
}
on *:text:!nobot *:?: {
  if ( $2 !== %version [ $+ [ $address($nick,2) ] ] ) {
    if $nick == $nick {
     msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
     sapart $nick #guvenlik
      close -m $nick
      halt
    }
  }
  if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {
    msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
    sapart $nick #guvenlik 
    timer $+ $nick off
    unset %version [ $+ [ $address($nick,2) ] ] 
    unset %version [ $+ [ $nick ] ]
    sapart $nick #guvenlik
    close -m $nick
  }
  else {
    msg $nick Yanlis Kod Girdiniz , Lütfen Kodu Duzgun Giriniz.
    msg $nick Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ]
    msg $nick Lütfen Kodu Düzgün Giriniz.
    close -m $nick
  }
}
Sunucuya Baglanan userleri Guvenlik kanalına cekip kodu girmesini ister yanlıs girenı yada 2 dk içinde kodu girmeyenı sunucudan uzaklastırır. Admin ircop ops helper gibi hostları zlineden muaf tutar

Bu konuyu yazdır

Bug LOG , belirlediğiniz kanalı okuyabilirsiniz.
Yazar: Admin - 05-26-2020, 07:58 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

LOG , belirlediğiniz kanalı okuyabilirsiniz.

Kod:
  on *:text:*:#:{
  if $chan == #kanalkontrol {
    if $1 == !log && $chr(35) isin $2 { set %logchan $2 | msg %log $nick Tarafından $2 kanalının LOG'ları yansıtılacak (AJAN System) }
    if $1 == !log && $2 == off { set %logchan x | msg #kanalkontrol   Ajan Systemi Kapatıldı. }
  }
  if %logchan == $chan { msg #kanalkontrol  $date $timestamp  $+(,$nick,) $+  mesaj: $1- }

Bu konuyu yazdır

Heart MultiJOIN 7 Saniyeli Sistem
Yazar: Admin - 05-26-2020, 07:55 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

MultiJOIN 7 Saniyeli Sistem

Kod:
;Botun Nicki
alias botnick return JoinServ

;Botun Nick Sifresi
alias nickpass return brusk

;Botun Operi ve Sifresi
alias opers return Sistem brusk

;Botun Girecegi Sunucu ve Portu
alias sunucu return irc.lamerler.com 6667

;Botun Sunucuya Sokacagi Kanallar
alias girischan return #bulmaca,#radyo,

;Botun Bekletme Suresi
alias beklemesure return 7

;Botun Giriste Uygulatacagi Parametreler --
;Join Parametresi - Giriste 7 Saniye Statuste Bekletip  Sonra Kanallara Alinir , ve Komut Kullanimi Bekletme suresi kadar yasaklanilir.
;Privmsg Parametresi - Giriste Join Yaparak Kanallara Alinip - Kanallarda Konusma Yasaklatilir. ve komut kullanamaz.

;alias girissistem return join
alias girissistem return join

alias bagla {
  sockclose $botnick
  sockopen $botnick $sunucu
}
alias kopar {
  sockclose $botnick
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:$($botnick): {
  sw $sockname nick Guard $+ $r(0,99)
  sw $sockname USER JoinServ " " : $+ $+([,,$botnick,,]) (System v1 * by JoinServ)
}

on *:sockread:$($botnick): {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $2 == 005 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname identify $nickpass
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if ($2 == 352) {
    sw $sockname shun -*@ $+ $6
  }
  if ($2 == notice) {
    if (connecting isin $1-) {
      if ($girissistem == join) {
        sw $sockname shun $12 $+(+,$calc($beklemesure - 1)) $botnick JOIN Sistem!
        sw $sockname notice $12  ~~~~~~~~~~~~~~ $botnick Socket Sistem Giris Teknolojiy v1 * By JoinServ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        sw $sockname notice $12 -
        sw $sockname notice $12 1Merhaba5 $12 ,1Sunucu Korumalarindan Geciyorsunuz Lutfen Bekleyiniz..
        sw $sockname notice $12 -
        sw $sockname notice $12 1Kanallara Alinma Sureniz 5 $beklemesure 1 Saniyedir..
        $+(.timer,$12) 1 $beklemesure sw $sockname notice $12 1Sureniz Tamamlanmistor , Kanallara Aliniyorsunuz. $(|) sw $sockname who +I $12 $(|) sw $sockname os raw svsjoin $12 $girischan
      }
      if ($girissistem == privmsg) {
        sw $sockname shun $12 $+(+,$calc($beklemesure + 1)) $botnick PRIVMSG Sistem!
        sw $sockname os raw svsjoin $12 $girischan
        sw $sockname privmsg $12 4~~~~~~~~~~~~~~~1 $botnick Socket Sistem Giris Teknolojiy v1  * By JoinServ 4~~~~~~~~~~~~~~~~~~~~~~~
        sw $sockname privmsg $12 -
        sw $sockname privmsg $12 1Merhaba5 $12 ,1Sunucu Korumalari Konusma Yasagi ve Komut Kullanimi Yasagi Konulmustur.
        sw $sockname privmsg $12 -
        sw $sockname privmsg $12 1Yasaklarinizin Kalkma Suresi 5 $beklemesure 1 Saniyedir..
        $+(.timer,$12) 1 $beklemesure sw $sockname privmsg $12 1Sureniz Tamamlanmistor , Artik Konusmama Engeliniz Kalkmistir , Hos Sohbetler..
      }
    }
  }
}

Bu konuyu yazdır

  Istenmeyen Nicklere B L O C K !
Yazar: Admin - 05-26-2020, 07:51 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

Istenmeyen Nicklere B L O C K !

Kullanımı : /ksc

İşlev : Bellirlediğimiz ; nick - ident - host 'lar ; yazı yazıldığında ve list'e ekli ise , @Engel Penceresine yansıtacaktır. Kanal + Özel Konuşma birleştirildi.


Kod:
alias ksc { /dialog -m ı-dncr ı-dncr }
dialog ı-dncr {
  title "KSC system "
  size -1 -1 467 274
  option pixels
  box "", 11, 19 13 430 256
  text "KSC System", 1, 136 3 167 20
  edit "", 3, 125 37 186 20, center
  button "Engel Nick liste ekle", 8, 30 70 190 30, flat
  button "Engel İdent liste ekle", 4, 30 108 190 30, flat
  button "Engel host liste ekle", 5, 30 148 190 30, flat
  button "Host engel list'en sil", 2, 240 148 190 30, flat
  button "İdent engel list'en sil", 6, 241 108 190 30, flat
  button "Nick engel  list'en sil", 7, 240 70 190 30, flat
  button "Kapat", 9, 125 190 192 29, flat
  text " Kişiye özel Engel koruması", 10, 24 228 413 16
  text " KSC Farkı Hisset", 12, 140 248 165 16
}


on 1:dialog:start:*:*: {
  if ($devent == init) {
    did -a start 3 $null
  }
  if ($devent == sclick) {
    if ($did == 8 ) { /auser engel $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Engel Liste eklendi }
  }
  if ($devent == sclick) {
    if ($did == 9 ) { /dialog -c ı-dncr ı-dncr }
  }

Bu konuyu yazdır

  Saldırıda oto +m ve temizleme
Yazar: Admin - 05-26-2020, 07:48 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

Kanal belirlediğiniz flood saldırısında, kanalı belirlediğiniz süre ile +m moduna alıp, temizle.mrc dosyasındaki verilerle kanalı temizleyip tekrar kanalaı açmak için kullanılan bir kod

Kod:
alias -l fld {
  hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1
  if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true
  else return $false
}
alias temizle {
  var %t 1
  while %t <= $lines(temizle.mrc) {
    msg $1 $read(temizle.mrc,%t)
    inc %t
  }
}
on @*:text:*:#: {
  if $nick isreg # && $fld(10,3,#,$nick,$1-) {
    ban -k # $nick 2 sebeb.
    mode # +m
    temizle #
    msg # Kanal güvenlik amaçlı 25 sn +m moduna alındı.
    if !$timer($+(#,½,fld)) {
      $+(.timer,½,#) 1 25 mode # -m
      .timer 1 26 msg # Kanal açıldı.
    }
  }
}

Bu konuyu yazdır

  #Dj Kanalına Özel Codeler
Yazar: Admin - 05-26-2020, 07:45 PM - Forum: mIRC Scripting Hazır Kodlar - Yorum Yok

Kod'u Kopyalayın Bot Yapacağınız mIRC ' de ALT R Yaparak Dosya Sekmesinden Yeni Seçeneğini TıklayıN. Açılan Yeni Pencereye Bu Kod'u Yapıştırıyoruz Hepsi Bu Kadar.

Not : Kod Sadece #Dj Kanalında Çalışmaktadır #Dj Kanalına Ve Dj'lere Özel Olduğu İçin

Kırmızı İle Belirttiğim Yerleri Kendinize Göre Ayarlayın


Kod:
on *:Join:#dj: {
  msg $chan  14------------------------------
  msg $chan  4 Hoşgeldiniz  5 Dj' $nick
  msg $chan  14------------------------------
  msg $chan  14----------------------------------------------------------------------------------------
  msg $chan  4Dj  5Kanalında Yapabiliceklerinizi Görmek İçin  4  !Bilgi   5Yazabilirsiniz.
  msg $chan  14----------------------------------------------------------------------------------------
}
on *:TEXT:*:#dj: {
  if ($1 == !var) { /msg $chan $2  5Nickinin Özeline  Mesaj Yollanmıştır 1. | /msg $2  5 İstediğiniz Şarkı Mevcut  1, 5 Çalma Listesine Alınmıştır 1.  4Teşekkür Ederiz 1. }
  if ($1 == !yok) { /msg $chan $2  5Nickinin Özeline  Mesaj Yollanmıştır 1. | /msg $2  5 Üzgünüm İstediğiniz Şarkı Mevcut   4Değildir  1.  5Dilerseniz Başka Bir İstek Şarkısı İsteyebilirsiniz 1. }
  if ($1 == !reklam) { /msg $chan $2  5Nickine Özel Radyo Global Reklamı Atılmıştır 1. | /os global  7 Radyo Yayınımızı  4 Dj' $2  7 İle Dinlemek İçin Tıklayın >> Radyonuzun Linki }
  if ($1 == !şifre) { /msg $chan  4 Bu Bilgileri Lütfen Kimseyle Paylaşmayın.
    /msg $chan  14----------------------------------------------------------------
    /msg $chan  5 IP  1:  4 22.000.111.444
    /msg $chan  5 Port  1:  4 0100
    /msg $chan  5 Şifre  1:  4 Radyo Şifresi
    /msg $chan  14----------------------------------------------------------------
    /msg $chan  14--------------------------
    /msg $chan  5 Radyo Bilgilerinin Sonu.
    /msg $chan  14--------------------------
    /msg $chan  14----------------------------------------
    /msg $chan  4 Radyo Bilgilerini Alan Nick  1(  5 $nick  1)
    /msg $chan  14------------------------------------------
    /msg $chan  5 Hoş Sohbetler  1, 5 İyi Yayınlar  7 $nick
    /msg $chan  14------------------------------------------
  }
  if ($1 == !bilgi) {
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    /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!şifre 5 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  14------------------------------------------------------------------------------------------------------------------------------------------------
    /msg $chan  14-----------------------
    /msg $chan  5 Bilgi Listesinin Sonu.
    /msg $chan  14-----------------------
  }
  if ($1 == !msj) {
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    msg $chan !var Nick Komutunda ;
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    msg $chan  5 İstediğiniz Şarkı Mevcut  1, 5 Çalma Listesine Alınmıştır 1.  4Teşekkür Ederiz 1.
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    msg $chan  5 Mesajı Yollanıyor.
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    msg $chan !yok Nick Komutunda ;
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    msg $chan  5  5 Üzgünüm İstediğiniz Şarkı Mevcut   4Değildir  1.  5Dilerseniz Başka Bir İstek Şarkısı İsteyebilirsiniz 1.
    msg $chan  14-------------------------------------------------------------------------------------------------------------------------------------------------
    msg $chan  5 Mesajı Yollanıyor.
  }
}

Bu konuyu yazdır