alias spamcheck {
  var %::nick = $1
  if (*_* iswm $4-) && ($right($4,1) isnum) && ($5 == $null) { spch 1 %::nick $strip($4-) | halt }
  if ($right($gettok($4-,$numtok($4-,32),32),2) isnum) { spch 2 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  if ($right($4,1) isnum) && (!$5)  { spch 3 %::nick $strip($4-) | halt }
  if ($right($5,1) isnum) && (!$6)  { spch 4 %::nick $strip($4-) | halt }
  if ($right($4,1) == @) && (!$5)  { spch 5 %::nick $strip($4-) | halt }
  if ($right($gettok($4-,$numtok($4-,32),32),1) == f) && $mid($gettok($gettok($4-,$numtok($4-,32),32),$numtok($gettok($4-,$numtok($4-,32),32),32),32),$calc($len($gettok($4-,$numtok($4-,32),32)) -2),2)  { spch 6 %::nick $right($gettok($4-,$numtok($4-,32),32),1) | halt }
  if (*-* iswm $4) && (!$5)  { spch 7 %::nick $strip($4-) | halt }
  if (*_* iswm $5) && (!$6)  { spch 8 %::nick $strip($4-) | halt }
  if (*_* iswm $gettok($4-,$numtok($4-,32),32)) { spch 9 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  if (*-* iswm $gettok($4-,$numtok($4-,32),32)) { spch 10 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  if ($gettok($4-,$numtok($4-,32),32) isnum) { spch 11 %::nick $strip($gettok($4-,$numtok($4-,32),32)) | halt }
  var %t = 1 , %kelime = $strip($gettok($4-,0,32))
  var %cümle = $strip($4-)
  if (%kelime == 2) && ($len($strip($4)) >= 5) && ($strip($5) == @) { spch 12 %::nick $strip($4-) | halt }
  while (%t <= %kelime) {
    set %ara $strip($gettok($4-,%t,32))
    if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch 13 %::nick %ara | halt }
    if (*ekle* iswm %ara) && ($6) { spch 14 %::nick %ara $gettok($strip($4-),$calc(%t + 1),32) | halt }
    if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch 15 %::nick %ara | halt }
    if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch 16 %::nick %ara | halt }
    if (*_* iswm %ara) && (*@* iswm %ara) { spch 17 %::nick %ara | halt }
    if (*-* iswm %ara) && (*@* iswm %ara) { spch 18 %::nick %ara | halt }
    if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch 19 %::nick %ara | halt }
    if (*@h?* iswm %ara) { spch 20 %::nick $gettok($strip($4-),$calc(%t - 1),32) %ara | halt }
    if ($right(%ara,1) == f) && $mid($gettok(%ara,$numtok(%ara,32),32),$calc($len(%ara) -2),2) { spch 21 %::nick %ara | halt }
    if ($right($gettok($strip($4-),$calc(%t - 1),32),1) isnum) && $regex(%ara,/(.*hot.*|.*h0t.*)/i) { spch 22 %::nick $gettok($strip($4-),$calc(%t - 1),32) %ara | halt }
    inc %t 1
  }
}
on *:open:?:{
  set -u5 %nickw. [ $+ [ $nick ] ] warn
}
on *:text:*:?:{
  if (!%nickw. [ $+ [ $nick ] ]) { halt }
  spamcheck $nick x y $1-
}
alias spch {
  if !$window(@Spams) { window -ne @Spams }
  echo 4 -t @Spams Spam : $2 - Mesaj : $3-
  ;buraya kick ve spamfilter komutu örnek:
  spamekle $yildiztemizle($3-)
  echo 4 -t @Spams Eklenen Spam : $yildiztemizle($3-)
}
alias spamekle {
  spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
  spamfilter del cNnpa gzline +7200 Spam! $1-
}
alias yildiztemizle {
  var %y $+(.,?) , %yi
  if $numtok($1-,32) == 1 {
    var %1kelime 1
  }
  %yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
  if %1kelime {
    %yi = $+(^,%yi,$chr(36))
  }
  return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}