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

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

- - Debug koruma (https://www.ircforumlari.net/mirc-scripting-sorunlari/385146-debug-koruma.html)

slm arkadaşlar bu kodu düzenleye bilirmiyiz

anlamadım atlama yapıyor cok yasak listesindekileri *ali* gibi ekliyorum

artı profosyonel yardıma ihtiyac duymaktayım :)
muaf nick eklemek gerekiyor atılan banı acanı kufretmıs gıbı gorup atıyor

Kod:

alias sahr1 { tokenize 32 $1-

  set %dbg $5-

  set %debugkrm $remove($gettok($2,1,33),:)

  if $ulist(%dbg,arkadas,0) { tumban %debugkrm

  }

  if (*NICK* iswm $3-) {

    set %dbgn $4-

    if $ulist(%dbgn,arkadas,0) { 

     tumban %dbgn

    }

  }

  if (*JOIN* iswm $2-) {

    set %dbgj $remove($gettok($2,1,33),:)

    if $ulist(%dbgj,arkadas,0) {

      tumban %dbgj 

    }

  }

}

alias tumban {

  if $1 == $me || $comchan($1,1) == $null { halt }

  set %kanalsayisi $comchan($1,0)

  var %xzx = 1

  while (%xzx <= %kanalsayisi) {   

  echo -a ban -u300 $comchan($1,%xzx) %debugkrm Yasak %dbgj | inc %xzx }

}

debug cıktıları
<- :ALone_Man_iStt!Sohbet@88.249.EFC1D372.86304199 PRIVMSG #sohbet ::) ılgıncc

<- :CoK_SaPiK_F_GeLSiN!KELEBEK@95.70.3D5640E2.4376196 3 JOIN :#sohbet

<- :meLinDa!hayri@65.34.20F90DBE.9C8A4CF2 NICK :misafir

Cevap: Debug koruma

Kod:

on *:start: {

  debug -i on sahr1

}
 

alias sahr1 {

  tokenize 32 $1-

  if ($1 != <-) { halt } 

  if ($3 == join) {

    var %nick $right($gettok($2,1,33),-1),%chan $right($4,-1)

    if ($ulist(%nick,arkadas,0)) {

      tumban %nick

    }

  }

  if ($3 == nick) {

    var %nick $right($4,-1) 

    if ($ulist(%nick,arkadas,0)) {

      tumban %nick

    }

  }

}

alias tumban {

  if $1 == $me || $comchan($1,1) == $null { halt }

  set %kanalsayisi $comchan($1,0)

  var %xzx = 1

  while (%xzx <= %kanalsayisi) {   

    ban -u300 $comchan($1,%xzx) %debugkrm Yasak %dbgj 

    inc %xzx

  }

}

nasil bir kod istedigini anlamadim anladigim kadariyla arkadas listende olan kisiye ban attiriyorsun galiba oyle birsey artik ben arkadas listesinde ekli olana ban atiyor olarak ayarlattim

boyle calismasi gerekdenemedim ama genede bir dene , /debug -i on sahr1 yaparsin kodu ekledigin zaman

Cevap: Debug koruma

arkadas listemde bulunan nick girerse banlayacak kanalda nick değiştiğinde listedeki nicki alıyorsa gene banlanacak

+ kanalda listedeki bir nicki söyleyende banlanacak :)

aslında kod calıstı yarım yamalak

muaf nick eklemezsek banı acan kişiyi de atıyor :)

Cevap: Debug koruma

muaf ekleme kolay , kod calisiyormu onu denedinmi ? , bana o bilgiyi ver :)

Cevap: Debug koruma

malesef calışmadı

Cevap: Debug koruma

Kod:

on *:start: {

  debug -i on sahr1

}
 

alias sahr1 {

  tokenize 32 $1-

  if ($1 != <-) { halt } 

  if ($3 == join) {

    var %nick $right($gettok($2,1,33),-1),%chan $right($4,-1)

    if ($ulist(%nick,arkadas,0)) {

      tumban %nick

      echo -a %nick Banlandi!

    }

  }

  if ($3 == nick) {

    var %nick $right($4,-1) 

    if ($ulist(%nick,arkadas,0)) {

      tumban %nick

      echo -a %nick Banlandi!

    }

  }

}

alias tumban {

  var %xzx = 1

  while (%xzx <= $chan(0)) {   

    ban -k $chan(%xzx) $1 Yasak 

    inc %xzx

  }

}

Kod boyle calisiyor arkadas listesine ekledigin kanala girerse yada nick degisirse banlar baskada muaf eklencek bir sey yok arkadas listesinde ne ekliyse ona islem yapar , hayirli IF'ler.

Cevap: Debug koruma

arkadas lıstem olmayanlarıda banlarmı :)

Cevap: Debug koruma

Alıntı:

Kod boyle calisiyor arkadas listesine ekledigin kanala girerse yada nick degisirse banlar baskada muaf eklencek bir sey yok arkadas listesinde ne ekliyse ona islem yapar , hayirli IF'ler.

bosunami yazdim yaziyi , okumak gerekir digil'mi ? bak siyah eden kısımda ne yaziyor.

Cevap: Debug koruma

set teşekurler lgine öncelikle kodun ban kısmına echo -a ekleyıp kalaba bır sunucuya geremısın sıradan banlıyor kod secme yok

Cevap: Debug koruma

Kod:

#debug off

alias sahr1 { 

  tokenize 32 $1-

  if (*PRIVMSG* iswm $3-) { set %debugkrm $remove($gettok($2,1,33),:)

    if $ulist($5-,DBG,0) { allban %debugkrm }

  }

  if (*NICK* iswm $3-) {  if $ulist($4-,DBG,0) { allban $remove($gettok($4,1,33),:) } 

  }

  if (*JOIN* iswm $3-) { set %debugj $remove($gettok($2,1,33),:)

    if $ulist(%debugj,DBG,0) {  allban %debugj } 

  }

}

alias allban {

  var %x = $comchan($1,0) 

  var %a = 1

  while %a <= %x {

    echo -a   mode $comchan($1,%a) +b $1

    echo -a  mode $comchan($1,%a) +b $address($1,4)

    if $1 ison $comchan($1,%a) { echo -a kick $comchan($1,%a) $1 %dbgysk }

    inc %a

  }

}

#debug end
 

menu * {

  DEBUG Koruması

  .Korumayı aç:enable #debug | debug -i on sahr1

  .Korumayı kapat:disable #debug | debug -c off

  .ekle:auser DBG * $+ $$?="Yasak nick veya kelime:" $+ * 

  .çıkart:ruser DBG * $+ $$?="Yasağı Kalkacak nick veya kelime:" $+ * 

  .yasaklama mesajın:set %dbgysk $$?="yasaklama mesajınızı yazınız:"

  .Liste { 

    var %i 1

    while $ulist(*,DBG,%i) {

      kufur $ifmatch 

      inc %i 

    }

  }

}
 

alias kufur {

  if (!$window(@Yasaklist)) { window -e @Yasaklist }

  echo @Yasaklist $+($chr(40),$time,$chr(41),$chr(32),$1-)

}

on *:start: {

  debug -i on sahr1

}