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

Bunu denermisin.. (buradaki liste fullname.txt) senin fullname list nasıl ise o şekilde değiştir.. mirc.txt gibi...

PHP- Kodu:

   on *:snotice:*client connect*:who $9

raw 352:*:kontrol $9- $6

alias kontrol var %1 1 | while %1 <= $lines(fullname.txt) { if $regex($1,$read(fullname.txt,%1)) { zline $2 :sebeb. | return $true } | inc %1 } | return $false

Alternatif olarak önerebileceğim bi kod daha yazıyorum. (muhtemel olasılıkla üstteki kodun çalışmaması ihtimaliyle)

PHP- Kodu:

   menu menubar,status,channel { 

  - 

  Kötü fullname 

  .$iif($group(#bfname) == on,Kapat,Aç):$+(.,$iif($group(#bfname) == on,dis,en),able) #bfname 

  .- 

  .Kelimeler:$iif(!$exists(bfnameads.txt),write -c bfnameads.txt) | run bfnameads.txt 

  .- 

  .Ceza 

  ..$iif(%bfname.ceza == kick,$style(2)) Kick:set %bfname.ceza kick 

  ..$iif(%bfname.ceza == kban,$style(2)) Kick Ban:set %bfname.ceza kban 

  ..$iif(%bfname.ceza == kill,$style(2)) Kill:set %bfname.ceza kill 

  ..$iif(%bfname.ceza == kline,$style(2)) Kline:set %bfname.ceza kline 

  ..$iif(%bfname.ceza == gline,$style(2)) Gline:set %bfname.ceza gline 

  ..- 

  ..Ban süresi $+([,$iif(%bfname.sure != 0,$calc($v1 /60)),d]) :if $$?="Kaç dakika süresince banlı kalsın? (Süresiz için 0 yazın)" { set %bfname.sure $calc(60* $!) } 

  ./Wholar arası zaman 

  ..$iif(%bfname.delay == evet,Kapat,Aç):set %bfname.delay $iif(%bfname.delay == evet,hayir,evet) 

  ..- 

  ..Yardım?:echo $color(info) -at * Kanala giren herkese anında /who çekmek yerine belirli bir süre sonra işlem yapmak, flooddan korunmak için bir yöntem. 

} 

on *:LOAD:{ 

  echo $color(info) -at * Kötü fullname koruması addonu yüklendi. 

  set %bfname.ceza kban 

  set %bfname.delay evet 

  set %bfname.sure 0 

  write -c bfnameads.txt 

  echo $color(info) -at * Varsayılan ayarlar yapıldı, ayarları değiştirmek için popupsları kontrol ediniz. 

} 

on *:UNLOAD:{ 

  unset %bfname.* 

  echo $color(info) -at * Kötü fullname koruması kaldırıldı, ayarlar silindi. 

} 

#bfname on 

on !*:JOIN:#:{ 

  if $me !isop # && $istok(kick kban,%bfname.ceza,32) { return } 

  if !$($+(%,bfnw.,$nick),2) { 

    set -z $($+(%,bfnw.,$nick),1) 4 

    var %' = $+(%,bfnc.,$nick) 

    if !$(%',2) { 

      if %bfname.delay == evet { inc -eu3 %bfname.q 3 | .timer 1 %bfname.q who $nick } 

      else { who $nick } 

      set $(%',1) # 

    } 

  } 

} 

raw *:*:{ 

  if $istok(315 352,$numeric,32) { 

    if $numeric == 315 { 

      if $($+(%,bfnc.,$2),2) { unset $($+(%,bfnc.,$2),1) | halt } 

    } 

    if $numeric == 352 { 

      if $($+(%,bfnc.,$6),2) && $bfname.check($strip($9-)) { 

        if $istok(kill kline gline,%bfname.ceza,32) { 

          %bfname.ceza $6 Fullname'iniz kötü söz/reklam içerdiğinden serverdan uzaklaştırıldınız. 

        } 

        elseif $istok(kick kban,%bfname.ceza,32) { 

          var %: = 1 | while $comchan($6,%:) { var %; = $v1 | if $me isop %; && $6 isreg %; { $iif(%bfname.ceza == kick,kick,ban $iif(%bfname.sure != 0,-ku $+ $v1,-k)) %; $6 $iif(%bfname.ceza == kban,2) Fullname'iniz kötü/söz reklam içeriyor. } | inc %: } 

        } 

      } 

    } 

    halt 

  } 

} 

alias bfname.check { 

  if $1 { 

    var %: = 1, %_ = $regsubex($replace($1-,©,c,®,r,3,e),/[^a-z.]+/gi,) | while $read(bfnameads.txt,%:) { 

      if $v1 iswm %_ { return $true } 

      inc %: 

    } 

    return $false 

  } 

} 

#bfname end