IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Sadece belirli nicklere otomatik mesaj gönderme

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Sadece belirli nicklere otomatik mesaj gönderme (https://www.ircforumlari.net/mirc-scripting-sorunlari/381419-sadece-belirli-nicklere-otomatik-mesaj-gonderme.html)

Sadece belirli nicklere otomatik mesaj gönderme

Arkadaşlar merhaba sizden yardım istiyorum şöyleki;

Bir nick listesi oluşturmak istiyorum örnek:

Ahmet
mehmet
orhan
veli

ve bu listeye dilediğim zaman ekleme çıkarma yapabilmeliyim.

ve yine bir mesaj gireceğim. örnek " Akşam kadıköyde buluşuyoruz"

Şimdi derdim şu.

yazılımı bir komut ile aktif hale getirdiğim zaman kanaldaki nickleri tarayacak, eğer kanalda benim listemde yer alan nicklerden biri ile başlayan bir nick var ise mesajımı ona gönderecek. örnek : kanalda "ahmet_ist22" nicki var.. Benim listemde Ahmet olduğu için ve " ahmet_ist22" nicki ahmet ile başladığı için bu nicke belirlediğim mesajı gönderecek.

Aynı taramayı kanala sonradan giren nickler için de yapacak.

bu kod nasıldır?

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Kod:

#mrt off

alias tara {

  var %mrtt = 1

  while (%mrtt <= $nick(#,0)) {

    var %Bad = $nick(#,%mrtt)

    if ($level($nick(#,%mrtt)) == nnick) { msg %bad %swsw  7Tarih :14 $date 7Saat :14 $time  }

    inc %mrtt

  }

}

on *:join:#kanal:if $ulist($nick,nnick,0) { inc -eu300 $+(%,$nick,#) 1 | if $($+(%,$nick,#),2) == 1 { msg $nick %swsw } }

#mrt end

menu * {

  Arkadaş Nick

  .aç:enable #mrt | set %swsw $$?="mesajınızı yazınız:"

  .kapat:disable #mrt

  .tara:tara

  .ekle:auser nnick $$?="nick yazınız:" $+ *

  .çıkart:ruser nnick $$?="nick yazınız:" $+ *

}

alt r tıklayıp remotene ekliyorsun kanalda özelde statuste fark etmez sağ tıklayınca Arkadaş nick menüsünden işlemini yapablirsin

Kullanımı: kodu aktif etmek için aç deaktif etmek için kapat menüsünü tıklıyoruz

menüde tara yı tıklarsan kanalı tarar ve belirtiğin mesajı yollar listendeki kişilere

kodumuz ektif durumdayken kanala giren olursa listedeki bir nick onada belirlediğin mesaj gider.

ekle menüsüyle arkadaş ekleye bilirsin
sadece nicki yazıyorsun yazdıgın nickle başlayan nicklerde işlem yapar

eklediğin nick ahmet farzedelim kanalda ahmet25 varsa onada mesaj yollar

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

peki hangi nicklerin ekli olduğunu nerden görebilirim ? hepsini aklında tutamam.. bakıp ona göre çıkarmak istersem?

----------

ayrıca denedim herkese gönderdi mesajı :(

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Alıntı:

RocknRolla Nickli Üyeden Alıntı (Mesaj 1040673256)

peki hangi nicklerin ekli olduğunu nerden görebilirim ? hepsini aklında tutamam.. bakıp ona göre çıkarmak istersem?

----------

ayrıca denedim herkese gönderdi mesajı :(

mesajı herkese gönderme şansı yok denedim şimdide biraz daha acıklayıcı olursan sevinirim
başka kod varmı mircinde eski kodları silmelisin
mircinde veriablesle ile remote arasında kullanıcı bölümüne eklediğin niçklere yollar

göre bilmen için ekleme yaptım koda

Kod:

#mrt on

alias tara {

  var %mrtt = 1

  while (%mrtt <= $nick(#,0)) {

    var %Bad = $nick(#,%mrtt)

    if ($level($nick(#,%mrtt)) == nnick) { msg %bad %swsw  7Tarih :14 $date 7Saat :14 $time  }

    inc %mrtt

  }

}

on *:join:#kanal:if $ulist($nick,nnick,0) { inc -eu300 $+(%,$nick,#) 1 | if $($+(%,$nick,#),2) == 1 { msg $nick %swsw } }

#mrt end

menu * {

  Arkadaş Nick

  .aç:enable #mrt | set %swsw $$?="mesajınızı yazınız:"

  .kapat:disable #mrt

  .tara:tara

  .listeyi gör:gör

  .ekle:auser nnick $$?="nick yazınız:" $+ *

  .çıkart:ruser nnick $$?="nick yazınız:" $+ *

}

alias gör  { 

  $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

  if ($ulist(*,nnick,0) != $null) { 

    set %cnt.shit 0

    while (%cnt.shit < $ulist(*,nnick,0)) { 

      inc %cnt.shit 1 

      echo @Görüntüleme $ulist(*,nnick,%cnt.shit) 

    }  

    unset %cnt.shit 

  }

}

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Kod:

#Msj Off

on *:join:#: {

  if ($nick == $me) { set -u10 %chan $chan | .timer 1 2 .tara }

  elseif ($nick != $me) && ($level($nick) == Mesaj) { msg $nick %mesaj }

}

#Msj End

alias mesaj {

  set %mesaj $1-

}

alias msj {

  if ($1 == on) && ($var(%mesaj) == 1) { .enable #Msg | echo -a Mesaj İşlemi Açık Hale Getirildi.  } 

  elseif ($1 == on) && ($var(%mesaj) == 0) { Echo -a Lütfen /mesaj Mesajınız Şeklinde Bir İleti Girip Komutu Tekrar Deneyiniz.  } 

  elseif ($1 == off) { .disable #msg  | echo -a Mesaj İşlemi Kapalı Hale Getirildi. }

  else { Echo -a Yanlış Komut Kullandınız. Kullanımı /msj on|off }

}

alias ekle { .auser mesaj $+(*,$1,*) | Echo -a * $qt($1) Nicki Mesaj Listesine Eklendi! }

alias sil { .ruser mesaj $+(*,$1,*) | Echo -a * $qt($1) Nicki Mesaj Listesinden Silindi! }

alias listele {

  var %i = 1,%t = $ulist(*,mesaj,0)

  while (%i <= %t) {

    echo -a $ulist(*,mesaj,%i)

    inc %i

  }

}

alias tara {

  var %csr = 1

  while (%csr <= $nick(%chan,0)) {

    var %mesajnick = $nick(%chan,%csr)

    if ($level($nick(%chan,%csr)) == Mesaj) {  msg %mesajnick %mesaj }

    inc %csr

  }

}

Kullanım Bilgisi:

/Ekle Nick : Mesaj yollanılacak nicki mesaj listesine ekler
/Sil Nick : Mesaj listesindeki nicki siler.
/Listele : Mesaj listesinde bulunan nickleri listeler.
/Mesaj mesajın : belirtilen mesajı, mesaj listesindeki kişilere yollar.
/msj on : Kodu(size göre yazılımı) bu komutla açılır.
/msj off : Kodu(size göre yazılımı) bu komutla kapatır.

-

NOT: Kod(size göre yazılım) şuan kapalı durumundadır. Kodu aktif hale getirebilmeniz için öncelikle " /mesaj mesajınız" şeklinde bir mesaj girip " /msj on " şeklinde açmanız yeterli. Tabiki nickleri eklemeyi unutmayın.
Nick eklerken siz /ekle Nick şeklinde ekleme yapın. Kod kendiliğinden *Nick* şekline dönüştürecektir.

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

kardeşim tmm oldu..çok teşekkür ederim.. şu an ki en büyük skıntı flood korumaları.. bu mesajları 10 15 sn aralıklarla göndertebilirmiyiz? yukarıdan aşağıya nicklere 10 ar saniye aralıklarla gönderecek mesela

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

belki bilgin vardır ama gene hatırlatayım on *:join:#kanal kanal yazan yere kanalını yazmalısın veya on *:join:#: seklınde bırak kanal ısmı yazarsan tek kanalda calısır yazmazda # seklınde bırakırsan tum kanallarda calısır

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Kod:

alias tara {

  var %csr = 1

  while (%csr <= $nick(%chan,0)) {

    var %mesajnick = $nick(%chan,%csr)

    if ($level($nick(%chan,%csr)) == Mesaj) {  msg %mesajnick %mesaj }

    inc %csr

  }

}

Şu kısmı

Kod:

alias tara {

  var %csr = 1

  while (%csr <= $nick(%chan,0)) {

    var %mesajnick = $nick(%chan,%csr)

    if ($level($nick(%chan,%csr)) == Mesaj) { .timer 1 10 msg %mesajnick %mesaj }

    inc %csr

  }

}

Boyle Olarak degisitirirsin , Kırmızı olan yeri kac saniye araliklarla mesaj gondermek istiyorsan ona gore oraya sayi belirtirsin

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Alıntı:

muratt_aziz Nickli Üyeden Alıntı (Mesaj 1040673324)

Kod:

#mrt on

alias tara {

  var %mrtt = 1

  while (%mrtt <= $nick(#,0)) {

    var %Bad = $nick(#,%mrtt)

    if ($level($nick(#,%mrtt)) == nnick) { .timer 1 $calc(%mrtt * 10) msg %bad %swsw  7Tarih :14 $date 7Saat :14 $time  }

    inc %mrtt

  }

}

on *:join:#kanal:if $ulist($nick,nnick,0) { inc -eu300 $+(%,$nick,#) 1 | if $($+(%,$nick,#),2) == 1 { msg $nick %swsw } }

#mrt end

menu * {

  Arkadaş Nick

  .aç:enable #mrt | set %swsw $$?="mesajınızı yazınız:"

  .kapat:disable #mrt

  .tara:tara

  .listeyi gör:gör

  .ekle:auser nnick $$?="nick yazınız:" $+ *

  .çıkart:ruser nnick $$?="nick yazınız:" $+ *

}

alias gör  { 

  $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

  if ($ulist(*,nnick,0) != $null) { 

    set %cnt.shit 0

    while (%cnt.shit < $ulist(*,nnick,0)) { 

      inc %cnt.shit 1 

      echo @Görüntüleme $ulist(*,nnick,%cnt.shit) 

    }  

    unset %cnt.shit 

  }

}

tektar ekleme yapayım on *:join:*:#kanal: burdaki kırmızı yere kanalının adını yazman gerekli veya on *:join:*:#: şekilde bırakmalısın # şeklinde kalırsa tüm kanallarda aktif olur on *:join:*:#kanal: kanalını yazarsan yanlız adını yazdığın kanalda çalışır

kırmızı yerdeki 10 saniyeyi temsil eder 10 saniyeyi ordan değiştirebilirsin

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 1040673433)

Kod:

alias tara {

  var %csr = 1

  while (%csr <= $nick(%chan,0)) {

    var %mesajnick = $nick(%chan,%csr)

    if ($level($nick(%chan,%csr)) == Mesaj) {  msg %mesajnick %mesaj }

    inc %csr

  }

}

Şu kısmı

Kod:

alias tara {

  var %csr = 1

  while (%csr <= $nick(%chan,0)) {

    var %mesajnick = $nick(%chan,%csr)

    if ($level($nick(%chan,%csr)) == Mesaj) { .timer 1 10 msg %mesajnick %mesaj }

    inc %csr

  }

}

Boyle Olarak degisitirirsin , Kırmızı olan yeri kac saniye araliklarla mesaj gondermek istiyorsan ona gore oraya sayi belirtirsin

senin verdiğin kod mesajı 10 saniye sonra yollamaya başlar 10 saniyede bir kişiye yollamaz
10 saniye sonra gene fold a düşer

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

abi saniye olayı olmadı kodu aynen kopyaladım 10 sn de bir göndersin diye de hiç bişeye dokunmadım.. ama yok. tara dediğim anda
hepsine zırt diye mesj gidiyo
flood a düşüyorum

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

hangi kodu kullanıyorsun buraya kopyalarmısın

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Alıntı:

muratt_aziz Nickli Üyeden Alıntı (Mesaj 1040674273)

hangi kodu kullanıyorsun buraya kopyalarmısın

#mrt on
alias tara {
var %mrtt = 1
while (%mrtt <= $nick(#,0)) {
var %Bad = $nick(#,%mrtt)
if ($level($nick(#,%mrtt)) == nnick) { .timer 1 $calc(%mrtt * 10) msg %bad %swsw 7Tarih :14 $date 7Saat :14 $time }
inc %mrtt
}
}
on *:join:#kanal:if $ulist($nick,nnick,0) { inc -eu300 $+(%,$nick,#) 1 | if $($+(%,$nick,#),2) == 1 { msg $nick %swsw } }
#mrt end
menu * {
Arkadaş Nick
.aç:enable #mrt | set %swsw $$?="mesajınızı yazınız:"
.kapat:disable #mrt
.tara:tara
.listeyi gör:gör
.ekle:auser nnick $$?="nick yazınız:" $+ *
.çıkart:ruser nnick $$?="nick yazınız:" $+ *
}
alias gör {
$iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
if ($ulist(*,nnick,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,nnick,0)) {
inc %cnt.shit 1
echo @Görüntüleme $ulist(*,nnick,%cnt.shit)
}
unset %cnt.shit
}
}

bunu kullanıyorum

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Alıntı:

RocknRolla Nickli Üyeden Alıntı (Mesaj 1040674264)

abi saniye olayı olmadı kodu aynen kopyaladım 10 sn de bir göndersin diye de hiç bişeye dokunmadım.. ama yok. tara dediğim anda
hepsine zırt diye mesj gidiyo
flood a düşüyorum

kod bende çalışıyor sıfır bir mircte denermisin o kodu

başka bir yol denedim bu aliaes kodunu daha önce görmüştüm biryerde denemek istedim çalıştı

eski kodda çalışıyor bunuda denedim umarım başka sorun çıkmaz

remote kodu

Kod:

#mrt on

alias kontrol {

  var %murtt = 1

  while (%murtt <= $nick(#,0)) {

    var %Badd = $nick(#,%murtt)

    if ($level($nick(#,%murtt)) == nnick) { _linedance msg %badd %swsw  7Tarih :14 $date 7Saat :14 $time  }

    inc %murtt

  }

}
 

on *:join:#:if $ulist($nick,nnick,0) { inc -eu300 $+(%,$nick,#) 1 | if $($+(%,$nick,#),2) == 1 { msg $nick %swsw } }

#mrt end

menu * {

  Arkadaş Nick

  .aç:enable #mrt | set %swsw $$?="mesajınızı yazınız:"

  .kapat:disable #mrt

  .tara:kontrol

  .listeyi gör:gör

  .ekle:auser nnick $$?="nick yazınız:" $+ *

  .çıkart:ruser nnick $$?="nick yazınız:" $+ *

}

alias gör  { 

  $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)

  if ($ulist(*,nnick,0) != $null) { 

    set %cnt.shit 0

    while (%cnt.shit < $ulist(*,nnick,0)) { 

      inc %cnt.shit 1 

      echo @Görüntüleme $ulist(*,nnick,%cnt.shit) 

    }  

    unset %cnt.shit 

  }

}

aliases kodu

Kod:

_linedance {

  if ($timer(.line.dance. $+ $cid) == $null) {

    hadd -m pnp.qcommand count. $+ $cid 1

    hadd -m pnp.qcommand 1. $+ $cid $1-

    _dolinedance 1

  }

  else {

    hinc -m pnp.qcommand count. $+ $cid

    hadd -m pnp.qcommand $hget(pnp.qcommand,count. $+ $cid) $+ . $+ $cid $1-

  }

}

_dolinedance {

  if ($hget(pnp.qcommand,$1 $+ . $+ $cid) != $null) {

    var %data = $ifmatch

    .timer.line.dance. $+ $cid -m 1 $calc(3500 - $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)

    %data

  }

  else hdel -w pnp.qcommand *. $+ $cid

}

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

hem remote kodunu remote a hem de aliases kodunu aliases kısmına mı kopyalayacağım ? yoksa sadece remote ı kopyalamam yeterli mi ?

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

merhaba arkadaşlar kodu bende kopyaladım remote' e işe yarıyor ama özel mesajlarda yanına tarihide atıyor o tarih çıkmasın istiyorum nasıl yapabilirim ?

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Lütfen bu konuda yardım edebilcek biri var mı ?

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

kopyalarmısın cıkan metni buraya text: echo veya $deltok( kullanıp kaldıra biliriz

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Merhaba Tarih : 28/05/2011 Saat : 04:56:19 böyle bir yazı çıkıyor mesajımızdan sonra .

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Ya ben tarih yazısını kaldırmayı başardım başka şekilde silerek o bölümü ama bu sefer mesela 1 saniye aralıklarla yolluyor ya mesajı ben onu arttırmak istiyorum nereyi değiştirmem lazım ?

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Kod:

on karsilama:join:#sohbet:{

  timer 1 3 msg $nick  $read(otomesaj1.txt) 

  echo 4 -at $nick

}

Abilerim Şuna Bi On Off Koyun Yaw Her Defasında Kapatmak İçin Remoteye Giriyom Sağ Tuşa Yüklesek :D

Birde Bu Kodun Her Girene Bi Defaya Mahsus Mesaj Atacak Seklinde Olanı Yokmu Sonra Ben Erkeğim Kardeşim Dedimya Nie Yazion Hala Diorlar :D

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Ben birşey sorcam bu belirlediğimiz nicklere toplu mesaj atma olayını , yine aynı belirlediğimiz nicklere sohbet kanalına girdiklerinde otomatik mesaj atmasını istesem nasıl yapılabilir bu peki ?

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Belirlediğim nick'e oto kick nasıl atarım + Belirlediğim nick Ahmet bu nickin yanında Ahmet17 olursa buna da kick atmak istiyorum.

içerisinde *Ahmet17* geçen kelimeler dahil kick nasıl atabilirim?

Bunu ekle çıkar nick şeklince nasıl yapabilirim.

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Akick komutunu kullanabilirsin, bkz: /cs help Akick

Cevap: Sadece belirli nicklere otomatik mesaj gönderme

Alıntı:

Giant Nickli Üyeden Alıntı (Mesaj 1042634633)

Kod:

#####################################################################

#   Başlık:Bad Nick v1.2

#   Yazar:Epic (http://epicnet.ru, irc.epicnet.ru:6667 #Code)

#   Açıklam:Kanala katılan kullanıcıları veritabanında tarar ve kötü kullanıcılara Kick+Ban atar.

#####################################################################
 

alias -l bn_set {

  %bn_badwords = scripts\BadNick\badwords.txt     | ;# Komut sözdizimi kullanımı: /bnb <*badword*> [Sayı] [sebep]

  %bn_excepts = scripts\BadNick\exceptions.txt    | ;# Komut sözdizimi kullanımı: /bne <*masknick*> [Sayı] [sebep]

  %bn_whitelist = scripts\BadNick\whitelist.txt   | ;# Komut sözdizimi kullanımı: /bnw <nick/host> [Sayı]

  %bn_database = scripts\BadUser\baduser.txt      | ;# Kick+Ban atılan nick kayıt txt yeri.

  %bn_bad_reason = Nickin badnick listesinde      | ;# Badnick'e kick+ban atılma sebebi.

  %bn_exc_reason = Sahte nick!                    | ;# Sahte isme kick+ban atılma sebebi.

  %bn_whi_reason = Muaf nick listesindesin        | ;# Muaf nick adı.

  %bn_length = 5                                  | ;# Bir nick'e verilen karakter sayısı.

}

---------------------------------------------------------------------

on !*:JOIN:#sohbet: bn_set | checknick $nick $chan

on !*:NICK: bn_set | var %nick $newnick | var %n 1 | while (%n <= $comchan(%nick,0)) { checknick %nick $comchan(%nick,%n) | inc %n }

---------------------------------------------------------------------

alias -l checknick {

  var %nick $1 | var %chan $2 | var %host $gettok($address(%nick,5),2,64)

  if ($read(%bn_whitelist,nw,$+(%nick,;*))) || ($read(%bn_whitelist,nw,$+(%host,;*))) {

    if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21

    .aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Muaf]14 %chan 15->07 %nick $+(12*!*@,%host) | halt

  }

  var %res_e $except(%nick) | if (%res_e) {

    tokenize 59 %res_e | if ($len(%nick) > $2) {

      if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21

      .aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Uzunluk]14 %chan 15-> $+(14,$chr(40),04,$2,+14,$chr(41),07) %nick $+(12*!*@,%host)

      if (!$read(%bn_database,nw,$+(*;,%host,;*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)

      if ($me isop %chan) { .mode %chan +b $address(%nick,2) | .kick %chan %nick $3- }

    } | halt

  }

  var %res_w $badword(%nick) | if (%res_w) {

    tokenize 59 %res_w | if ($len(%nick) > $2) {

      if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) .window -nk0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $mircexe 21

      .aline -hnp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+(10[,$time,]) 05[Kötü Kelime]14 %chan 15-> $+(14,$chr(40),04,$1,14,$chr(41),07) %nick $+(12*!*@,%host)

      if (!$read(%bn_database,nw,$+(*;,%host,;*))) .write -il1 %bn_database $+(%nick,;,%host,;,$3-)

      if ($me isop %chan) { .mode %chan +bb $+(%nick,!*@*) $address(%nick,2) | .kick %chan %nick $3- }

    }

  }

}

alias -l except { var %i 1 | while (%i <= $lines(%bn_excepts)) { var %str $read(%bn_excepts,n,%i) | var %mask $gettok(%str,1,59) | if (%mask iswm $1) return %str | inc %i } }

alias -l badword { var %i 1 | while (%i <= $lines(%bn_badwords)) { var %str $read(%bn_badwords,n,%i) | var %mask $gettok(%str,1,59) | if (%mask iswm $1) return %str | inc %i } }

---------------------------------------------------------------------

alias bnb {

  bn_set | if (!$1) { echo -a 05Kullanımı:12 /bnb <*Kötü Kelime*> [Uzunluk] [Sebep] | halt }

  if (!$read(%bn_badwords,nw,$+($1,;*))) {

    if ($2) var %bn_l $2 | else var %bn_l %bn_length | if ($3) var %bn_r $3- | else var %bn_r %bn_bad_reason

    var %bn_wstr $+($1,;,%bn_l,;,%bn_r) | .write -il1 %bn_badwords %bn_wstr | echo -a 04Kötü kelime ekli:12 %bn_wstr

  } | else echo -a 04Kötü kelime $+(,$1,) - listesinde yer alıyor.

}

alias bne {

  bn_set | if (!$1) { echo -a 05Kullanımı:12 /bne <*masknick*> [Uzunluk] [Sebep] | halt }

  if (!$read(%bn_excepts,nw,$+($1,;*))) {

    if ($2) var %bn_l $2 | else var %bn_l %bn_length | if ($3) var %bn_r $3- | else var %bn_r %bn_exc_reason

    var %bn_wstr $+($1,;,%bn_l,;,%bn_r) | .write -il1 %bn_excepts %bn_wstr | echo -a 03İstisna ekli:12 %bn_wstr

  } | else echo -a 03İstisna $+(,$1,) - listesinde yer alıyor.

}

alias bnw {

  bn_set | if (!$1) { echo -a 05Kullanımı:12 /bnw <nick/host> [Sebep] | halt }

  if (!$read(%bn_whitelist,nw,$+($1,;*))) {

    if ($2) var %bn_r $2- | else var %bn_r %bn_whi_reason

    var %bn_wstr $+($1,;,%bn_r) | .write -il1 %bn_whitelist %bn_wstr | echo -a 15MUAF ekli:12 %bn_wstr

  } | else echo -a 15Muaf $+(,$1,) - listesinde yer alıyor.

}

---------------------------------------------------------------------