$gurkan(isimsiz,$1-,kufur.txt)

 
alias gurkan {
if !$istok(isimsiz ,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false)
}

 
$gurkan(isimsiz,kufur.txt,$1-)

alias gurkan {
if !$istok(isimsiz,$1,32) { return $false }
goto $1
:isimsiz
var %· = 1 | while $read($2,%·) { if $v1 iswm $3- { return $true } | inc %· } | return $false)
}

alias gurkan {
  if !$istok(isimsiz,$1,32) { return $false }
  goto $1
  :isimsiz
  var %· = 1 | while $read($2,%·) { if $v1 isin $3- { return $true } | inc %· } | return $false)
}
on @*:text:*:#:if $gurkan(isimsiz,kufur.txt,$1-) { .mode $chan +b $wildsite | kick $chan $nick 1 Argo İçerikli Kelime Kullanmak Yasaktir.. %logo }
alias antipity { dialog -m antipity antipity } 
dialog antipity {
  title "BadNick & Kufur Koruma"
  size -1 -1 226 102
  option dbu
  list 2, 38 22 70 58, size
  list 5, 118 22 70 58, size
  edit "", 10, 38 12 70 10
  edit "", 11, 118 12 70 10
  box "KARA LiSTE", 6, 5 3 107 81
  box "KUFUR", 7, 114 3 107 81
  button "T A M A M", 1, 38 87 148 12,ok
  button "EKLE", 3, 10 14 24 28
  button "KALDIR", 4, 10 45 24 28
  button "EKLE", 8, 192 14 24 28
  button "KALDIR", 9, 192 45 24 28
}
on *:dialog:antipity:INIT:*: {
  if ($isfile(badnick.txt) == $false) { write -c badnick.txt } | else { loadbuf -o $dname 2 badnick.txt } 
  if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 5 kufur.txt } 
  if (%badnick) .didtok $dname 2 32 $ifmatch 
  if (%kufur) .didtok $dname 5 32 $ifmatch
}
on *:dialog:antipity:sclick:*:{
  if ($did == 3) { write badnick.txt $did(10) | did -a $dname 2 $did(10) | did -r $dname 10 }
  if ($did == 8) { write kufur.txt $did(11) | did -a $dname 5 $did(11) | did -r $dname 11 }
  if ($did == 4) { write -dl $+ $did(2).sel badnick.txt | did -d $dname 2 $did(2).sel } 
  if ($did == 9) { write -dl $+ $did(5).sel kufur.txt | did -d $dname 5 $did(5).sel }
}
on *:dialog:antipity:sclick:1:{ 
  set %badnick $didtok($dname,2,44)
  set %kufur $didtok($dname,5,44)
}

[13:57:41] <ChanServ> deneme
3«13:57:41» • Mode : Toprak mode değiştirdi +b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net
«13:57:41» • Kick : ChanServ , Toprak Tarafından Atıldı Sebep: (1 Argo İçerikli Kelime Kullanmak Yasaktir..)
[14:06:02] <ChanServ> selam deneme selam
3«14:06:02» • Mode : Toprak mode değiştirdi +b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net
«14:06:02» • Kick : ChanServ , Toprak Tarafından Atıldı Sebep: (1 Argo İçerikli Kelime Kullanmak Yasaktir..)