$iif($regex($nick,/geveze-org|nick1|nick2|nick3/Si), closemsg $nick)

on !*:text:*:?:{ 
  $iif($regex($nick,/geveze-org|nick1|nick2|nick3/Si), closemsg $nick)
  var %a 1
  while %a <= $lines(kufurs.txt) {
    if ($read(kufurs.txt,%a) isin $1-) { 
      ignore $nick 2
      msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. 
      echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- 
      closemsg $nick
      break 
    }
    inc %a 
  }
}

 on !*:text:*:?:{ 
  var %lcz 1
  while %lcz <= $numtok(%Kufurler,46) {
    if $gettok(%Kufurler,%lcz,46) isin $1- { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | .echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick | break }
    inc %lcz
  }
}

alias kekle if $1 { set %Kufurler $addtok(%Kufurler,$1-,46 }
alias klist var %lcz 1 | while %lcz <= $numtok(%Kufurler,46) { echo -a $+(%lcz,.) $gettok(%Kufurler,%lcz,46) | inc %lcz }
alias ksil if $1 { set %Kufurler $remtok(%Kufurler, $1-, 0, 46) }

alias ksil if $1 { set %Kufurler $remtok(%Kufurler,$1-,46) }

alias kekle if $1 { set %Kufurler $addtok(%Kufurler,$1-,46) }

//echo -a $remtok(bir.iki.üç.dört.bir,bir,1,46)

//echo -a $remtok(deneme1.deneme2.deneme3,deneme1,46)

//echo -a $remtok(deneme1.deneme2.deneme3,deneme1,0,46)

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,0,58)

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,58)

//echo -a $remtok(A:B:C:A:B:C:A:B:C,A,1,58)

$remtok(text,token,N,C)

Removes the Nth matching token from text. If N = 0, applies to all matching items.

 

$remtok(a.b.c.d,b,1,46)        returns a.c.d

$remtok(a.b.c.d,e,1,46)        returns a.b.c.d

$remtok(a.c.c.d,c,1,46)        returns a.c.d