Çevrimdışı

Hocam List Sorununu Cözemedim yazdım faKat Sadece söyle biy cıkıyor

on *:dialog:yasak1:init:0: {
var %x = 1
while (%x <= $hget(amekufur,0).item) {
did -ac yasak1 1 $hget(amekufur,%x).data
inc %x
}
mdx SetMircVersion $version
mdx MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8,9,10 -12 700 Tahoma
mdx SetControlMDX $dname 3,4,5 ToolBar flat wrap arrows nodivider list > $bars
mdx SetBorderStyle 3,4,5
did -i $dname 5 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 5 1 bmpsize 16 16
did -i $dname 5 1 setimage icon large Remote\dll\Kick.ico
did -a $dname 5 +a 1 Tamam \ Kapat $chr(9) $+ Tamam
did -i $dname 4 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage icon large Remote\dll\del.ico
did -a $dname 4 +a 1 Listeden Sil $chr(9) $+ Sil
did -i $dname 3 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 3 1 bmpsize 16 16
did -i $dname 3 1 setimage icon large Remote\dll\add.ico
did -a $dname 3 +a 1 Listeye Ekle $chr(9) $+ Ekle
if (%akuf1kick == 1) { did -c $dname 8 }
if (%akuf1kill == 1) { did -c $dname 9 }
if (%akuf1kline == 1) { did -c $dname 10 }
}