| immortaL | 30 Kasım 2018 17:34 |
Girişte version Yasaklama
Kod:
menu * {
$iif(o isin $usermode,Version Koruması,$style(2) Version Koruması)
.Aç:.enable #versionkoruma
.Kapat:.disable #versionkoruma
.Diyalog:.yasakv
}
alias versionekle {
if $hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten var. | return }
hadd -m mnick $calc($hget(yasakli,0).item + $r(999,000)) $1-
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
echo -a Yasak version $qt($1-) eklendi.
}
alias versionsil {
if !$hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten yok. | return }
hdel $hfind(yasakli,$1-,1,W).data
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
echo -a Yasak version $qt($1-) silindi..
}
on *:start: {
hmake yasakli 1000
hload yasakli yasakli.aln
}
alias yasakliadd {
hadd -m yasakli $calc($hget(yasakli,0).item + $r(999,000)) $1-
hsave yasakli yasakli.aln
hload yasakli yasakli.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 yasakli $hfind(yasakli,$did($dname,1).seltext,1,W).data
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
vbdi $dname
}
if ($did = 3) { yasakliadd $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(yasakli,0).item) {
did -ac yasakvers 1 $hget(yasakli,%x).data
inc %x
}
}
#versionkoruma off
on 1:CTCPREPLY:*VERSION*: {
if o isin $usermode {
if $hfind(yasakli,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}
#versionkoruma end
|
