Çevrimdışı

alias kapat dialog -x $dname $dname

alias lock did -b $dname $1-
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias mdxinit { mdx SetMircVersion $version | mdx MarkDialog $dname }
alias badnick {
if -* iswm $1- {
hdel badnick $hfind(badnick,$remove($1-,-),1,W).data
hsave badnick badnick.data
echo -a $remove($1-,-) Datası Kaldırıldı
}
elseif $1 == list {
echo -a ----------BadNick Listeniz------------
var %i = 1
while %i <= $hget(badnick,0).item {
echo -a %i $+ -) $hget(badnick,%i).data
inc %i
}
}
else {
hadd badnick $r(0,999999) $1-
hsave badnick badnick.data
echo -a $1- Datası Eklendi...
}
}
on *:start: {
if !$findfile($mircdir,badnick.data,1) {
hmake badnick 100
hsave badnick badnick.data
.set %ilkacilis 1
dialog yukle yukle
}
else {
hmake badnick
hload badnick badnick.data
dialog -m yukle yukle
}
}
on 1:join:#: {
if $chan == #adana || $chan == #mersin || $chan == #izmir || $chan == #canavar || $chan == #ankara || $chan == #elma || $chan == #istanbul {
if $me isop $chan {
if $hfind(badnick,$nick,1,W).data {
ban -ku300 $chan $nick 2
10,1ßåd Ñï¢k KuLLåñdIgInIz t€$pït €dïLdï. 6,1ßåñLåñdInIz. 4Nick1:12 $$1 ! 0,1ßÿ. Ñêw¥ørk.
}
}
}
}
alias _oynat {
var %i = 1
while %i <= 100 {
if %i == 100 {
.timer.degistir 1 2 did -a $dname 2 $iif(%ilkacilis != $null,Oluşturuldu!,Okundu!)
.timer.ac 1 2 did -e $dname 2
halt
}
else {
.timer 1 2 did -a $dname 3 %i 0 100
inc %i
}
}
}
dialog yukle {
size -1 -1 325 113
title "Dialog"
text "Script Bilgileri Yükleniyor, Lütfen Bekleyin...",1,23 11 279 25
button "Yükleniyor...",2,22 68 281 30, flat
text "0 0 100",3,22 43 280 24
}
on *:dialog:yukle:*:*:{
if $devent == init {
mdxinit
mdx SetControlMDX $dname 3 ProgressBar > ctl_gen.mdx
if %ilkacilis { did -ra $dname 1 BadNick Dataları Oluşturuluyor... | did -ra $dname 2 Oluşturuluyor... | unset %ilkacilis }
else { did -ra $dname 1 BadNick Dataları Okunuyor | did -ra $dname 2 Okunuyor... }
lock 2
$_oynat
}
if $devent == sclick {
kapat
}
}

Bu şekilde bi dene bakalım...