Hazır kod @who @spam penceresi.

alias who {  if $window(@Who) { clear @Who | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname  }  if $1 == ident { set -u10 %ids $2 | who * | halt }
  if $1 == full { set -u10 %fls $2 | who * | halt }
  who $1-
}
alias hAte.. { if $1 !isincs $2 { return $3 } | else { return $4 } }
raw *:*:{
  if $numeric == 352 {
    if %ids {
      if !$window(@Who) { window -glzk0 @Who -1 -1 800 600 Tahoma 11 | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname | Aline @Who (Bilgi) Sunucu üzerinde identler taranıyor.. }
      if $3 == %ids {     aline @Who $6 $chr(9) $3 $chr(9) $hAte..(G,$7,6Away değil,3Away) $chr(9) $hAte..(*,$7,6User,3Admin) $chr(9) $hAte..(r,$7,6Kayıtsız,3Kayıtlı) $chr(9) $4 $chr(9) $9-  }
      halt
    }
    if %fls {
      if !$window(@Who) { window -glzk0 @Who -1 -1 800 600 Tahoma 11 | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname | Aline @Who (Bilgi) Sunucu üzerinde identler taranıyor.. }
      if $+(*,%fls,*) iswm $9- {     aline @Who $6 $chr(9) $3 $chr(9) $hAte..(G,$7,6Away değil,3Away) $chr(9) $hAte..(*,$7,6User,3Admin) $chr(9) $hAte..(r,$7,6Kayıtsız,3Kayıtlı) $chr(9) $4 $chr(9) $9-  }
      halt
    }
    if !$window(@Who) { window -glzk0 @Who -1 -1 800 600 Tahoma 11 | aline @Who Nick $chr(9) Ident $chr(9) Away $chr(9) Admin $chr(9) +r(kayıtlı) $chr(9) Host $chr(9) Fullname | Aline @Who (Bilgi) $2 who.. }
    aline @Who $6 $chr(9) $3 $chr(9) $hAte..(G,$7,6Away değil,3Away) $chr(9) $hAte..(*,$7,6User,3Admin) $chr(9) $hAte..(r,$7,6Kayıtsız,3Kayıtlı) $chr(9) $4 $chr(9) $9-
    haltdef
  }
  if $numeric == 315 { haltdef }
  if $numeric == 229 {
    if %cns == Evet && $me isin $2- {
      if !$window(@Spam) { window -glzk0 @Spam -1 -1 800 600 Tahoma 11 | aline @Spam Nick $chr(9) Zaman $chr(9) Ceza $chr(9) Mask $chr(9) Sebeb $chr(9) Kelime | Aline @Spam (Bilgi) Bu pencerede kendi aldıgınız spamlar gösterilicek, şuandaki nickinize göre tarama yapılmakdadır.. }
      aline @Spam $gettok($9,1,$asc(!)) $chr(9) $7 $chr(9) $4 $chr(9) $3 $chr(9) $8 $chr(9) $10-   
      halt
    }
    if !%cns {
      if !$window(@Spam) { window -glk0 @Spam -1 -1 800 600 Tahoma 11 | aline @Spam Nick $chr(9) Zaman $chr(9) Ceza $chr(9) Mask $chr(9) Sebeb $chr(9) Kelime | Aline @Spam (Bilgi) $server spamfilter listesi! }
      aline @Spam $gettok($9,1,$asc(!)) $chr(9) $7 $chr(9) $4 $chr(9) $3 $chr(9) $8 $chr(9) $10-       
    }
  }
}
alias stats {
  if $1 == f  { if $2 == ! { set -u3 %cns evet | stats f | return } | stats f } | else { stats $1- }
}




menu @Who {
  .Who:who $$?"Kanal veya Nick yazınız.."
  .Ekranı temizle:clear $active




  .İşlemler
  ..Gzline:echo -a gzline $1 +1d Sunucudan uzaklaştırıldınız.
  ..Gline:echo -a gline $1 +1d Sunucudan uzaklaştırıldınız.
  .-
  ..Fullname Spam:echo -s spamfilter + u gzline - Sunucudan_Uzaklaştırıldınız. (.+!.+@.+: $+ $replace($14-,*,.,$chr(124),.,$chr(35),.,[,.,],.,$chr(32),.,^,.,%,.) $+ )$
  ..İdent Spam:echo -s spamfilter + u gzline - Sunucudan_Uzaklaştırıldınız.  ^(.+! $+ $3 $+ @.+:.+)$
  ..Nick Spam (Manuel):echo -s spamfilter + u gzline - Sunucudan_Uzaklaştırıldınız. ^( $+ $$?"Lütfen Nick yazınız $crlf Ali123 ali321 aliBL aliXA gibi nickler için $crlf Ali+ gibi ekleyin" $+ !.+@.+:.+)$ ?
  -
  .Kapat:window -c $active
}
menu @Spam {
  .Sil :{ .spamfilter del $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),5,32) $gettok($remove($1-,$chr(9)),6-,32) }
  .Yenile: { .clear $active | stats f }
  .-
  .Kapat: { window -c $active }
}