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 $chan $nick 2
		kick $chan $nick 4[Badnick Kullanıyorsunuz] 
	 }
	}
}
}
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
}
}