alias @-kontrol { dialog -m @-kontrol @-kontrol }

dialog @-kontrol {
  title "@p Kontrol"
  icon icons\silver.ico, 0
  size -1 -1 229 380
  option pixels
  icon 1, 1 -1 230 160, images\pperfect.png, 0 noborder
  list 2, 5 167 23 218
  text "Op Ver", 3, 28 170 84 17
  text "Halfop Ver", 4, 28 191 84 17
  text "Voice Ver", 5, 28 212 84 17
  text "Ban + Kick", 6, 28 233 84 17
  text "+N", 7, 28 254 84 17
  text "+R", 8, 28 275 84 17
  text "+i", 9, 28 296 84 17
  text "+M", 10, 28 316 84 17
  text "+m", 11, 28 337 84 17
  list 12, 117 166 23 218
  text "Op Al", 13, 140 169 85 17
  text "Halfop Al", 14, 140 190 85 17
  text "Voice Al", 15, 140 211 85 17
  text "Sadece Ban", 16, 140 232 85 17
  text "-N", 17, 140 253 85 17
  text "-R", 18, 140 274 85 17
  text "-i", 19, 140 295 85 17
  text "-M", 20, 140 315 85 17
  text "-m", 21, 140 336 85 17
}

on *:dialog:@-kontrol:init:*:{
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 +a 14 900 Tahoma
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 text $rgb(210,210,210)
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 textbg $rgb(31,31,31)
  mdx SetDialog $dname bgcolor $rgb(31,31,31)
  mdx SetColor $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 background $rgb(31,31,31)
  mdx SetControlMDX $dname 2,12 Toolbar arrows wrap nodivider noresize flat > $bars
  mdx SetBorderStyle 2,12
  ;
  did -i $dname 2,12 1 bmpsize 15 15
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 2 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  did -i $dname 12 1 setimage +nh icon big icons\silver.ico
  ;
  did -a $dname 2 +a 1 $chr(32) $chr(9) $+ +o
  did -a $dname 2 +a 2 $chr(32) $chr(9) $+ +h
  did -a $dname 2 +a 3 $chr(32) $chr(9) $+ +v
  did -a $dname 2 +a 4 $chr(32) $chr(9) $+ +b nick!*@* + kick
  did -a $dname 2 +a 5 $chr(32) $chr(9) $+ +N
  did -a $dname 2 +a 6 $chr(32) $chr(9) $+ +R
  did -a $dname 2 +a 7 $chr(32) $chr(9) $+ +i
  did -a $dname 2 +a 8 $chr(32) $chr(9) $+ +M
  did -a $dname 2 +a 9 $chr(32) $chr(9) $+ +m
  did -a $dname 12 +a 1 $chr(32) $chr(9) $+ -o
  did -a $dname 12 +a 2 $chr(32) $chr(9) $+ -h
  did -a $dname 12 +a 3 $chr(32) $chr(9) $+ -v
  did -a $dname 12 +a 4 $chr(32) $chr(9) $+ +b *!*@host
  did -a $dname 12 +a 5 $chr(32) $chr(9) $+ -N
  did -a $dname 12 +a 6 $chr(32) $chr(9) $+ -R
  did -a $dname 12 +a 7 $chr(32) $chr(9) $+ -i
  did -a $dname 12 +a 8 $chr(32) $chr(9) $+ -M
  did -a $dname 12 +a 9 $chr(32) $chr(9) $+ -m
}

on *:dialog:@-kontrol:sclick:*:{
  if $did == 2 {
    if $did($dname,2).sel == 2 {
      mode $active +o $nick
    }
    if $did($dname,2).sel == 3 {
      mode $active +h $nick
    }
    if $did($dname,2).sel == 4 {
      mode $active +v $nick
    }
    if $did($dname,2).sel == 5 {
      kick $active $nick
      mode $active +b $nick      
    }
    if $did($dname,2).sel == 6 {
      mode $active +N   
    }
    if $did($dname,2).sel == 7 {
      mode $active +R
    }
    if $did($dname,2).sel == 8 {
      mode $active +i
    }
    if $did($dname,2).sel == 9 {
      mode $active +M
    }
    if $did($dname,2).sel == 10 {
      mode $active +m
    }
  }
  if $did == 12 {
    if $did($dname,12).sel == 2 {
      mode $active -o $nick
    }
    if $did($dname,12).sel == 3 {
      mode $active -h $nick
    }
    if $did($dname,12).sel == 4 {
      mode $active -v $nick
    }
    if $did($dname,12).sel == 5 {
      mode $active +b $nick
    }
    if $did($dname,12).sel == 6 {
      mode $active -N   
    }
    if $did($dname,12).sel == 7 {
      mode $active -R
    }
    if $did($dname,12).sel == 8 {
      mode $active -i
    }
    if $did($dname,12).sel == 9 {
      mode $active -M
    }
    if $did($dname,12).sel == 10 {
      mode $active -m
    }
  }
}