IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - $ifmatch kullanımı [bir kod koruma lazım]

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

- - $ifmatch kullanımı [bir kod koruma lazım] (https://www.ircforumlari.net/mirc-scripting-sorunlari/1723-ifmatch-kullanimi-bir-kod-koruma-lazim.html)

böyle yapılmış bişey var, türkçeleştirdim. bide filtre identifierini yazdım.

Alıntı:

;kullanımı:

; $isspam(<yazı>,<kanal>,<wc>) (w website reklamı, c kanal reklamı)

;kodları:

alias _isspam {
if ($isid) {
if (w isin $3) {
var %prot.temp 1
while ($gettok($strip($1-),%prot.temp,32)) {
if ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $gettok($strip($1-),%prot.temp,32) || [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iswm $gettok($strip($1-),%prot.temp,32)) { return $true }
inc %prot.temp
}
}
if (c isin $3) {
var %prot.temp 1
while ($gettok($strip($1-),%prot.temp,32)) {
if (#* iswm $gettok($strip($1-),%prot.temp,32) && $gettok($strip($1-),%prot.temp,32) != $2) { return $true }
inc %prot.temp
}
}
return $false
}
}

on @*:text:*:#:{
if ($isspam($1-,$chan,c)) { kick $chan $nick kanal reklamı: $filtre }
}

alias filtre {
var %i 1,%c
while %i <= $numtok($1-,32) {
%c = %c %4$s $chr(32) %4$s $left($gettok($1-,%i,32),3) %4$s ..
inc %i
}
return %c
}

bi dene, ben gelişi güzel baktım normaldi. birazı hazır kod, birazınıda ben ekledim çıkardım. umarım çalışır. benim eklediğim kısım çalışıyo ama hazır kodu test etmedim :)

kanala yapılan reklam için tabi bu.

sanada ne versek çalışmıyo. neyse benim eklediğim identifier çalışıyo. şu hani dier sayfada arkadaş eklemiş ya koruma, orda reklam mesajını gizleyip yazsın diyodun hani. onun için kullan şunu:

alias filtre {
var %i 1,%c
while %i <= $numtok($1-,32) {
%c = %c $+ $chr(32) $+ $left($gettok($1-,%i,32),3) $+ ..
inc %i
}
return %c
}

bu kod $filtre komutuna döner. $1- içeren yerde kullanılır. kendisi algılar. event içerisinde yani. oke? herşey hazır kardeşim birazınıda kendiniz yapın bu kadar beleşçi olmayın alla alla :)

calismayan koda calisiyor diyemem ya :)

%4$s diye bişe yazmadım ama bu şekilde paste etmiş kodumu garip, $+ die düzelttim :) böle dene gözümden kaçmış.

vallaha calistiramadim :( calissa basimin gozumun üstünede calismadi,calistiramadim. dedigin sekilde yaptim ama..:smack:

Cevap: $ifmatch kullanımı [bir kod koruma lazım]

konuyu hortlatmak gibi olmasin lakin cevabı yazayım belki birilerinin işine yarar ;

Kod:

alias noktala { 

  var %getvar = $strip($1-), %retvar = $null, %i = 1

  while $iif($regex(%getvar,\.),$gettok(%getvar,%i,46),$gettok(%getvar,%i,32)) {

    var %fmatch = $ifmatch

    var %rf = $iif($len(%fmatch) <= 5,3,$rand(3,5))

    %retvar = $+(%retvar,$chr(32),$left(%fmatch,%rf),$str(.,$calc($len(%fmatch) - %rf)))

    inc %i 1

  }

  return %retvar

}

kullanımı :

Kod:

$noktala($mid($gettok(%temp,4-,32),2,600)