menu * {
$iif(o isin $usermode,Version Koruması,$style(2) Version Koruması)
.Aç:.enable #versionkoruma
.Kapat:.disable #versionkoruma
.Diyalog:.yasakv
}

on *:start: {
hmake versyasak 1000
hload versyasak versyasak.aln
} 



alias versyasakadd { 
  hadd -m versyasak $calc($hget(versyasak,0).item + $r(999,000)) $1-
  hsave versyasak versyasak.aln
  hload versyasak versyasak.aln
}

alias yasakv { dialog -m yasakvers yasakvers }
dialog yasakvers {
  title "Version Koruması"
  size -1 -1 292 210
  option pixels
  edit "", 2, 167 21 98 23, multi return
  button "Ekle", 3, 187 57 60 17, flat
  button "Sil", 4, 187 83 60 17, flat
  button "Tamam", 5, 186 112 60 17, flat ok
  list 1, 11 18 150 183, size
  icon 6, 187 140 32 32
  box "", 7, 5 6 274 202
}

on *:dialog:yasakvers:sclick:*: {
  if ($did = 4) {
    .hdel versyasak $hfind(versyasak,$did($dname,1).seltext,1,W).data 
    hsave versyasak versyasak.aln
    hload versyasak versyasak.aln
    vbdi $dname
  }
  if ($did = 3) { versyasakadd $did($dname,2) | vbdi $dname  }
}

alias vbdi dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasakvers:init:0: {
  var %x = 1 
  while (%x <= $hget(versyasak,0).item) { 
    did -ac yasakvers 1 $hget(versyasak,%x).data 
    inc %x 
  }
}

#versionkoruma off
on 1:CTCPREPLY:*VERSION*: { 
msg #security Sorgulanan Nick: $nick VERSION: $1-
if o isin $usermode {
  if $hfind(versyasak,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}
#versionkoruma end