alias st { opdialog start 200 200 410 300 } 
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
  if $$1- != $null {
    if $$1 = a {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
    }
    if $$1 = b {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
    }
    if $$1 = c {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      .timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
    }
    if $$1 = d {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.w
      opendl.h
    }
    if $$1 = e {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.h
      opendl.w
    }
    if $$1 = f {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.mvr
    }
    if $$1 = g {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.b
    }
    if $$1 = h {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.t
    }
    if $$1 = i {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.l
    }
    if $$1 = j {
      dialog -m $$2 $$2
      set %temp.d $$2
      set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      opendl.r
    }
    if $$1 = k {
      dialog -m $$2 $$2
      set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
      set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
      dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
      if %temp.d.r1 = 1 {
        if %temp.d.r2 = 1 { opendl.r | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
      }
      if %temp.d.r1 = 2 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
        if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
      }
      if %temp.d.r1 = 3 {
        if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
        if %temp.d.r2 = 2 { opendl.t | opendl.r }
      }
      if %temp.d.r1 = 4 {
        if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
        if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
      }
    }
    if $$1 = ? {
      linesep
      linesep
      linesep
    }
  }
}
alias opendl.w {
  :start
  inc %temp.d.w 2 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlw off
}
alias opendl.h {
  :start
  inc %temp.d.h 2 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
  .timeropendlh off
}
alias opendl.wh {
  :start
  inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
  if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
  if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  .timeropendlwh off
}
alias opendl.mvr {
  set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
  set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
  :start2
  inc %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
  :end2
}
alias opendl.b {
  set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
  :start
  inc %temp.d.h 1 | dec %temp.d.y 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
  :end
}
alias opendl.t {
  :start
  inc %temp.d.h 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
  :end
}
alias opendl.l {
  :start
  inc %temp.d.w 1 | dec %temp.d.x 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias opendl.r {
  :start
  inc %temp.d.w 1
  dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
  if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
  :end
}
alias st { if ($dialog(start)) { dialog -x start } | dialog -md start start }
dialog Start {
  title "BagLantı Menusu"
  size -1 -1 207 147
  option dbu
  box "", 1, 4 0 102 125
  edit "", 2, 42 6 59 12
  text "Nick :", 3, 8 9 26 8
  text "Yedek Nick :", 4, 7 26 32 8
  edit "", 5, 42 24 59 12
  edit "", 6, 42 42 59 12
  text "Identd :", 7, 7 44 32 8
  edit "", 8, 42 60 59 12, autohs
  text "Fullname :", 9, 7 63 32 8
  text " Yazdigim Server'a Baglan", 10, 24 78 66 8
  box "", 11, 8 86 93 20
  edit "", 12, 13 92 84 13
  box "", 13, 4 125 200 21
  edit "                         ", 14, 8 130 193 13, read
  box "", 15, 108 0 95 125
}

alias md dll dll\mdc.dll $1 $2-
alias mdx dll dll\mdx.dll $1 $2-

on *:dialog:Start:init:0: {
  md BitBtn Create Start 28 11 214  198 31 > BagLan
  md BitBtn Create Start 29 221 12  178 41 > mIRCTurkiye
  md BitBtn Create Start 30 221 58  178 41 > Sohbet
  md BitBtn Create Start 31 221 106  178 41 > mIRCtr
  md BitBtn Create Start 32 221 153  178 41 > Zurna
  md BitBtn Create Start 33 221 201  178 41 > soyLe
  md BitBtn Icon 29 $shortfn(system\Star.ico)
  md BitBtn Icon 30 $shortfn(system\Star.ico)
  md BitBtn Icon 31 $shortfn(system\Star.ico)
  md BitBtn Icon 32 $shortfn(system\Star.ico)
  md BitBtn Icon 33 $shortfn(system\Star.ico)
  md BitBtn Icon 28 $shortfn(system\kes.ico)
  md BitBtn Color 28 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224) 
  md BitBtn downcolor 28 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 29 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224) 
  md BitBtn downcolor 29 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 30 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224) 
  md BitBtn downcolor 30 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 31 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224) 
  md BitBtn downcolor 31 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 32 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224) 
  md BitBtn downcolor 32 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md BitBtn Color 33 $rgb(25,2,2) $rgb(6,5,5) $rgb(0,25,255) $rgb(252,255,255) $rgb(2,0,0) $rgb(224,224,224) 
  md BitBtn downcolor 33 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  md  BitBtn Font 28 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 29 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 30 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 31 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 32 $rgb(255,252,252) 11  +b > Tahoma
  md  BitBtn Font 33 $rgb(255,252,252) 11  +b > Tahoma
  mdx MarkDialog $dname
  mdx SetColor $dname 3,4,7,9  text $rgb(245,2,0)
  mdx SetColor $dname   text $rgb(139,26,26)
  mdx SetColor $dname   text $rgb(0,0,85)
  mdx SetColor $dname  text $rgb(99,121,142)
  mdx SetFont 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20  -12 700 Tahoma
  mdx SetFont 14  -12 700 Tahoma 
  mdx SetColor $dname 2,5,6,8,14,12 background $rgb(9,1,1)
  mdx SetColor $dname 2,8,5,6,14,12 textbg $rgb(9,1,1)
  mdx SetColor $dname 2,5,6,8,14,12  text $rgb(255,252,252)
  did -a $dname 2 $me
  did -a $dname 5 User- $+ $rand(1,9999)
  did -a $dname 6 $emailaddr
  did -a $dname 8 $FuLLname
}
on *:signal:mdc: {
  if ($2 == Start) && ($3 == sclick) && ($4 == 28) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server $did(Start,12) | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 29) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 30) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 31) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 32) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
  if ($2 == Start) && ($3 == sclick) && ($4 == 33) { .nick $did(Start,2) | .anick $did(Start,4) | .identd On $did(Start,6) | .Fullname $did(Start,8) | .server irc.mIRCTurkiye.net | .timer 1 0 dialog -x Start }
}



on *:start:{
  if %sayac == $null {
    .set %sayac 1
    .did -a Start 14 Scriptinizin İlk Açılışı..
  }
  else {
    .inc %sayac
    .st
    .did -a Start 14 Scriptinizin Açma Sayınız: %sayac
  }
}