alias küfür {
  if $1 == ekle {  
    hadd -m wall $r(1000,999999) $2-
    hsave kufur wall
    msg %operchan Yasak Kelime Eklendi: $2-
  }
  elseif $1 == sil {
    if $hfind(wall,$2-,1,W).data {
      hdel wall $ifmatch
      hsave kufur wall
      msg %operchan Yasak Kelime Silindi: ( $+ $ifmatch $+ ) $2-
    }
    else {
      msg %operchan Silmeye çalıştıgınız Yasak kelime listede yok,  $+(,$nick,)
    }
  }
  elseif $1 == liste {
    msg %operchan $+(,$nick,) Yasak Kelime listesi listeleniyor
    var %x = 1 
    while (%x <= $hget(wall,0).item) { 
      msg %operchan 4 $+ $hget(wall,%x).data 
      inc %x 
    }
    msg %operchan $+(,$nick,) Yasak Kelime liste sonu..
  }
}