if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1dGNi9XeHQvZjUwL1hJPQ== }

 
alias k_start {

  hmake $1 $2

  hload $1 $+(remote\save\,$1,.save)

}

alias kstart {

  k_start kufur 1000

}

on *:start: { kstart }

 
on *:text:*:#: {

  if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {

    if $hfind(kufur,$1-,1,W).data {

      ban -u900 # $nick 2 | .kick # $nick %kufur.yazi 

      echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Küfür 1Sebebinden Atılmıştır.

    }

  }

}

alias kekle { 

  hadd -m kufur $calc($hget(kufur,0).item + 1) $1- 

  hsave kufur remote\save\kufur.save

}

 
alias yasak { dialog -m yasak yasak }

dialog yasak {

  title "Yasak Kelimeler..."

  size -1 -1 205 210

  option pixels

  edit "", 2, 121 19 68 23, multi return

  button "Ekle", 3, 121 60 60 17, flat

  button "Sil", 4, 121 86 60 17, flat

  button "Tamam", 5, 122 115 60 17, flat ok

  list 1, 11 18 103 183, size

  icon 6, 136 153 32 32

  box "", 7, 5 6 188 202

}

 
on *:dialog:yasak:sclick:*:{

  if ($did = 4) {

    hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data 

    hsave kufur remote\save\kufur.save

    deneme $dname

  }

  if ($did = 3) { kekle $did($dname,2) | deneme $dname  }

}

alias deneme dialog -x $1 $1 | dialog -m $1 $1

on *:dialog:yasak:init:0: {

  var %x = 1 

  while (%x <= $hget(kufur,0).item) { 

    did -ac yasak 1 $hget(kufur,%x).data 

    inc %x 

  }

}

 
alias kaydet {

  var %q 1

  while (%q <= $hget(kufur,0).item) {

    write kufur.txt $hget(kufur,%q).data

    inc %q

  }

}