alias engel {
  if !$1 { echo -a Engellenecek bir ip giriniz. | return }
  if !$regex($1,/^[0-9]/) || !$regex($1,\.) || $token($1,0,46) > 2 { echo -a Lutfen ilk iki hanesini yazacağınız "ip" giriniz. | return }
  if $read(engel.txt,w,$1) { echo -a Daha once bu ip'yi eklediniz. | return }
  echo -a Engel listesine $1 'i eklediniz.
  write engel.txt $1
}
on *:open:? {
  if $istok(NickServ Chanserv OperServ Radyo Sr,$nick,32) { echo -a SuLh bu. | return }
  set %:enick $nick
  whois  $nick
}
raw 378:*: {
  if $2 = %:enick {
    if $read(engel.txt,w,$token($4,1-2,46)) {
      ignore %:enick
      close -m %:enick
      msg %:enick Engel listemdesin!
    }
  }
}