menu channel,status,nicklist,menubar { 
  Ultimate Dialog:/dialog -m UltiDialog UltiDialog
}
dialog UltiDialog {
  title "The Ultimate Dialog"
  size -1 -1 1 1
  option dbu
  button "Access Controls", 1, 6 23 47 15
  button "Channel Modes", 2, 6 50 47 10
  button "Channel Controls", 3, 53 50 47 10
  button "Nick Controls", 4, 53 130 47 10
  button "Away Settings", 5, 53 23 47 15
  button "Programs", 6, 6 38 47 12
  button "Games", 7, 53 38 47 12
  button "Spitfire3292's Mp3 Player", 8, 6 60 94 10
  button "mIRC Customizer", 9, 6 110 94 10
  button "NickList Customizer", 10, 6 100 94 10
  button "Links", 11, 6 140 47 10
  button "Top Channels", 12, 102 23 70 23
  button "Top Bots", 13, 102 46 70 23
  button "Oliver's Ultimate BlackList", 14, 6 70 94 10
  button "Nick Modes", 15, 6 130 47 10
  button "Quit", 16, 102 137 70 33, ok cancel
  box "Tools", 18, 3 16 173 156
  link "www.swiftirc.net", 19, 136 5 43 8
  button "Oliver's Ultimate Translator", 20, 6 80 94 10
  button "Slang Translator", 21, 6 90 94 10
  button "Quick Keys", 22, 7 160 46 10
  button "Sound", 23, 6 150 47 10
  button "Memo", 24, 53 150 47 10
  button "Friend List", 25, 6 120 47 10
  button "The Ultimate Dialog", 26, 4 2 125 12
  box "", 27, 2 0 130 16
  button "Bot Serv", 28, 53 120 47 10
  button "Tobys Pc :D", 29, 53 140 47 10
  button "Remote Maker", 30, 102 69 70 23
  button "Dialog Maker", 31, 102 92 70 23
  button "Alias Maker", 32, 102 115 70 22
  button "Calculator", 33, 53 160 47 10
  text "Made By Tony-Thanks to SpitFire3293 Oliver #mIRC and Many More", 17, 7 172 167 8
}




dialog TopChans {
  title "Top Channels"
  size -1 -1 162 107
  option dbu
  button "#Idle", 1, 7 51 37 12
  button "#Baked", 2, 7 39 37 12
  button "#mIRC", 3, 7 27 37 12
  button "#irchelp", 4, 7 15 37 12
  box "Top Channels", 5, 3 7 155 96
  button "#Kitten", 6, 7 63 37 12
  button "#OSS", 7, 7 75 37 12
  button "#guildwars", 8, 7 87 37 12
  button "#Jdawg140", 9, 44 15 37 12
  button "#Bots", 10, 81 15 37 12
  button "#Vivec", 11, 118 15 37 12
  button "#RsHelp", 12, 44 27 37 12
  button "#IRCBots", 13, 81 27 37 12
  button "#Idle-Rpg", 14, 44 51 37 12
  button "#Zezima", 15, 44 63 37 12
  button "#thetavern", 16, 44 75 37 12
  button "#General", 17, 44 87 37 12
  button "#jeffrey", 18, 81 39 37 12
  button "#RsMarket", 19, 44 39 37 12
  button "#`Joe", 20, 118 27 37 12
  button "#Scripting", 21, 118 39 37 12
  button "#Adec", 22, 81 51 37 12
  button "#mIRC.ms", 23, 81 63 37 12
  button "#???uot;, 24, 81 75 37 12
  button "#MircAddicts", 25, 81 87 37 12
  button "#Gsus", 26, 118 51 37 12
  button "#Graphics", 27, 118 63 37 12
  button "#WoW", 28, 118 75 37 12
  button "#RSPC", 29, 118 87 37 12
}

on *:dialog:TopChans:sclick:1:{ /join #idle }
on *:dialog:TopChans:sclick:2:{ /join #baked }
on *:dialog:TopChans:sclick:3:{ /join #mIRC }
on *:dialog:TopChans:sclick:4:{ /join #irchelp }
on *:dialog:TopChans:sclick:6:{ /join #kitten }
on *:dialog:TopChans:sclick:7:{ /join #OSS }
on *:dialog:TopChans:sclick:8:{ /join #GuildWars }
on *:dialog:TopChans:sclick:9:{ /join #Jdawg140 }
on *:dialog:TopChans:sclick:10:{ /join #Bots }
on *:dialog:TopChans:sclick:11:{ /join #Vivec }
on *:dialog:TopChans:sclick:12:{ /join #Rshelp }
on *:dialog:TopChans:sclick:13:{ /join #IRCBots }
on *:dialog:TopChans:sclick:14:{ /join #Idle-Rpg }
on *:dialog:TopChans:sclick:15:{ /join #Zezima }
on *:dialog:TopChans:sclick:16:{ /join #TheTavern }
on *:dialog:TopChans:sclick:17:{ /join #General }
on *:dialog:TopChans:sclick:18:{ /join #Jeffrey }
on *:dialog:TopChans:sclick:19:{ /join #RsMarket }
on *:dialog:TopChans:sclick:20:{ /join #`Joe }
on *:dialog:TopChans:sclick:21:{ /join #Scripting }
on *:dialog:TopChans:sclick:22:{ /join #Adec }
on *:dialog:TopChans:sclick:23:{ /join #mIRC.ms }
on *:dialog:TopChans:sclick:24:{ /join #???
  on *:dialog:TopChans:sclick:25:{ /join #MircAddicts }
  on *:dialog:TopChans:sclick:26:{ /join #Gsus }
  on *:dialog:TopChans:sclick:27:{ /join #Graphics }
  on *:dialog:TopChans:sclick:28:{ /join #WoW }
  on *:dialog:TopChans:sclick:29:{ /join #RSPC }

  dialog Topbots {
    title "Top Bots"
    size -1 -1 162 107
    option dbu
    button "AstralScript", 1, 7 51 37 12
    button "RuneScript", 2, 7 39 37 12
    button "SonyBot", 3, 7 27 37 12
    button "Insanebot", 4, 7 15 37 12
    box "Top Bots", 5, 3 7 155 96
    button "[SS]BoT", 6, 7 63 37 12
    button "Hydra", 7, 7 75 37 12
    button "Generic", 8, 7 87 37 12
    button "Chocobo", 9, 44 15 37 12
    button "Abysmal", 10, 81 15 37 12
    button "Funbot", 11, 118 15 37 12
    button "TerriBot", 12, 44 27 37 12
    button "Plasma", 13, 81 27 37 12
    button "IceBot", 14, 44 51 37 12
    button "BloodBot", 15, 44 63 37 12
    button "IJesus", 16, 44 75 37 12
    button "FreeSytleBot", 17, 44 87 37 12
    button "BoomBot", 18, 81 39 37 12
    button "FreeBot", 19, 44 39 37 12
    button "ISwift", 20, 118 27 37 12
    button "FusionBot", 21, 118 39 37 12
    button "Oliver", 22, 81 51 37 12
    button "Etco|Bot", 23, 81 63 37 12
    button "RuneShifter", 24, 81 75 37 12
    button "Shift", 25, 81 87 37 12
    button "SpeedBot", 26, 118 51 37 12
    button "Velbot", 27, 118 63 37 12
    button "ZH-Bot", 28, 118 75 37 12
    button "KewlBot", 29, 118 87 37 12
  }
  dialog Links {
    title "Links"
    size -1 -1 110 80
    option dbu
    box "Links", 1, 3 4 103 68
    link "http://forum.swiftirc.net/", 2, 7 12 68 8
    link "http:/Hawkee.com/", 3, 7 21 62 8
    link "www.O-SS.net", 4, 7 29 62 8
  }

  alias UltiDialog1 {
    var %i 0
    while (%i <= 180) {
      dialog -srb UltiDialog -1 -1 %i %i
      var %t 1
      while (%t <= 0) inc %t
      inc %i
    }
  }
  on *:dialog:UltiDialog:init:*: {
    .timer -m 1 1 UltiDialog1
  }

  alias -l ult.tbar {
    var %i 0
    while (%i <= 24) {
      dialog -t UltiDialog $left(The Utimate Dialog,%i)
      var %t 1
      while (%t <= 0) inc %t
      inc %i
    }
  }

  alias ult.die {
    var %i 100
    while (%i >= 0) {
      dialog -srb UltiDialog -1 -1 %i %i
      var %t 1
      while (%t <= 80) inc %t
      dec %i
    }
    dialog -c UltiDialog
  }
  on *:dialog:UltiDialog:sclick:28:{ dialog -x UltiDialog UltiDialog | dialog -m bot bot }
  on *:dialog:UltiDialog:sclick:11:{ dialog -x UltiDialog UltiDialog | dialog -m Links Links }
  on *:dialog:UltiDialog:sclick:10:{ dialog -x UltiDialog UltiDialog | dialog -m ncl.cl ncl.cl }
  on *:dialog:UltiDialog:sclick:14:{ dialog -x UltiDialog UltiDialog | dialog -m blacklist blacklist }
  on *:dialog:UltiDialog:sclick:12:{ dialog -x UltiDialog UltiDialog | dialog -m topChans topChans }
  on *:dialog:UltiDialog:sclick:13:{ dialog -x UltiDialog UltiDialog | dialog -m topbots topbots }
  on *:dialog:UltiDialog:sclick:32:{ dialog -x UltiDialog UltiDialog | dialog -m Aliasmaker Aliasmaker }
  on *:dialog:UltiDialog:sclick:20:{ dialog -x UltiDialog UltiDialog | dialog -m translator translator }
  on *:dialog:UltiDialog:sclick:21:{ dialog -x UltiDialog UltiDialog | dialog -m SlangTran SlangTran }
  on *:dialog:UltiDialog:sclick:30:{ dialog -x UltiDialog UltiDialog | dialog -m Remote.Creator Remote.Creator }
  on *:dialog:UltiDialog:sclick:5:{ dialog -x UltiDialog UltiDialog | dialog -m Away2 Away2 }
  on *:dialog:UltiDialog:sclick:8:{ dialog -x UltiDialog UltiDialog | dialog -m mp3 mp3 }
  on *:DIALOG:UltiDialog:sclick:2-3:{ dialog -x UltiDialog UltiDialog | dialog -m chan chan } 
  on *:DIALOG:UltiDialog:sclick:4:{ dialog -x UltiDialog UltiDialog | dialog -m nick nick } 
  on *:DIALOG:UltiDialog:sclick:15:{ dialog -x UltiDialog UltiDialog | dialog -m nick nick }
  on *:DIALOG:UltiDialog:sclick:24:{ dialog -x UltiDialog UltiDialog | dialog -m memo memo } 
  on *:DIALOG:UltiDialog:sclick:22:{ dialog -x UltiDialog UltiDialog | dialog -m quick quick } 
  on *:dialog:UltiDialog:sclick:31:{ dialog -x UltiDialog UltiDialog | dialog -m DiaMak DiaMak }
  on *:dialog:UltiDialog:sclick:1:{ dialog -x UltiDialog UltiDialog | dialog -m access access }
  on *:dialog:UltiDialog:sclick:33:{ dialog -x UltiDialog UltiDialog | dialog -m CALC CALC }
  ON *:Dialog:UltiDialog:sclick:6:{ dialog -x UltiDialog UltiDialog | dialog -m Programs Programs }
  ON *:Dialog:UltiDialog:sclick:7:{ dialog -x UltiDialog UltiDialog | dialog -m Games Games } 
  ON *:Dialog:UltiDialog:sclick:23:{ dialog -x UltiDialog UltiDialog | dialog -m soundconfig soundconfig } 
  ON *:Dialog:UltiDialog:sclick:25:{ dialog -x UltiDialog UltiDialog | dialog -m fla fla }
  On *:Dialog:Aliasmaker:sclick:10:{ did -a Aliasmaker 8 / $+ $did(4).text / $+ $did(5).text $did(6).text }


  dialog Aliasmaker {
    title "Alias Maker"
    size -1 -1 193 112
    option dbu
    text "Trigger", 1, 2 19 22 8
    text "Type", 2, 2 29 22 8
    text "Message", 3, 2 38 22 8
    edit "", 4, 25 18 126 10
    edit "", 5, 25 28 126 10
    edit "", 6, 25 38 126 10
    text "Made by Tony", 7, 67 102 36 8
    list 8, 25 49 126 50, size
    text "Code", 9, 1 50 16 8
    button "Create", 10, 152 18 37 30
    button "Finished", 11, 151 50 37 24, ok cancel
    button "Create New", 12, 151 75 37 24
    button "Alias Maker", 13, 26 2 124 12
  }
  dialog mp3 {
    title "Spitfire3292's MP3 Player v1 :"
    size -1 -1 193 124
    option dbu
    list 1, 70 10 120 80, size vsbar
    list 2, 10 9 50 74, size
    box "Music Play List", 3, 67 1 125 93
    box "Music Directory", 4, 2 1 65 85
    button "Play", 5, 67 94 41 12
    button "Pause", 6, 151 94 41 12
    button "Stop", 7, 109 94 41 12
    button ">>", 8, 161 109 31 12
    button "<<", 9, 67 109 31 12
    check "Repeat", 10, 3 90 30 10
    check "Shuffle", 11, 3 100 28 10
    check "Mute", 27, 3 110 33 10
    button "Up", 12, 40 94 22 12
    button "Down", 13, 40 109 22 12
    box "Volume", 14, 37 86 28 37
    button "<", 15, 99 109 30 12
    button ">", 16, 130 109 30 12
    menu "File", 17
    item "Add Directory", 18, 17
    item "Delete Directory", 19, 17
    item "Exit", 20, 17, cancel
    menu "Display", 21
    item "mIRC Message Display", 22, 21
    item "Quick Message Display", 26, 21
    menu "Count Display", 23, 21
    item "Count Up", 24, 23
    item "Count Down", 25, 23
  }

  alias count {
    if ($readini(mp3.ini,Config,Count) = up) { 
      dialog -t mp3 $gettok($dialog(mp3).title,1,58) $chr(58) $($remove($duration($calc($insong.pos / 1000 ),3),00:0),5) Vol: $int($calc(( $vol(master) / 65535) * 100)) $+ %
    }
    elseif ($readini(mp3.ini,Config,Count) = dwn) {
      dialog -t mp3 $gettok($dialog(mp3).title,1,58) $chr(58) $remove($duration($calc(($sound($insong.fname).length - $insong.pos) / 1000),3),00:0) Vol: $int($calc(( $vol(master) / 65535) * 100)) $+ %
    }
  }

  on *:dialog:mp3:init:0:{
    /timermp3 0 1 /count
    if (!$readini(mp3.ini,Config,Count)) { /writeini mp3.ini Config Count up }
    if ((!$readini(mp3.ini,Config,Load)) && (!$readini(mp3.ini,Directory,*))) {
      if ($$?!="Add Directory Now?" == $true) {
        /writeini mp3.ini Directory $replace($$?="Playlist Name:",$chr(32),_) $sdir(*, Choose a Music Folder)
        /writeini mp3.ini Config Load True
      }
    }
    var %dir = 1
    while (%dir <= $ini(mp3.ini,Directory,0)) {
      /did -a mp3 2 $ini(mp3.ini,Directory,%dir)
      inc %dir
    }
  }

  on *:dialog:mp3:close:0:{
    /splay -p stop
    /timermp3 off
  }

  on *:dialog:mp3:menu:18:{
    /writeini mp3.ini Directory $replace($$?="Playlist Name:",$chr(32),_) $sdir(*, Choose a Music Folder)
    /writeini mp3.ini Config Load True
    /did -r mp3 2
    var %dir = 1
    while (%dir <= $ini(mp3.ini,Directory,0)) {
      /did -a mp3 2 $ini(mp3.ini,Directory,%dir)
      inc %dir
    }
  }

  on *:dialog:mp3:menu:19:{
    /remini mp3.ini Directory $replace($$?="Playlist Name:",$chr(32),_)
    /did -r mp3 2
    var %dir = 1
    while (%dir <= $ini(mp3.ini,Directory,0)) {
      /did -a mp3 2 $ini(mp3.ini,Directory,%dir)
      inc %dir
    }
  }

  on *:dialog:mp3:dclick:2:{
    /did -r mp3 1
    /noop $findfile($readini(mp3.ini,directory,$did(2).seltext),*.mp3,0,did -a mp3 1 $nopath($left($1-,-4)))
  }

  on *:dialog:mp3:dclick:1:{
    /splay -p $+($readini(mp3.ini,Directory,$did($dname,2).seltext),$+($did($dname,1).seltext,.mp3))
    if ($readini(mp3.ini,Config,Disp) = echo) {
      if ($readini(mp3.ini,Config,Custom)) {
        /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
    if ($readini(mp3.ini,Config,Disp) = chan) {
      if ($readini(mp3.ini,Config,Custom)) {
        /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
  }

  on *:dialog:mp3:sclick:5:{
    if ($insong.pause = $true) {
      /splay resume
    }
    else {
      /splay -p $+($readini(mp3.ini,Directory,$did($dname,2).seltext),$+($did($dname,1).seltext,.mp3))
      if ($readini(mp3.ini,Config,Disp) = echo) {
        if ($readini(mp3.ini,Config,Custom)) {
          /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      if ($readini(mp3.ini,Config,Disp) = chan) {
        if ($readini(mp3.ini,Config,Custom)) {
          /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
    }
  }

  on *:MP3END:{
    if ($did(mp3,10).state = 1) { /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,$did(mp3,1,1).sel).text,.mp3)
      /did -c mp3 1 $calc($did(mp3,1,1).sel)
      if ($readini(mp3.ini,Config,Disp) = echo) {
        if ($readini(mp3.ini,Config,Custom)) {
          /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      if ($readini(mp3.ini,Config,Disp) = chan) {
        if ($readini(mp3.ini,Config,Custom)) {
          /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      halt
    }
    if ($did(mp3,11).state = 1) { /var %x = $rand(1,$did(mp3,1).lines)
      /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,%x).text,.mp3)
      /did -c mp3 1 %x
      if ($readini(mp3.ini,Config,Disp) = echo) {
        if ($readini(mp3.ini,Config,Custom)) {
          /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      if ($readini(mp3.ini,Config,Disp) = chan) {
        if ($readini(mp3.ini,Config,Custom)) {
          /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      halt
    }
    /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,$calc(1 + $did(mp3,1,1).sel)).text,.mp3)
    /did -c mp3 1 $calc($did(mp3,1,1).sel + 1)
    if ($readini(mp3.ini,Config,Disp) = echo) {
      if ($readini(mp3.ini,Config,Custom)) {
        /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /echo $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
    if ($readini(mp3.ini,Config,Disp) = chan) {
      if ($readini(mp3.ini,Config,Custom)) {
        /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
  }

  on *:dialog:mp3:sclick:7:{
    /splay -p stop
  }

  on *:dialog:mp3:sclick:6:{
    /splay -p pause
  }

  on *:dialog:mp3:sclick:15:{
    /splay -p seek $calc($insong.pos - 5000)
  }

  on *:dialog:mp3:sclick:16:{
    /splay -p seek $calc($insong.pos + 5000)
  }

  on *:dialog:mp3:sclick:8:{
    if ($did(mp3,11).state = 1) { /var %x = $rand(1,$did(mp3,1).lines)
      /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,%x).text,.mp3)
      /did -c mp3 1 %x
      if ($readini(mp3.ini,Config,Disp) = echo) {
        if ($readini(mp3.ini,Config,Custom)) {
          /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      if ($readini(mp3.ini,Config,Disp) = chan) {
        if ($readini(mp3.ini,Config,Custom)) {
          /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      halt
    }
    /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,$calc(1 + $did(mp3,1,1).sel)).text,.mp3)
    /did -c mp3 1 $calc($did(mp3,1,1).sel + 1)
    if ($readini(mp3.ini,Config,Disp) = echo) {
      if ($readini(mp3.ini,Config,Custom)) {
        /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
    if ($readini(mp3.ini,Config,Disp) = chan) {
      if ($readini(mp3.ini,Config,Custom)) {
        /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
  }

  on *:dialog:mp3:sclick:9:{
    if ($did(mp3,11).state = 1) { /var %x = $rand(1,$did(mp3,1).lines)
      /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,%x).text,.mp3)
      /did -c mp3 1 %x
      if ($readini(mp3.ini,Config,Disp) = echo) {
        if ($readini(mp3.ini,Config,Custom)) {
          /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      if ($readini(mp3.ini,Config,Disp) = chan) {
        if ($readini(mp3.ini,Config,Custom)) {
          /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
          halt
        }
        /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
      }
      halt
    }
    /splay -p $+($readini(mp3.ini,Directory,$did(mp3,2).seltext),$did(mp3,1,$calc($did(mp3,1,1).sel - 1)).text,.mp3)
    /did -c mp3 1 $calc($did(mp3,1,1).sel - 1)
    if ($readini(mp3.ini,Config,Disp) = echo) {
      if ($readini(mp3.ini,Config,Custom)) {
        /echo -a $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /echo -a $c1(Now Playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
    if ($readini(mp3.ini,Config,Disp) = chan) {
      if ($readini(mp3.ini,Config,Custom)) {
        /amsg $c1($replace($readini(mp3.ini,Config,Custom),[length],$remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0),[bits],$sound($insong.fname).bitrate,[artist],$sound($insong.fname).artist,[title],$sound($insong.fname).title,$chr(124),$+($chr(3),$readini(mp3.ini,Config,Color2)),$chr(126),$+($chr(3),$readini(mp3.ini,Config,Color1))))
        halt
      }
      /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2($remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
    }
  }

  on *:dialog:mp3:menu:24:{
    /writeini mp3.ini Config Count up
  }
  on *:dialog:mp3:menu:25:{
    /writeini mp3.ini Config Count dwn
  }

  on *:dialog:mp3:sclick:12:{
    /vol -v $calc( $vol(master) + 5000)
  }

  on *:dialog:mp3:sclick:13:{
    /vol -v  $calc( $vol(master) - 5000)
  }

  on *:dialog:mp3:menu:22:{
    /dialog -md mp3disp mp3disp
  }

  on *:dialog:mp3:menu:26:{
    if ($insong.fname = $null) {
      /amsg $c1(I am not currently playing a song.)
      halt
    }
    /amsg $c1(I am now playing:) $c2($sound($insong.fname).title) $c1(by) $c2($sound($insong.fname).artist) $c1(-) $c2(Length: $remove($duration($calc(($sound($insong.fname).length) / 1000),3),00:0)) $c1(-) $c2(Position: $($remove($duration($calc($insong.pos / 1000 ),3),00:0),5)) $c1(-) $c2($sound($insong.fname).bitrate kbps)
  }

  on *:dialog:mp3:sclick:27:{
    if ($did(mp3,27).state = 1) {
      /vol -vu1
    }
    if ($did(mp3,27).state = 0) {
      /vol -vu2
    }
  }

  dialog mp3disp {
    title "mIRC Message Display"
    size -1 -1 111 101
    option dbu
    text "Color 1", 1, 66 4 19 8
    text "Color 2", 2, 66 15 19 8
    edit "", 3, 87 4 15 10
    edit "", 4, 87 15 15 10
    radio "Silent/Manual", 5, 1 3 45 10
    radio "Echo", 6, 1 18 23 10
    radio "Display in Channel", 7, 1 32 55 10
    button "Cancel", 8, 62 33 20 12, cancel
    button "Save", 9, 89 33 20 12, ok
    text "Custom Display Message", 10, 1 48 108 9, center
    edit "", 11, 1 59 109 10, autohs
    text "Use [length] for the length of the song. Use [bits] for the bitrate of the song.     Use [artist] for the artist of the song.     Use [title] for the title of the song.", 12, 2 71 105 29
  }

  on *:dialog:mp3disp:init:0:{
    /did -a mp3disp 3 $readini(mp3.ini,Config,Color1)
    /did -a mp3disp 4 $readini(mp3.ini,Config,Color2)
    /did -a mp3disp 11 $remove($readini(mp3.ini,Config,Custom),|,~,kbps)
    if ($readini(mp3.ini,Config,Disp) = echo) {
      /did -c mp3disp 6
    }
    if ($readini(mp3.ini,Config,Disp) = chan) {
      /did -c mp3disp 7
    }
    if (!$readini(mp3.ini,Config,Disp)) {
      /did -c mp3disp 5
    }
  }

  on *:dialog:mp3disp:sclick:9:{
    /writeini mp3.ini Config Color1 $did(3)
    /writeini mp3.ini Config Color2 $did(4)
    if ($did(11) != $null) {
      /writeini mp3.ini Config Custom $replace($did(11),[length],$chr(124) $+ [length] $+ ~,[artist],$chr(124) $+ [artist] $+ ~,[bits],$chr(124) $+ [bits] kbps $+ ~,[title],$chr(124) $+ [title] $+ ~)
    }
    if ($did(11) = $null) {
      /remini mp3.ini Config Custom
    } 
    if ($did(mp3disp,5).state = 1) { /remini mp3.ini Config Disp }
    if ($did(mp3disp,6).state = 1) { /writeini mp3.ini Config Disp echo }
    if ($did(mp3disp,7).state = 1) { /writeini mp3.ini Config Disp chan }
  }

  dialog DiaMak {
    title "Dialog Maker"
    size -1 -1 480 350
    option pixels
    icon $shortfn($scriptdir) $+ Data\Icons\DialogMaker.ico, 0
    box "", 6, 19 59 411 83
    radio "Button", 7, 24 74 100 20, push
    radio "Edit", 8, 124 74 100 20, push
    radio "Text", 9, 224 74 100 20, push
    radio "Link", 10, 324 74 100 20, push
    radio "Box", 11, 24 94 100 20, push
    radio "Scroll", 12, 124 94 100 20, push
    radio "Tab", 13, 224 94 100 20, push
    radio "Icon", 14, 324 94 100 20, push
    radio "Check", 15, 24 114 100 20, push
    radio "Radio", 16, 124 114 100 20, push
    radio "List", 17, 224 114 100 20, push
    radio "Combo", 18, 324 114 100 20, push
    radio "X", 56, 432 65 25 78, push
    list 2, -3 -3 485 32, size
    list 3, 0 330 480 20, size
    text "Name:", 66, 7 190 140 16, right
    edit "", 29, 150 188 225 19, autohs
    text "Titlebar Text:", 111, 7 215 140 16, right
    edit "", 26, 150 213 225 19, autohs
    edit "", 27, 150 235 50 20, autohs limit 5 center
    edit "", 28, 200 235 50 20, autohs limit 5 center
    edit "", 30, 260 235 50 20, autohs limit 4 center
    edit "", 47, 310 235 50 20, autohs limit 4 center
    text "Position and Size:", 55, 8 237 140 16, right
    check "Use DBU", 48, 84 263 120 19, push
    edit "", 1, 83 285 300 19, autohs
    button "Icon", 51, 263 263 120 19
  }
  on *:dialog:DiaMak:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.DiaMak.x) !== $null) && ($var.read(Options,DiaMako.pos.DiaMak.y) !== $null) { dialog -s DiaMak $var.read(Options,DiaMako.pos.DiaMak.x) $var.read(Options,DiaMako.pos.DiaMak.y) 480 350 }
    mdx SetControlMDX 21 TreeView haslines showsel linesatroot hasbuttons editlabels > $shortfn($scriptdir) $+ Data\Views.mdx
    mdx SetControlMDX 3 StatusBar > $shortfn($scriptdir) $+ Data\Bars.mdx
    mdx SetControlMDX 27,28,30,47 UpDown alignright edit numeric > $shortfn($scriptdir) $+ Data\Ctl_gen.mdx
    mdx SetFont 32,33 24 400 wingdings
    mdx SetFont 3 13 700 Tahoma
    mdx SetBorderStyle 3 windowedge
    mdx SetBorderStyle 1,26,29 border
    mdx SetBorderStyle 27,28,30,47 staticedge
    did -i DiaMak 3 1 setparts 320 -1
    did -i DiaMak 3 2 Ready
    did -i DiaMak 3 3 No Project Loaded
    did -i DiaMak 27,28 1 0 -1 9999 10 0:1,2:5,5:20
    did -i DiaMak 30,47 1 0 0 9999 10 0:1,2:5,5:20
    var.set Variables Version 0.10
    var.set Variables Full_Version 0.1.0.0
    var.set Variables DiaMak.id 1
    dialog -t DiaMak Dialog Maker $var.read(Variables,Version)
    did -b DiaMak 12,13
    DiaMak.skin
    .signal Modules_DiaMak
    if ($var.read(Options,DiaMako.explorer) == $null) { var.set Options DiaMako.explorer on }
    if ($var.read(Options,DiaMako.explorer.part) == $null) { var.set Options DiaMako.explorer.part Explorer }
    if ($var.read(Options,DiaMako.explorer.show_aliases) == $null) { var.set Options DiaMako.explorer.show_aliases on }
    if ($var.read(Options,DiaMako.explorer.show_dialogs) == $null) { var.set Options DiaMako.explorer.show_dialogs on }
    if ($var.read(Options,DiaMako.explorer.show_menus) == $null) { var.set Options DiaMako.explorer.show_menus on }
    if ($var.read(Options,DiaMako.show.tips) == $null) { var.set Options DiaMako.show.tips on }
    if ($var.read(Options,DiaMako.color.back) == $null) { var.set Options DiaMako.color.back 255_255_255 }
    if ($var.read(Options,DiaMako.color.text) == $null) { var.set Options DiaMako.color.text 0_0_0 }
    if ($var.read(Options,DiaMako.color.textbg) == $null) { var.set Options DiaMako.color.textbg 255_255_255 }
    if ($var.read(Options,DiaMako.font.name) == $null) { var.set Options DiaMako.font.name Fixedsys }
    if ($var.read(Options,DiaMako.font.size) == $null) { var.set Options DiaMako.font.size 13 }
    if ($var.read(Options,DiaMako.asc) == on) {
      if ($dialog(ce) == $null) {
        if ($var.read(Options,DiaMako.ceot) == on) { dialog -mod ce ce }
        else { dialog -md ce ce }
      }
    }
    if ($exists($shortfn($scriptdir) $+ Data\Updates\Updates.txt) == $false) { mkdir $shortfn($scriptdir) $+ Data\Updates\ }
    if ($var.read(Options,DiaMako.last.project) == on) {
      var.set Variables DiaMak.file.test $var.read(Options,DiaMako.lpf)
      if ($var.read(Variables,DiaMak.file.test) !== $null) {
        did -i DiaMak 3 2 Visual Editor...
        var.set Variables DiaMak.file $shortfn($var.read(Variables,DiaMak.file.test))
        var.set Options DiaMako.file.last $nofile($var.read(Variables,DiaMak.file.test))
        DiaMak.ve
        if ($1 !== $null) { open.DiaMak $1 }
        if ($1 == $null) { open.DiaMak DialogMaker }
        did -i DiaMak 3 2 Opening Project...
        did -ra DiaMak 29 $var.read(Variables,DiaMak.dn)
        did -ra DiaMak 26 $var.read(Variables,DiaMak.dt)
        did -i DiaMak 27 1 $var.read(Variables,DiaMak.dx) -1 9999 10 0:1,2:5,5:20
        did -i DiaMak 28 1 $var.read(Variables,DiaMak.dy) -1 9999 10 0:1,2:5,5:20
        did -i DiaMak 30 1 $var.read(Variables,DiaMak.dw) 0 9999 10 0:1,2:5,5:20
        did -i DiaMak 47 1 $var.read(Variables,DiaMak.dh) 0 9999 10 0:1,2:5,5:20
        did -ra DiaMak 1 $var.read(Variables,DiaMak.di)
        if ($var.read(Variables,DiaMak.do) == DBU) { did -c DiaMak 48 }
        if ($var.read(Variables,DiaMak.di) !== $null) { did -ra DiaMak 1 $var.read(Variables,DiaMak.di) }
        if ($var.read(Variables,DiaMak.dt) !== $null) { dialog -t VisualEditor Visual Editor - $var.read(Variables,DiaMak.dt) }
        else { dialog -t VisualEditor Visual Editor }
        if ($var.read(Variables,File.Type) == $null) {
          if ($right($var.read(Variables,DiaMak.file),2) == DiaMak) { var.set Variables File.Type DialogMaker }
          if ($right($var.read(Variables,DiaMak.file),2) == ds) { var.set Variables File.Type DialogStudio }
        }
        if ($dialog(ce)) { DiaMak.ce }
        DiaMak.build $var.read(Variables,File.Type)
        did -o DiaMak.Loading 1 3 0 + 1 0 0 Controls $chr(9) OK (Controls: $calc(%DiaMak.fi -1) $+ )
        did -a DiaMak.Loading 2 2 0 4
        did -i DiaMak 3 3 $nopath($longfn($var.read(Variables,DiaMak.file))) ( $+ $bytes($file($var.read(Variables,DiaMak.file)).size,k).suf $+ )

        did -o DiaMak.Loading 1 4 0 + 1 0 0 Menus $chr(9) OK
        did -a DiaMak.Loading 2 3 0 4
        if ($var.read(Variables,DiaMak.fn) !== $null) {
          if ($exists($var.read(Variables,DiaMak.fn)) == $true) { did -o DiaMak.Loading 1 5 0 + 1 0 0 Code $chr(9) OK }
          else { DiaMak.cnd | did -o DiaMak.Loading 1 5 0 + 2 0 0 Code $chr(9) Repaired }
        }
        else { did -o DiaMak.Loading 1 5 0 + 1 0 0 Code $chr(9) OK }
        did -a DiaMak.Loading 2 4 0 4
        set %time2 $duration($time)
        did -o DiaMak.Loading 1 6 0 + 0 0 0 Loading Time $chr(9) $duration($calc(%time2 - %time1))
        unset %time1
        unset %time2
        if ($var.read(Options,DiaMako.close.loading) == on) { dialog -x DiaMak.Loading DiaMak.Loading }
        else { .timerActive2 1 0 dialog -v DiaMak.Loading DiaMak.Loading }
      }
    }
    if ($var.read(Options,DiaMako.show.tips) == on) { dialog -md DiaMak.Tips DiaMak.Tips | .timerActive 1 0 dialog -v DiaMak.Tips DiaMak.Tips }
  }
  on *:dialog:DiaMak:close:*:{
    if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.DiaMak.x $dialog(DiaMak).x | var.set Options DiaMako.pos.DiaMak.y $dialog(DiaMak).y }
    if ($var.read(Options,DiaMako.last.project) == on) { var.set Options DiaMako.lpf $var.read(Variables,DiaMak.fn2) }
    if ($var.read(Variables,DiaMak.file) !== $null) {
      if ($input(Save the project first?,y,Dialog Maker: Close) == $true) { DiaMak.cnd }
    }
    DiaMak.close
  }
  on *:dialog:DiaMak:edit:26:if ($dialog(VisualEditor)) { dialog -t VisualEditor Visual Editor - $did(26) }
  on *:dialog:DiaMak:sclick:3:if ($did(3).sel == 3) { .echo -q $DiaMak.open(DialogMaker,*.DiaMak,Open Dialog Maker Project:) }
  on *:dialog:DiaMak:dclick:2:{
    if ($did(2).sel == 3) {
      dll $DiaMak.pop New Open_Menu 32 32
      dll $DiaMak.pop LoadImg Open_Menu 1 icon normal $shortfn($scriptdir) $+ Data\Icons\DialogMaker.ico
      dll $DiaMak.pop LoadImg Open_Menu 2 icon normal $shortfn($scriptdir) $+ Data\Icons\DialogStudio.ico
      dll $DiaMak.pop LoadImg Open_Menu 3 icon normal $shortfn($scriptdir) $+ Data\Dialog Grabber.exe
      dll $DiaMak.pop AddItem Open_Menu 1 1 1 Dialog &Maker
      dll $DiaMak.pop AddItem Open_Menu 2 2 2 Dialog &Studio
      if ($exists($shortfn($scriptdir) $+ Data\Dialog Grabber.exe) == $false) { dll $DiaMak.pop AddItem Open_Menu 3 +Cd 3 3 Dialog &Grabber }
      else { dll $DiaMak.pop AddItem Open_Menu 3 +C 3 3 Dialog &Grabber }
      var.set Temporary sel $gettok($dll($DiaMak.pop,Popup,Open_Menu $mouse.dx $mouse.dy ),3,32)
      if ($var.read(Temporary,sel) = 1) { .echo -q $DiaMak.open(DialogMaker,*.DiaMak,Open Dialog Maker Project:) }
      if ($var.read(Temporary,sel) = 2) { .echo -q $DiaMak.open(DialogStudio,*.ds,Open Dialog Studio Project:) }
      if ($var.read(Temporary,sel) = 3) { run $shortfn($scriptdir) $+ Data\Dialog Grabber.exe }
      var.unset Temporary sel
    }
    if ($did(2).sel == 8) {
      dll $DiaMak.pop New DialogCode_Menu 32 32
      dll $DiaMak.pop LoadImg DialogCode_Menu 1 icon normal $DiaMak.icon(DialogCode)
      dll $DiaMak.pop LoadImg DialogCode_Menu 2 icon normal $DiaMak.icon(Copy)
      dll $DiaMak.pop LoadImg DialogCode_Menu 3 icon normal $DiaMak.icon(Save)
      if ($var.read(Options,DiaMako.language) !== $null) {
        dll $DiaMak.pop AddItem DialogCode_Menu 1 1 1 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Dialog_Code,View)
        dll $DiaMak.pop AddItem DialogCode_Menu 2 2 2 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Dialog_Code,Copy)
        dll $DiaMak.pop AddItem DialogCode_Menu 3 3 3 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Dialog_Code,Save)
      }
      else {
        dll $DiaMak.pop AddItem DialogCode_Menu 1 1 1 &View
        dll $DiaMak.pop AddItem DialogCode_Menu 2 2 2 &Copy
        dll $DiaMak.pop AddItem DialogCode_Menu 3 3 3 &Save
      }
      var.set Temporary sel $gettok($dll($DiaMak.pop,Popup,DialogCode_Menu $mouse.dx $mouse.dy ),3,32)
      if ($var.read(Temporary,sel) = 1) {
        if ($var.read(Variables,DiaMak.file) == $null) { .echo -q $DiaMak.error(Before see dialog code please first create or open dialog!,DiaMak.open,DiaMak.code.view) }
        else { DiaMak.code.view }
      }
      if ($var.read(Temporary,sel) = 2) {
        if ($var.read(Variables,DiaMak.file) == $null) { .echo -q $DiaMak.error(Before copy dialog code please first create or open dialog!,DiaMak.open,DiaMak.code.copy) }
        else { DiaMak.code.copy }
      }
      if ($var.read(Temporary,sel) = 3) {
        if ($var.read(Variables,DiaMak.file) == $null) { .echo -q $DiaMak.error(Before export dialog code please first create or open dialog!,DiaMak.open,DiaMak.code.save) }
        else { DiaMak.code.save }
      }
      var.unset Temporary sel
    }
  }
  on *:dialog:DiaMak:sclick:2:{
    if ($did(2).sel == 2) {
      if ($?!="Create new dialog?" == $true) {
        var.unset Variables DiaMak.file,DiaMak.tf,DiaMak.dn,DiaMak.dt,DiaMak.di,DiaMak.do,DiaMak.dx,DiaMak.dy,DiaMak.dw,DiaMak,dh,DiaMak.fn,DiaMak.fn2
        if ($dialog(VisualEditor)) { dialog -x VisualEditor VisualEditor }
        if ($dialog(DiaMak.Loading)) { dialog -x DiaMak.Loading DiaMak.Loading }
        did -r DiaMak 26,29,1
        did -u DiaMak 48
        did -i DiaMak 27,28 1 0 -1 9999 10 0:1,2:5,5:20
        did -i DiaMak 30,47 1 0 0 9999 10 0:1,2:5,5:20
        did -i DiaMak 3 2 Ready
        did -i DiaMak 3 3 No Project Loaded
      }
      if ($dialog(DiaMak) !== $null) { dialog -v DiaMak DiaMak }
    }
    if ($did(2).sel == 3) { .echo -q $DiaMak.open(DialogMaker,*.DiaMak,Open Dialog Maker Project:) }
    if ($did(2).sel == 4) { DiaMak.save }
    if ($did(2).sel == 6) {
      if ($dialog(ce) == $null) {
        if ($var.read(Options,DiaMako.ceot) == on) { dialog -mod ce ce }
        else { dialog -md ce ce }
      }
      else { dialog -v ce ce }
    }
    if ($did(2).sel == 7) {
      if ($var.read(Variables,DiaMak.file) !== $null) {
        if ($dialog(dc) == $null) { dialog -md dc dc }
        else { dialog -v dc dc }
      }
      else { .echo -q $DiaMak.error(Please open or create new project before use Code Editor!,DiaMak.open,DiaMak.file.dc) }
    }
    if ($did(2).sel == 8) {
      if ($var.read(Variables,DiaMak.file) == $null) { .echo -q $DiaMak.error(Before see dialog code please first create or open project!,DiaMak.open,DiaMak.code.view) }
      else { DiaMak.code.view }
    }
    if ($did(2).sel == 10) {
      dll $DiaMak.pop New Tools_Menu 32 32
      dll $DiaMak.pop LoadImg Tools_Menu 1 icon normal $DiaMak.icon(Options)
      dll $DiaMak.pop LoadImg Tools_Menu 2 icon normal $DiaMak.icon(Update)
      dll $DiaMak.pop LoadImg Tools_Menu 3 icon normal $DiaMak.icon(Modules)
      dll $DiaMak.pop LoadImg Tools_Menu 4 icon normal $DiaMak.icon(Language)
      dll $DiaMak.pop LoadImg Tools_Menu 5 icon normal $DiaMak.icon(Preview)
      if ($var.read(Options,DiaMako.language) !== $null) {
        dll $DiaMak.pop AddItem Tools_Menu 1 1 1 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Tools,Options)
        dll $DiaMak.pop AddItem Tools_Menu 2 2 2 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Tools,Update)
        dll $DiaMak.pop AddItem Tools_Menu 3 3 3 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Tools,Modules)
        dll $DiaMak.pop AddItem Tools_Menu 4 4 4 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Tools,Language_Editor)
        dll $DiaMak.pop AddItem Tools_Menu 5 5 5 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Tools,Preview)
      }
      else {
        dll $DiaMak.pop AddItem Tools_Menu 1 1 1 &Options
        dll $DiaMak.pop AddItem Tools_Menu 2 2 2 &Update
        dll $DiaMak.pop AddItem Tools_Menu 3 3 3 &Modules
        dll $DiaMak.pop AddItem Tools_Menu 4 4 4 &Language Editor
        dll $DiaMak.pop AddItem Tools_Menu 5 5 5 &Preview
      }
      var.set Temporary sel $gettok($dll($DiaMak.pop,Popup,Tools_Menu $mouse.dx $mouse.dy ),3,32)
      if ($var.read(Temporary,sel) = 1) { if ($dialog(do) == $null) { dialog -md DO DO }
      else { dialog -v DO DO } }
      if ($var.read(Temporary,sel) = 2) { if ($dialog(du) == $null) { dialog -md du du }
      else { dialog -v du du } }
      if ($var.read(Temporary,sel) = 3) { if ($dialog(mod) == $null) { dialog -md MOD MOD }
      else { dialog -v MOD MOD } }
      if ($var.read(Temporary,sel) = 4) { if ($dialog(le) == $null) { dialog -md le le }
      else { dialog -v le le } }
      if ($var.read(Temporary,sel) = 5) {
        if ($dialog(le) == $null) {
          if ($var.read(Variables,DiaMak.file) !== $null) { DiaMak.preview }
          else { .echo -q $DiaMak.error(Please open or create new project before see it's preview!,DiaMak.open,DiaMak.preview) }
        }
      }
      var.unset Temporary sel
    }
    if ($did(2).sel == 11) {
      if ($exists($shortfn($scriptdir) $+ Help.html) == $false) { .echo -q $DiaMak.error(No help file found!) }
      else { run $shortfn($scriptdir) $+ Help.html }
    }
  }
  on *:dialog:DiaMak:edit:27:{
    if ($DiaMak.edit(DiaMak,27) !== $null) && ($dialog(VisualEditor) !== $null) {
      var.set Variables DiaMak.dx $DiaMak.edit(DiaMak,27)
      dialog -s VisualEditor $DiaMak.edit(DiaMak,27) $DiaMak.edit(DiaMak,28) $DiaMak.edit(DiaMak,30) $DiaMak.edit(DiaMak,47)
    }
    else { var.set Variables DiaMak.dx $DiaMak.edit(DiaMak,27) }
  }
  on *:dialog:DiaMak:edit:28:{
    if ($DiaMak.edit(DiaMak,28) !== $null) && ($dialog(VisualEditor) !== $null) {
      var.set Variables DiaMak.dy $DiaMak.edit(DiaMak,28)
      dialog -s VisualEditor $DiaMak.edit(DiaMak,27) $DiaMak.edit(DiaMak,28) $DiaMak.edit(DiaMak,30) $DiaMak.edit(DiaMak,47)
    }
    else { var.set Variables DiaMak.dy $DiaMak.edit(DiaMak,28) }
  }
  on *:dialog:DiaMak:edit:30:{
    if ($DiaMak.edit(DiaMak,30) !== $null) && ($dialog(VisualEditor) !== $null) {
      var.set Variables DiaMak.dw $DiaMak.edit(DiaMak,30)
      dialog -s VisualEditor $dialog(VisualEditor).x $dialog(VisualEditor).y $DiaMak.edit(DiaMak,30) $DiaMak.edit(DiaMak,47)
    }
    else { var.set Variables DiaMak.dw $DiaMak.edit(DiaMak,30) }
  }
  on *:dialog:DiaMak:edit:47:{
    if ($DiaMak.edit(DiaMak,47) !== $null) && ($dialog(VisualEditor) !== $null) {
      var.set Variables DiaMak.dh $DiaMak.edit(DiaMak,47)
      dialog -s VisualEditor $dialog(VisualEditor).x $dialog(VisualEditor).y $DiaMak.edit(DiaMak,30) $DiaMak.edit(DiaMak,47)
    }
    else { var.set Variables DiaMak.dh $DiaMak.edit(DiaMak,47) }
  }
  on *:dialog:DiaMak:sclick:7:var.set Variables DiaMak.control Button | did -i DiaMak 3 2 Click on Visual Editor to place the button.
  on *:dialog:DiaMak:sclick:8:var.set Variables DiaMak.control Edit | did -i DiaMak 3 2 Click on Visual Editor to place the editbox.
  on *:dialog:DiaMak:sclick:9:var.set Variables DiaMak.control Text | did -i DiaMak 3 2 Click on Visual Editor to place the text.
  on *:dialog:DiaMak:sclick:10:var.set Variables DiaMak.control Link | did -i DiaMak 3 2 Click on Visual Editor to place the link.
  on *:dialog:DiaMak:sclick:11:var.set Variables DiaMak.control Box | did -i DiaMak 3 2 Click on Visual Editor to place the box.
  on *:dialog:DiaMak:sclick:12:var.set Variables DiaMak.control Scroll | did -i DiaMak 3 2 Click on Visual Editor to place the scroll.
  on *:dialog:DiaMak:sclick:13:var.set Variables DiaMak.control Tab | did -i DiaMak 3 2 Click on Visual Editor to place the tab.
  on *:dialog:DiaMak:sclick:14:var.set Variables DiaMak.control Icon | did -i DiaMak 3 2 Click on Visual Editor to place the icon.
  on *:dialog:DiaMak:sclick:15:var.set Variables DiaMak.control Check | did -i DiaMak 3 2 Click on Visual Editor to place the chechbox button.
  on *:dialog:DiaMak:sclick:16:var.set Variables DiaMak.control Radio | did -i DiaMak 3 2 Click on Visual Editor to place the radio button.
  on *:dialog:DiaMak:sclick:17:var.set Variables DiaMak.control List | did -i DiaMak 3 2 Click on Visual Editor to place the list.
  on *:dialog:DiaMak:sclick:18:var.set Variables DiaMak.control Combo | did -i DiaMak 3 2 Click on Visual Editor to place the combobox.
  on *:dialog:DiaMak:sclick:56:var.unset Variables DiaMak.control | did -i DiaMak 3 2 Ready
  on *:dialog:DiaMak:sclick:48:{
    if ($var.read(Variables,DiaMak.do) == DBU) {
      var.unset Variables DiaMak.do
      did -i DiaMak 27 1 $calc($DiaMak.edit(DiaMak,27) /2) -1 9999 10 0:1,2:5,5:20
      did -i DiaMak 28 1 $calc($DiaMak.edit(DiaMak,28) /2) -1 9999 10 0:1,2:5,5:20
      did -i DiaMak 30 1 $calc($DiaMak.edit(DiaMak,30) /2) 0 9999 10 0:1,2:5,5:20
      did -i DiaMak 47 1 $calc($DiaMak.edit(DiaMak,47) /2) 0 9999 10 0:1,2:5,5:20
    }
    else {
      var.set Variables DiaMak.do DBU
      did -i DiaMak 27 1 $calc($DiaMak.edit(DiaMak,27) *2) -1 9999 10 0:1,2:5,5:20
      did -i DiaMak 28 1 $calc($DiaMak.edit(DiaMak,28) *2) -1 9999 10 0:1,2:5,5:20
      did -i DiaMak 30 1 $calc($DiaMak.edit(DiaMak,30) *2) 0 9999 10 0:1,2:5,5:20
      did -i DiaMak 47 1 $calc($DiaMak.edit(DiaMak,47) *2) 0 9999 10 0:1,2:5,5:20
    }
  }
  on *:dialog:DiaMak:sclick:51:{
    var.set Variables DiaMak.di $sfile(*.ico,Select Dialog Icon:,Select)
    if ($var.read(Variables,DiaMak.di) !== $null) { did -ra DiaMak 1 $var.read(Variables,DiaMak.di) }
  }
  on *:dialog:DiaMak:sclick:52:{
    if ($var.read(Variables,DiaMak.top) == On) { var.set Variables DiaMak.top Off | dialog -n $var.read(Variables,DiaMak.dn) $var.read(Variables,DiaMak.dn) | dialog -v DiaMak DiaMak }
    else { var.set Variables DiaMak.top On | dialog -o $var.read(Variables,DiaMak.dn) $var.read(Variables,DiaMak.dn) | dialog -v DiaMak DiaMak }
  }
  ------------------------------------------------------------------
  dialog DO {
    title "Dialog Maker: Options"
    size -1 -1 530 300
    option pixels
    icon $DiaMak.icon(Options), 0
    box "", 8, 0 267 530 8
    button "&OK", 9, 190 279 150 20, default ok
    list 1, 2 3 145 266, size
    box "", 2, 152 -2 375 245
    list 3, 152 248 375 20, size
    list 4, 156 7 367 215, hide size
    edit "", 5, 155 222 368 18, hide autohs
    list 6, 156 7 367 172, hide size
    list 7, 156 7 367 233, hide size
    list 10, 156 179 366 60, hide size
    icon 11, 153 5 372 237
    button "Open", 12, 159 11 120 20, hide
    check "On Top", 13, 279 11 120 20, hide push
    check "Auto Start", 14, 159 11 120 20, hide push
    check "Open Last Project", 15, 159 11 120 20, hide push
    combo 16, 371 11 150 185, hide size drop
    edit "", 17, 370 36 152 160, hide multi autovs
    list 18, 158 30 200 40, hide size
    text "Red:", 19, 159 15 140 13, hide
    edit "", 20, 308 10 50 18, hide autohs limit 3
    text "Green:", 21, 159 92 140 13, hide
    list 22, 158 107 200 40, hide size
    edit "", 23, 308 87 50 18, hide autohs limit 3
    text "Blue:", 24, 159 167 140 13, hide
    list 25, 158 182 200 40, hide size
    edit "", 26, 308 162 50 18, hide autohs limit 3
    button "", 27, 370 201 151 20, hide
    check "Remember Positions", 28, 399 11 120 20, hide push
    check "Close Loading", 29, 279 11 120 20, hide push
    check "Show Tips", 30, 159 31 120 20, hide push
  }
  on *:dialog:do:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.do.x) !== $null) && ($var.read(Options,DiaMako.pos.do.y) !== $null) { dialog -s DO $var.read(Options,DiaMako.pos.do.x) $var.read(Options,DiaMako.pos.do.y) 530 300 }
    if ($exists($DiaMak.icon(Logo)) == $true) { did -g DO 11 $DiaMak.icon(Logo) }
    mdx SetBorderStyle 18,22,25,17,20,23,26 staticedge
    mdx SetBorderStyle 3 windowedge
    mdx SetBorderStyle 5 border
    mdx SetControlMDX DO 3 ToolBar flat list nodivider > $shortfn($scriptdir) $+ Data\Bars.mdx
    mdx SetControlMDX DO 10 ToolBar flat nodivider > $shortfn($scriptdir) $+ Data\Bars.mdx
    mdx SetControlMDX 20,23,26 UpDown alignright edit numeric > $shortfn($scriptdir) $+ Data\Ctl_gen.mdx
    did -i DO 3 1 bmpsize 16 16
    did -i DO 10 1 bmpsize 32 32
    did -i DO 3 1 pad 19 5
    did -i DO 10 1 pad 21 5
    did -i DO 3 1 bwidth 32 32
    did -a DO 3 +da 1 $tab Add
    did -a DO 3 +da 2 $tab Load
    did -a DO 3 +a 3 $tab -
    did -a DO 3 +da 4 $tab Rename
    did -a DO 3 +da 5 $tab Delete
    did -a DO 3 +a 6 $tab -
    did -a DO 3 +da 7 $tab Refresh
    mdx SetControlMDX 1 TreeView haslines linesatroot hasbuttons > $shortfn($scriptdir) $+ Data\Views.mdx
    did -a $dname 1 +b General
    did -i $dname 1 1 cb 2
    did -a $dname 1 Main
    did -a $dname 1 Patterns
    did -i DO 1 1 branch expandall $did(1).lines
    did -i $dname 1 1 cb root
    did -a $dname 1 +b Editors
    did -i $dname 1 1 cb 3
    did -a $dname 1 Code Editor
    did -a $dname 1 Visual Editor
    did -a $dname 1 Control Editor
    did -i DO 1 1 branch expandall $did(1).lines
    did -i $dname 1 1 cb root
    did -a $dname 1 +b Skins
    did -i $dname 1 1 cb 4
    did -a $dname 1 Load
    did -i DO 1 1 branch expandall $did(1).lines
    did -i $dname 1 1 cb root
    did -a $dname 1 +b Languages
    did -i $dname 1 1 cb 5
    did -a $dname 1 Load
    did -i DO 1 1 branch expandall $did(1).lines
    mdx SetControlMDX $dname 18,22,25 TrackBar select tooltips nwticks > $shortfn($scriptdir) $+ Data\Bars.mdx
    did -i $dname 18,22,25 1 params * 0 255 * 0 255 * *
    did -a DO 16 Text
    did -a DO 16 Background
    did -a DO 16 Text Background
    did -fc DO 16 1
    did -a DO 17 Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz
    mdx SetColor $dname 19 text $rgb(255,0,0)
    mdx SetColor $dname 21 text $rgb(0,255,0)
    mdx SetColor $dname 24 text $rgb(0,0,255)
    mdx SetColor $dname 17 background $rgb(0,0,0)
    mdx SetFont 5 13 600 Tahoma
    mdx SetFont 17 $var.read(Options,DiaMako.font.size) 200 $var.read(Options,DiaMako.font.name)
    did -ra DO 27 $var.read(Options,DiaMako.font.name) - $var.read(Options,DiaMako.font.size)
    var.set Variables DiaMak.ff $shortfn($scriptdir) $+ Data\Patterns.ini
    if ($var.read(Options,DiaMako.asc) == on) { did -c DO 14 }
    .signal Modules_DO
    DiaMak.language
  }
  on *:dialog:do:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.do.x $dialog(do).x | var.set Options DiaMako.pos.do.y $dialog(do).y }
  on *:dialog:do:sclick:1:{
    did -h DO 4,5,6,7,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30
    var.set Temporary sel $replace($gettok($did(1,1),4-,32),$chr(32),_)
    if ($var.read(Temporary,sel) == 2_2) || ($var.read(Temporary,sel) == 2_3) || ($var.read(Temporary,sel) == 3_2) || ($var.read(Temporary,sel) == 3_3) || ($var.read(Temporary,sel) == 3_4) || ($var.read(Temporary,sel) == 4_2) || ($var.read(Temporary,sel) == 4_3) || ($var.read(Temporary,sel) == 5_2) {
      if ($var.read(Temporary,sel) == 2_2) {
        did -v DO 15,28,29,30
        if ($var.read(Options,DiaMako.last.project) == on) { did -c DO 15 }
        if ($var.read(Options,DiaMako.remember.positions) == on) { did -c DO 28 }
        if ($var.read(Options,DiaMako.close.loading) == on) { did -c DO 29 }
        if ($var.read(Options,DiaMako.show.tips) == on) { did -c DO 30 }
      }
      if ($var.read(Temporary,sel) == 2_3) {
        did -v DO 4,5
        did -br DO 5
        did -r DO 4
        if ($var.read(Options,DiaMako.language) !== $null) {
          did -o DO 3 2 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Add)
          did -o DO 3 3 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Load)
          did -o DO 3 5 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Rename)
          did -o DO 3 6 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Delete)
          did -o DO 3 8 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Refresh)
        }
        else {
          did -o DO 3 2 +a 1 $tab Add
          did -o DO 3 3 +da 1 $tab Load
          did -o DO 3 5 +a 1 $tab Rename
          did -o DO 3 6 +a 1 $tab Delete
          did -o DO 3 8 +a 1 $tab Refresh
        }
        set %i 1
        while ($ini($var.read(Variables,DiaMak.ff),%i) !== $null) {
          did -a DO 4 $ini($var.read(Variables,DiaMak.ff),%i)
          inc %i
        }
        unset %i
      }
      if ($var.read(Temporary,sel) == 3_2) {
        did -v DO 16,17,18,19,20,21,22,23,24,25,26,27
        var.set Variables DiaMak.color $did(do,16).seltext
        color.refresh
        did -f DO 1
      }
      if ($var.read(Temporary,sel) == 3_3) {
        did -v DO 12,13
        if ($var.read(Options,DiaMako.veot) == on) { did -c DO 13 }
      }
      if ($var.read(Temporary,sel) == 3_4) {
        did -v DO 13,14
        if ($var.read(Options,DiaMako.ceot) == on) { did -c DO 13 }
      }
      if ($var.read(Temporary,sel) == 4_2) {
        did -rv DO 6
        if ($var.read(Options,DiaMako.language) !== $null) {
          did -o DO 3 2 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Add)
          did -o DO 3 3 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Load)
          did -o DO 3 5 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Rename)
          did -o DO 3 6 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Delete)
          did -o DO 3 8 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Refresh)
        }
        else {
          did -o DO 3 2 +da 1 $tab Add
          did -o DO 3 3 +a 1 $tab Load
          did -o DO 3 5 +da 1 $tab Rename
          did -o DO 3 6 +a 1 $tab Delete
          did -o DO 3 8 +a 1 $tab Refresh
        }
        .echo -q $findfile($shortfn($scriptdir) $+ Data\Skins,*.skn,0,did -a DO 6 $remove($nopath($1-),.skn))
      }
      if ($var.read(Temporary,sel) == 5_2) {
        did -v DO 7
        did -ra DO 7 English
        if ($var.read(Options,DiaMako.language) !== $null) {
          did -o DO 3 2 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Add)
          did -o DO 3 3 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Load)
          did -o DO 3 5 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Rename)
          did -o DO 3 6 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Delete)
          did -o DO 3 8 +a 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Refresh)
        }
        else {
          did -o DO 3 2 +da 1 $tab Add
          did -o DO 3 3 +a 1 $tab Load
          did -o DO 3 5 +da 1 $tab Rename
          did -o DO 3 6 +a 1 $tab Delete
          did -o DO 3 8 +a 1 $tab Refresh
        }
        .echo -q $findfile($shortfn($scriptdir) $+ Data\Languages,*.lng,0,did -a DO 7 $nopath($1-))
      }
    }
    else {
      if ($var.read(Options,DiaMako.language) !== $null) {
        did -o DO 3 2 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Add)
        did -o DO 3 3 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Load)
        did -o DO 3 5 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Rename)
        did -o DO 3 6 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Delete)
        did -o DO 3 8 +da 1 $tab $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Options,Refresh)
      }
      else {
        did -o DO 3 2 +da 1 $tab Add
        did -o DO 3 3 +da 1 $tab Load
        did -o DO 3 5 +da 1 $tab Rename
        did -o DO 3 6 +da 1 $tab Delete
        did -o DO 3 8 +da 1 $tab Refresh
      }
      did -v DO 11
    }
  }
  on *:dialog:do:sclick:3:{
    if ($did(3).sel == 2) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 2_3) {
      var.set Variables DiaMak.pn $?="Enter pattern name:"
      if ($var.read(Variables,DiaMak.pn) !== $null) {
        writeini $var.read(Variables,DiaMak.ff) $var.read(Variables,DiaMak.pn) $var.read(Variables,DiaMak.pn) None
        did -a DO 4 $var.read(Variables,DiaMak.pn)
        did -c DO 4 $did(do,4).lines
        if ($did(do,4).seltext !== $null) {
          did -e DO 5
          did -ra DO 5 $readini($var.read(Variables,DiaMak.ff), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel))
        }
        else { did -br DO 5 }
      }
      if ($dialog(do)) { dialog -v DO DO }
    }
    if ($did(3).sel == 5) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 2_3) {
      if ($did(4).seltext !== $null) {
        var.set Variables DiaMak.rp $?="Rename ' $+ $did(do,4).seltext $+ ' to:"
        if ($var.read(Variables,DiaMak.rp) !== $null) {
          remini $var.read(Variables,DiaMak.ff) $did(do,4).seltext
          writeini $var.read(Variables,DiaMak.ff) $var.read(Variables,DiaMak.rp) $var.read(Variables,DiaMak.rp) $did(do,5)
          did -co DO 4 $did(do,4).sel $var.read(Variables,DiaMak.rp)
          if ($did(do,4).seltext !== $null) {
            did -e DO 5,19
            did -ra DO 5 $readini($var.read(Variables,DiaMak.ff), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel))
          }
          else { did -br DO 5 }
        }
        if ($dialog(do)) { dialog -v DO DO }
      }
    }
    if ($did(3).sel == 6) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 2_3) {
      if ($did(4).seltext !== $null) {
        remini $var.read(Variables,DiaMak.ff) $did(do,4).seltext
        did -d DO 4 $did(do,4).sel
        did -c DO 4 $did(do,4).lines
        if ($did(do,4).seltext !== $null) {
          did -e DO 5
          did -ra DO 5 $readini($var.read(Variables,DiaMak.ff), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel))
        }
        else { did -br DO 5 }
      }
    }
    if ($did(3).sel == 8) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 2_3) {
      did -r DO 4,5
      did -b DO 5
      set %i 1
      while ($ini($var.read(Variables,DiaMak.ff),%i) !== $null) {
        did -a DO 4 $ini($var.read(Variables,DiaMak.ff),%i)
        inc %i
      }
      unset %i
    }
    if ($did(3).sel == 3) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 4_2) {
      if ($did(6).seltext !== $null) {
        var.set Options DiaMako.skin $did(6).seltext
        DiaMak.skin
        if ($var.read(Options,DiaMako.skin) == Default) { var.unset Options DiaMako.skin }
      }
    }
    if ($did(3).sel == 6) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 4_2) {
      if ($did(6).seltext !== $null) && ($did(6).seltext !== Default) {
        if ($?!="Are you sure want to delete ' $+ $did(6).seltext $+ '?" == $true) { .remove $shortfn($scriptdir) $+ Data\Skins\ $+ $did(6).seltext $+ .skn }
        dialog -v DO do
        did -r DO 6
        .echo -q $findfile($shortfn($scriptdir) $+ Data\Skins,*.skn,0,did -a DO 6 $remove($nopath($1-),.skn))
      }
      if ($did(6).seltext !== $null) && ($did(6).seltext == Default) { .echo -q $DiaMak.error(You can't delete this skin because it is the default and the original one!) }
    }
    if ($did(3).sel == 8) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 4_2) {
      did -rv DO 6
      .echo -q $findfile($shortfn($scriptdir) $+ Data\Skins,*.skn,0,did -a DO 6 $remove($nopath($1-),.skn))
    }
    if ($did(3).sel == 6) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 5_2) {
      if ($did(7).seltext !== $null) && ($did(7).seltext !== English) {
        if ($?!="Are you sure want to delete ' $+ $did(7).seltext $+ '?" == $true) { .remove $shortfn($scriptdir) $+ Data\Languages\ $+ $did(7).seltext }
        dialog -v DO do
        did -ra DO 7 English
        .echo -q $findfile($shortfn($scriptdir) $+ Data\Languages,*.lng,0,did -a DO 7 $nopath($1-))
      }
      if ($did(7).seltext !== $null) && ($did(7).seltext == English) { .echo -q $DiaMak.error(You can't delete this language!) }
    }
    if ($did(3).sel == 3) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 5_2) {
      if ($did(7).seltext !== $null) && ($did(7).seltext !== English) { var.set Options DiaMako.language $did(7).seltext | .echo -q $DiaMak.error(You must restart Dialog Maker before the changes take effect!,DiaMak.close Restart) }
      if ($did(7).seltext !== $null) && ($did(7).seltext == English) { var.unset Options DiaMako.language | .echo -q $DiaMak.error(You must restart Dialog Maker before the changes take effect!,DiaMak.close Restart) }
    }
    if ($did(3).sel == 8) && ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 5_2) {
      did -ra DO 7 English
      .echo -q $findfile($shortfn($scriptdir) $+ Data\Languages,*.lng,0,did -a DO 7 $nopath($1-))
    }
  }
  on *:dialog:do:sclick:27:{
    var.set Variables DiaMak.test.font $dll($shortfn($scriptdir) $+ Data\Font.dll,Font,Select a Font...)
    if ($var.read(Variables,DiaMak.test.font) !== $false) {
      var.set Options DiaMako.font.size $gettok($var.read(Variables,DiaMak.test.font,1,44))
      var.set Options DiaMako.font.name $gettok($var.read(Variables,DiaMak.test.font,4,44))
      if ($var.read(Options,DiaMako.font.name) !== $null) { mdx SetFont DO 17 $var.read(Options,DiaMako.font.size) 200 $var.read(Options,DiaMako.font.name) | did -ra DO 27 $var.read(Options,DiaMako.font.name) - $var.read(Options,DiaMako.font.size) }
    }
    if ($dialog(do)) { dialog -v DO DO }
  }
  on *:dialog:do:edit:20:{
    color.red $DiaMak.edit(do,20) Edit
    color.refresh Edit
  }
  on *:dialog:do:edit:23:{
    color.green $DiaMak.edit(do,23) Edit
    color.refresh Edit
  }
  on *:dialog:do:edit:26:{
    color.blue $DiaMak.edit(do,26) Edit
    color.refresh Edit
  }
  on *:dialog:do:sclick:18:color.red $did(18).seltext
  on *:dialog:do:sclick:22:color.green $did(22).seltext
  on *:dialog:do:sclick:25:color.blue $did(25).seltext
  on *:dialog:do:sclick:12:DiaMak.ve | if ($var.read(Variables,DiaMak.file) !== $null) { DiaMak.build }
  on *:dialog:do:sclick:15:{
    if ($var.read(Options,DiaMako.last.project) == on) { var.unset Options DiaMako.last.project }
    else { var.set Options DiaMako.last.project on }
  }
  on *:dialog:do:sclick:28:{
    if ($var.read(Options,DiaMako.remember.positions) == on) { var.unset Options DiaMako.remember.positions }
    else { var.set Options DiaMako.remember.positions on }
  }
  on *:dialog:do:sclick:29:{
    if ($var.read(Options,DiaMako.close.loading) == on) { var.unset Options DiaMako.close.loading }
    else { var.set Options DiaMako.close.loading on }
  }
  on *:dialog:do:sclick:30:{
    if ($var.read(Options,DiaMako.show.tips) == on) { var.set Options DiaMako.show.tips off }
    else { var.set Options DiaMako.show.tips on }
  }
  on *:dialog:do:sclick:14:{
    if ($var.read(Options,DiaMako.asc) == on) { var.unset Options DiaMako.asc }
    else { var.set Options DiaMako.asc on }
  }
  on *:dialog:do:sclick:13:{
    if ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 3_3) {
      if ($var.read(Options,DiaMako.veot) == on) { var.unset Options DiaMako.veot }
      else { var.set Options DiaMako.veot on }
    }
    if ($replace($gettok($did(1,1),4-,32),$chr(32),_) == 3_4) {
      if ($var.read(Options,DiaMako.ceot) == on) { var.unset Options DiaMako.ceot }
      else { var.set Options DiaMako.ceot on }
    }
  }
  on *:dialog:do:sclick:16:{
    var.set Variables DiaMak.color $did(16).seltext
    color.refresh
  }
  on *:dialog:do:dclick:4:{
    var.set Variables DiaMak.rp $?="Rename ' $+ $did(do,4).seltext $+ ' to:"
    if ($var.read(Variables,DiaMak.rp) !== $null) {
      remini $var.read(Variables,DiaMak.ff) $did(do,4).seltext
      writeini $var.read(Variables,DiaMak.ff) $var.read(Variables,DiaMak.rp) $var.read(Variables,DiaMak.rp) $did(do,5)
      did -co DO 4 $did(do,4).sel $var.read(Variables,DiaMak.rp)
      if ($did(do,4).seltext !== $null) {
        did -e DO 5
        did -ra DO 5 $readini($var.read(Variables,DiaMak.ff), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel))
      }
      else { did -br DO 5 }
    }
    if ($dialog(do)) { dialog -v DO DO }
  }
  on *:dialog:do:edit:5:if ($did(do,5) !== $null) { writeini $var.read(Variables,DiaMak.ff) $did(do,4).seltext $did(do,4).seltext $did(do,5) }
  on *:dialog:do:sclick:4:{
    if ($did(do,4).seltext !== $null) {
      did -e DO 5
      did -ra DO 5 $readini($var.read(Variables,DiaMak.ff), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel), $ini($var.read(Variables,DiaMak.ff), $did(do,4).sel))
    }
    else { did -br DO 5 }
  }
  on *:dialog:do:sclick:54:{
    if ($var.read(Options,DiaMako.ceot) == on) { var.unset Options DiaMako.ceot }
    else { var.set Options DiaMako.ceot on }
  }
  on *:dialog:do:sclick:42:DiaMak.ve
  on *:dialog:do:sclick:6:{
    did -v DO 10
    var.set Temporary DiaMak.preview.skin $did(6).seltext
    DiaMak.preview.skin
  }
  on *:dialog:do:dclick:6:{
    var.set Options DiaMako.skin $did(6).seltext
    DiaMak.skin
    if ($var.read(Options,DiaMako.skin) == Default) { var.unset Options DiaMako.skin }
  }
  on *:dialog:do:sclick:40:{
    did -f DO 6
    var.set Options DiaMako.skin $did(6).seltext
    DiaMak.skin
    if ($var.read(Options,DiaMako.skin) == Default) { var.unset Options DiaMako.skin }
  }
  on *:dialog:do:sclick:34:{
    if ($var.read(Options,DiaMako.asc) == on) { var.unset Options DiaMako.asc }
    else { var.set Options DiaMako.asc on }
  }
  on *:dialog:do:sclick:4:{
    if ($var.read(Options,DiaMako.veot) == on) { var.unset Options DiaMako.veot }
    else { var.set Options DiaMako.veot on }
  }
  on *:dialog:do:dclick:7:{
    if ($did(7).seltext !== $null) && ($did(7).seltext !== English) { var.set Options DiaMako.language $did(7).seltext | .echo -q $DiaMak.error(You must restart Dialog Maker before the changes take effect!,DiaMak.close Restart) }
    if ($did(7).seltext !== $null) && ($did(7).seltext == English) { var.unset Options DiaMako.language | .echo -q $DiaMak.error(You must restart Dialog Maker before the changes take effect!,DiaMak.close Restart) }
  }
  ------------------------------------------------------------------
  dialog MOD {
    title "Dialog Maker: Modules"
    size -1 -1 560 365
    option pixels
    icon $DiaMak.icon(Modules), 0
    icon 1, 12 12 140 292, $DiaMak.icon(Modules_Pic), 0
    box "", 2, 11 317 538 8
    list 3, 165 10 385 297, size
    button "OK", 5, 449 337 100 20, default ok
    button "&Load", 6, 11 337 75 20
    button "&Adjust", 8, 86 337 75 20
    button "&Refresh", 9, 374 337 75 20
    button "&Delete", 11, 161 337 75 20
  }
  on *:dialog:mod:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.mod.x) !== $null) && ($var.read(Options,DiaMako.pos.mod.y) !== $null) { dialog -s mod $var.read(Options,DiaMako.pos.mod.x) $var.read(Options,DiaMako.pos.mod.y) 560 360 }
    mdx SetFont 5 13 700 Tahoma
    mdx SetControlMDX 3 ListView infotip sortascending headerdrag showsel single report rowselect > $shortfn($scriptdir) $+ Data\Views.mdx
    did -i $dname 3 1 headerdims 235:1 128:2 0:3
    did -i $dname 3 1 headertext +l Module $chr(9) $+ +l Author $chr(9) $+ +r Location
    did -i $dname 3 1 seticon normal 0 0, $+ $DiaMak.icon(Modules_Loaded)
    did -i $dname 3 1 seticon normal 0 0, $+ $DiaMak.icon(Modules_Unloaded)
    DiaMak.language
    .echo -q $findfile($shortfn($scriptdir) $+ Data\Modules,*.mod,0,DiaMak.add.mod $1-)
  }
  on *:dialog:mod:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.mod.x $dialog(mod).x | var.set Options DiaMako.pos.mod.y $dialog(mod).y }
  on *:dialog:mod:sclick:3:{
    if ($var.read(Options,DiaMako.language) == $null) {
      if ($script($shortfn($DiaMak.cell(mod,3,$did(3).sel,3))) !== $null) { did -ra mod 6 &Unload }
      else { did -ra mod 6 &Load }
    }
    else {
      if ($script($shortfn($DiaMak.cell(mod,3,$did(3).sel,3))) !== $null) { did -ra mod 6 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Modules,Unload) }
      else { did -ra mod 6 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Modules,Load) }
    }
  }
  on *:dialog:mod:dclick:3:{
    if ($script($shortfn($DiaMak.cell(mod,3,$did(3).sel,3))) !== $null) {
      if ($DiaMak.cell(mod,3,$did(3).sel,1) !== $null) {
        .unload -rs $DiaMak.cell(mod,3,$did(3).sel,3)
        did -co mod 3 $did(3).sel 0 + 2 0 0 $DiaMak.cell(mod,3,$did(3).sel,1) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,2) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,3) $chr(4) $readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Description)
        if ($var.read(Options,DiaMako.language) == $null) { did -ra mod 6 &Load }
        else { did -ra mod 6 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Modules,Load) }
      }
    }
    else {
      if ($DiaMak.cell(mod,3,$did(3).sel,1) !== $null) {
        .load -rs $DiaMak.cell(mod,3,$did(3).sel,3)
        did -co mod 3 $did(3).sel 0 + 1 0 0 $DiaMak.cell(mod,3,$did(3).sel,1) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,2) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,3) $chr(4) $readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Description)
        if ($var.read(Options,DiaMako.language) == $null) { did -ra mod 6 &Unload }
        else { did -ra mod 6 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Modules,Unload) }
      }
    }
  }
  on *:dialog:mod:sclick:8:{
    if ($DiaMak.cell(mod,3,$did(3).sel,1) !== $null) {
      if ($script($shortfn($DiaMak.cell(mod,3,$did(3).sel,3))) !== $null) { $readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Adjust) }
      else { .echo -q $DiaMak.error(Before adjusting the module please load it first!,.load -rs $DiaMak.cell(mod,3,$did(3).sel,3) $chr(4) $readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Description),$readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Adjust)) }
    }
  }
  on *:dialog:mod:sclick:11:{
    if ($DiaMak.cell(mod,3,$did(3).sel,1) !== $null) {
      if ($script($shortfn($DiaMak.cell(mod,3,$did(3).sel,3))) !== $null) { .unload -rs $DiaMak.cell(mod,3,$did(3).sel,3) }
      .remove -b $DiaMak.cell(mod,3,$did(3).sel,3)
      did -d mod 3 $did(3).sel
    }
  }
  on *:dialog:mod:sclick:9:{
    did -ra mod 6 &Load
    did -r mod 3
    .echo -q $findfile($shortfn($scriptdir) $+ Data\Modules,*.mod,0,DiaMak.add.mod $1-)
  }
  on *:dialog:mod:sclick:6:{
    if ($script($shortfn($DiaMak.cell(mod,3,$did(3).sel,3))) !== $null) {
      if ($DiaMak.cell(mod,3,$did(3).sel,1) !== $null) {
        .unload -rs $DiaMak.cell(mod,3,$did(3).sel,3)
        did -fco mod 3 $did(3).sel 0 + 2 0 0 $DiaMak.cell(mod,3,$did(3).sel,1) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,2) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,3) $chr(4) $readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Description)
        if ($var.read(Options,DiaMako.language) == $null) { did -ra mod 6 &Load }
        else { did -ra mod 6 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Modules,Load) }
      }
    }
    else {
      if ($DiaMak.cell(mod,3,$did(3).sel,1) !== $null) {
        .load -rs $DiaMak.cell(mod,3,$did(3).sel,3)
        did -fco mod 3 $did(3).sel 0 + 1 0 0 $DiaMak.cell(mod,3,$did(3).sel,1) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,2) $chr(9) $DiaMak.cell(mod,3,$did(3).sel,3) $chr(4) $readini($DiaMak.cell(mod,3,$did(3).sel,3),Information,Description)
        if ($var.read(Options,DiaMako.language) == $null) { did -ra mod 6 &Unload }
        else { did -ra mod 6 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Modules,Unload) }
      }
    }
  }
  ------------------------------------------------------------------
  dialog LE {
    title "Dialog Maker: Language Editor"
    size -1 -1 640 385
    option pixels
    icon $DiaMak.icon(Language), 0
    list 1, 0 0 500 333, size
    combo 2, 371 353 251 200, size vsbar drop
    button "New", 3, 18 353 151 20
    button "Change", 5, 169 353 101 20, disable default
    list 4, 500 0 140 333, size
    box "", 6, 10 340 620 8
    box "", 7, 10 340 270 40
    box "", 8, 361 340 270 40
  }
  on *:dialog:le:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.le.x) !== $null) && ($var.read(Options,DiaMako.pos.le.y) !== $null) { dialog -s le $var.read(Options,DiaMako.pos.le.x) $var.read(Options,DiaMako.pos.le.y) 640 385 }
    mdx SetFont 1,2,3,5,4 13 600 Tahoma
    mdx SetControlMDX 1 ListView headerdrag sortascending single report grid rowselect > $shortfn($scriptdir) $+ Data\Views.mdx
    mdx SetControlMDX 4 TreeView haslines linesatroot hasbuttons > $shortfn($scriptdir) $+ Data\Views.mdx
    did -i $dname 1 1 headerdims 239:1 239:2
    did -i $dname 1 1 headertext +c Default $chr(9) $+ +c Translated
    did -f le 2
    did -a $dname 4 Windows
    did -i $dname 4 1 cb 2
    did -a $dname 4 Main
    did -a $dname 4 Error
    did -a $dname 4 Update
    did -a $dname 4 Options
    did -a $dname 4 Modules
    did -a $dname 4 Control Editor
    did -a $dname 4 Language Editor
    did -a $dname 4 Code Editor
    did -i $dname 4 1 cb 9
    did -a $dname 4 Go To Line
    did -a $dname 4 Search
    did -i $dname 4 1 cb root
    did -a $dname 4 Menus
    did -i $dname 4 1 cb 3
    did -a $dname 4 Tools
    did -a $dname 4 Dialog Code
    did -i $dname 4 1 cb root
    did -a $dname 4 About
    .signal Modules_LE
    DiaMak.language
    .echo -q $findfile($shortfn($scriptdir) $+ Data\Languages,*.lng,0,did -a le 2 $nopath($1-))
    did -fc le 2 $did(2).lines
    var.set Temporary lang $shortfn($scriptdir) $+ Data\Languages\ $+ $did(2).seltext
  }
  on *:dialog:le:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.le.x $dialog(le).x | var.set Options DiaMako.pos.le.y $dialog(le).y }
  on *:dialog:le:sclick:3:{
    var.set Variables DiaMak.new.lang $?="New Language:"
    if ($var.read(Variables,DiaMak.new.lang) !== $null) {
      var.set Variables DiaMak.new.lang $shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Variables,DiaMak.new.lang) $+ .lng
      .copy $shortfn($scriptdirData\New.lng) $var.read(Variables,DiaMak.new.lang)
      if ($dialog(le)) { dialog -v le le }
      did -a le 2 $nopath($var.read(Variables,DiaMak.new.lang))
      did -fc le 2 $did(2).lines
      var.set Temporary lang $shortfn($scriptdir) $+ Data\Languages\ $+ $did(2).seltext
    }
  }
  on *:dialog:le:sclick:2:{
    if ($did(2).seltext !== $null) {
      var.set Temporary lang $shortfn($scriptdir) $+ Data\Languages\ $+ $did(2).seltext
    }
  }
  on *:dialog:le:sclick:4:{
    did -b le 5
    var.set Temporary sel $replace($gettok($did(4,1),4-,32),$chr(32),_)
    if ($var.read(Temporary,sel) == 2_2) { var.set Temporary sel Main }
    if ($var.read(Temporary,sel) == 2_3) { var.set Temporary sel Error }
    if ($var.read(Temporary,sel) == 2_4) { var.set Temporary sel Update }
    if ($var.read(Temporary,sel) == 2_5) { var.set Temporary sel Options }
    if ($var.read(Temporary,sel) == 2_6) { var.set Temporary sel Modules }
    if ($var.read(Temporary,sel) == 2_7) { var.set Temporary sel Control_Editor }
    if ($var.read(Temporary,sel) == 2_8) { var.set Temporary sel Language_Editor }
    if ($var.read(Temporary,sel) == 2_9) { var.set Temporary sel Code_Editor }
    if ($var.read(Temporary,sel) == 2_9_2) { var.set Temporary sel Go_To_Line }
    if ($var.read(Temporary,sel) == 2_9_3) { var.set Temporary sel Search }
    if ($var.read(Temporary,sel) == 3_2) { var.set Temporary sel Tools }
    if ($var.read(Temporary,sel) == 3_3) { var.set Temporary sel Dialog_Code }
    if ($var.read(Temporary,sel) == 4) { var.set Temporary sel About }
    if ($var.read(Temporary,sel) !== $null) && ($var.read(Temporary,sel) !== 2) && ($var.read(Temporary,sel) !== 3) && ($did(2).seltext !== $null) {
      did -r le 1
      set %item 1
      while (%item <= $ini($var.read(Temporary,lang),$var.read(Temporary,sel),0)) {
        did -a le 1 $ini($var.read(Temporary,lang),$var.read(Temporary,sel),%item) $chr(9) $readini($var.read(Temporary,lang), $var.read(Temporary,sel),$ini($var.read(Temporary,lang),$var.read(Temporary,sel),%item))
        inc %item
      }
    }
    if ($var.read(Temporary,sel) == 2) || ($var.read(Temporary,sel) == 3) { did -r le 1 }
  }
  on *:dialog:le:sclick:1:if ($did(1).seltext !== $null) { did -e le 5 } | else { did -b le 5 }
  on *:dialog:le:sclick:5:{
    if ($did(1).seltext !== $null) {
      var.set Temporary edit.line $did(1).sel
      if ($dialog(LE.TC) == $null) { did -b le 4 | dialog -m?LE.TC LE.TC }
      else { did -b le 4 | dialog -x LE.TC LE.TC | dialog -m?LE.TC LE.TC }
    }
  }
  on *:dialog:le:dclick:1:{
    if ($did(1).seltext !== $null) {
      var.set Temporary edit.line $did(1).sel
      if ($dialog(LE.TC) == $null) { did -b le 4 | dialog -m?LE.TC LE.TC }
      else { did -b le 4 | dialog -x LE.TC LE.TC | dialog -m?LE.TC LE.TC }
    }
  }
  ------------------------------------------------------------------
  dialog LE.TC {
    title ""
    size -1 -1 300 60
    option pixels
    icon $DiaMak.icon(Language), 0
    box "", 1, 0 -4 300 40
    edit "", 2, 7 9 284 21, autohs center
    button "&Change", 3, 100 39 100 20, default ok
  }
  on *:dialog:LE.TC:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.le.tc.x) !== $null) && ($var.read(Options,DiaMako.pos.le.tc.y) !== $null) { dialog -s le.tc $var.read(Options,DiaMako.pos.le.tc.x) $var.read(Options,DiaMako.pos.le.tc.y) 300 60 }
    mdx SetBorderStyle 2 border
    mdx SetFont 2,3 13 600 Tahoma
    var.set Temporary line.number $did(le,1).sel
    var.set Temporary subtopic $did(le,4).seltext
    var.set Temporary original $DiaMak.cell(LE,1,$did(le,1).sel,1)
    var.set Temporary translated $DiaMak.cell(LE,1,$did(le,1).sel,2)
    .signal Modules_LE.TC
    dialog -t LE.TC $var.read(Temporary,original)
    did -ra LE.TC 2 $var.read(Temporary,translated)
    if ($var.read(Options,DiaMako.language) !== $null) { did -ra le.tc 3 $readini($shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language),Language_Editor,Change) }
  }
  on *:dialog:LE.TC:close:*:{
    if ($dialog(le)) { did -e le 4 }
    if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.le.tc.x $dialog(le.tc).x | var.set Options DiaMako.pos.le.tc.y $dialog(le.tc).y }
  }
  on *:dialog:LE.TC:sclick:3:{
    if ($did(LE.TC,2) !== $null) && ($dialog(le)) {
      did -o le 1 $var.read(Temporary,edit.line) $var.read(Temporary,original) $chr(9) $did(LE.TC,2)
      writeini $var.read(Temporary,lang) $var.read(Temporary,sel) $var.read(Temporary,original) $did(LE.TC,2)
      did -c le 1 $var.read(Temporary,line.number)
    }
  }
  ------------------------------------------------------------------
  dialog CE {
    title "Dialog Maker: Control Editor"
    size 425 0 511 235
    option pixels
    icon $DiaMak.icon(Control), 0
    combo 4, 330 211 127 300, size drop
    text "Controls:", 5, 330 195 126 16, center
    text "Text:", 7, 0 10 42 16, right
    edit "", 8, 45 7 413 20, disable autohs
    edit "", 9, 45 32 50 20, disable autohs limit 4 center
    text "Size:", 6, 0 35 42 16, right
    edit "", 10, 96 32 50 20, disable autohs limit 4 center
    edit "", 11, 154 32 50 20, disable autohs limit 4 center
    edit "", 12, 205 32 50 20, disable autohs limit 4 center
    combo 3, 0 192 80 100, hide size drop
    text "Type:", 13, 0 176 80 16, hide center
    text "Align:", 14, 82 176 80 16, hide center
    combo 15, 82 192 80 100, hide size drop
    text "Tab:", 16, 164 176 80 16, hide center
    combo 17, 164 192 80 100, hide size drop
    check "Disable", 18, 258 32 50 20, disable push
    check "Hide", 19, 308 32 50 20, disable push
    check "Result", 20, 358 32 50 20, disable push
    check "Group", 21, 408 32 50 20, disable push
    button "&Save", 69, 0 214 118 20, default
    check "Default", 22, 8 84 96 20, hide push
    check "Flat", 23, 104 84 96 20, hide push
    check "Multi-Line", 24, 200 84 96 20, hide push
    button "Delete", 70, 270 108 120 20, hide
    button "Add", 43, 8 108 74 20, hide
    button "Refresh", 72, 82 108 74 20, hide
    check "Auto H Scroll", 28, 200 84 96 20, hide push
    check "Horizontal Scroll", 30, 200 104 96 20, hide push
    check "Sorted", 32, 8 84 96 20, hide push
    check "Editable", 33, 104 84 96 20, hide push
    check "Force Size", 34, 200 84 96 20, hide push
    check "Extended Select", 53, 104 84 96 20, hide push
    check "No Wordwrap", 36, 8 84 96 20, hide push
    check "Read-Only", 48, 8 104 96 20, hide push
    check "Flat", 40, 8 84 96 20, hide push
    check "3 State", 41, 104 84 96 20, hide push
    check "Flat", 51, 8 84 96 20, hide push
    check "Sorted", 52, 8 84 96 20, hide push
    check "Multi Select", 35, 104 104 96 20, hide push
    check "Force Size", 54, 200 84 96 20, hide push
    check "No Border", 60, 8 84 96 20, hide push
    check "Password Entry", 26, 8 84 96 20, hide push
    check "Allow Return", 27, 104 84 96 20, hide push
    combo 71, 270 86 120 92, hide size vsbar drop
    edit "", 58, 8 86 260 20, hide autohs
    edit "", 62, 6 122 300 20, hide autohs
    edit "", 66, 60 100 100 20, hide autohs
    edit "", 68, 60 124 100 20, hide autohs
    edit "", 59, 38 150 100 18, hide autohs
    text "Icon File:", 61, 0 106 52 16, hide right
    text "Scroll Range:", 64, 0 84 72 16, hide right
    text "Minimum:", 65, 0 104 58 16, hide right
    check "Vertical Scroll", 56, 296 104 96 20, hide push
    check "Horizontal Scroll", 55, 296 84 96 20, hide push
    button "Select...", 63, 314 122 74 20, hide
    check "Horizontal Scroll", 49, 296 84 96 20, hide push
    check "Vertical Scroll", 50, 296 104 96 20, hide push
    check "Auto V Scroll", 29, 296 84 96 20, hide push
    check "Vertical Scroll", 31, 296 104 96 20, hide push
    text "Maximum:", 67, 0 128 58 16, hide right
    text "Limit:", 57, 0 152 36 16, hide right
    list 1, 464 6 48 227, size
  }
  on *:dialog:ce:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.ce.x) !== $null) && ($var.read(Options,DiaMako.pos.ce.y) !== $null) { dialog -s ce $var.read(Options,DiaMako.pos.ce.x) $var.read(Options,DiaMako.pos.ce.y) 460 232 }
    mdx SetControlMDX ce 1 ToolBar flat nodivider > $shortfn($scriptdir) $+ Data\Bars.mdx
    mdx SetBorderStyle 1 windowedge
    did -i ce 1 1 bmpsize 32 32
    did -i ce 1 1 pad 10 10
    did -i ce 1 1 bwidth 32 32
    did -i ce 1 1 setimage +nhd icon normal, $DiaMak.icon(Copy)
    did -i ce 1 1 setimage +nhd icon normal, $DiaMak.icon(Delete)
    did -i ce 1 1 setimage +nhd icon normal, $DiaMak.icon(Modules)
    did -a ce 1 +wa 1 $tab $chr(9) $+ Copy
    did -a ce 1 +wa 2 $tab $chr(9) $+ Delete
    mdx SetControlMDX 9,10,11,12,59,66,68 UpDown alignright edit numeric > $shortfn($scriptdir) $+ Data\Ctl_gen.mdx
    did -i ce 9,10,11,12,59,66,68 1 0 0 9999 10 0:1,2:5,5:20
    mdx SetBorderStyle 8,58,62 border
    mdx SetBorderStyle 9,10,11,12,59,66,68 staticedge
    .signal Modules_CE
    DiaMak.language
    if ($var.read(Variables,DiaMak.file) !== $null) { DiaMak.ce }
  }
  on *:dialog:ce:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.ce.x $dialog(ce).x | var.set Options DiaMako.pos.ce.y $dialog(ce).y }
  on *:dialog:ce:sclick:1:{
    if ($did(1).sel == 3) {
      if ($did(ce,4).seltext !== $null) {
        did -i DiaMak 3 2 Deleting Control...
        var.set Variables DiaMak.id $gettok($did(ce,4).seltext,2,32)
        remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32)
        mdx DynamicControl destroy VisualEditor $gettok($did(ce,4).seltext,2,32)
        DiaMak.ce
        if ($gettok($did(ce,4).seltext,2,32) !== $null) && ($gettok($did(ce,4).seltext,1,32) == Tab) { did -e DiaMak 13 }
        if ($did(ce,4).lines > 0) { did -cf ce 4 $did(ce,4).lines | sel.control }
        if ($did(ce,4).lines == 0) {
          did -b ce 8,9,10,11,12,18,19,20,21
          did -r ce 3,8,17,15
          did -i ce 9,10,11,12 1 0 0 9999 10 0:1,2:5,5:20
          did -h ce 22,23,24,26,27,28,29,30,31,48,57,59,36,64,65,66,67,68,60,61,62,63,40,41,51,52,53,54,55,56,35,32,33,34,49,50,58,71,43,70,72,13,3,14,15,16,17
        }
        did -i DiaMak 3 2 Ready
      }
    }
  }
  on *:dialog:ce:sclick:4:if ($did(ce,4).seltext !== $null) { sel.control }
  on *:dialog:ce:edit:62:{
    if ($did(ce,62) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Icon $did(ce,62) }
    else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Icon }
  }
  on *:dialog:ce:edit:8:{
    if ($var.read(Temporary,Loading) !== Yes) {
      if ($did(ce,8) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Text $did(ce,8) }
      else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Text }
    }
  }
  on *:dialog:ce:edit:9:if ($DiaMak.edit(ce,9) !== $null) && ($var.read(Temporary,Loading) !== Yes) && ($did(9).enabled == $true) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) X $DiaMak.edit(ce,9) | mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12) }
  on *:dialog:ce:edit:10:if ($DiaMak.edit(ce,10) !== $null) && ($var.read(Temporary,Loading) !== Yes) && ($did(10).enabled == $true) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Y $DiaMak.edit(ce,10) | mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12) }
  on *:dialog:ce:edit:11:if ($DiaMak.edit(ce,11) !== $null) && ($var.read(Temporary,Loading) !== Yes) && ($did(11).enabled == $true) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) W $DiaMak.edit(ce,11) | mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12) }
  on *:dialog:ce:edit:12:if ($DiaMak.edit(ce,12) !== $null) && ($var.read(Temporary,Loading) !== Yes) && ($did(12).enabled == $true) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) H $DiaMak.edit(ce,12) | mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12) }
  ----------------------------------------------------------------------
  on *:dialog:ce:sclick:17:{
    if ($did(17) == None) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Tab }
    else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Tab $did(17) }
  }
  on *:dialog:ce:sclick:15:{
    if ($did(15) == Default) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Align }
    else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Align $did(15) }
  }
  on *:dialog:ce:sclick:3:{
    if ($did(3) == Default) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Type }
    else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Type $did(3) }
  }
  ===================TAB=======================
  on *:dialog:ce:sclick:43:{
    writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control +Tab
    writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Tab
    DiaMak.te
  }
  on *:dialog:ce:sclick:70:if ($var.read(Variables,DiaMak.tid) !== $null) { remini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.tid) | DiaMak.te }
  on *:dialog:ce:edit:58:{
    if ($did(58) !== $null) && ($var.read(Variables,DiaMak.tid) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.tid) Text $did(58) }
    else { remini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.tid) Text }
  }
  on *:dialog:ce:sclick:71:{
    var.set Variables DiaMak.tid $right($did(71),$calc($pos($did(71),$chr(32),1) *-1))
    did -r ce 58
    if ($readini($var.read(Variables,DiaMak.fn2), $var.read(Variables,DiaMak.tid) ,Text) !== $null) { did -a ce 58 $readini($var.read(Variables,DiaMak.fn2), $var.read(Variables,DiaMak.tid) ,Text) }
  }
  on *:dialog:ce:sclick:72:DiaMak.te
  ================ICON=========================
  on *:dialog:ce:sclick:63:{
    var.set Variables DiaMak.icon $sfile(*.ico,Select Icon:,Select)
    did -ra ce 62 $var.read(Variables,DiaMak.icon)
    if ($var.read(Variables,DiaMak.icon) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Icon $did(62) }
    else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Icon }
  }
  on *:dialog:ce:sclick:60:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,NoBorder) == NoBorder) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) NoBorder }
    else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) NoBorder NoBorder }
  }
  ===================COMMON====================
  on *:dialog:ce:sclick:69:DiaMak.cnd
  on *:dialog:ce:sclick:18:{
    if ($mid($did(ce,4),9,$len($did(ce,4))) !== $null) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Disable) == Disable) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Disable | did -e VisualEditor $gettok($did(ce,4).seltext,2,32) }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Disable Disable | did -b VisualEditor $gettok($did(ce,4).seltext,2,32) }
    }
  }
  on *:dialog:ce:sclick:19:{
    if ($mid($did(ce,4),9,$len($did(ce,4))) !== $null) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Hide) == Hide) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Hide | mdx SetBorderStyle VisualEditor $gettok($did(ce,4).seltext,2,32) windowedge }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Hide Hide | mdx SetBorderStyle VisualEditor $gettok($did(ce,4).seltext,2,32) clientedge }
    }
  }
  on *:dialog:ce:sclick:20:{
    if ($mid($did(ce,4),9,$len($did(ce,4))) !== $null) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Result) == Result) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Result }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Result Result }
    }
  }
  on *:dialog:ce:sclick:21:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Group) == Group) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Group }
    else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Group Group }
  }
  on *:dialog:ce:edit:8:{
    if ($var.read(Variables,DiaMak.fn2) !== $null) && ($gettok($did(ce,4).seltext,2,32) !== $null) {
      if ($did(ce,8) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Text $did(ce,8) }
      else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Text }
      did -ra VisualEditor $gettok($did(ce,4).seltext,2,32) $did(ce,8)
    }
  }
  on *:dialog:ce:edit:9:{
    if ($var.read(Variables,DiaMak.fn2) !== $null) && ($gettok($did(ce,4).seltext,2,32) !== $null) {
      if ($DiaMak.edit(ce,9) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) X $DiaMak.edit(ce,9) }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) X 0 }
      mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12)
    }
  }
  on *:dialog:ce:edit:10:{
    if ($var.read(Variables,DiaMak.fn2) !== $null) && ($gettok($did(ce,4).seltext,2,32) !== $null) {
      if ($DiaMak.edit(ce,10) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Y $DiaMak.edit(ce,10) }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Y 0 }
      mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12)
    }
  }
  on *:dialog:ce:edit:11:{
    if ($var.read(Variables,DiaMak.fn2) !== $null) && ($gettok($did(ce,4).seltext,2,32) !== $null) {
      if ($DiaMak.edit(ce,11) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) W $DiaMak.edit(ce,11) }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) W 0 }
      mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12)
    }
  }
  on *:dialog:ce:edit:12:{
    if ($var.read(Variables,DiaMak.fn2) !== $null) && ($gettok($did(ce,4).seltext,2,32) !== $null) {
      if ($DiaMak.edit(ce,12) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) H $DiaMak.edit(ce,12) }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) H 0 }
      mdx MoveControl VisualEditor $gettok($did(ce,4).seltext,2,32) $DiaMak.edit(ce,9) $DiaMak.edit(ce,10) $DiaMak.edit(ce,11) $DiaMak.edit(ce,12)
    }
  }
  ===================RADIO=====================
  on *:dialog:ce:sclick:51:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Radio) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Flat) == Flat) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Flat }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Flat Flat }
    }
  }
  ===================CHECK=====================
  on *:dialog:ce:sclick:40:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Check) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Flat) == Flat) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Flat }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Flat Flat }
    }
  }
  on *:dialog:ce:sclick:41:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Check) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,3State) == 3state) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) 3State }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) 3State 3state }
    }
  }
  ===================EDIT======================
  on *:dialog:ce:sclick:26:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Password) == Pass) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Password }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Password Pass }
    }
  }
  on *:dialog:ce:sclick:27:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Return) == Return) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Return }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Return Return }
    }
  }
  on *:dialog:ce:sclick:48:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,ReadOnly) == Read) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) ReadOnly }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) ReadOnly Read }
    }
  }
  on *:dialog:ce:sclick:28:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,AutoHS) == Autohs) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) AutoHS }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) AutoHS Autohs }
    }
  }
  on *:dialog:ce:sclick:29:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,AutoVS) == Autovs) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) AutoVS }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) AutoVS Autovs }
    }
  }
  on *:dialog:ce:sclick:30:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,HScroll) == Hsbar) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) HScroll }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) HScroll Hsbar }
    }
  }
  on *:dialog:ce:sclick:31:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,VScroll) == Vsbar) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) VScroll }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) VScroll Vsbar }
    }
  }
  on *:dialog:ce:edit:59:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Edit) {
      if ($DiaMak.edit(ce,59) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Limit $DiaMak.edit(ce,59) }
      else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Limit }
    }
  }
  ===================BUTTON====================
  on *:dialog:ce:sclick:22:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Button) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Default) == Default) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Default }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Default Default }
    }
  }
  on *:dialog:ce:sclick:23:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Button) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Flat) == Flat) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Flat }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Flat Flat }
    }
  }
  on *:dialog:ce:sclick:24:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Button) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,MultiLine) == MultiLine) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) MultiLine }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) MultiLine MultiLine }
    }
  }
  ===================LIST======================
  on *:dialog:ce:sclick:52:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == List) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Sorted) == Sort) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Sorted }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Sorted Sort }
    }
  }
  on *:dialog:ce:sclick:53:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == List) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Extended) == Extsel) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Extended }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Extended Extsel }
    }
  }
  on *:dialog:ce:sclick:35:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == List) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Multi) == Multsel) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Multi }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Multi Multsel }
    }
  }
  on *:dialog:ce:sclick:54:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == List) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Force) == Size) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Force }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Force Size }
    }
  }
  on *:dialog:ce:sclick:55:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == List) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Horizontal) == Hsbar) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Horizontal }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Horizontal Hsbar }
    }
  }
  on *:dialog:ce:sclick:56:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == List) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Vertical) == Vsbar) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Vertical }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Vertical Vsbar }
    }
  }
  ===================COMBO=====================
  on *:dialog:ce:sclick:32:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Combo) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Sorted) == Sort) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Sorted }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Sorted Sort }
    }
  }
  on *:dialog:ce:sclick:33:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Combo) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Editable) == Edit) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Editable }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Editable Edit }
    }
  }
  on *:dialog:ce:sclick:34:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Combo) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Force) == Size) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Force }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Force Size }
    }
  }
  on *:dialog:ce:sclick:49:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Combo) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Horizontal) == Hsbar) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Horizontal }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Horizontal Hsbar }
    }
  }
  on *:dialog:ce:sclick:50:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Combo) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Vertical) == Vsbar) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Vertical }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Vertical Vsbar }
    }
  }
  ===================TEXT======================
  on *:dialog:ce:sclick:36:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Text) {
      if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,NoWordwrap) == NoWrap) { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) NoWordwrap }
      else { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) NoWordwrap NoWrap }
    }
  }
  ===================SCROLL====================
  on *:dialog:ce:edit:68:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Scroll) {
      if ($did(68) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Maximum $did(68) }
      else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Maximum }
    }
  }
  on *:dialog:ce:edit:66:{
    if ($readini($var.read(Variables,DiaMak.fn2), $gettok($did(ce,4).seltext,2,32) ,Control) == Scroll) {
      if ($did(66) !== $null) { writeini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Minimum $did(66) }
      else { remini $var.read(Variables,DiaMak.fn2) $gettok($did(ce,4).seltext,2,32) Minimum }
    }
  }
  ----------------------------------------------------------------------------------
  dialog DC {
    title "Dialog Maker: Code Editor"
    size -1 -1 640 480
    option pixels
    icon $DiaMak.icon(Code), 0
    edit "", 1, 164 70 475 406, multi return autohs autovs hsbar vsbar
    button "P", 13, 620 41 20 21, hide
    list 17, 2 2 1037 32, size
    list 2, 2 70 160 365, size
    list 3, 3 437 159 40, size
    text "Lines", 4, 4 73 100 16, hide
    edit "", 5, 4 89 155 21, hide read autohs center
    text "Size", 6, 4 120 100 16, hide
    edit "", 7, 4 136 155 21, hide read autohs center
    list 8, 2 70 160 365, hide size vsbar
    edit "", 9, 4 183 155 200, hide read multi return autohs autovs hsbar vsbar
    text "Clipboard", 10, 4 167 100 16, hide
  }
  on *:dialog:dc:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetControlMDX 13 positioner size minbox maxbox > $shortfn($scriptdir) $+ Data\Dialog.mdx
    mdx SetFont 1 $var.read(Options,DiaMako.font.size) 200 $var.read(Options,DiaMako.font.name)
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.dc.x) !== $null) && ($var.read(Options,DiaMako.pos.dc.y) !== $null) && ($var.read(Options,DiaMako.pos.dc.w) !== $null) && ($var.read(Options,DiaMako.pos.dc.h) !== $null) { dialog -s dc $var.read(Options,DiaMako.pos.dc.x) $var.read(Options,DiaMako.pos.dc.y) $var.read(Options,DiaMako.pos.dc.w) $var.read(Options,DiaMako.pos.dc.h) }
    else { did -a dc 13 maximize }
    if ($var.read(Options,DiaMako.explorer) !== on) { did -h dc 2,3 }
    mdx SetControlMDX dc 17,3 ToolBar flat nodivider > $shortfn($scriptdir) $+ Data\Bars.mdx
    mdx SetBorderStyle 17,3 windowedge
    did -i dc 17,3 1 bmpsize 32 32
    did -i dc 17 1 pad 10 10
    did -i dc 17 1 bwidth 32 32
    did -i dc 3 1 pad 20 6
    mdx SetColor $dname 1 background $rgb($gettok($var.read(Options,DiaMako.color.back),1,95) , $gettok($var.read(Options,DiaMako.color.back),2,95) , $gettok($var.read(Options,DiaMako.color.back),3,95))
    mdx SetColor $dname 1 textbg $rgb($gettok($var.read(Options,DiaMako.color.textbg),1,95) , $gettok($var.read(Options,DiaMako.color.textbg),2,95) , $gettok($var.read(Options,DiaMako.color.textbg),3,95))
    mdx SetColor $dname 1 text $rgb($gettok($var.read(Options,DiaMako.color.text),1,95) , $gettok($var.read(Options,DiaMako.color.text),2,95) , $gettok($var.read(Options,DiaMako.color.text),3,95))
    var.set Variables DiaMakc.file $nofile($shortfn($var.read(Variables,DiaMak.file))) $+ $remove($nopath($var.read(Variables,DiaMak.file)),$right($nopath($var.read(Variables,DiaMak.file)),2)) $+ DiaMakc
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Save)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Copy)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Paste)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Print)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Clear)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Search)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Goto)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Explorer)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Patterns)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Brackets)
    did -i dc 17 1 setimage +nhd icon normal, $DiaMak.icon(Modules)
    did -i dc 17 1 setscheme $rgb(255,255,255) $rgb(128,128,128)
    did -a dc 17 +a 1 $tab Save $chr(9) $+ Save the code and close Code Editor
    did -a dc 17 +a -
    did -a dc 17 +a 2 $tab Copy $chr(9) $+ Copy selected text
    did -a dc 17 +a 3 $tab Paste $chr(9) $+ Paste the text from clipboard to the end of the code
    did -a dc 17 +a -
    did -a dc 17 +a 4 $tab Print $chr(9) $+ Print the code
    did -a dc 17 +a 5 $tab Clear $chr(9) $+ Clear entire code
    did -a dc 17 +a -
    did -a dc 17 +a 6 $tab Search $chr(9) $+ Search through the code
    did -a dc 17 +a 7 $tab Go To Line $chr(9) $+ Go to any line
    if ($var.read(Options,DiaMako.explorer) == on) { did -a dc 17 +xca 8 $tab Explorer $chr(9) $+ Show or hide Code Editor Explorer }
    else { did -a dc 17 +ca 8 $tab Explorer $chr(9) $+ Show or hide Code Editor Explorer }
    did -a dc 17 +a -
    did -a dc 17 +a 9 $tab Patterns $chr(9) $+ View available patterns
    did -a dc 17 +a 10 $tab Brackets $chr(9) $+ Check code for bracket errors
    did -i dc 3 1 setimage +nhd icon normal, $DiaMak.icon(Explorer)
    did -i dc 3 1 setimage +nhd icon normal, $DiaMak.icon(Information)
    did -i dc 3 1 setimage +nhd icon normal, $DiaMak.icon(Search)
    if ($var.read(Options,DiaMako.explorer) == on) && ($var.read(Options,DiaMako.explorer.part) == Explorer) { did -a dc 3 +xgca 1 $tab $chr(9) $+ Explorer }
    else { did -a dc 3 +gca 1 $tab $chr(9) $+ Explorer }
    if ($var.read(Options,DiaMako.explorer) == on) && ($var.read(Options,DiaMako.explorer.part) == Information) { did -a dc 3 +xgca 2 $tab $chr(9) $+ Information | did -h DC 2 }
    else { did -a dc 3 +gca 2 $tab $chr(9) $+ Information }
    if ($var.read(Options,DiaMako.explorer) == on) && ($var.read(Options,DiaMako.explorer.part) == Search) { did -a dc 3 +xgca 3 $tab $chr(9) $+ Search Results | did -h DC 2 }
    else { did -a dc 3 +gca 3 $tab $chr(9) $+ Search Results }
    mdx SetFont 4,5,6,7,9,10 13 700 Tahoma
    mdx SetBorderStyle 5,7,9 border
    mdx SetColor 5,7,9 text $rgb(100,0,100)
    mdx SetColor 5,7,9 textbg $rgb(255,255,255)
    mdx SetColor 5,7,9 background $rgb(255,255,255)
    mdx SetControlMDX 2 TreeView haslines linesatroot hasbuttons showsel hottrack > $shortfn($scriptdir) $+ Data\Views.mdx
    .signal Modules_DC
    DiaMak.language
    if ($exists($var.read(Variables,DiaMakc.file)) == $true) { loadbuf -ro dc 1 $var.read(Variables,DiaMakc.file) }
    if ($var.read(Options,DiaMako.explorer) == on) && ($var.read(Options,DiaMako.explorer.part) == Explorer) { DiaMak.explorer.refresh }
    if ($var.read(Options,DiaMako.explorer) == on) && ($var.read(Options,DiaMako.explorer.part) == Information) {
      did -v DC 4,5,6,7,9,10
      did -i DiaMak 3 2 Saving Code...
      savebuf -o dc 1 $shortfn($scriptdir) $+ Data\Temporary.tmp
      did -i DiaMak 3 2 Ready
      did -ra DC 5 $did(DC,1).lines
      did -ra DC 7 $bytes($file($shortfn($scriptdir) $+ Data\Temporary.tmp).size,k).suf
      did -r DC 9
      set %i 1
      while (%i <= $cb(0)) && (%i <= 150) {
        did -a DC 9 $cb(%i) $crlf
        inc %i
      }
      unset %i
      .remove $shortfn($scriptdir) $+ Data\Temporary.tmp
    }
    if ($var.read(Options,DiaMako.explorer) == on) && ($var.read(Options,DiaMako.explorer.part) == Search) { did -v DC 8 }
  }
  on *:dialog:dc:close:*:{
    if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.dc.x $dialog(dc).x | var.set Options DiaMako.pos.dc.y $dialog(dc).y | var.set Options DiaMako.pos.dc.w $dialog(dc).w | var.set Options DiaMako.pos.dc.h $dialog(dc).h }
    if ($input(Save the code before exit?,yu,Code Editor: Close) == $true) {
      did -i DiaMak 3 2 Saving Code...
      if ($did(1) !== $null) { savebuf -o dc 1 $var.read(Variables,DiaMakc.file) }
      if ($did(1) == $null) { .remove $var.read(Variables,DiaMakc.file) }
    }
    if ($dialog(DiaMak)) { dialog -v DiaMak DiaMak }
  }
  on *:dialog:dc:sclick:8:did -fc DC 1 $gettok($did(dc,8).seltext,1,32)
  on *:dialog:dc:edit:1:if ($var.read(Options,DiaMako.explorer.auto_refresh) == on) { DiaMak.explorer.refresh }
  on *:dialog:dc:sclick:13:{
    tokenize 32 $gettok($did(13),1-,32)
    if ($1 == size) {
      if ($var.read(Options,DiaMako.explorer) == on) { mdx MoveControl dc 1 * * $calc($dialog(dc).cw -167) $calc($dialog(dc).ch -72) }
      else { mdx MoveControl dc 1 4 * $calc($dialog(dc).cw -7) $calc($dialog(dc).ch -72) }
      mdx MoveControl dc 2 * * * $calc($dialog(dc).ch -111)
      mdx MoveControl dc 8 * * * $calc($dialog(dc).ch -111)
      mdx MoveControl dc 3 * $calc($dialog(dc).ch -40) * *
    }
    elseif ($1 == sizing) { did -a $dname 13 setSize c $iif($9 > 640,$9,640) $iif($10 > 480,$10,480) }
  }
  on *:dialog:dc:sclick:2:{
    if ($gettok($did(2,1),1,32) == slclick) && ($len($DiaMak.tree(DC,2).sel) > 1) {
      if ($gettok($DiaMak.tree(DC,2,$DiaMak.tree(DC,2).root),1,32) == Aliases) { did -fc DC 1 $gettok($read($shortfn($scriptdir) $+ Data\Aliases.txt,$calc($gettok($DiaMak.tree(DC,2).sel,2,32) -1)),1,32) }
      if ($gettok($DiaMak.tree(DC,2,$DiaMak.tree(DC,2).root),1,32) == Dialogs) { did -fc DC 1 $gettok($read($shortfn($scriptdir) $+ Data\Dialogs.txt,$calc($gettok($DiaMak.tree(DC,2).sel,2,32) -1)),1,32) }
      if ($gettok($DiaMak.tree(DC,2,$DiaMak.tree(DC,2).root),1,32) == Menus) { did -fc DC 1 $gettok($read($shortfn($scriptdir) $+ Data\Menus.txt,$calc($gettok($DiaMak.tree(DC,2).sel,2,32) -1)),1,32) }
      if ($gettok($DiaMak.tree(DC,2,$DiaMak.tree(DC,2).root),1,32) == Signals) { did -fc DC 1 $gettok($read($shortfn($scriptdir) $+ Data\Signals.txt,$calc($gettok($DiaMak.tree(DC,2).sel,2,32) -1)),1,32) }
      if ($gettok($DiaMak.tree(DC,2,$DiaMak.tree(DC,2).root),1,32) == Events) { did -fc DC 1 $gettok($read($shortfn($scriptdir) $+ Data\Events.txt,$calc($gettok($DiaMak.tree(DC,2).sel,2,32) -1)),1,32) }
      if ($gettok($DiaMak.tree(DC,2,$DiaMak.tree(DC,2).root),1,32) == Raw) { did -fc DC 1 $gettok($read($shortfn($scriptdir) $+ Data\Raws.txt,$calc($gettok($DiaMak.tree(DC,2).sel,2,32) -1)),1,32) }
    }
    if ($gettok($did(2,1),1,32) == rclick) {
      set %hmenu $DiaMak.mpdll(MPCreateMenu,Explorer)
      set %hmenu $gettok(%hmenu,2,32)
      DiaMak.mpdll MPMenuColor Explorer > RGB_HIGH > $rgb(182,189,210)
      DiaMak.mpdll MPMenuColor Explorer > RGB_HBOX > $rgb(10,36,106)
      DiaMak.mpdll MPMenuColor Explorer > RGB_CSEP > $rgb(210,210,210)
      DiaMak.mpdll MPMenuColor Explorer > RGB_BBOX > $rgb(205,207,214)
      DiaMak.mpdll MPMenuColor Explorer > RGB_CBOX > $rgb(10,36,106)
      DiaMak.mpdll MPAddItem %hmenu > 1 0 0 Refresh > DiaMak.explorer.refresh
      DiaMak.mpdll MPAddItem %hmenu > 100 0 0 - > -
      if ($var.read(Options,DiaMako.explorer.show_aliases) == on) { DiaMak.mpdll MPAddItem %hmenu > 2 0 2 Aliases > DiaMak.set.eo DiaMako.explorer.show_aliases }
      else { DiaMak.mpdll MPAddItem %hmenu > 2 0 0 Aliases > DiaMak.set.eo DiaMako.explorer.show_aliases }
      if ($var.read(Options,DiaMako.explorer.show_dialogs) == on) { DiaMak.mpdll MPAddItem %hmenu > 3 0 2 Dialogs > DiaMak.set.eo DiaMako.explorer.show_dialogs }
      else { DiaMak.mpdll MPAddItem %hmenu > 3 0 0 Dialogs > DiaMak.set.eo DiaMako.explorer.show_dialogs }
      if ($var.read(Options,DiaMako.explorer.show_menus) == on) { DiaMak.mpdll MPAddItem %hmenu > 4 0 2 Menus > DiaMak.set.eo DiaMako.explorer.show_menus }
      else { DiaMak.mpdll MPAddItem %hmenu > 4 0 0 Menus > DiaMak.set.eo DiaMako.explorer.show_menus }
      if ($var.read(Options,DiaMako.explorer.show_signals) == on) { DiaMak.mpdll MPAddItem %hmenu > 5 0 2 Signals > DiaMak.set.eo DiaMako.explorer.show_signals }
      else { DiaMak.mpdll MPAddItem %hmenu > 5 0 0 Signals > DiaMak.set.eo DiaMako.explorer.show_signals }
      if ($var.read(Options,DiaMako.explorer.show_events) == on) { DiaMak.mpdll MPAddItem %hmenu > 6 0 2 Events > DiaMak.set.eo DiaMako.explorer.show_events }
      else { DiaMak.mpdll MPAddItem %hmenu > 6 0 0 Events > DiaMak.set.eo DiaMako.explorer.show_events }
      if ($var.read(Options,DiaMako.explorer.show_raw_events) == on) { DiaMak.mpdll MPAddItem %hmenu > 7 0 2 Raw Events > DiaMak.set.eo DiaMako.explorer.show_raw_events }
      else { DiaMak.mpdll MPAddItem %hmenu > 7 0 0 Raw Events > DiaMak.set.eo DiaMako.explorer.show_raw_events }
      DiaMak.mpdll MPAddItem %hmenu > 200 0 0 - > -
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { DiaMak.mpdll MPAddItem %hmenu > 8 0 2 Auto Expand > DiaMak.set.eo DiaMako.explorer.auto_expand }
      else { DiaMak.mpdll MPAddItem %hmenu > 8 0 0 Auto Expand > DiaMak.set.eo DiaMako.explorer.auto_expand }
      if ($var.read(Options,DiaMako.explorer.auto_refresh) == on) { DiaMak.mpdll MPAddItem %hmenu > 9 0 2 Auto Refresh > DiaMak.set.eo DiaMako.explorer.auto_refresh }
      else { DiaMak.mpdll MPAddItem %hmenu > 9 0 0 Auto Refresh > DiaMak.set.eo DiaMako.explorer.auto_refresh }
      set %hsmenu $gettok(%hsmenu,2,32)
      DiaMak.mpdll MPopup Explorer > $mouse.dx $mouse.dy left top right
      unset %hsmenu
    }
  }
  on *:dialog:dc:sclick:3:{
    if ($did(3).sel == 2) { var.set Options DiaMako.explorer.part Explorer | DiaMak.explorer.refresh | did -h DC 4,5,6,7,8,9,10 | did -v DC 2 }
    if ($did(3).sel == 3) {
      var.set Options DiaMako.explorer.part Information
      did -h DC 2,8
      did -v DC 4,5,6,7,9,10
      did -i DiaMak 3 2 Saving Code...
      savebuf -o dc 1 $shortfn($scriptdir) $+ Data\Temporary.tmp
      did -i DiaMak 3 2 Ready
      did -ra DC 5 $did(DC,1).lines
      did -ra DC 7 $bytes($file($shortfn($scriptdir) $+ Data\Temporary.tmp).size,k).suf
      did -r DC 9
      set %i 1
      while (%i <= $cb(0)) && (%i <= 150) {
        did -a DC 9 $cb(%i) $crlf
        inc %i
      }
      unset %i
      .remove $shortfn($scriptdir) $+ Data\Temporary.tmp
    }
    if ($did(3).sel == 4) { var.set Options DiaMako.explorer.part Search | did -h DC 2,4,5,6,7,9,10 | did -v DC 8 }
  }
  on *:dialog:dc:sclick:17:{
    if ($did(17).sel == 2) {
      did -i DiaMak 3 2 Saving Code...
      if ($did(1) !== $null) { savebuf -o dc 1 $var.read(Variables,DiaMakc.file) }
      if ($did(1) == $null) { .remove $var.read(Variables,DiaMakc.file) }
      did -i DiaMak 3 2 Ready
      dialog -x dc dc
    }
    elseif ($did(17).sel == 4) {
      clipboard $did(1).seltext
      did -r DC 9
      set %i 1
      while (%i <= $cb(0)) && (%i <= 150) {
        did -a DC 9 $cb(%i) $crlf
        inc %i
      }
      unset %i
    }
    elseif ($did(17).sel == 5) {
      set %i 1
      while (%i <= $cb(0)) {
        did -a dc 1 $cb(%i) $crlf
        inc %i
      }
    }
    elseif ($did(17).sel == 7) {
      savebuf -o dc 1 PRINT.txt
      run -n notepad /p PRINT.txt
      .timerPrint 1 1 .remove PRINT.txt
    }
    elseif ($did(17).sel == 8) { did -r dc 1 }
    elseif ($did(17).sel == 10) { dialog -mod DC.ST DC.ST }
    elseif ($did(17).sel == 11) { dialog -mod DC.GL DC.GL }
    elseif ($did(17).sel == 12) {
      if ($var.read(Options,DiaMako.explorer) == on) {
        var.set Options DiaMako.explorer off
        did -h DC 2,3,4,5,6,7,8,9,10
        mdx MoveControl dc 1 4 * $calc($dialog(dc).cw -7) $calc($dialog(dc).ch -72)
      }
      else {
        var.set Options DiaMako.explorer on
        did -v DC 2,3
        mdx MoveControl dc 1 164 * $calc($dialog(dc).cw -167) $calc($dialog(dc).ch -72)
        if ($var.read(Options,DiaMako.explorer.part) == Explorer) { did -o dc 3 2 +xgca 1 $tab | did -h DC 4,5,6,7,8,9,10 | did -v DC 2 | DiaMak.explorer.refresh }
        if ($var.read(Options,DiaMako.explorer.part) == Information) {
          did -o dc 3 3 +xgca 2 $tab
          did -h DC 2,8
          did -v DC 4,5,6,7,9,10
          did -i DiaMak 3 2 Saving Code...
          savebuf -o dc 1 $shortfn($scriptdir) $+ Data\Temporary.tmp
          did -i DiaMak 3 2 Ready
          did -ra DC 5 $did(DC,1).lines
          did -ra DC 7 $bytes($file($shortfn($scriptdir) $+ Data\Temporary.tmp).size,k).suf
          did -r DC 9
          set %i 1
          while (%i <= $cb(0)) && (%i <= 150) {
            did -a DC 9 $cb(%i) $crlf
            inc %i
          }
          unset %i
          .remove $shortfn($scriptdir) $+ Data\Temporary.tmp
        }
        if ($var.read(Options,DiaMako.explorer.part) == Search) { did -o dc 3 4 +xgca 3 $tab | did -h DC 2,4,5,6,7,9,10 | did -v DC 8 }
      }
    }
    elseif ($did(17).sel == 14) {
      set %hmenu $DiaMak.mpdll(MPCreateMenu,Patterns)
      set %hmenu $gettok(%hmenu,2,32)
      DiaMak.mpdll MPMenuColor Patterns > RGB_HIGH > $rgb(182,189,210)
      DiaMak.mpdll MPMenuColor Patterns > RGB_HBOX > $rgb(10,36,106)
      DiaMak.mpdll MPMenuColor Patterns > RGB_CSEP > $rgb(210,210,210)
      DiaMak.mpdll MPMenuColor Patterns > RGB_BBOX > $rgb(205,207,214)
      DiaMak.mpdll MPMenuColor Patterns > RGB_CBOX > $rgb(10,36,106)
      set %i 1
      while (%i <= $ini($var.read(Variables,DiaMak.ff),0)) {
        DiaMak.mpdll MPAddIcon Patterns > $DiaMak.icon(Patterns)
        DiaMak.mpdll MPAddItem %hmenu > %i 1 0 $ini($var.read(Variables,DiaMak.ff),%i) > did -a dc 1 $readini($var.read(Variables,DiaMak.ff),$ini($var.read(Variables,DiaMak.ff),%i),$ini($var.read(Variables,DiaMak.ff),%i))
        inc %i
      }
      set %hsmenu $gettok(%hsmenu,2,32)
      DiaMak.mpdll MPopup Patterns > $mouse.dx $mouse.dy left top right
      unset %hsmenu
    }
    elseif ($did(17).sel == 15) { DiaMak.BracketCheck }
  }
  ------------------------------------------------------------------
  dialog DC.BC {
    title "Bracket Check"
    size -1 -1 421 255
    option pixels
    icon $DiaMak.icon(Brackets), 0
    list 1, 0 1 421 235, size
    text "", 2, 0 237 420 18
  }
  on *:dialog:DC.BC:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.dc.bc.x) !== $null) && ($var.read(Options,DiaMako.pos.dc.bc.y) !== $null) { dialog -s dc.bc $var.read(Options,DiaMako.pos.dc.bc.x) $var.read(Options,DiaMako.pos.dc.bc.y) 420 255 }
    mdx SetControlMDX 1 ListView headerdrag sortascending single report grid rowselect > $shortfn($scriptdir) $+ Data\Views.mdx
    mdx SetFont 1 13 600 Tahoma
    did -i $dname 1 1 headerdims 199:1 200:2
    did -i $dname 1 1 headertext +c Error $chr(9) $+ +c Line
    mdx SetControlMDX 2 Progressbar smooth > $shortfn($scriptdir) $+ Data\ctl_gen.mdx
    did -a $dname 2 BarColor $rgb(0,0,0)
    .signal Modules_DC.BC
  }
  on *:dialog:DC.BC:sclick:1:did -c dc 1 $DiaMak.cell(DC.BC,1,$did(1).sel,2)
  on *:dialog:DC.BC:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.dc.bc.x $dialog(dc.bc).x | var.set Options DiaMako.pos.dc.bc.y $dialog(dc.bc).y }
  ------------------------------------------------------------------
  dialog DC.GL {
    title "Go To Line..."
    size -1 -1 200 70
    option pixels
    icon $DiaMak.icon(Goto), 0
    combo 1, 69 11 60 123, size
    box "", 2, 5 34 190 8
    button "&Go", 3, 20 47 80 20, default ok
    button "&Cancel", 4, 100 47 80 20, cancel
    button "", 5, 131 11 20 10
  }
  on *:dialog:dc.gl:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.dc.gl.x) !== $null) && ($var.read(Options,DiaMako.pos.dc.gl.y) !== $null) { dialog -s dc.gl $var.read(Options,DiaMako.pos.dc.gl.x) $var.read(Options,DiaMako.pos.dc.gl.y) 200 70 }
    mdx SetControlMDX 1 ComboBoxEx dropedit > $shortfn($scriptdir) $+ Data\Views.mdx
    mdx SetFont 1 13 700 Tahoma
    set %i 1
    while ($readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Goto,%i) !== $null) {
      did -a dc.gl 1 0 0 0 0 $readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Goto,%i)
      inc %i
    }
    unset %i
    did -c dc.gl 1 $did(1).lines
    .signal Modules_DC.GL
    DiaMak.language
  }
  on *:dialog:dc.gl:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.dc.gl.x $dialog(dc.gl).x | var.set Options DiaMako.pos.dc.gl.y $dialog(dc.gl).y }
  on *:dialog:dc.gl:sclick:3:{
    if ($mid($did(1),9,$len($did(1))) !== $null) {
      var.set Goto $calc($ini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Goto,0) +1) $mid($did(1),9,$len($did(1)))
      did -c dc 1 $mid($did(1),9,$len($did(1)))
    }
  }
  on *:dialog:dc.gl:sclick:5:var.unset Goto | did -r dc.gl 1
  ------------------------------------------------------------------
  dialog DC.ST {
    title "Search..."
    size -1 -1 200 70
    option pixels
    icon $DiaMak.icon(Search), 0
    box "", 2, 5 34 190 8
    button "&Find", 3, 20 47 80 20, default
    button "&Cancel", 4, 100 47 80 20, cancel
    button "", 5, 175 11 20 10
    combo 1, 4 11 169 123, size
  }
  on *:dialog:dc.st:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.dc.st.x) !== $null) && ($var.read(Options,DiaMako.pos.dc.st.y) !== $null) { dialog -s dc.st $var.read(Options,DiaMako.pos.dc.st.x) $var.read(Options,DiaMako.pos.dc.st.y) 200 70 }
    mdx SetControlMDX 1 ComboBoxEx dropedit > $shortfn($scriptdir) $+ Data\Views.mdx
    mdx SetFont 1 13 700 Tahoma
    set %i 1
    while ($readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Search,%i) !== $null) {
      did -a dc.st 1 0 0 0 0 $readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Search,%i)
      inc %i
    }
    unset %i
    did -c dc.st 1 $did(1).lines
    .signal Modules_DC.ST
    DiaMak.language
  }
  on *:dialog:dc.st:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.dc.st.x $dialog(dc.st).x | var.set Options DiaMako.pos.dc.st.y $dialog(dc.st).y }
  on *:dialog:dc.st:sclick:3:{
    if ($mid($did(dc.st,1),9,$len($did(dc.st,1))) !== $null) {
      var.set Search $calc($ini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Search,0) +1) $mid($did(dc.st,1),9,$len($did(dc.st,1)))
      did -a dc.st 1 0 0 0 0 $mid($did(dc.st,1),9,$len($did(dc.st,1)))
      filter -cnio DC 1 DC 8 * $+ $mid($did(dc.st,1),9,$len($did(dc.st,1))) $+ *
      if ($filtered > 0) {
        if ($var.read(Options,DiaMako.explorer) == off) {
          var.set Options DiaMako.explorer on
          var.set Options DiaMako.explorer.part Search
          did -o dc 17 12 +xca 8 $tab Explorer
          did -o dc 3 2 +gca 1 $tab
          did -o dc 3 3 +gca 2 $tab
          did -o dc 3 4 +xgca 3 $tab
          did -v DC 8,3
          mdx MoveControl dc 1 164 * $calc($dialog(dc).cw -167) $calc($dialog(dc).ch -72)
        }
        else { did -o dc 3 2 +gca 1 $tab | did -o dc 3 3 +gca 2 $tab | did -o dc 3 4 +xgca 3 $tab | did -h DC 2,4,5,6,7,9,10 | did -v DC 8 }
      }
    }
    else { dialog -x dc.st dc.st }
  }
  on *:dialog:dc.st:sclick:5:var.unset Search | did -r dc.st 1
  ------------------------------------------------------------------
  dialog DU {
    title "Dialog Maker: Update"
    size -1 -1 500 264
    option pixels
    icon $DiaMak.icon(Update), 0
    list 1, 10 10 480 160, size
    text "Progress:", 2, 10 179 115 16
    text "ProgressBar", 3, 10 202 480 18
    box "", 4, 10 224 480 8
    button "OK", 5, 405 239 85 20, default ok
    button "Refresh", 6, 209 239 75 20, flat
    button "Current", 7, 283 239 75 20, flat
    button "Download", 8, 10 239 100 20
    text "Update Size:", 9, 254 179 115 16
    text "Downloaded:", 10, 373 179 115 16
    text "Time:", 11, 169 179 81 16
    button "Stop", 12, 109 239 100 20
  }
  on *:dialog:du:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.du.x) !== $null) && ($var.read(Options,DiaMako.pos.du.y) !== $null) { dialog -s du $var.read(Options,DiaMako.pos.du.x) $var.read(Options,DiaMako.pos.du.y) 500 264 }
    mdx SetControlMDX 1 listview headerdrag grid sortascending showsel single report rowselect > $shortfn($scriptdir) $+ Data\Views.mdx
    did -i $dname 1 1 headerdims  180:1 220:2 58:3
    did -i $dname 1 1 headertext +c Update $chr(9) $+ +c URL $chr(9) $+ +c Size
    did -i $dname 1 1 seticon list $DiaMak.icon(CurrentDownload)
    mdx SetControlMDX 3 Progressbar smooth > $shortfn($scriptdir) $+ Data\ctl_gen.mdx
    did -a $dname 3 BarColor $rgb(0,0,0)
    if ($exists($shortfn($scriptdir) $+ Data\Updates\Updates.txt) == $true) { loadbuf -ro du 1 $shortfn($scriptdir) $+ Data\Updates\Updates.txt }
    did -a du 7 $var.read(Variables,Full_Version)
    .signal Modules_DU
    DiaMak.language
  }
  on *:dialog:du:sclick:12:sockclose dl.*
  on *:dialog:du:dclick:1:DiaMak.ds
  on *:dialog:du:sclick:8:DiaMak.ds
  on *:dialog:du:sclick:6:DiaMak.download www.dialogmaker.hit.bg/ Updates.txt
  on *:dialog:du:close:*:{
    if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.du.x $dialog(du).x | var.set Options DiaMako.pos.du.y $dialog(du).y }
    if ($var.read(Variables,DiaMak.download) !== $null) {
      var.unset Variables DiaMak.download
      sockclose dl.*
    }
  }
  ------------------------------------------------------------------
  dialog DE {
    title "Dialog Maker: ERROR!"
    size -1 -1 300 130
    option pixels
    button "&OK", 1, 50 107 100 20, default cancel
    button "&Repair", 2, 150 107 100 20, disable ok
    text "", 3, 8 10 282 90, center
  }
  on *:dialog:de:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.de.x) !== $null) && ($var.read(Options,DiaMako.pos.de.y) !== $null) { dialog -s de $var.read(Options,DiaMako.pos.de.x) $var.read(Options,DiaMako.pos.de.y) 300 130 }
    mdx SetFont 1,2,3 13 600 Tahoma
    .signal Modules_DE
    DiaMak.language
    did -a de 3 $var.read(Variables,DiaMak.error)
    if ($var.read(Variables,DiaMak.error.action) !== $null) { did -e de 2 }
  }
  on *:dialog:de:sclick:2:{
    $var.read(Variables,DiaMak.error.action)
    if ($var.read(Variables,DiaMak.error.after.action) !== $null) { $var.read(Variables,DiaMak.error.after.action) }
  }
  on *:dialog:de:close:*:{
    if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.de.x $dialog(de).x | var.set Options DiaMako.pos.de.y $dialog(de).y }
    if ($dialog($var.read(Variables,DiaMak.error.last.dialog)) !== $null) { dialog -v $var.read(Variables,DiaMak.error.last.dialog) $var.read(Variables,DiaMak.error.last.dialog) }
    var.unset Variables DiaMak.error*
  }
  ------------------------------------------------------------------
  dialog DiaMak.Loading {
    title "Loading"
    size -1 -1 421 255
    option pixels
    icon $DiaMak.icon(OK), 0
    list 1, 0 1 421 235, size
    text "", 2, 0 237 420 18
  }
  on *:dialog:DiaMak.Loading:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    if ($var.read(Options,DiaMako.remember.positions) == on) && ($var.read(Options,DiaMako.pos.DiaMak.Loading.x) !== $null) && ($var.read(Options,DiaMako.pos.DiaMak.Loading.y) !== $null) { dialog -s DiaMak.Loading $var.read(Options,DiaMako.pos.DiaMak.Loading.x) $var.read(Options,DiaMako.pos.DiaMak.Loading.y) 420 255 }
    mdx SetControlMDX 1 ListView headerdrag icon single grid report rowselect > $shortfn($scriptdir) $+ Data\Views.mdx
    mdx SetFont 1 13 600 Tahoma
    did -i $dname 1 1 headerdims 199:1 200:2
    did -i $dname 1 1 headertext +c Section $chr(9) $+ +c Status
    did -i $dname 1 1 seticon normal 0 0, $+ $DiaMak.icon(OK)
    did -i $dname 1 1 seticon normal 0 0, $+ $DiaMak.icon(Error)
    mdx SetControlMDX 2 Progressbar > $shortfn($scriptdir) $+ Data\Ctl_gen.mdx
    did -a $dname 2 BarColor $rgb(0,0,0)
    did -a DiaMak.Loading 1 0 + 0 0 0 Settings $chr(9) Loading...
    did -a DiaMak.Loading 1 0 + 0 0 0 Controls $chr(9) Loading...
    did -a DiaMak.Loading 1 0 + 0 0 0 Menus $chr(9) Loading...
    did -a DiaMak.Loading 1 0 + 0 0 0 Code $chr(9) Loading...
    did -a DiaMak.Loading 1 0 + 0 0 0 Loading Time $chr(9) Waiting...
    .signal Modules_DiaMak.Loading
  }
  on *:dialog:DiaMak.Loading:close:*:if ($var.read(Options,DiaMako.remember.positions) == on) { var.set Options DiaMako.pos.DiaMak.Loading.x $dialog(DiaMak.Loading).x | var.set Options DiaMako.pos.DiaMak.Loading.y $dialog(DiaMak.Loading).y }
  ------------------------------------------------------------------
  dialog DiaMak.Tips {
    title "Dialog Maker Tips"
    size -1 -1 450 330
    option pixels
    icon $shortfn($scriptdir) $+ Data\Icons\Tips.ico, 0
    box "", 1, -2 285 454 8
    icon 2, 0 0 128 128
    check "Always show tips at startup", 3, 9 302 225 20
    button "&Another Tip", 4, 242 302 100 20
    button "&Close", 5, 342 302 100 20, default ok
    text "", 6, -5 128 460 164
    text "", 7, 128 -1 400 130
    text "Tip Name", 8, 150 15 275 24, center
    text "Tip Text", 9, 5 140 438 140
  }
  on *:dialog:DiaMak.tips:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetColor DiaMak.tips 6,7,8,9 background $rgb(255,255,255)
    mdx SetColor DiaMak.tips 8,9 textbg $rgb(255,255,255)
    mdx SetColor DiaMak.tips 8 text $rgb(100,0,100)
    mdx SetFont 8 20 700 Tahoma
    if ($var.read(Options,DiaMako.show.tips) == on) { did -c DiaMak.tips 3 }
    did -g DiaMak.tips 2 $shortfn($scriptdir) $+ Data\Icons\Tips.jpg
    var.set Temporary Tip $rand(1,$ini($shortfn($scriptdir) $+ Data\Tips.ini,0))
    did -ra DiaMak.tips 8 $readini($shortfn($scriptdir) $+ Data\Tips.ini,$var.read(Temporary,Tip),Name)
    did -ra DiaMak.tips 9 $readini($shortfn($scriptdir) $+ Data\Tips.ini,$var.read(Temporary,Tip),Tip)
    DiaMak.language
  }
  on *:dialog:DiaMak.tips:sclick:3:{
    if ($var.read(Options,DiaMako.show.tips) == on) { var.set Options DiaMako.show.tips off }
    else { var.set Options DiaMako.show.tips on }
  }
  on *:dialog:DiaMak.tips:sclick:4:{
    var.set Temporary Tip $rand(1,$ini($shortfn($scriptdir) $+ Data\Tips.ini,0))
    did -ra DiaMak.tips 8 $readini($shortfn($scriptdir) $+ Data\Tips.ini,$var.read(Temporary,Tip),Name)
    did -ra DiaMak.tips 9 $readini($shortfn($scriptdir) $+ Data\Tips.ini,$var.read(Temporary,Tip),Tip)
  }
  ------------------------------------------------------------------
  dialog DiaMak.Convert {
    title "Converting... (Errors: 0)"
    size -1 -1 400 37
    option pixels
    text "", 1, 5 10 390 18
  }
  on *:dialog:DiaMak.Convert:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetDialog DiaMak.convert style title
    mdx SetControlMDX 1 Progressbar smooth > $shortfn($scriptdir) $+ Data\Ctl_gen.mdx
    did -a $dname 1 BarColor $rgb(0,0,0)
  }
  ------------------------------------------------------------------
  dialog VisualEditor {
    title "Visual Editor"
    size $var.read(Variables,DiaMak.dx) $var.read(Variables,DiaMak.dy) $var.read(Variables,DiaMak.dw) $var.read(Variables,DiaMak.dh)
    option pixels
    icon $DiaMak.icon(Control), 0
    button "Positioner", 3000, 0 0 0 0
  }
  on *:dialog:visualeditor:init:*:{
    mdx SetMircVersion $version
    mdx MarkDialog $dname
    mdx SetControlMDX 3000 positioner size minbox maxbox > $shortfn($scriptdir) $+ Data\Dialog.mdx
    dialog -t VisualEditor Visual Editor - $var.read(Variables,DiaMak.dt)
    .signal Modules_VisualEditor
  }
  on *:dialog:VisualEditor:sclick:*:{ if ($var.read(Variables,DiaMak.control) !== $null) { Add.control } }
  on *:dialog:visualeditor:sclick:3000:{
    if ($gettok($did(3000),1,32) == sizing) {
      var.set Variables DiaMak.dw $calc($gettok($did(3000),9,32) +2)
      did -i DiaMak 30 1 $var.read(Variables,DiaMak.dw) 0 9999 10 0:1,2:5,5:20
      var.set Variables DiaMak.dh $calc($gettok($did(3000),10,32) +2)
      did -i DiaMak 47 1 $var.read(Variables,DiaMak.dh) 0 9999 10 0:1,2:5,5:20
    }
  }
  ------------------------------------------------------------------
  ----------------------------VARIABLES-----------------------------
  ------------------------------------------------------------------
  alias var.set {
    if ($1 !== $null) && ($2 !== $null) && ($3- !== $null) { writeini $shortfn($scriptdir) $+ Data\DialogMaker.ini $1 $2 $3- }
    if ($1 !== $null) && ($2 !== $null) && ($3- == $null) { remini $shortfn($scriptdir) $+ Data\DialogMaker.ini $1 $2 }
  }
  alias var.unset {
    set %var.file $shortfn($scriptdir) $+ Data\DialogMaker.ini
    set %i 1
    if ($1 !== $null) && ($2 !== $null) { remini %var.file $1 $2 }
    if ($1 !== $null) && ($2 == $null) { remini %var.file $1 }
    if ($1 !== $null) && ($2- !== $null) && ($pos($2-, $chr(44),0) !== $null) {
      while ($pos($2-, $chr(44), $calc(%i -1)) !== $null) {
        remini %var.file $1 $gettok($2-, %i, 44)
        inc %i
      }
    }
    if ($1 !== $null) && ($2- !== $null) && ($right($2-, 1) == *) {
      while (%i <= $ini(%var.file,$1,0)) {
        while ($left($2-, $calc($len($2-) -1)) == $left($ini(%var.file,$1, %i), $calc($len($2-) -1))) { remini %var.file $1 $ini(%var.file,$1,%i) }
        inc %i
      }
    }
    if ($1 !== $null) && ($2- !== $null) && ($left($2-, 1) == *) {
      while (%i <= $ini(%var.file,$1,0)) {
        while ($right($2-, $calc($len($2-) -1)) == $right($ini(%var.file,$1, %i), $calc($len($2-) -1))) { remini %var.file $1 $ini(%var.file,$1,%i) }
        inc %i
      }
    }
    unset %i
    unset %var.file
  }
  alias var.inc {
    if ($1 !== $null) && ($2 !== $null) && ($3 == $null) { writeini $shortfn($scriptdir) $+ Data\DialogMaker.ini $1 $2 $calc($readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,$1,$2) + 1) }
    if ($1 !== $null) && ($2 !== $null) && ($3 !== $null) { writeini $shortfn($scriptdir) $+ Data\DialogMaker.ini $1 $2 $calc($readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,Variables,$2) + $3) }
  }
  alias var.dec {
    if ($1 !== $null) && ($2 !== $null) && ($3 == $null) { writeini $shortfn($scriptdir) $+ Data\DialogMaker.ini $1 $2 $calc($readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,$1,$2) - 1) }
    if ($1 !== $null) && ($2 !== $null) && ($3 !== $null) { writeini $shortfn($scriptdir) $+ Data\DialogMaker.ini $1 $2 $calc($readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,$1,$2) - $3) }
  }
  alias var.read {
    if ($1 !== $null) && ($2 !== $null) { return $readini($shortfn($scriptdir) $+ Data\DialogMaker.ini,$1,$2) }
  }
  ------------------------------------------------------------------
  alias DiaMak.error {
    var.set Variables DiaMak.error $1
    var.set Variables DiaMak.error.last.dialog $dname
    if ($2 !== $null) { var.set Variables DiaMak.error.action $2 }
    if ($3- !== $null) { var.set Variables DiaMak.error.after.action $3- }
    if ($dialog(de) == $null) { dialog -mo de de }
  }
  alias DiaMak.download {
    var.set Temporary socket $+(dl,$chr(46),$nopath($2))
    if (!$sock($var.read(Temporary,socket))) {
      sockopen $var.read(Temporary,socket) $1 80
      sockmark $var.read(Temporary,socket) HEAD $1 $2
    }
    else { $DiaMak.error(Socket already in use.) }
  }
  alias DiaMak.percent return $+($round($calc((100 / $2) * $1),2),%)
  on *:SOCKOPEN:dl.*:{
    did -i DiaMak 3 2 Downloading...
    if ($sockerr) { .echo -q $DiaMak.error($sock($sockname).wsmsg) | return }
    hadd -m ticks $sockname $ticks
    var.set Temporary file $nopath($gettok($sock($sockname).mark,3,32))
    var.set Temporary fullfile $shortfn($scriptdir) $+ Data\Updates\ $+ $var.read(Temporary,file)
    var.set Temporary sckr sockwrite -n $sockname
    var.set Temporary ^ $gettok($sock($sockname).mark,3,32)
    write -c $var.read(Temporary,fullfile)
    $var.read(Temporary,sckr) GET $iif(left($var.read(^),1) != $chr(47),$chr(47) $+ $var.read(^),$var.read(^)) HTTP/1.0
    $var.read(Temporary,sckr) HOST: $gettok($sock($sockname).mark,2,32)
    $var.read(Temporary,sckr) ACCEPT: *.*
    $var.read(Temporary,sckr) $crlf
  }
  on *:SOCKREAD:dl.*:{
    if ($sockerr) {
      .echo -q $DiaMak.error($sock($sockname).wsmsg)
      return
    }
    unset %a
    :begin
    if ($gettok($sock($sockname).mark,1,32) == head) { sockread %a }
    else { sockread &b }
    if ($sockbr) {
      tokenize 32 $sock($sockname).mark
      if ($1 == HEAD) {
        if (%a) {
          if ($gettok(%a,1,32) == Content-Length:) { var.set totsize $gettok(%a,2,32) }
        }
        else {
          did -ra du 9 Update Size: $bytes($var.read(totsize)).suf
          sockmark $sockname GET $2- $var.read(totsize)
        }
      }
      elseif ($1 == GET) {
        var.set Temporary file $shortfn($scriptdir) $+ Data\Updates\ $+ $nopath($3)
        var.set Temporary cursize $file($var.read(Temporary,file)).size
        var.set Temporary totsize $gettok($sock($sockname).mark,4,32)
        did -ra du 10 Downloaded: $bytes($var.read(Temporary,cursize)).suf
        did -a du 3 $int($remove($DiaMak.percent($var.read(Temporary,cursize),$var.read(totsize)),%)) 0 100
        did -ra du 2 Progress: $DiaMak.percent($var.read(Temporary,cursize),$var.read(totsize))
        bwrite $var.read(Temporary,file) -1 &b
      }
      goto begin
    }
  }

  on *:SOCKCLOSE:dl.*:{
    var.set ticks $calc(($ticks - $hget(ticks,$sockname)) /1000)
    did -ra du 2 Progress: 100%
    did -a du 3 100 0 100
    did -ra du 11 Time: $var.read(ticks)
    if ($var.read(Variables,DiaMak.download) !== $null) {
      var.unset Variables DiaMak.download
      did -i DiaMak 3 2 Installing...
      .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -dQ2 $var.read(Temporary,fullfile) $deltok($scriptdir,-1,92))
      .echo -q $DiaMak.error(The selected update was downloaded and installed successfully. To apply the changes please click 'Repair' to exit mIRC.,exit)
    }
    if ($exists($shortfn($scriptdir) $+ Data\Updates\Updates.txt) == $true) { loadbuf -ro du 1 $shortfn($scriptdir) $+ Data\Updates\Updates.txt }
    did -i DiaMak 3 2 Ready
  }
  alias DiaMak.open {
    if ($var.read(Options,DiaMako.file.last) == $null) {
      if ($1 == $null) && ($2 == $null) && ($3 == $null) { var.set Variables DiaMak.file.test $sfile(*.DiaMak,Open Dialog Maker Project,Open) }
      else { var.set Variables DiaMak.file.test $sfile($2, $3,Open) }
    }
    if ($var.read(Options,DiaMako.file.last) !== $null) {
      if ($1 == $null) && ($2 == $null) && ($3 == $null) { var.set Variables DiaMak.file.test $sfile($var.read(Options,DiaMako.file.last) *.DiaMak,Open Dialog Maker Project,Open) }
      else { var.set Variables DiaMak.file.test $sfile($var.read(Options,DiaMako.file.last) $2, $3,Open) }
    }
    if ($var.read(Variables,DiaMak.file.test) !== $null) {
      var.set Options DiaMako.file.last $nofile($var.read(Variables,DiaMak.file.test))
      var.set Variables DiaMak.file $shortfn($var.read(Variables,DiaMak.file.test))
      if ($1 !== $null) { open.DiaMak $1 }
      if ($1 == $null) { open.DiaMak DialogMaker }
      did -i DiaMak 3 2 Opening Project...
      did -ra DiaMak 29 $var.read(Variables,DiaMak.dn)
      did -ra DiaMak 26 $var.read(Variables,DiaMak.dt)
      did -i DiaMak 27 1 $var.read(Variables,DiaMak.dx) -1 9999 10 0:1,2:5,5:20
      did -i DiaMak 28 1 $var.read(Variables,DiaMak.dy) -1 9999 10 0:1,2:5,5:20
      did -i DiaMak 30 1 $var.read(Variables,DiaMak.dw) 0 9999 10 0:1,2:5,5:20
      did -i DiaMak 47 1 $var.read(Variables,DiaMak.dh) 0 9999 10 0:1,2:5,5:20
      did -ra DiaMak 1 $var.read(Variables,DiaMak.di)
      if ($var.read(Variables,DiaMak.do) == DBU) { did -c DiaMak 48 }
      did -i DiaMak 3 2 Opening Visual Editor...
      DiaMak.ve
      if ($var.read(Variables,DiaMak.di) !== $null) { did -ra DiaMak 1 $var.read(Variables,DiaMak.di) }
      if ($var.read(Variables,DiaMak.dt) !== $null) { dialog -t VisualEditor Visual Editor - $var.read(Variables,DiaMak.dt) }
      else { dialog -t VisualEditor Visual Editor }
      if ($dialog(ce) !== $null) { DiaMak.ce }
      if ($var.read(Variables,File.Type) == $null) {
        if ($right($var.read(Variables,DiaMak.file),2) == DiaMak) { var.set Variables File.Type DialogMaker }
        if ($right($var.read(Variables,DiaMak.file),2) == ds) { var.set Variables File.Type DialogStudio }
      }
      DiaMak.build $var.read(Variables,File.Type)
      if ($dialog(DiaMak.Loading)) {
        did -o DiaMak.Loading 1 3 0 + 1 0 0 Controls $chr(9) OK (Controls: $calc(%DiaMak.fi -1) $+ )
        did -a DiaMak.Loading 2 2 0 4
        did -i DiaMak 3 3 $nopath($longfn($var.read(Variables,DiaMak.file))) ( $+ $bytes($file($var.read(Variables,DiaMak.file)).size,k).suf $+ )

        did -o DiaMak.Loading 1 4 0 + 1 0 0 Menus $chr(9) OK
        did -a DiaMak.Loading 2 3 0 4
        if ($var.read(Variables,DiaMak.fn) !== $null) {
          if ($exists($var.read(Variables,DiaMak.fn)) == $true) { did -o DiaMak.Loading 1 5 0 + 1 0 0 Code $chr(9) OK }
          else { DiaMak.cnd | did -o DiaMak.Loading 1 5 0 + 2 0 0 Code $chr(9) Repaired }
        }
        else { did -o DiaMak.Loading 1 5 0 + 1 0 0 Code $chr(9) OK }
        did -a DiaMak.Loading 2 4 0 4
        set %time2 $duration($time)
        did -o DiaMak.Loading 1 6 0 + 0 0 0 Loading Time $chr(9) $duration($calc(%time2 - %time1))
        unset %time1
        unset %time2
        if ($var.read(Options,DiaMako.close.loading) == on) { dialog -x DiaMak.Loading DiaMak.Loading }
        else { .timerActive2 1 0 dialog -v DiaMak.Loading DiaMak.Loading }
      }
    }
  }
  alias open.DiaMak {
    set %time1 $duration($time)
    set %DiaMak.errors 0
    if ($1 == DialogMaker) {
      if ($dialog(DiaMak.Loading)) { did -r DiaMak.Loading 2 | dialog -v DiaMak.Loading DiaMak.Loading }
      else { dialog -md DiaMak.Loading DiaMak.Loading }
      var.set Variables DiaMak.dn $readini($var.read(Variables,DiaMak.file),Dialog,Name)
      var.set Variables DiaMak.fn $nofile($var.read(Variables,DiaMak.file)) $+ $var.read(Variables,DiaMak.dn) $+ .mrc
      did -a DiaMak.Loading 2 1 0 10
      var.set Variables DiaMak.fn2 $var.read(Variables,DiaMak.file)
      did -a DiaMak.Loading 2 2 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,Name) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Name Unknown | inc %DiaMak.errors }
      did -a DiaMak.Loading 2 3 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,Title) !== $null) { var.set Variables DiaMak.dt $readini($var.read(Variables,DiaMak.file),Dialog,Title) }
      did -a DiaMak.Loading 2 4 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,Option) !== $null) { var.set Variables DiaMak.DO $readini($var.read(Variables,DiaMak.file),Dialog,Option) }
      else { var.unset Variables DiaMak.DO }
      did -a DiaMak.Loading 2 5 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,Icon) !== $null) { var.set Variables DiaMak.di $readini($var.read(Variables,DiaMak.file),Dialog,Icon) }
      else { var.unset Variables DiaMak.di }
      did -a DiaMak.Loading 2 6 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,X) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog X -1 | inc %DiaMak.errors }
      var.set Variables DiaMak.dx $readini($var.read(Variables,DiaMak.file),Dialog,X)
      did -a DiaMak.Loading 2 7 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,Y) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Y -1 | inc %DiaMak.errors }
      var.set Variables DiaMak.dy $readini($var.read(Variables,DiaMak.file),Dialog,Y)
      did -a DiaMak.Loading 2 8 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,W) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog W 640 | inc %DiaMak.errors }
      var.set Variables DiaMak.dw $readini($var.read(Variables,DiaMak.file),Dialog,W)
      did -a DiaMak.Loading 2 9 0 10
      if ($readini($var.read(Variables,DiaMak.file),Dialog,H) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog H 480 | inc %DiaMak.errors }
      var.set Variables DiaMak.dh $readini($var.read(Variables,DiaMak.file),Dialog,H)
      did -a DiaMak.Loading 2 10 0 11
      if (%DiaMak.errors = 0) { did -o DiaMak.Loading 1 2 0 + 1 0 0 Settings $chr(9) OK }
      else { did -o DiaMak.Loading 1 2 0 + 2 0 0 Settings $chr(9) Repaired (Errors: %DiaMak.errors $+ ) }
      did -a DiaMak.Loading 2 1 0 4
    }
    if ($1 == DialogStudio) {
      var.unset Variables DiaMak.fn
      mkdir $remove($nopath($var.read(Variables,DiaMak.file)),.ds)
      var.set Variables DiaMak.fn2 $remove($nopath($var.read(Variables,DiaMak.file)),.ds) $+ \ $+ $remove($nopath($var.read(Variables,DiaMak.file)),.ds) $+ .DiaMak
      if ($readini($var.read(Variables,DiaMak.file),Main,Name) == $null) { writeini $var.read(Variables,DiaMak.file) Main Name Unknown | inc %DiaMak.errors }
      var.set Variables DiaMak.dn $readini($var.read(Variables,DiaMak.file),Main,Name)
      if ($readini($var.read(Variables,DiaMak.file),Main,Title) !== $null) { var.set Variables DiaMak.dt $readini($var.read(Variables,DiaMak.file),Main,Title) }
      if ($gettok($readini($var.read(Variables,DiaMak.file),Main,Options),3,44) == 1) { did -c DiaMak 48 | var.set Variables DiaMak.DO dbu }
      if ($readini($var.read(Variables,DiaMak.file),Main,IconPath) !== $null) { var.set Variables DiaMak.di $readini($var.read(Variables,DiaMak.file),Main,IconPath) }
      if ($readini($var.read(Variables,DiaMak.file),Main,Position) == $null) { writeini $var.read(Variables,DiaMak.fn2) Main Position -1 $+ $chr(44) $+ -1 $+ $chr(44) $+ 640 $+ $chr(44) $+ 480  | inc %DiaMak.errors }
      var.set Variables DiaMak.dx $gettok($readini($var.read(Variables,DiaMak.file),Main,Position),1,44)
      var.set Variables DiaMak.dy $gettok($readini($var.read(Variables,DiaMak.file),Main,Position),2,44)
      var.set Variables DiaMak.dw $gettok($readini($var.read(Variables,DiaMak.file),Main,Position),3,44)
      var.set Variables DiaMak.dh $gettok($readini($var.read(Variables,DiaMak.file),Main,Position),4,44)
      writeini $var.read(Variables,DiaMak.fn2) Dialog Name $var.read(Variables,DiaMak.dn)
      writeini $var.read(Variables,DiaMak.fn2) Dialog Title $var.read(Variables,DiaMak.dt)
      writeini $var.read(Variables,DiaMak.fn2) Dialog Option Pixels
      if ($var.read(Variables,DiaMak.di) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Icon $var.read(Variables,DiaMak.di) }
      if ($var.read(Variables,DiaMak.dx) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog X $var.read(Variables,DiaMak.dx) }
      if ($var.read(Variables,DiaMak.dy) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Y $var.read(Variables,DiaMak.dy) }
      if ($var.read(Variables,DiaMak.dw) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog W $var.read(Variables,DiaMak.dw) }
      if ($var.read(Variables,DiaMak.dh) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog H $var.read(Variables,DiaMak.dh) }
    }
  }
  alias DiaMak.save {
    var.set Variables DiaMak.dn $did(DiaMak,29)
    var.set Variables DiaMak.dt $did(DiaMak,26)
    var.unset Variables DiaMak.dx,DiaMak.dy,DiaMak.dw,DiaMak.dh
    var.set Variables DiaMak.dx $DiaMak.edit(DiaMak,27)
    var.set Variables DiaMak.dy $DiaMak.edit(DiaMak,28)
    if ($DiaMak.edit(DiaMak,30) > 0) { var.set Variables DiaMak.dw $DiaMak.edit(DiaMak,30) }
    if ($DiaMak.edit(DiaMak,47) > 0) { var.set Variables DiaMak.dh $DiaMak.edit(DiaMak,47) }
    if ($var.read(Variables,DiaMak.dn) == $null) { .echo -q $DiaMak.error(Please enter dialog name!) }
    elseif ($var.read(Variables,DiaMak.dx) == $null) || ($var.read(Variables,DiaMak.dy) == $null) || ($var.read(Variables,DiaMak.dw) == $null) || ($var.read(Variables,DiaMak.dh) == $null) { .echo -q $DiaMak.error(Please enter dialog size and/or position!) }
    if ($var.read(Variables,DiaMak.dn) !== $null) && ($var.read(Variables,DiaMak.dx) !== $null) && ($var.read(Variables,DiaMak.dy) !== $null) && ($var.read(Variables,DiaMak.dw) !== $null) && ($var.read(Variables,DiaMak.dh) !== $null) { DiaMak.cnd | DiaMak.ve | DiaMak.build }
  }
  alias DiaMak.cnd {
    did -i DiaMak 3 2 Saving Data...
    var.set Variables DiaMak.dn $did(DiaMak,29)
    var.set Variables DiaMak.dt $did(DiaMak,26)
    var.set Variables DiaMak.di $did(DiaMak,1)
    var.set Variables DiaMak.dx $DiaMak.edit(DiaMak,27)
    var.set Variables DiaMak.dy $DiaMak.edit(DiaMak,28)
    var.set Variables DiaMak.dw $DiaMak.edit(DiaMak,30)
    var.set Variables DiaMak.dh $DiaMak.edit(DiaMak,47)
    var.set Variables DiaMak.fn2 $shortfn($mircdir) $+ $var.read(Variables,DiaMak.dn) $+ \ $+ $var.read(Variables,DiaMak.dn) $+ .DiaMak
    var.set Variables DiaMakc.file $nofile($shortfn($var.read(Variables,DiaMak.file))) $+ $remove($nopath($var.read(Variables,DiaMak.file)),$right($nopath($var.read(Variables,DiaMak.file)),2)) $+ DiaMakc
    if ($var.read(Variables,DiaMak.dn) !== $null) {
      did -i DiaMak 3 2 Writing Data...
      if ($exists($var.read(Variables,DiaMak.dn)) == $false) { mkdir $var.read(Variables,DiaMak.dn) }
      writeini $var.read(Variables,DiaMak.fn2) Dialog Name $var.read(Variables,DiaMak.dn)
      if ($var.read(Variables,DiaMak.dt) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Title $var.read(Variables,DiaMak.dt) }
      else { remini $var.read(Variables,DiaMak.fn2) Dialog Title }
      if ($var.read(Variables,DiaMak.do) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Option $var.read(Variables,DiaMak.do) }
      else { remini $var.read(Variables,DiaMak.fn2) Dialog Option }
      if ($var.read(Variables,DiaMak.di) !== $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Icon $var.read(Variables,DiaMak.di) }
      else { remini $var.read(Variables,DiaMak.fn2) Dialog Icon }
      writeini $var.read(Variables,DiaMak.fn2) Dialog X $var.read(Variables,DiaMak.dx)
      writeini $var.read(Variables,DiaMak.fn2) Dialog Y $var.read(Variables,DiaMak.dy)
      writeini $var.read(Variables,DiaMak.fn2) Dialog W $var.read(Variables,DiaMak.dw)
      writeini $var.read(Variables,DiaMak.fn2) Dialog H $var.read(Variables,DiaMak.dh)
      var.set Variables DiaMak.file $shortfn($var.read(Variables,DiaMak.fn2))
      var.set Variables DiaMak.fn $shortfn($var.read(Variables,DiaMak.dn)) $+ \ $+ $var.read(Variables,DiaMak.dn) $+ .mrc
      write -c $var.read(Variables,DiaMak.fn) dialog $var.read(Variables,DiaMak.dn) $chr(123)
      write $var.read(Variables,DiaMak.fn) title $var.read(Variables,DiaMak.dt)
      write $var.read(Variables,DiaMak.fn) size $var.read(Variables,DiaMak.dx) $var.read(Variables,DiaMak.dy) $var.read(Variables,DiaMak.dw) $var.read(Variables,DiaMak.dh)
      if ($var.read(Variables,DiaMak.do) !== $null) { write $var.read(Variables,DiaMak.fn) option $var.read(Variables,DiaMak.do) }
      if ($var.read(Variables,DiaMak.di) !== $null) { write $var.read(Variables,DiaMak.fn) icon $var.read(Variables,DiaMak.di) $+ , 0 }
      set %DiaMak.fi 1
      while (%DiaMak.fi < $ini($var.read(Variables,DiaMak.fn2),0)) {
        if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) !== $null) {
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Text) {
            write $var.read(Variables,DiaMak.fn) text " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,NoWordwrap) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Align) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), $var.read(Variables,DiaMak.DiaMak.fi) ,Tab)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Button) {
            var.set Temporary part1 button " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Default)
            var.set Temporary part2 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Flat) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,MultiLine) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Type) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab)
            write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Edit) {
            if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Limit) !== $null) {
              var.set Temporary part1 edit " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Password) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,ReadOnly) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Return) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,AutoHS) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,AutoVS) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,HScroll) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,VScroll)
              var.set Temporary part2 Limit $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Limit) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Align) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(DiaMak.fn2), %DiaMak.fi ,Tab)
              write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
            }
            else {
              var.set Temporary part1 edit " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Password) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,ReadOnly) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Return)
              var.set Temporary part2 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,AutoHS) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,AutoVS) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,HScroll) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,VScroll) $readini($var.read(Variables,DiaMak.fn2), $var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Align) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab)
              write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
            }
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Check) {
            var.set Temporary part1 check " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Push) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Flat) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,3State)
            var.set Temporary part2 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Align) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Type) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab)
            write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Radio) {
            var.set Temporary part1 radio " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Push) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Flat) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Align) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Type) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide)
            var.set Temporary part2 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group)
            write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Icon) {
            write $var.read(Variables,DiaMak.fn) icon %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Icon) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,NoBorder) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Align) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Link) { write $var.read(Variables,DiaMak.fn) link " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab) }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Box) { write $var.read(Variables,DiaMak.fn) box " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab) }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Scroll) {
            if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Minimum) !== $null) && ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Maximum) !== $null) {
              write $var.read(Variables,DiaMak.fn) scroll "" $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , Range $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Minimum) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Maximum) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Type) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), $var.read(DiaMak.fi) ,Group) $readini($var.read(DiaMak.fn2), $var.read(DiaMak.fi) ,Tab)
            }
            else { write $var.read(Variables,DiaMak.fn) scroll "" $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Type) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab) }
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == List) {
            var.set Temporary part1 list %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Sorted) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Extended) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Force) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Multi) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Horizontal)
            var.set Temporary part2 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Vertical) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab)
            write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Combo) {
            var.set Temporary part1 combo %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Sorted) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Editable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Force) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Horizontal) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Vertical)
            var.set Temporary part2 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Type) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Disable) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Hide) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Result) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Group) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Tab)
            write $var.read(Variables,DiaMak.fn) $var.read(Temporary,part1) $var.read(Temporary,part2)
          }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Tab) { write $var.read(Variables,DiaMak.fn) tab " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi $+ , $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,X) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Y) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,W) $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,H) }
          if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == +Tab) { write $var.read(Variables,DiaMak.fn) tab " $+ $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Text) $+ " $+ , %DiaMak.fi }
        }
        inc %DiaMak.fi
      }
      if (%DiaMak.fi == $ini($var.read(Variables,DiaMak.fn2),0)) { unset %DiaMak.fi }
      write $var.read(Variables,DiaMak.fn) $chr(125)
      set %i 1
      while (%i <= $lines($var.read(Variables,DiaMakc.file))) {
        write $var.read(Variables,DiaMak.fn) $read($var.read(Variables,DiaMakc.file),n, %i)
        inc %i
      }
      var.unset Temporary part*
      unset %i
      .load -rs $shortfn($var.read(Variables,DiaMak.fn))
    }
    did -i DiaMak 3 2 Ready
    did -i DiaMak 3 3 $nopath($longfn($var.read(Variables,DiaMak.file))) ( $+ $bytes($file($var.read(Variables,DiaMak.file)).size,k).suf $+ )
  }
  alias DiaMak {
    if ($dialog(DiaMak)) { dialog -x DiaMak DiaMak | dialog -md DiaMak DiaMak }
    else { dialog -md DiaMak DiaMak }
  }
  alias add.control {
    var.set Variables DiaMak.mousex $mouse.x
    var.set Variables DiaMak.mousey $mouse.y
    did -i DiaMak 3 2 Ready
    if ($var.read(Variables,DiaMak.control) == Tab) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Tab
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Tab $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 200
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 100
      did -bu DiaMak 13
    }
    if ($var.read(Variables,DiaMak.control) == Text) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Text
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Text $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 45
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 15
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) text $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 45 15
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Text $var.read(Variables,DiaMak.id)
      did -u DiaMak 9
    }
    if ($var.read(Variables,DiaMak.control) == Button) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Button
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Button $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 75
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 20
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) button $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 75 20
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Button $var.read(Variables,DiaMak.id)
      did -u DiaMak 7
    }
    if ($var.read(Variables,DiaMak.control) == Icon) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Icon
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 32
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 32
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) button $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 32 32
      mdx SetBorderStyle VisualEditor $var.read(Variables,DiaMak.id) clientedge
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) ( $+ $var.read(Variables,DiaMak.id) $+ )
      did -u DiaMak 14
    }
    if ($var.read(Variables,DiaMak.control) == Check) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Check
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Check $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 80
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 15
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) check $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 80 20
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Check $var.read(Variables,DiaMak.id)
      did -u DiaMak 15
    }
    if ($var.read(Variables,DiaMak.control) == Edit) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Edit
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Edit $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 100
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 20
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) edit $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 100 20
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Edit $var.read(Variables,DiaMak.id)
      did -u DiaMak 8
    }
    if ($var.read(Variables,DiaMak.control) == Radio) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Radio
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Radio $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 80
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 15
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) radio $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 80 20
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Radio $var.read(Variables,DiaMak.id)
      did -u DiaMak 16
    }
    if ($var.read(Variables,DiaMak.control) == Link) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Link
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Link $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 45
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 15
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) text $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 45 15
      mdx SetColor VisualEditor $var.read(Variables,DiaMak.id) text $rgb(0,0,255)
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Link $var.read(Variables,DiaMak.id)
      did -u DiaMak 10
    }
    if ($var.read(Variables,DiaMak.control) == Box) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Box
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Text Box $var.read(Variables,DiaMak.id)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 100
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 100
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) box $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 100 100
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -a VisualEditor $var.read(Variables,DiaMak.id) Box $var.read(Variables,DiaMak.id)
      did -u DiaMak 11
    }
    if ($var.read(Variables,DiaMak.control) == Scroll) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Scroll
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 16
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 100
      did -u DiaMak 12
    }
    if ($var.read(Variables,DiaMak.control) == List) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control List
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 100
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 100
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) list $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 100 100
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -u DiaMak 17
    }
    if ($var.read(Variables,DiaMak.control) == Combo) {
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Control Combo
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) X $var.read(Variables,DiaMak.mousex)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) Y $var.read(Variables,DiaMak.mousey)
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) W 100
      writeini $var.read(Variables,DiaMak.fn2) $var.read(Variables,DiaMak.id) H 100
      mdx DynamicControl create VisualEditor $var.read(Variables,DiaMak.id) combo $var.read(Variables,DiaMak.mousex) $var.read(Variables,DiaMak.mousey) 100 100
      mdx SetFont VisualEditor $var.read(Variables,DiaMak.id) 13 200 Tahoma
      did -u DiaMak 18
    }
    if ($dialog(ce) == $null) { dialog -md ce ce }
    DiaMak.ce
    did -cf ce 4 $did(ce,4).lines
    sel.control
    var.unset Variables DiaMak.control
    var.unset Variables DiaMak.mousex,DiaMak.mousey
  }
  alias sel.control {
    var.set Temporary Loading Yes
    did -r ce 17,15,8,3
    did -h ce 22,23,24,26,27,28,29,30,31,48,57,59,36,64,65,66,67,68,60,61,62,63,40,41,51,52,53,54,55,56,35,32,33,34,49,50,58,71,43,70,72,13,3,14,15,16,17
    did -v ce 16,17
    did -e ce 8,9,10,11,12,18,19,20,21
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Tab) { DiaMak.te | did -v ce 58,71,43,70,72 | did -h ce 16,17 }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Edit) {
      did -v ce 26,27,28,29,30,31,48,57,59,14,15
      did -a ce 15 Default
      did -a ce 15 Right
      did -a ce 15 Center
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == $null) { did -fc ce 15 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Right) { did -fc ce 15 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Center) { did -fc ce 15 3 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Limit) !== $null) { did -i ce 59 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Limit) 0 9999 10 0:1,2:5,5:20 }
      else { did -r ce 59 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Password) !== $null) { did -c ce 26 }
      else { did -u ce 26 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),ReadOnly) !== $null) { did -c ce 48 }
      else { did -u ce 48 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Return) !== $null) { did -c ce 27 }
      else { did -u ce 27 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),AutoHS) !== $null) { did -c ce 28 }
      else { did -u ce 28 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),AutoVS) !== $null) { did -c ce 29 }
      else { did -u ce 29 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),HScroll) !== $null) { did -c ce 30 }
      else { did -u ce 30 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),VScroll) !== $null) { did -c ce 31 }
      else { did -u ce 31 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Text) {
      did -v ce 36,14,15
      did -a ce 15 Default
      did -a ce 15 Right
      did -a ce 15 Center
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == $null) { did -fc ce 15 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Right) { did -fc ce 15 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Center) { did -fc ce 15 3 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),NoWordwrap) !== $null) { did -c ce 36 }
      else { did -u ce 36 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Radio) {
      did -v ce 51,13,3,14,15
      did -a ce 3 Default
      did -a ce 3 Push
      did -a ce 15 Default
      did -a ce 15 Left
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == $null) { did -fc ce 3 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == Push) { did -fc ce 3 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == $null) { did -fc ce 15 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Right) { did -fc ce 15 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Flat) !== $null) { did -c ce 51 }
      else { did -u ce 51 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Check) {
      did -v ce 40,41,13,3,14,15
      did -a ce 3 Default
      did -a ce 3 Push
      did -a ce 15 Default
      did -a ce 15 Left
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == $null) { did -fc ce 3 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == Push) { did -fc ce 3 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == $null) { did -fc ce 15 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Right) { did -fc ce 15 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Flat) !== $null) { did -c ce 40 }
      else { did -u ce 40 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),3State) !== $null) { did -c ce 41 }
      else { did -u ce 41 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Button) {
      did -v ce 22,23,24,13,3
      did -a ce 3 Default
      did -a ce 3 OK
      did -a ce 3 Cancel
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == $null) { did -fc ce 3 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == OK) { did -fc ce 3 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == Cancel) { did -fc ce 3 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Default) !== $null) { did -c ce 22 }
      else { did -u ce 22 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Flat) !== $null) { did -c ce 23 }
      else { did -u ce 23 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),MultiLine) !== $null) { did -c ce 24 }
      else { did -u ce 24 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == List) {
      did -v ce 52,53,54,55,56,35
      did -rb ce 8
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Sorted) !== $null) { did -c ce 52 }
      else { did -u ce 52 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Extended) !== $null) { did -c ce 53 }
      else { did -u ce 53 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Multi) !== $null) { did -c ce 35 }
      else { did -u ce 35 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Force) !== $null) { did -c ce 54 }
      else { did -u ce 54 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Horizontal) !== $null) { did -c ce 55 }
      else { did -u ce 55 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Vertical) !== $null) { did -c ce 56 }
      else { did -u ce 56 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Combo) {
      did -v ce 32,33,34,49,50,13,3
      did -rb ce 8
      did -a ce 3 Default
      did -a ce 3 Drop
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == $null) { did -fc ce 3 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == Drop) { did -fc ce 3 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Sorted) !== $null) { did -c ce 32 }
      else { did -u ce 32 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Editable) !== $null) { did -c ce 33 }
      else { did -u ce 33 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Force) !== $null) { did -c ce 34 }
      else { did -u ce 34 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Horizontal) !== $null) { did -c ce 49 }
      else { did -u ce 49 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Vertical) !== $null) { did -c ce 50 }
      else { did -u ce 50 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Scroll) {
      did -v ce 64,65,66,67,68,13,3
      did -rb ce 8
      did -a ce 3 Default
      did -a ce 3 Horizontal
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == $null) { did -fc ce 3 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Type) == Horizontal) { did -fc ce 3 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Minimum) !== $null) { did -i ce 66 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Minimum) 0 9999 10 0:1,2:5,5:20 }
      else { did -r ce 66 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Maximum) !== $null) { did -i ce 68 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Maximum) 0 9999 10 0:1,2:5,5:20 }
      else { did -r ce 68 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) == Icon) {
      did -v ce 60,61,62,63,14,15
      did -rb ce 8
      did -a ce 15 Default
      did -a ce 15 Top
      did -a ce 15 Left
      did -a ce 15 Right
      did -a ce 15 Bottom
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == $null) { did -fc ce 15 1 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Top) { did -fc ce 15 2 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Left) { did -fc ce 15 3 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Right) { did -fc ce 15 4 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Align) == Bottom) { did -fc ce 15 5 | did -f ce 4 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),NoBorder) !== $null) { did -c ce 60 }
      else { did -u ce 60 }
      if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Icon) !== $null) { did -ra ce 62 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Icon) }
      else { did -r ce 62 }
    }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Control) !== Tab) {
      did -ra ce 17 None
      set %DiaMak.fi 1
      while (%DiaMak.fi <= $ini($var.read(Variables,DiaMak.fn2),0)) {
        if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == Tab) { did -a ce 17 Tab %DiaMak.fi }
        if ($readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) == +Tab) { did -a ce 17 Tab %DiaMak.fi }
        inc %DiaMak.fi
      }
      unset %DiaMak.fi
    }
    else { did -r ce 17 }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Text) !== $null) { did -ra ce 8 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Text) }
    did -i ce 9 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),X) 0 9999 10 0:1,2:5,5:20
    did -i ce 10 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),y) 0 9999 10 0:1,2:5,5:20
    did -i ce 11 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),W) 0 9999 10 0:1,2:5,5:20
    did -i ce 12 1 $readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),H) 0 9999 10 0:1,2:5,5:20
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Disable) !== $null) { did -c ce 18 }
    else { did -u ce 18 }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Hide) !== $null) { did -c ce 19 }
    else { did -u ce 19 }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Result) !== $null) { did -c ce 20 }
    else { did -u ce 20 }
    if ($readini($var.read(Variables,DiaMak.fn2),$gettok($did(ce,4).seltext,2,32),Group) !== $null) { did -c ce 21 }
    else { did -u ce 21 }
    var.unset Temporary Loading
  }
  alias DiaMak.ve {
    if ($var.read(Variables,DiaMak.file) !== $null) {
      if ($dialog(VisualEditor)) { dialog -x VisualEditor Visual Editor }
      if ($var.read(Options,DiaMako.veot) == on) { dialog -mod VisualEditor VisualEditor $readini($var.read(Variables,DiaMak.file),Dialog,X) $readini($var.read(Variables,DiaMak.file),Dialog,Y) $readini($var.read(Variables,DiaMak.file),Dialog,W) $readini($var.read(Variables,DiaMak.file),Dialog,H) }
      else { dialog -md VisualEditor VisualEditor $readini($var.read(Variables,DiaMak.file),Dialog,X) $readini($var.read(Variables,DiaMak.file),Dialog,Y) $readini($var.read(Variables,DiaMak.file),Dialog,W) $readini($var.read(Variables,DiaMak.file),Dialog,H) }
    }
    else { .echo -q $DiaMak.error(Please open or create new project before use Visual Editor!,DiaMak.open) }
  }
  alias DiaMak.ce {
    did -r ce 4
    set %DiaMak.fi 1
    while (%DiaMak.fi < $ini($var.read(Variables,DiaMak.fn2),0)) {
      if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) !== $null) && ($left($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control),1) !== +) { did -a ce 4 $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) %DiaMak.fi }
      inc %DiaMak.fi
    }
    unset %DiaMak.fi
    DiaMak.id
  }
  alias DiaMak.build {
    did -i DiaMak 3 2 Creating Controls...
    set %DiaMak.fi 1
    if ($1 == $null) || ($1 == DialogMaker) {
      while (%DiaMak.fi < $ini($var.read(Variables,DiaMak.fn2),0)) {
        if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) !== $null) && ($left($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control),1) !== +) {
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Button) {
            mdx DynamicControl create VisualEditor %DiaMak.fi button $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Text) {
            mdx DynamicControl create VisualEditor %DiaMak.fi text $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Edit) {
            mdx DynamicControl create VisualEditor %DiaMak.fi edit $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Link) {
            mdx DynamicControl create VisualEditor %DiaMak.fi text $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetColor VisualEditor %DiaMak.fi text $rgb(0,0,255)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Check) {
            mdx DynamicControl create VisualEditor %DiaMak.fi check $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Radio) {
            mdx DynamicControl create VisualEditor %DiaMak.fi radio $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == List) {
            mdx DynamicControl create VisualEditor %DiaMak.fi list $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Combo) {
            mdx DynamicControl create VisualEditor %DiaMak.fi combo $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Box) {
            mdx DynamicControl create VisualEditor %DiaMak.fi box $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Text)
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Icon) {
            mdx DynamicControl create VisualEditor %DiaMak.fi button $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,X) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Y) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,W) $readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,H)
            mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
            mdx SetBorderStyle VisualEditor %DiaMak.fi clientedge
            did -a VisualEditor %DiaMak.fi ( $+ %DiaMak.fi $+ )
          }
          if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == Tab) { did -b DiaMak 13 }
        }
        if ($dialog(DiaMak.Loading)) { did -a DiaMak.Loading 2 %DiaMak.fi 0 $ini($var.read(Variables,DiaMak.fn2),0) }
        inc %DiaMak.fi
      }
    }
    if ($1 == DialogStudio) {
      set %DiaMak.convert_errors 0
      dialog -md DiaMak.Convert DiaMak.Convert
      while (%DiaMak.fi <= $ini($var.read(Variables,DiaMak.file),0)) {
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 0) {
          mdx DynamicControl create VisualEditor %DiaMak.fi button $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Button
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 1) {
          mdx DynamicControl create VisualEditor %DiaMak.fi edit $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Edit
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 2) {
          mdx DynamicControl create VisualEditor %DiaMak.fi combo $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Combo
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 3) {
          mdx DynamicControl create VisualEditor %DiaMak.fi text $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Text
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 4) {
          mdx DynamicControl create VisualEditor %DiaMak.fi box $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Box
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 5) {
          mdx DynamicControl create VisualEditor %DiaMak.fi list $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control List
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 6) {
          mdx DynamicControl create VisualEditor %DiaMak.fi check $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Check
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 7) {
          mdx DynamicControl create VisualEditor %DiaMak.fi radio $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Radio
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 8) {
          mdx DynamicControl create VisualEditor %DiaMak.fi text $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetColor VisualEditor %DiaMak.fi text $rgb(0,0,255)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          did -a VisualEditor %DiaMak.fi $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text)
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Link
          if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Text $readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Text) }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 9) {
          mdx DynamicControl create VisualEditor %DiaMak.fi button $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44)
          mdx SetFont VisualEditor %DiaMak.fi 13 200 Tahoma
          mdx SetBorderStyle VisualEditor %DiaMak.fi clientedge
          did -a VisualEditor %DiaMak.fi ( $+ %DiaMak.fi $+ )
          writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Control Icon
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),1,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi X 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),2,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi Y 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),3,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi W 0 | inc %DiaMak.convert_errors }
          if ($gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) !== $null) { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H $gettok($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,Position),4,44) }
          else { writeini $var.read(Variables,DiaMak.fn2) %DiaMak.fi H 0 | inc %DiaMak.convert_errors }
        }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 10) { did -b DiaMak 13 }
        if ($readini($var.read(Variables,DiaMak.file),Control $+ %DiaMak.fi,CType) == 11) { }
        did -a DiaMak.Convert 1 %DiaMak.fi 0 $ini($var.read(Variables,DiaMak.file),0)
        dialog -t DiaMak.Convert Converting... (Errors: %DiaMak.convert_errors $+ )
        inc %DiaMak.fi
      }
      var.set Options DiaMako.file.last $nofile($var.read(Variables,DiaMak.fn2))
      dialog -x DiaMak.Convert DiaMak.Convert
      did -i DiaMak 3 3 $nopath($longfn($var.read(Variables,DiaMak.file))) ( $+ $bytes($file($var.read(Variables,DiaMak.file)).size,k).suf $+ )
    }
    var.unset Variables File.Type
    DiaMak.id
    did -i DiaMak 3 2 Ready
  }
  alias DiaMak.te {
    did -r ce 71
    set %DiaMak.fi 1
    while (%DiaMak.fi < $ini($var.read(Variables,DiaMak.fn2),0)) {
      if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.fi,Control) == +Tab) { did -a ce 71 $readini($var.read(Variables,DiaMak.fn2), %DiaMak.fi ,Control) %DiaMak.fi }
      inc %DiaMak.fi
    }
    DiaMak.id
  }
  alias DiaMak.skin {
    mdx SetControlMDX $dname 2 ToolBar arrows flat nodivider > $shortfn($scriptdir) $+ Data\Bars.mdx
    did -i DiaMak 2 1 bmpsize 32 32
    did -i DiaMak 2 1 pad 9 5
    did -i DiaMak 2 1 bwidth 32 32
    did -i DiaMak 3 2 Loading Skin...
    if ($var.read(Options,DiaMako.skin) == $null) { var.set Options DiaMako.skin Default }
    if ($var.read(Options,DiaMako.skin) !== $null) {
      set %DiaMak.file1 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Options,DiaMako.skin) $+ .skn
      set %DiaMak.file2 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Options,DiaMako.skin) $+ \
      if ($exists(%DiaMak.file2) == $false) {
        mkdir %DiaMak.file2
        .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -Q2 %DiaMak.file1 %DiaMak.file2)
      }
    }
    else {
      set %DiaMak.file1 $shortfn($scriptdir) $+ Data\Skins\Default.skn
      set %DiaMak.file2 $shortfn($scriptdir) $+ Data\Skins\Default\
      if ($exists(%DiaMak.file2) == $false) {
        mkdir %DiaMak.file2
        .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -Q2 %DiaMak.file1 %DiaMak.file2)
      }
    }
    var.set Variables DiaMak.sb %DiaMak.file2 $+ \Toolbar.bmp
    if ($exists($var.read(Variables,DiaMak.sb)) == $true) { did -i DiaMak 2 1 setbkg tile $var.read(Variables,DiaMak.sb) }
    else { did -i DiaMak 2 1 setbkg none }
    var.unset Variables DiaMak.sb
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(New)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(Open)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(Save)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(Control)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(Code)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(DialogCode)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(Tools)
    did -i DiaMak 2 1 setimage +nhd icon normal, $DiaMak.icon(Help)
    did -ra DiaMak 2 +a 1 $tab New
    did -a DiaMak 2 +va 2 $tab Open
    did -a DiaMak 2 +a 3 $tab Save
    did -a DiaMak 2 +a -
    did -a DiaMak 2 +a 4 $tab Control Editor
    did -a DiaMak 2 +a 5 $tab Code Editor
    did -a DiaMak 2 +va 6 $tab Dialog Code
    did -a DiaMak 2 +a -
    did -a DiaMak 2 +a 7 $tab Tools
    did -a DiaMak 2 +a 8 $tab Help
    did -i DiaMak 3 2 Ready
    DiaMak.language
  }
  alias DiaMak.preview.skin {
    did -i DO 10 1 bmpsize 32 32
    did -i DO 10 1 pad 9 5
    did -i DO 10 1 bwidth 32 32
    set %DiaMak.file1 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Temporary,DiaMak.preview.skin) $+ .skn
    set %DiaMak.file2 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Temporary,DiaMak.preview.skin) $+ \
    if ($exists(%DiaMak.file2) == $false) {
      mkdir %DiaMak.file2
      .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -Q2 %DiaMak.file1 %DiaMak.file2)
    }
    var.set Variables DiaMak.sb %DiaMak.file2 $+ \Toolbar.bmp
    if ($exists($var.read(Variables,DiaMak.sb)) == $true) { did -i DO 10 1 setbkg tile $var.read(Variables,DiaMak.sb) }
    else { did -i DO 10 1 setbkg none }
    var.unset Variables DiaMak.sb
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(New,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(Open,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(Save,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(Control,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(Code,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(DialogCode,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(Tools,Preview)
    did -i DO 10 1 setimage +nhd icon normal, $DiaMak.icon(Help,Preview)
    did -ra DO 10 +a 1 $tab New
    did -a DO 10 +a 2 $tab Open
    did -a DO 10 +a 3 $tab Save
    did -a DO 10 +a -
    did -a DO 10 +a 4 $tab Control Editor
    did -a DO 10 +a 5 $tab Code Editor
    did -a DO 10 +a 6 $tab Dialog Code
    did -a DO 10 +a -
    did -a DO 10 +a 7 $tab Tools
    did -a DO 10 +a 8 $tab Help
  }
  alias DiaMak.pop { return $+($shortfn($+($shortfn($scriptdir),Data\Popups.dll))) }
  alias DiaMak.mpdll {
    if ($isid) { return $dll($shortfn($scriptdir) $+ Data\Mpopup.dll,$1,$2-) }
    else { dll $shortfn($scriptdir) $+ Data\Mpopup.dll $1 $2- }
  }
  alias DiaMak.edit { return $gettok($did($1 $+ , $2),1,32) }
  alias -l mdx { return $dll($shortfn($scriptdir) $+ Data\Mdx.dll,$1,$2-) }
  alias DiaMak.icon {
    if ($var.read(Options,DiaMako.skin) !== $null) {
      set %DiaMak.file1 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Options,DiaMako.skin) $+ .skn
      set %DiaMak.file2 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Options,DiaMako.skin) $+ \
      if ($exists(%DiaMak.file2) == $false) {
        mkdir %DiaMak.file2
        .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -Q2 %DiaMak.file1 %DiaMak.file2)
      }
    }
    else {
      set %DiaMak.file1 $shortfn($scriptdir) $+ Data\Skins\Default.skn
      set %DiaMak.file2 $shortfn($scriptdir) $+ Data\Skins\Default\
      if ($exists(%DiaMak.file2) == $false) {
        mkdir %DiaMak.file2
        .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -Q2 %DiaMak.file1 %DiaMak.file2)
      }
    }
    if ($var.read(Temporary,DiaMak.preview.skin) !== $null) {
      set %DiaMak.file1 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Temporary,DiaMak.preview.skin) $+ .skn
      set %DiaMak.file2 $shortfn($scriptdir) $+ Data\Skins\ $+ $var.read(Temporary,DiaMak.preview.skin) $+ \
      if ($exists(%DiaMak.file2) == $false) {
        mkdir %DiaMak.file2
        .echo -q $dll($shortfn($scriptdir) $+ Data\mUnzip.dll, Unzip, -Q2 %DiaMak.file1 %DiaMak.file2)
      }
    }
    if ($1 == Logo) { if ($isfile(%DiaMak.file2 $+ \Logo.jpg) == $true) { return %DiaMak.file2 $+ \Logo.jpg } }
    if ($1 == Modules_Pic) {
      if ($isfile(%DiaMak.file2 $+ \Modules.jpg) == $true) { return %DiaMak.file2 $+ \Modules.jpg }
      else { return $shortfn($scriptdir) $+ Data\Icons\Modules.jpg }
    }
    if ($1 == Modules_Loaded) {
      if ($isfile(%DiaMak.file2 $+ \Loaded.ico) == $true) { return %DiaMak.file2 $+ \Loaded.ico }
      else { return $shortfn($scriptdir) $+ Data\Icons\Loaded.ico }
    }
    if ($1 == Modules_Unloaded) {
      if ($isfile(%DiaMak.file2 $+ \Unloaded.ico) == $true) { return %DiaMak.file2 $+ \Unloaded.ico }
      else { return $shortfn($scriptdir) $+ Data\Icons\Unloaded.ico }
    }
    if ($2 == $null) { if ($var.read(Options,DiaMako.skin) !== $null) { return %DiaMak.file2 $+ \ $+ $1 $+ .ico } }
    if ($2 == Preview) { if ($var.read(Temporary,DiaMak.preview.skin) !== $null) { return %DiaMak.file2 $+ \ $+ $1 $+ .ico } }
  }
  alias DiaMak.language {
    if ($var.read(Options,DiaMako.language) !== $null) {
      set %l $shortfn($scriptdir) $+ Data\Languages\ $+ $var.read(Options,DiaMako.language)
      if ($dialog(DiaMak).active == $true) {
        did -r DiaMak 2
        did -ra DiaMak 2 +a 1 $tab $readini(%l,Main,New)
        did -a DiaMak 2 +va 2 $tab $readini(%l,Main,Open)
        did -a DiaMak 2 +a 3 $tab $readini(%l,Main,Save)
        did -a DiaMak 2 +a -
        did -a DiaMak 2 +a 4 $tab $readini(%l,Main,Control_Editor)
        did -a DiaMak 2 +a 5 $tab $readini(%l,Main,Code_Editor)
        did -a DiaMak 2 +va 6 $tab $readini(%l,Main,Dialog_Code)
        did -a DiaMak 2 +a -
        did -a DiaMak 2 +a 7 $tab $readini(%l,Main,Tools)
        did -a DiaMak 2 +a 8 $tab $readini(%l,Main,Help)
        did -ra DiaMak 7 $readini(%l,Main,Button)
        did -ra DiaMak 8 $readini(%l,Main,Edit)
        did -ra DiaMak 9 $readini(%l,Main,Text)
        did -ra DiaMak 10 $readini(%l,Main,Link)
        did -ra DiaMak 11 $readini(%l,Main,Box)
        did -ra DiaMak 12 $readini(%l,Main,Scroll)
        did -ra DiaMak 13 $readini(%l,Main,Tab)
        did -ra DiaMak 14,51 $readini(%l,Main,Icon)
        did -ra DiaMak 15 $readini(%l,Main,Check)
        did -ra DiaMak 16 $readini(%l,Main,Radio)
        did -ra DiaMak 17 $readini(%l,Main,List)
        did -ra DiaMak 18 $readini(%l,Main,Combo)
        did -ra DiaMak 66 $readini(%l,Main,Name:)
        did -ra DiaMak 111 $readini(%l,Main,Titlebar_Text:)
        did -ra DiaMak 55 $readini(%l,Main,Position_and_Size:)
        did -ra DiaMak 48 $readini(%l,Main,Use_DBU)
      }
      if ($dialog(do).active == $true) {
        dialog -t DO Dialog Maker: $readini(%l,Options,Options)
        did -ra DO 3 +da 1 $tab $readini(%l,Options,Add)
        did -a DO 3 +da 2 $tab $readini(%l,Options,Load)
        did -a DO 3 +a 3 $tab -
        did -a DO 3 +da 4 $tab $readini(%l,Options,Rename)
        did -a DO 3 +da 5 $tab $readini(%l,Options,Delete)
        did -a DO 3 +a 6 $tab -
        did -a DO 3 +da 7 $tab $readini(%l,Options,Refresh)
        did -ra DO 1 +b $readini(%l,Options,General)
        did -i DO 1 1 cb 2
        did -a DO 1 $readini(%l,Options,Main)
        did -a DO 1 $readini(%l,Options,Patterns)
        did -i DO 1 1 branch expandall $did(1).lines
        did -i DO 1 1 cb root
        did -a DO 1 +b $readini(%l,Options,Editors)
        did -i DO 1 1 cb 3
        did -a DO 1 $readini(%l,Options,Code_Editor)
        did -a DO 1 $readini(%l,Options,Visual_Editor)
        did -a DO 1 $readini(%l,Options,Control_Editor)
        did -i DO 1 1 branch expandall $did(1).lines
        did -i DO 1 1 cb root
        did -a DO 1 +b $readini(%l,Options,Skins)
        did -i DO 1 1 cb 4
        did -a DO 1 $readini(%l,Options,Load)
        did -i DO 1 1 branch expandall $did(1).lines
        did -i DO 1 1 cb root
        did -a DO 1 +b $readini(%l,Options,Languages)
        did -i DO 1 1 cb 5
        did -a DO 1 $readini(%l,Options,Load)
        did -i DO 1 1 branch expandall $did(1).lines
        did -ra DO 9 $readini(%l,Options,OK)
        did -ra DO 12 $readini(%l,Options,Open)
        did -ra DO 13 $readini(%l,Options,On_Top)
        did -ra DO 14 $readini(%l,Options,Auto_Start)
        did -ra DO 15 $readini(%l,Options,Open_Last_Project)
        did -ra DO 29 $readini(%l,Options,Close_Loading)t
        did -ra DO 30 $readini(%l,Options,Show_Tips)
        did -ra DO 28 $readini(%l,Options,Remember_Positions)
        did -ra DO 19 $readini(%l,Options,Red:)
        did -ra DO 21 $readini(%l,Options,Green:)
        did -ra DO 24 $readini(%l,Options,Blue:)
      }
      if ($dialog(mod).active == $true) {
        dialog -t mod Dialog Maker: $readini(%l,Modules,Modules)
        did -i mod 3 1 headertext +l $readini(%l,Modules,Module) $chr(9) $+ +l $readini(%l,Modules,Author) $chr(9) $+ +r Location
        did -ra mod 5 $readini(%l,Modules,OK)
        did -ra mod 6 $readini(%l,Modules,Load)
        did -ra mod 8 $readini(%l,Modules,Adjust)
        did -ra mod 9 $readini(%l,Modules,Refresh)
        did -ra mod 11 $readini(%l,Modules,Delete)
      }
      if ($dialog(DiaMak.tips).active == $true) {
        dialog -t DiaMak.tips Dialog Maker $readini(%l,Tips,Tips)
        did -ra DiaMak.tips 3 $readini(%l,Tips,Always_show_tips_at_startup)
        did -ra DiaMak.tips 4 $readini(%l,Tips,Another_Tip)
        did -ra DiaMak.tips 5 $readini(%l,Tips,Close)
      }
      if ($dialog(ce).active == $true) {
        dialog -t ce Dialog Maker: $readini(%l,Control_Editor,Control_Editor)
        did -ra ce 5 $readini(%l,Control_Editor,Controls:)
        did -ra ce 7 $readini(%l,Control_Editor,Text:)
        did -ra ce 6 $readini(%l,Control_Editor,Size:)
        did -ra ce 13 $readini(%l,Control_Editor,Type:)
        did -ra ce 14 $readini(%l,Control_Editor,Align:)
        did -ra ce 16 $readini(%l,Control_Editor,Tab:)
        did -ra ce 18 $readini(%l,Control_Editor,Disable)
        did -ra ce 19 $readini(%l,Control_Editor,Hide)
        did -ra ce 20 $readini(%l,Control_Editor,Result)
        did -ra ce 21 $readini(%l,Control_Editor,Group)
        did -ra ce 69 $readini(%l,Control_Editor,Save)
        did -ra ce 22 $readini(%l,Control_Editor,Default)
        did -ra ce 23,40,51 $readini(%l,Control_Editor,Flat)
        did -ra ce 24 $readini(%l,Control_Editor,Multi-Line)
        did -ra ce 63 $readini(%l,Control_Editor,Select...)
        did -ra ce 43 $readini(%l,Control_Editor,Add)
        did -ra ce 72 $readini(%l,Control_Editor,Refresh)
        did -ra ce 26 $readini(%l,Control_Editor,Password_Entry)
        did -ra ce 28 $readini(%l,Control_Editor,Auto_H_Scroll)
        did -ra ce 29 $readini(%l,Control_Editor,Auto_V_Scroll)
        did -ra ce 30,49,55 $readini(%l,Control_Editor,Horizontal_Scroll)
        did -ra ce 31,50,56 $readini(%l,Control_Editor,Vertical_Scroll)
        did -ra ce 32,52 $readini(%l,Control_Editor,Sorted)
        did -ra ce 33 $readini(%l,Control_Editor,Editable)
        did -ra ce 34,54 $readini(%l,Control_Editor,Force_Size)
        did -ra ce 53 $readini(%l,Control_Editor,Extended_Select)
        did -ra ce 36 $readini(%l,Control_Editor,No_Wordwrap)
        did -ra ce 48 $readini(%l,Control_Editor,Read-Only)
        did -ra ce 41 $readini(%l,Control_Editor,3_State)
        did -ra ce 35 $readini(%l,Control_Editor,Multi_Select)
        did -ra ce 60 $readini(%l,Control_Editor,No_Border)
        did -ra ce 27 $readini(%l,Control_Editor,Allow_Return)
        did -ra ce 67 $readini(%l,Control_Editor,Maximum:)
        did -ra ce 57 $readini(%l,Control_Editor,Limit:)
        did -ra ce 61 $readini(%l,Control_Editor,Icon_File:)
        did -ra ce 64 $readini(%l,Control_Editor,Scroll_Range:)
        did -ra ce 65 $readini(%l,Control_Editor,Minimum:)
      }
      if ($dialog(le).active == $true) {
        dialog -t le Dialog Maker: $readini(%l,Language_Editor,Language_Editor)
        did -ra le 4 $readini(%l,Language_Editor,Windows)
        did -i le 4 1 cb 2
        did -a le 4 $readini(%l,Language_Editor,Main)
        did -a le 4 $readini(%l,Language_Editor,Error)
        did -a le 4 $readini(%l,Language_Editor,Update)
        did -a le 4 $readini(%l,Language_Editor,Options)
        did -a le 4 $readini(%l,Language_Editor,Modules)
        did -a le 4 $readini(%l,Language_Editor,Control_Editor)
        did -a le 4 $readini(%l,Language_Editor,Language_Editor)
        did -a le 4 $readini(%l,Language_Editor,Code_Editor)
        did -i le 4 1 cb 9
        did -a le 4 $readini(%l,Language_Editor,Go_To_Line)
        did -a le 4 $readini(%l,Language_Editor,Search)
        did -i le 4 1 cb root
        did -a le 4 $readini(%l,Language_Editor,Menus)
        did -i le 4 1 cb 3
        did -a le 4 $readini(%l,Language_Editor,Tools)
        did -a le 4 $readini(%l,Language_Editor,Dialog_Code)
        did -i le 4 1 cb root
        did -a le 4 $readini(%l,Language_Editor,About)
        did -i le 1 1 headertext +c $readini(%l,Language_Editor,Default) $chr(9) $+ +c $readini(%l,Language_Editor,Translated)
        did -ra le 3 $readini(%l,Language_Editor,New)
        did -ra le 5 $readini(%l,Language_Editor,Change)
      }
      if ($dialog(dc).active == $true) {
        dialog -t dc Dialog Maker: $readini(%l,Code_Editor,Code_Editor)
        did -r dc 17
        did -a dc 17 +a 1 $tab $readini(%l,Code_Editor,Save)
        did -a dc 17 +a -
        did -a dc 17 +a 2 $tab $readini(%l,Code_Editor,Copy)
        did -a dc 17 +a 3 $tab $readini(%l,Code_Editor,Paste)
        did -a dc 17 +a -
        did -a dc 17 +a 4 $tab $readini(%l,Code_Editor,Print)
        did -a dc 17 +a 5 $tab $readini(%l,Code_Editor,Clear)
        did -a dc 17 +a -
        did -a dc 17 +a 6 $tab $readini(%l,Code_Editor,Search)
        did -a dc 17 +a 7 $tab $readini(%l,Code_Editor,Go_to_Line)
        if ($var.read(Options,DiaMako.explorer) == on) { did -a dc 17 +xca 8 $tab $readini(%l,Code_Editor,Explorer) }
        else { did -a dc 17 +ca 8 $tab $readini(%l,Code_Editor,Explorer) }
        did -a dc 17 +a -
        did -a dc 17 +a 9 $tab $readini(%l,Code_Editor,Patterns)
        did -a dc 17 +a 10 $tab $readini(%l,Code_Editor,Brackets)
        did -ra dc 4 $readini(%l,Code_Editor,Lines)
        did -ra dc 6  $readini(%l,Code_Editor,Size)
        did -ra dc 10 $readini(%l,Code_Editor,Clipboard)
      }
      if ($dialog(dc.gl).active == $true) {
        dialog -t dc.gl $readini(%l,Go_To_Line,Go_To_Line...)
        did -ra dc.gl 3 $readini(%l,Go_To_Line,Go)
        did -ra dc.gl 4 $readini(%l,Go_To_Line,Cancel)
      }
      if ($dialog(dc.st).active == $true) {
        dialog -t dc.st $readini(%l,Search,Search...)
        did -ra dc.st 3 $readini(%l,Search,Find)
        did -ra dc.st 4 $readini(%l,Search,Cancel)
      }
      if ($dialog(du).active == $true) {
        dialog -t du Dialog Maker: $readini(%l,Update,Update)
        did -i du 1 1 headertext +c $readini(%l,Update,Update) $chr(9) $+ +c $readini(%l,Update,URL) $chr(9) $+ +c $readini(%l,Update,Size)
        did -ra du 2 $readini(%l,Update,Progress:)
        did -ra du 11 $readini(%l,Update,Time:)
        did -ra du 9 $readini(%l,Update,Update_Size:)
        did -ra du 10 $readini(%l,Update,Downloaded:)
        did -ra du 8 $readini(%l,Update,Download)
        did -ra du 12 $readini(%l,Update,Stop)
        did -ra du 6 $readini(%l,Update,Refresh)
        did -ra du 7 $readini(%l,Update,Current)
        did -ra du 5 $readini(%l,Update,OK)
      }
      if ($dialog(de).active == $true) {
        dialog -t de Dialog Maker: $readini(%l,Error,ERROR!)
        did -ra de 1 $readini(%l,Error,OK)
        did -ra de 2 $readini(%l,Error,Repair)
      }
      unset %l
    }
  }
  alias DiaMak.id {
    did -i DiaMak 3 2 Calculating IDs...
    set %DiaMak.i 1
    while (%DiaMak.i < $ini($var.read(Variables,DiaMak.fn2),0)) {
      if ($readini($var.read(Variables,DiaMak.fn2),%DiaMak.i,Control) !== $null) { set %id.string $addtok(%id.string,%DiaMak.i,44) }
      inc %DiaMak.i
    }
    set %id.i 1
    while (%id.i <= $numtok(%id.string,44)) {
      if ($gettok(%id.string,%id.i,44) < $calc($gettok(%id.string,$calc(%id.i +1),44) -1)) && (%id.change !== Yes) {
        var.set Variables DiaMak.id $calc($gettok(%id.string,%id.i,44) +1)
        set %id.change Yes
      }
      inc %id.i
    }
    if (%id.change !== Yes) { var.set Variables DiaMak.id $calc($numtok(%id.string,44) +1) }
    unset %id.*
    unset %DiaMak.i
    did -i DiaMak 3 2 Ready
  }
  alias DiaMak.set.eo {
    if ($var.read(Options,$1-) == on) { var.set Options $1- off }
    else { var.set Options $1- on }
    DiaMak.explorer.refresh
  }
  alias DiaMak.close {
    if ($dialog(VisualEditor)) { dialog -x VisualEditor VisualEditor }
    if ($dialog(DiaMak)) { dialog -x DiaMak DiaMak }
    if ($dialog(DO)) { dialog -x DO DO }
    if ($dialog(MOD)) { dialog -x MOD MOD }
    if ($dialog(DU)) { dialog -x du du }
    if ($dialog(CE)) { dialog -x ce ce }
    if ($dialog(DC)) { dialog -x dc dc }
    if ($dialog(DC.GL)) { dialog -x dc.gl dc.gl }
    if ($dialog(DC.ST)) { dialog -x dc.st dc.st }
    if ($dialog(LE)) { dialog -x le le }
    if ($dialog(LE.CT)) { dialog -x le.ct le.ct }
    if ($dialog(ODFF)) { dialog -x odff odff }
    if ($dialog(DE)) { dialog -x de de }
    if ($dialog(DiaMak.Loading)) { dialog -x DiaMak.Loading DiaMak.Loading }
    if ($dialog($var.read(Variables,DiaMak.dn)) !== $null) { dialog -x $var.read(Variables,DiaMak.dn) $var.read(Variables,DiaMak.dn) }
    if ($script($nopath($var.read(Variables,DiaMak.fn))) !== $null) { .unload -rs $shortfn($var.read(Variables,DiaMak.fn)) }
    var.unset Temporary
    var.unset Variables DiaMak.file,DiaMak.oid
    unset %DiaMak.*
    if ($1 == Restart) { .timerDiaMakres 1 0 /DiaMak }
  }
  alias DiaMak.code.view {
    DiaMak.cnd
    dialog -v DiaMak DiaMak
    run -o Notepad.exe $remove($var.read(Variables,DiaMak.file),$right($shortfn($var.read(Variables,DiaMak.file)),2)) $+ mrc
  }
  alias DiaMak.code.copy {
    DiaMak.cnd
    did -i DiaMak 3 2 Copying Code...
    clipboard
    var %a = 1, %lines = $lines($remove($var.read(Variables,DiaMak.file),$right($shortfn($var.read(Variables,DiaMak.file)),2)) $+ mrc)
    while (%a <= %lines) {
      clipboard -an $read($remove($var.read(Variables,DiaMak.file),$right($shortfn($var.read(Variables,DiaMak.file)),2)) $+ mrc,n,%a)
      inc %a
    }
    unset %a
    unset %lines
    did -i DiaMak 3 2 Ready
  }
  alias DiaMak.code.save {
    if ($var.read(Options,export.dir) == $null) { var.set Options export.dir $mircdir }
    set %test.dir $sfile($var.read(Options,export.dir) $nopath($longfn($remove($var.read(Variables,DiaMak.file),$right($shortfn($var.read(Variables,DiaMak.file)),2)) $+ mrc)),Save Dialog Code:,Save)
    if (%test.dir !== $null) {
      DiaMak.cnd
      dialog -v DiaMak DiaMak
      var.set Options export.dir $nofile(%test.dir)
      .copy -o $+($remove($var.read(Variables,DiaMak.file),$right($shortfn($var.read(Variables,DiaMak.file)),2)),mrc) $+($shortfn($nofile(%test.dir)),$replace($nopath(%test.dir),$chr(32),_))
    }
    unset %test.dir
  }
  alias DiaMak.file.dc {
    if ($var.read(Variables,DiaMak.file) !== $null) { dialog -md dc dc | .timerDC 1 0 dialog -v dc dc }
  }
  alias DiaMak.ds {
    if ($did(1).seltext !== $null) { download $DiaMak.cell(DU,1,$did(1).sel,2) }
    var.set Variables DiaMak.download Update
  }
  alias DiaMak.cell { return $gettok($gettok($gettok($did($1,$2,$3),$4,9),$iif($4 = 1,6,5) $+ -,32),1,4) }
  alias DiaMak.tree {
    var %dialog = $1
    var %id = $2
    if (!$dialog(%dialog)) return
    if ($3) {
      var %Loc = $3-
      if ($prop = lines) {
        did -i %dialog %id 1 cb root %loc
        var %return = $calc($did(%dialog,%id,0).lines -1)
        goto end
      }
      if ($numtok(%Loc,32) = 1) did -i %dialog %id 1 cb root
      else { did -i %dialog %id 1 cb root $gettok(%loc,1- $+ $calc($numtok(%loc,32) -1),32) }
      var %line = $gettok($did(%dialog,%id,$gettok(%Loc,-1,32)),7-,32)
      if ($prop = tooltip) { var %return = $gettok(%line,2-,9) | goto end }
      var %return = $gettok(%line,1,9)
      goto end
    }
    var %entry = $did(%dialog,%id,1)
    if ($gettok(%entry,1,32) = slclick) var %loc = $gettok(%entry,4-,32)
    else var %loc = $gettok(%entry,3-,32)
    var %depth = $calc($numtok(%loc,32) -1)
    var %branch = $gettok(%loc,-1,32)
    var %line = $gettok($did(%dialog,%id,%branch),7-,32)
    if (!$prop) { var %return = $gettok(%line,1,9) | goto end }
    if ($prop = root) { var %return = $gettok(%loc,1,32) | goto end }
    if ($prop = sel) { var %return = %loc | goto end }
    if ($prop = lines) { var %return = $calc($did(%dialog,%id,0).lines -1) | goto end }
    if ($prop = len) { var %return = $len(%line) | goto end }
    if ($prop = tooltip) { var %return = $gettok(%line,2-,9) | goto end }
    if ($prop = event) { var %return = $gettok(%entry,1,32) | goto end }
    :end
    if (%depth = 0) did -i %dialog %id 1 cb root
    else did -i %dialog %id 1 cb root $gettok(%loc,1- $+ %depth,32)
    return %return
  }
  alias DiaMak.preview {
    DiaMak.cnd
    if ($dialog($var.read(Variables,DiaMak.dn)) == $null) { dialog -md $var.read(Variables,DiaMak.dn) $var.read(Variables,DiaMak.dn) }
    else { dialog -x $var.read(Variables,DiaMak.dn) $var.read(Variables,DiaMak.dn) | dialog -md $var.read(Variables,DiaMak.dn) $var.read(Variables,DiaMak.dn) }
  }
  alias DiaMak.explorer.refresh {
    if ($var.read(Options,DiaMako.explorer.show_aliases) == on) { filter -cnif DC 1 $shortfn($scriptdir) $+ Data\Aliases.txt alias* }
    if ($var.read(Options,DiaMako.explorer.show_dialogs) == on) { filter -cnif DC 1 $shortfn($scriptdir) $+ Data\Dialogs.txt dialog* }
    if ($var.read(Options,DiaMako.explorer.show_menus) == on) { filter -cnif DC 1 $shortfn($scriptdir) $+ Data\Menus.txt menu* }
    if ($var.read(Options,DiaMako.explorer.show_signals) == on) { filter -cnif DC 1 $shortfn($scriptdir) $+ Data\Signals.txt *:signal:* }
    if ($var.read(Options,DiaMako.explorer.show_events) == on) { filter -cnif DC 1 $shortfn($scriptdir) $+ Data\Events.txt on * }
    if ($var.read(Options,DiaMako.explorer.show_raw_events) == on) { filter -cnif DC 1 $shortfn($scriptdir) $+ Data\Raws.txt *raw* }
    did -r DC 2
    set %i 1
    if ($var.read(Options,DiaMako.explorer.show_aliases) == on) {
      did -a DC 2 +b Aliases ( $+ $lines($shortfn($scriptdir) $+ Data\Aliases.txt) $+ )
      did -i DC 2 1 cb $did(dc,2).lines
      while (%i <= $lines($shortfn($scriptdir) $+ Data\Aliases.txt)) {
        did -a DC 2 $remove($read($shortfn($scriptdir) $+ Data\Aliases.txt,%i),alias)
        inc %i
      }
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { did -i DC 2 1 branch expandall $did(dc,2).lines }
      did -i DC 2 1 cb up
    }
    set %i 1
    if ($var.read(Options,DiaMako.explorer.show_dialogs) == on) {
      did -a DC 2 +b Dialogs ( $+ $lines($shortfn($scriptdir) $+ Data\Dialogs.txt) $+ )
      did -i DC 2 1 cb $did(dc,2).lines
      while (%i <= $lines($shortfn($scriptdir) $+ Data\Dialogs.txt)) {
        did -a DC 2 $read($shortfn($scriptdir) $+ Data\Dialogs.txt,%i)
        inc %i
      }
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { did -i DC 2 1 branch expandall $did(dc,2).lines }
      did -i DC 2 1 cb up
    }
    set %i 1
    if ($var.read(Options,DiaMako.explorer.show_menus) == on) {
      did -a DC 2 +b Menus ( $+ $lines($shortfn($scriptdir) $+ Data\Menus.txt) $+ )
      did -i DC 2 1 cb $did(dc,2).lines
      while (%i <= $lines($shortfn($scriptdir) $+ Data\Menus.txt)) {
        did -a DC 2 $remove($read($shortfn($scriptdir) $+ Data\Menus.txt,%i),menu)
        inc %i
      }
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { did -i DC 2 1 branch expandall $did(dc,2).lines }
      did -i DC 2 1 cb up
    }
    set %i 1
    if ($var.read(Options,DiaMako.explorer.show_signals) == on) {
      did -a DC 2 +b Signals ( $+ $lines($shortfn($scriptdir) $+ Data\Signals.txt) $+ )
      did -i DC 2 1 cb $did(dc,2).lines
      while (%i <= $lines($shortfn($scriptdir) $+ Data\Signals.txt)) {
        did -a DC 2 $remove($read($shortfn($scriptdir) $+ Data\Signals.txt,%i),signal,on,:)
        inc %i
      }
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { did -i DC 2 1 branch expandall $did(dc,2).lines }
      did -i DC 2 1 cb up
    }
    set %i 1
    if ($var.read(Options,DiaMako.explorer.show_events) == on) {
      did -a DC 2 +b Events ( $+ $lines($shortfn($scriptdir) $+ Data\Events.txt) $+ )
      did -i DC 2 1 cb $did(dc,2).lines
      while (%i <= $lines($shortfn($scriptdir) $+ Data\Events.txt)) {
        did -a DC 2 $remove($read($shortfn($scriptdir) $+ Data\Events.txt,%i),on)
        inc %i
      }
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { did -i DC 2 1 branch expandall $did(dc,2).lines }
      did -i DC 2 1 cb up
    }
    set %i 1
    if ($var.read(Options,DiaMako.explorer.show_raw_events) == on) {
      did -a DC 2 +b Raw Events ( $+ $lines($shortfn($scriptdir) $+ Data\Raws.txt) $+ )
      did -i DC 2 1 cb $did(dc,2).lines
      while (%i <= $lines($shortfn($scriptdir) $+ Data\Raws.txt)) {
        did -a DC 2 $remove($read($shortfn($scriptdir) $+ Data\Raws.txt,%i),on,/)
        inc %i
      }
      if ($var.read(Options,DiaMako.explorer.auto_expand) == on) { did -i DC 2 1 branch expandall $did(dc,2).lines }
      did -i DC 2 1 cb up
    }
  }
  alias DiaMak.import.dialog {
    if ($readini($var.read(Variables,DiaMak.file),Dialog,Name) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Name Unknown | inc %DiaMak.errors }
    var.set Variables DiaMak.dn $readini($var.read(Variables,DiaMak.file),Dialog,Name)
    if ($readini($var.read(Variables,DiaMak.file),Dialog,Title) !== $null) { var.set Variables DiaMak.dt $readini($var.read(Variables,DiaMak.file),Dialog,Title) }
    if ($readini($var.read(Variables,DiaMak.file),Dialog,Option) !== $null) { var.set Variables DiaMak.DO $readini($var.read(Variables,DiaMak.file),Dialog,Option) }
    else { var.unset Variables DiaMak.DO }
    if ($readini($var.read(Variables,DiaMak.file),Dialog,Icon) !== $null) { var.set Variables DiaMak.di $readini($var.read(Variables,DiaMak.file),Dialog,Icon) }
    else { var.unset Variables DiaMak.di }
    if ($readini($var.read(Variables,DiaMak.file),Dialog,X) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog X -1 | inc %DiaMak.errors }
    var.set Variables DiaMak.dx $readini($var.read(Variables,DiaMak.file),Dialog,X)
    if ($readini($var.read(Variables,DiaMak.file),Dialog,Y) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog Y -1 | inc %DiaMak.errors }
    var.set Variables DiaMak.dy $readini($var.read(Variables,DiaMak.file),Dialog,Y)
    if ($readini($var.read(Variables,DiaMak.file),Dialog,W) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog W 640 | inc %DiaMak.errors }
    var.set Variables DiaMak.dw $readini($var.read(Variables,DiaMak.file),Dialog,W)
    if ($readini($var.read(Variables,DiaMak.file),Dialog,H) == $null) { writeini $var.read(Variables,DiaMak.fn2) Dialog H 480 | inc %DiaMak.errors }
    var.set Variables DiaMak.dh $readini($var.read(Variables,DiaMak.file),Dialog,H)
  }
  alias DiaMak.add.mod {
    if ($script($nopath($shortfn($1-))) == $null) { did -a mod 3 0 + 2 0 0 $remove($nopath($1-),.mod) $chr(9) $readini($shortfn($1-),Information,Author) $chr(9) $shortfn($1-) $chr(4) $readini($shortfn($1-),Information,Description) }
    else { did -a mod 3 0 + 1 0 0 $remove($nopath($1-),.mod) $chr(9) $readini($shortfn($1-),Information,Author) $chr(9) $shortfn($1-) $chr(4) $readini($shortfn($1-),Information,Description) }
  }
  alias DiaMak.open.more {
    did -o dc 11 4 +xgca 1 $1-
    if ($readini($var.read(Variables,DiaMak.file),$gettok($1-,2,32),Code) !== $null) { did -ra dc 1 $readini($var.read(Variables,DiaMak.file),$gettok($1-,2,32),Code) }
    else { did -r dc 1 }
  }

  alias DiaMak.BracketCheck {
    did -i DiaMak 3 2 Saving Code...
    if ($did(1) !== $null) { savebuf -o dc 1 $var.read(Variables,DiaMakc.file) }
    if ($did(1) == $null) { .remove $var.read(Variables,DiaMakc.file) }
    did -i DiaMak 3 2 Ready
    set %BC.fn $var.read(Variables,DiaMakc.file)
    set %BC.a.ffn $remove($var.read(Variables,DiaMakc.file),$shortfn($mircdir)) | set %BC.a.load FALSE | if ($2) { set %BC.ignore $2- }
    set %lines $lines(%BC.a.ffn)
    inc %lines
    set %prm $calc(100 / %lines)
    set %BC.a.fn $gettok(%BC.a.ffn,$numtok(%BC.a.ffn,92),92)
    unset %BC.ini
    if ($right(%BC.a.fn,3) == ini) { set %BC.ini TRUE }
    if ($dialog(DC.BC) == $null) { dialog -md DC.BC DC.BC }
    else { dialog -x DC.BC DC.BC | dialog -md DC.BC DC.BC }
    set %n1 1
    while (%n1 <= %lines) {
      set %txt $read(%BC.a.ffn,n,%n1)
      if (%BC.ini) { if ($left(%txt,1) != $chr(91)) { set %txt $gettok(%txt,2-,61) } }
      if ($left(%txt,1) == $chr(59)) { goto skpBC2 }
      set %w1 $gettok(%txt,1,32)
      set %w2 $gettok(%txt,2,32)
      if ($left(%w2,1) == ") { goto skpBC2 }
      if ($findtok(%BC.ignore,%n1,1,32)) { goto skpBC1 }
      set %open $calc($pos(%txt,$chr(40),0) + %open)
      set %close $calc($pos(%txt,$chr(41),0) + %close)
      :skpBC1
      if ($right(%txt,2) != $+($chr(36),$chr(38))) {
        if (%open != %close) {
          set %BC.err TRUE
          if (!$isid) { did -a DC.BC 1 Error $chr(9) %n1 }
        }
        set %open
        set %close
      }
      if (($+(if,$chr(40)) isin $remove(%txt,iif)) || ($+(elseif,$chr(40)) isin %txt) || ($+(while,$chr(40)) isin %txt)) {
        set %BC.err TRUE
        if (!$isid) { did -a DC.BC 1 Error $chr(9) %n1 }
      }
      if (%BC.ini) { if ($left(%w1,1) == $chr(91)) { goto skpBC3 } }
      if ((%w1 == alias) || (%w1 == menu) || (%w1 == on) || (ctcp*:*:*:* iswm %txt) || (%n1 == %lines)) {
        :skpBC3
        if (%openbrk != %closbrk) {
          set %errs $abs($calc(%openbrk - %closbrk))
          set %BC.err TRUE
          if (!$isid) { did -a DC.BC 1 Error Between Lines $chr(9) %lastline and $calc(%n1 - 1) }
          if (!$isid) { did -a DC.BC 1 $chr(123) $chr(125) Bracket Errors $chr(9) %errs }
          set %l1 $calc(%lastline + 1)
          set %lerr %lastline
          set %l2 $calc(%n1 - 1)
          while (%l1 <= %l2) {
            set %txt2 $read(%BC.a.ffn,n,%l1)
            if ($numtok(%txt2,32) == 1) && ($right(%txt2,1) != $chr(125)) && ($right(%txt2,1) !== $chr(61)) {
              did -a DC.BC 1 Possible ' $+ $chr(123) $+ ' Error $chr(9) %l1
            }
            if (($+(i,f,$chr(32),$chr(40)) isin %txt2) || ($+(elsei,f,$chr(32),$chr(40)) isin %txt2) || ($+(whi,le,$chr(32),$chr(40)) isin %txt2)) {
              if (($chr(41) !isin %txt2) || ($chr(123) !isin %txt2)) {
                if (!$isid) { did -a DC.BC 1 Possible Error $chr(9) %l1 }
              }
            }
            set %bt1 $remove(%txt2,$chr(123) $+ $chr(32),$chr(32))
            if (($chr(123) isin %bt1) && ($len(%bt1) != $pos(%bt1,$chr(123)))) {
              if (!$isid) { did -a DC.BC 1 Possible ' $+ $chr(123) $+ ' Error $chr(9) %l1 }
            }
            set %bt1 $remove(%txt2,$chr(32) $+ $chr(125),$chr(32))
            if (($chr(125) isin %bt1) && ($len(%bt1) != 1)) {
              if (!$isid) { did -a DC.BC 1 Possible ' $+ $chr(125) $+ ' Error $chr(9) %l1 }
            }
            inc %l1
          }
        }
        set %lastline %n1
        unset %openbrk
        unset %closbrk
      }
      set %openbrk $calc($pos(%txt,$chr(123) $+ $chr(32),0) + %openbrk + $iif($right(%txt,1) == $chr(123),1))
      set %closbrk $calc($pos(%txt,$chr(32) $+ $chr(125),0) + %closbrk + $iif($left(%txt,1) == $chr(125),1))
      :skpBC2
      inc %n1
      if (!$isid) { did -a DC.BC 2 $int($calc(%prm * %n1 * 2)) 0 200 }
    }
    if (!%BC.err) {
      if ($isid) { return GOOD }
    }
    elseif (%BC.err) {
      unset %BC.err*
      if ($isid) { return ERROR }
    }
    unset %BC.err
    if ($did(DC.BC,1).lines <= 1) { dialog -x DC.BC DC.BC }
  }
  alias color.red {
    if ($var.read(Variables,DiaMak.color) == Background) { mdx SetColor DO 17 background $rgb( $1 , $DiaMak.edit(do,23) , $DiaMak.edit(do,26) ) | var.set Options DiaMako.color.back $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($var.read(Variables,DiaMak.color) == Text) { mdx SetColor DO 17 text $rgb( $1 , $DiaMak.edit(do,23) , $DiaMak.edit(do,26) ) | var.set Options DiaMako.color.text $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($var.read(Variables,DiaMak.color) == Text Background) { mdx SetColor DO 17 textbg $rgb( $1 , $DiaMak.edit(do,23) , $DiaMak.edit(do,26) ) | var.set Options DiaMako.color.textbg $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($2 !== Edit) { did -i DO 20 1 $1 0 255 10 0:1,2:5,5:20 }
  }
  alias color.green {
    if ($var.read(Variables,DiaMak.color) == Background) { mdx SetColor DO 17 background $rgb($DiaMak.edit(do,20) , $1 , $DiaMak.edit(do,26) ) | var.set Options DiaMako.color.back $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($var.read(Variables,DiaMak.color) == Text) { mdx SetColor DO 17 text $rgb($DiaMak.edit(do,20) , $1 , $DiaMak.edit(do,26) ) | var.set Options DiaMako.color.text $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($var.read(Variables,DiaMak.color) == Text Background) { mdx SetColor DO 17 textbg $rgb($DiaMak.edit(do,20) , $1 , $DiaMak.edit(do,26) ) | var.set Options DiaMako.color.textbg $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($2 !== Edit) { did -i DO 23 1 $1 0 255 10 0:1,2:5,5:20 }
  }
  alias color.blue {
    if ($var.read(Variables,DiaMak.color) == Background) { mdx SetColor DO 17 background $rgb($DiaMak.edit(do,20) , $DiaMak.edit(do,23) , $1 ) | var.set Options DiaMako.color.back $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($var.read(Variables,DiaMak.color) == Text) { mdx SetColor DO 17 text $rgb($DiaMak.edit(do,20) , $DiaMak.edit(do,23) , $1 ) | var.set Options DiaMako.color.text $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($var.read(Variables,DiaMak.color) == Text Background) { mdx SetColor DO 17 textbg $rgb($DiaMak.edit(do,20) , $DiaMak.edit(do,23) , $1 ) | var.set Options DiaMako.color.textbg $DiaMak.edit(do,20) $+ _ $+ $DiaMak.edit(do,23) $+ _ $+ $DiaMak.edit(do,26) }
    if ($2 !== Edit) { did -i DO 26 1 $1 0 255 10 0:1,2:5,5:20 }
  }
  alias color.refresh {
    if ($var.read(Variables,DiaMak.color) == Text) {
      if ($1 !== Edit) {
        did -i DO 20 1 $gettok($var.read(Options,DiaMako.color.text),1,95) 0 255 10 0:1,2:5,5:20
        did -i DO 23 1 $gettok($var.read(Options,DiaMako.color.text),2,95) 0 255 10 0:1,2:5,5:20
        did -i DO 26 1 $gettok($var.read(Options,DiaMako.color.text),3,95) 0 255 10 0:1,2:5,5:20
      }
      did -i $dname 18 1 params $gettok($var.read(Options,DiaMako.color.text),1,95) 0 255 * 0 255 * *
      did -i $dname 22 1 params $gettok($var.read(Options,DiaMako.color.text),2,95) 0 255 * 0 255 * *
      did -i $dname 25 1 params $gettok($var.read(Options,DiaMako.color.text),3,95) 0 255 * 0 255 * *
    }
    if ($var.read(Variables,DiaMak.color) == Background) {
      if ($1 !== Edit) {
        did -i DO 20 1 $gettok($var.read(Options,DiaMako.color.back),1,95) 0 255 10 0:1,2:5,5:20
        did -i DO 23 1 $gettok($var.read(Options,DiaMako.color.back),2,95) 0 255 10 0:1,2:5,5:20
        did -i DO 26 1 $gettok($var.read(Options,DiaMako.color.back),3,95) 0 255 10 0:1,2:5,5:20
      }
      did -i $dname 18 1 params $gettok($var.read(Options,DiaMako.color.back),1,95) 0 255 * 0 255 * *
      did -i $dname 22 1 params $gettok($var.read(Options,DiaMako.color.back),2,95) 0 255 * 0 255 * *
      did -i $dname 25 1 params $gettok($var.read(Options,DiaMako.color.back),3,95) 0 255 * 0 255 * *
    }
    if ($var.read(Variables,DiaMak.color) == Text Background) {
      if ($1 !== Edit) {
        did -i DO 20 1 $gettok($var.read(Options,DiaMako.color.textbg),1,95) 0 255 10 0:1,2:5,5:20
        did -i DO 23 1 $gettok($var.read(Options,DiaMako.color.textbg),2,95) 0 255 10 0:1,2:5,5:20
        did -i DO 26 1 $gettok($var.read(Options,DiaMako.color.textbg),3,95) 0 255 10 0:1,2:5,5:20
      }
      did -i $dname 18 1 params $gettok($var.read(Options,DiaMako.color.textbg),1,95) 0 255 * 0 255 * *
      did -i $dname 22 1 params $gettok($var.read(Options,DiaMako.color.textbg),2,95) 0 255 * 0 255 * *
      did -i $dname 25 1 params $gettok($var.read(Options,DiaMako.color.textbg),3,95) 0 255 * 0 255 * *
    }
    mdx SetColor $dname 17 textbg $rgb($gettok($var.read(Options,DiaMako.color.textbg),1,95) , $gettok($var.read(Options,DiaMako.color.textbg),2,95) , $gettok($var.read(Options,DiaMako.color.textbg),3,95))
    mdx SetColor $dname 17 background $rgb($gettok($var.read(Options,DiaMako.color.back),1,95) , $gettok($var.read(Options,DiaMako.color.back),2,95) , $gettok($var.read(Options,DiaMako.color.back),3,95))
    mdx SetColor $dname 17 text $rgb($gettok($var.read(Options,DiaMako.color.text),1,95) , $gettok($var.read(Options,DiaMako.color.text),2,95) , $gettok($var.read(Options,DiaMako.color.text),3,95))
  }
  dialog CALC { 
    title "CALC Dialog" 
    size -1 -1 160 60 
    option dbu 
    button "Ok", 1, 0 0 37 60, ok 
    button "Cancel", 2, 123 0 37 60, cancel 
    edit "---  Problem Here  ---", 4, 50 12 60 24, center 
    button "Calc", 5, 50 36 60 24, center 
  } 
  on *:DIALOG:CALC:sclick:5:{ echo @calc. [CalcScript]: The Answer to $did($dname,4) is: $calc( $did($dname,4) ) } 
  ctcp *:ping:*:{ ctcpreply $nick ping I am not lagged, you can't prove nothin! | haltdef }
  ctcp *:version:*:{ ctcpreply $nick VERSION Tony is my daddy :\ | haltdef } 
  dialog Programs {
    title "Programs"
    size -1 -1 226 107
    option dbu
    button "MSN", 12, 4 26 110 12
    button "Windows Media Player", 13, 4 83 110 12
    button "PhotoShop Cs2", 14, 4 68 110 12
    text "Made By BloodSain", 15, 95 99 53 8
    button "Calc", 16, 124 18 96 15
    button "Paint",17, 175 70 46 25
    button "Internet Explorer", 18, 4 54 110 12
    button "Mozilla FireFox", 19, 4 40 110 12
    button "DivX", 20, 4 12 110 12
    button "LimeWire", 21, 124 36 96 15
    button "Skype", 22, 124 70 46 25
    box "", 23, 120 14 104 84
    box "", 24, 1 9 117 89
    text "*You must have the program to run it :D", 25, 2 2 124 8
    button "Back", 26, 134 2 37 12
    button "Finished", 27, 177 2 37 12
    button "AIM", 28, 124 53 96 15
  }
  ON *:Dialog:Programs:sclick:27: {
    /dialog -x Programs Programs
  }
  ON *:Dialog:Games:sclick:26: {
    /dialog -x Programs Programs
    /dialog -m UltiDialog UltiDialog
  }
  ON *:Dialog:Programs:sclick:12: {
    run C:\Program Files\MSN Messenger/msnmsgr
  }
  ON *:Dialog:Programs:sclick:13: {
    run C:\Program Files\Windows Media Player\wmplayer
  }
  ON *:Dialog:Programs:sclick:14: {
    run C:\Program Files\Adobe\Photoshop Cs2\Photoshop
  }
  ON *:Dialog:Programs:sclick:16: {
    run C:\Documents and Settings\All Users\Start Menu\Programs\Accessories\Calculator
  }
  ON *:Dialog:Programs:sclick:17: {
    run C:\Documents and Settings\All Users\Start Menu\Programs\Accessories\Paint
  }
  ON *:Dialog:Programs:sclick:18: {
    run C:\Program Files/Internet Explorer/Explorer
  }
  ON *:Dialog:Programs:sclick:19: {
    run C:\Program Files/Mozilla FireFox/Firefox
  }
  ON *:Dialog:Programs:sclick:20: {
    run C:\Program Files/DivX/DivX Player/DivX Player
  }
  ON *:Dialog:Programs:sclick:21: {
    run C:\Program Files/LimeWire/limewire.exe
  }
  ON *:Dialog:Programs:sclick:22: {
    run C:\Program Files/Skype/phone/skype
  }
  ON *:Dialog:Programs:sclick:28: {
    run C:\Program Files/aim6/aim6
  }

  dialog Games {
    title "Games"
    size -1 -1 226 107
    option dbu
    text "*You must have these Games to Run them :D", 2, 6 2 112 8
    button "SwiftSwitch", 30, 11 20 50 25
    button "RuneScape", 31, 11 50 50 24
    button "World of WarCraft", 32, 90 15 52 25
    button "Guild Wars", 33, 163 50 50 25
    text "Made by BloodSain", 34, 89 100 51 9
    button "SilkRoad", 35, 163 20 49 25
    button "Finished", 36, 73 70 80 25
  }
  ON *:Dialog:Games:sclick:36: {
    /dialog -x Games Games
  }
  on *:dialog:Games:sclick:30: {
    run C:\Program Files\SwiftSwitch/SwiftSwitch
  }

  on *:dialog:Games:sclick:31: {
    run C:\program files/runescape
  }

  on *:dialog:Games:sclick:32: {
    run C:\Program Files\World of Warcraft/Launcher
  }

  on *:dialog:Games:sclick:33: {
    run C:\Program Files\Guild wars/Gw
  }
  on *:dialog:Games:sclick:35: {
    run C:\Program Files\Silkroad/silkroad
  } 
  dialog Access {
    title "Access"
    size -1 -1 134 94
    option dbu
    Button "Access", 1, 34 4 68 20
    Button "Add Access", 2, 5 31 50 30
    button "Delete Access", 3, 79 31 50 30
    box "", 4, 76 28 56 36
    box "", 5, 2 28 56 36
    button "Cancel", 6, 53 68 29 15, ok cancel
    box "", 7, 50 64 35 21
    box "", 8, 31 1 74 26
    text "Made By BloodSain", 9, 45 85 49 8
  }
  on *:dialog:access:sclick:2: {
    /dialog -x Access access
    /dialog -m Access2 access2
  }
  on *:dialog:access:sclick:3: {
    /dialog -x Access access
    /dialog -m Access3 access3
  }
  dialog Access2 {
    title "Add Access"
    size -1 -1 134 68
    option dbu
    edit "", 10, 8 29 50 10
    edit "", 11, 75 29 50 10
    button "quit", 20, 80 51 37 12, cancel
    button "Set", 12, 20 51 37 12, ok
    text "Nick", 13, 22 20 25 8, center
    text "Level", 14, 86 20 25 8, center
    text "Add Access", 15, 33 2 65 8, center
  }

  on *:dialog:access2:sclick:12: {
    /cs access $active add $did($dname,10) $did($dname,11)
  }

  dialog Access3 {
    title "Delete Access"
    size -1 -1 134 57
    option dbu
    edit "", 16, 41 20 50 10
    button "quit", 21, 80 40 37 12, ok
    button "Del", 17, 20 40 37 12, cancel
    text "Nick", 18, 53 12 25 8, center
    text "Del Access", 19, 33 2 65 8, center
  }

  on *:dialog:access3:sclick:17: {
    /cs access $active del $did($dname,16)
  }
  -------------------------
  dialog edit { 
    title "Quick Button Edit" 
    size -1 -1 112 56 
    option dbu 
    button "Save", 1, 18 40 37 12 
    button "Cancel", 2, 69 40 37 12, ok cancel 
    text "Name", 3, 15 6 16 8 
    text "Serv", 4, 16 16 14 8 
    text "Command", 5, 10 27 25 8 
    edit "", 6, 37 15 70 10 
    edit "", 7, 37 25 70 10 
    edit "", 8, 37 5 70 10 
    button "?", 9, 57 40 10 12 
  } 
  on *:DIALOG:edit:sclick:1:{ 
    if ($regex($did($dname,6),/(bot|chan|memo|nick)/Si)) { 
      if ($did($dname,7) && $did($dname,6)) { 
        writeini Buttons.ini Quick $replace($did($dname,8),$chr(32),-) $did($dname,6) bs $remove($did($dname,7),bs,msg botserv) 
        did -a quick 5 $replace($did($dname,8),$chr(32),-) 
        did -a quick 6 $did($dname,6) 
        did -a quick 7 bs $remove($did($dname,7),bs,msg botserv) 
        dialog -x edit edit 
        dialog -x quick quick 
        dialog -ma quick quick 
      } 
    } 
  } 
  on *:DIALOG:edit:sclick:9:{ dialog -ma help help } 
  dialog quick { 
    title "Quick Buttons" 
    size -1 -1 212 92 
    option dbu 
    button "Edit", 1, 70 73 37 12 
    button "Add", 2, 32 73 37 12 
    button "Remove", 3, 108 73 37 12 
    button "Close", 4, 146 73 37 12, ok 
    list 5, 7 16 50 50, size 
    list 6, 59 16 50 50, size 
    list 7, 111 16 97 50, size 
    text "Name", 8, 22 7 15 9 
    text "Serv", 9, 75 7 14 8 
    text "Command", 10, 146 7 25 8 
  } 
  on *:DIALOG:quick:init:*:{ 
    var %x = 1 
    while ($ini(Buttons.ini,Quick,%x) != $null) { 
      did -a quick 5 $ini(Buttons.ini,Quick,%x) 
      did -a quick 6 $gettok($readini(Buttons.ini,Quick,$ini(Buttons.ini,Quick,%x)),1,32) 
      did -a quick 7 $gettok($readini(Buttons.ini,Quick,$ini(Buttons.ini,Quick,%x)),2-,32) 
      inc %x 
    } 
  } 
  on *:DIALOG:quick:sclick:2:{ dialog -ma edit edit } 
  on *:DIALOG:quick:sclick:3:{ 
    var %x = $$?="Line Number" 
    if ($did($dname,5,%x) == $null || %x == $null) halt 
    remini Buttons.ini Quick $did($dname,5,%x) 
    did -d quick 5 %x 
    did -d quick 6 %x 
    did -d quick 7 %x 
  } 
  on *:DIALOG:quick:sclick:1:{ 
    var %x = $$?="Line Number" 
    dialog -ma edit edit 
    remini Buttons.ini Quick $did($dname,5,%x) 
    did -a edit 8 $did($dname,5,%x) 
    did -a edit 6 $did($dname,6,%x) 
    did -a edit 7 $did($dname,7,%x) 
  } 
  dialog nick {
    title "NickServ Control"
    size -1 -1 238 114
    option dbu
    box "Register", 1, 4 3 46 50
    box "Group", 2, 52 3 46 50
    box "Configure", 3, 3 56 95 33
    box "Access List", 4, 3 90 175 23
    box "Settings", 5, 149 3 83 86
    box "Identify", 6, 101 3 46 25
    box "Info", 7, 102 30 44 30
    button "Confirm", 8, 8 11 37 19
    button "Resend Email", 9, 8 30 37 19
    button "Add", 10, 56 12 37 12
    button "Delet", 11, 56 24 37 12
    button "List", 12, 56 36 37 12
    button "Identify", 13, 105 12 37 12
    button "Display", 14, 152 12 37 12
    button "Password", 15, 152 24 37 12
    button "Greet", 16, 189 12 37 12
    button "URL", 17, 152 48 37 12
    button "Language", 18, 152 36 37 12
    button "ICQ", 19, 152 72 37 12
    button "Email", 20, 152 60 37 12
    button "Kill", 21, 189 24 37 12
    button "Secure", 22, 189 36 37 12
    button "Private", 23, 189 48 37 12
    button "Hide", 24, 189 60 37 12
    button "Auto Op", 25, 189 72 37 12
    button "Recover", 26, 37 75 26 12
    button "Drop", 27, 5 63 32 12
    button "Send Pass", 28, 5 75 32 12
    button "Ghost", 29, 37 63 26 12
    button "Release", 30, 63 63 32 24
    button "All", 31, 6 98 37 12
    button "Op", 32, 49 98 37 12
    button "Founder", 33, 91 98 37 12
    button "10+", 34, 137 98 37 12
    button "All", 35, 105 36 37 10
    button "Some", 36, 105 46 37 10
    button "Logout", 37, 105 76 37 10
    button "Status", 38, 105 66 37 10
    box "Other", 39, 102 61 44 28
    button "Quit", 40, 193 98 37 12, ok cancel
    box "", 41, 190 95 43 18
  }
  on *:DIALOG:nick:sclick:8:{ ns confirm $$?="Confirm Code" } 
  on *:DIALOG:nick:sclick:9:{ ns resend } 
  on *:DIALOG:nick:sclick:10:{ ns group add $$?="Target" $$?="Password" } 
  on *:DIALOG:nick:sclick:11:{ ns drop $$?="Nickname" } 
  on *:DIALOG:nick:sclick:12:{ ns glist } 
  on *:DIALOG:nick:sclick:13:{ ns id $$?="Password" } 
  on *:DIALOG:nick:sclick:14:{ ns set display $$?="Display" } 
  on *:DIALOG:nick:sclick:15:{ ns set password $$?="New Password" } 
  on *:DIALOG:nick:sclick:16:{ ns set greet $$?="Greet" } 
  on *:DIALOG:nick:sclick:17:{ ns set url $$?="URL" } 
  on *:DIALOG:nick:sclick:18:{ ns set language $$?="Language" } 
  on *:DIALOG:nick:sclick:19:{ ns set icq $$?="ICQ" } 
  on *:DIALOG:nick:sclick:20:{ ns set email $$?="Email" } 
  on *:DIALOG:nick:sclick:21:{ ns set kill $$?="On/Off/Immed/Quick" } 
  on *:DIALOG:nick:sclick:22:{ ns set secure $$?="On/Off" } 
  on *:DIALOG:nick:sclick:23:{ ns set private $$?="On/Off" } 
  on *:DIALOG:nick:sclick:24:{ ns set hide $$?="Email/Usermask/Quit/MSG" $$?="On/Off" } 
  on *:DIALOG:nick:sclick:25:{ ns set autoop $$?="On/Off" } 
  on *:DIALOG:nick:sclick:26:{ ns recover $$?="Nickname" $$?="Password" } 
  on *:DIALOG:nick:sclick:27:{ ns drop $$?="Nickname" } 
  on *:DIALOG:nick:sclick:28:{ ns sendpass $$?="Nickname" } 
  on *:DIALOG:nick:sclick:29:{ ns ghost $$?="Nickname" $$?="Password" } 
  on *:DIALOG:nick:sclick:30:{ ns release $$?="Nickname" $$?="Password" } 
  on *:DIALOG:nick:sclick:31:{ ns alist } 
  on *:DIALOG:nick:sclick:32:{ ns alist aop } 
  on *:DIALOG:nick:sclick:33:{ ns alist founder } 
  on *:DIALOG:nick:sclick:34:{ ns alist 10 } 
  on *:DIALOG:nick:sclick:35:{ ns info $$?="Nickname" all } 
  on *:DIALOG:nick:sclick:36:{ ns info $$?="Nickname" } 
  on *:DIALOG:nick:sclick:37:{ ns logout } 
  on *:DIALOG:nick:sclick:38:{ ns status } 
  dialog bot {
    title "BotServ Control"
    size -1 -1 202 98
    option dbu
    box "Assign", 1, 3 2 45 43
    box "Badwords", 2, 3 46 45 49
    box "Settings", 3, 53 2 92 44
    box "Kickers", 4, 53 46 92 49
    button "List", 5, 7 11 37 15
    button "Bot", 6, 7 27 37 15
    button "Symbiosis", 7, 56 10 37 12
    button "Greets", 8, 56 34 84 9
    button "Don't Kick Voices", 9, 93 22 47 12
    button "Add", 10, 6 53 37 12
    button "Don't Kick Ops", 11, 93 10 47 12
    button "Fantasy", 12, 56 22 37 12
    button "Delet", 13, 6 65 37 12
    button "List", 14, 6 77 37 12
    button "Bold", 15, 56 53 37 10
    button "Underlines", 16, 56 63 37 10
    button "Badword", 17, 101 83 37 10
    button "Say", 18, 154 12 41 12
    button "Repeat", 19, 101 63 37 10
    button "Act", 20, 154 24 41 12
    button "Flood", 21, 101 53 37 10
    button "Caps", 22, 101 73 37 10
    button "Colors", 23, 56 73 37 10
    button "Reverses", 24, 56 83 37 10
    box "Bot Text", 25, 150 2 48 39
    box "Info", 26, 151 49 47 41
    button "Channel", 27, 155 57 37 12
    button "Nick", 28, 155 69 37 12
  }


  on *:DIALOG:bot:sclick:5:{ bs botlist } 
  on *:DIALOG:bot:sclick:6:{ bs assign $$?="Channel" $$?="Bot" } 
  on *:DIALOG:bot:sclick:7:{ bs set $$?="Channel" symbiosis $$?="On/Off" } 
  on *:DIALOG:bot:sclick:8:{ bs set $$?="Channel" greets $$?="On/Off" } 
  on *:DIALOG:bot:sclick:9:{ bs set $$?="Channel" dontkickvoices $$?="On/Off" } 
  on *:DIALOG:bot:sclick:10:{ 
    var %x = $$?="Single/Start/End/Only Word" 
    if (%x == Single) bs badwords $$?="Channel"add $$?="Word" $$?="Single" 
    elseif (%x == Start) bs badwords $$?="Channel" add $$?="Word" $$?="Start" 
    elseif (%x == End) bs badwords $$?="Channel"add $$?="Word" $$?="Start" 
    elseif (%x == Only Word) bs badwords $$?="Channel" add $$?="Word" 
  } 
  on *:DIALOG:bot:sclick:11:{ bs set $$?="Channel" dontkickops $$?="On/Off" } 
  on *:DIALOG:bot:sclick:12:{ bs set $$?="Channel" fantasy $$?="On/Off" } 
  on *:DIALOG:bot:sclick:13:{ 
    var %x = $$?="Word/Entry Number/List" 
    if (%x == Word) bs $$?="Channel" del $$?="Word" 
    elseif (%x == Entry Number) bs $$?="Channel" del $$?="Entry Number" 
    elseif (%x == List) bs $$?="Channel" del $$?="List" 
  } 
  on *:DIALOG:bot:sclick:14:{ 
    var %x = $$?="Mask/List/All" 
    if (%x == All) bs badwords $$?="Channel" list 
    elseif (%x == Mask) bs badwords $$?="Channel" $$?="Mask" 
    elseif (%x == List) bs badwords $$?="Channel" $$?="List" 
  } 
  on *:DIALOG:bot:sclick:15:{ bs kick $$?="Channel" bolds $$?="On/Off" } 
  on *:DIALOG:bot:sclick:16:{ bs kick $$?="Channel" underlines $$?="On/Off" } 
  on *:DIALOG:bot:sclick:17:{ bs kick $$?="Channel" badwords $$?="On/Off" } 
  on *:DIALOG:bot:sclick:18:{ bs say $$?="Channel" $$?="Text" } 
  on *:DIALOG:bot:sclick:19:{ bs kick $$?="Channel" repeat $$?="On/Off" } 
  on *:DIALOG:bot:sclick:20:{ bs act $$?="Channel" $$?="Text" } 
  on *:DIALOG:bot:sclick:21:{ bs kick $$?="Channel" flood $$?="On/Off" } 
  on *:DIALOG:bot:sclick:22:{ bs kick $$?="Channel" caps $$?="On/Off" } 
  on *:DIALOG:bot:sclick:23:{ bs kick $$?="Channel" colors $$?="On/Off" } 
  on *:DIALOG:bot:sclick:24:{ bs kick $$?="Channel" reverses $$?="On/Off" } 
  on *:DIALOG:bot:sclick:27:{ bs info $$?="Channel" } 
  on *:DIALOG:bot:sclick:28:{ bs info $$?="Nickname" } 
  dialog chan { 
    title "ChanServ Control" 
    size -1 -1 310 267 
    option dbu 
    box "Configure", 1, 4 47 84 38 
    box "Settings", 3, 3 88 161 75 
    box "Akick", 4, 93 4 84 64 
    box "Access", 5, 4 4 84 39 
    button "Delet", 6, 8 26 37 12 
    button "List", 7, 8 14 37 12 
    button "Add", 8, 45 14 37 12 
    button "Clear", 9, 45 26 37 12 
    button "Delet", 10, 134 14 37 12 
    button "Add", 11, 97 14 37 12 
    button "List", 12, 134 50 37 12 
    button "Unstick", 13, 134 26 37 12 
    button "Stick", 14, 97 26 37 12 
    button "Enforce", 15, 97 38 37 12 
    button "View", 16, 97 50 37 12 
    button "Clear", 17, 134 38 37 12 
    button "Register", 18, 7 57 37 12 
    button "Identify", 19, 7 69 37 12 
    button "Description", 21, 6 122 37 12 
    button "Successor", 22, 43 98 37 12 
    button "URL", 23, 6 134 37 12 
    button "Email", 25, 6 146 37 12 
    button "Restricted", 26, 43 122 37 12 
    button "Entry MSG", 27, 43 146 37 12 
    button "Secure Founder", 28, 118 122 42 12 
    button "Peace", 29, 43 110 37 12 
    button "Mode Lock", 30, 43 134 37 12 
    button "Private", 31, 80 146 37 12 
    button "Op Notice", 32, 117 134 37 12 
    button "Keep Topic", 34, 80 134 37 12 
    button "Founder", 35, 6 98 37 12 
    button "Password", 36, 6 110 37 12 
    button "Ban Type", 37, 80 98 37 12 
    button "XOP", 38, 117 146 37 12 
    button "Secure", 39, 117 98 37 12 
    button "Topic Lock", 40, 80 122 37 12 
    button "Secure Ops", 41, 117 110 37 12 
    button "Sign Kick", 42, 80 110 37 12 
    box "AOP", 2, 171 74 46 62 
    box "VOP", 20, 221 138 47 60 
    box "SOP", 24, 221 74 47 62 
    box "HOP", 33, 171 138 46 60 
    button "Add", 43, 224 146 37 12 
    button "Add", 44, 174 146 37 12 
    button "Add", 45, 225 83 37 12 
    button "Add", 46, 174 83 37 12 
    button "List", 47, 224 158 37 12 
    button "List", 48, 174 158 37 12 
    button "List", 49, 225 95 37 12 
    button "List", 50, 174 107 37 12 
    button "Delet", 51, 224 170 37 12 
    button "Clear", 52, 224 182 37 12 
    button "Delet", 53, 174 170 37 12 
    button "Delet", 54, 225 107 37 12 
    button "Delet", 55, 174 95 37 12 
    button "Clear", 56, 174 182 37 12 
    button "Clear", 57, 225 119 37 12 
    button "Clear", 58, 174 119 37 12 
    box "Levels", 59, 4 167 80 40 
    button "Drop", 60, 44 57 37 12 
    button "Set", 61, 7 176 37 12 
    button "Disable", 62, 44 176 37 12 
    button "List", 63, 7 188 37 12 
    button "Reset", 64, 44 188 37 12 
    button "Send Pass", 65, 44 69 37 12 
    button "Ban", 66, 186 14 37 12 
    button "Unban", 67, 223 14 37 12 
    box "Modes", 68, 182 4 120 63 
    button "DeHalfOp", 69, 260 26 37 12 
    button "HalfOp", 70, 260 14 37 12 
    button "DeOp", 71, 223 50 37 12 
    button "Op", 72, 186 50 37 12 
    button "DeProtect", 73, 223 38 37 12 
    button "Protect", 74, 186 38 37 12 
    button "DeOwner", 75, 223 26 37 12 
    button "Owner", 76, 186 26 37 12 
    button "DeVoice", 79, 260 50 37 12 
    button "Voice", 80, 260 38 37 12 
    box "Other", 77, 52 210 83 50 
    button "Append", 78, 128 176 37 12 
    button "Remove", 81, 91 188 37 12 
    button "Create", 82, 91 176 37 12 
    button "Kick", 83, 56 231 37 12 
    button "Invite", 84, 93 231 37 12 
    button "Get Key", 85, 56 219 37 12 
    button "Logout", 86, 74 243 37 12 
    box "Topic", 87, 88 167 80 40 
    button "Info", 88, 93 219 37 12 
    box "Enforce", 89, 4 210 44 39 
    button "Modes", 90, 7 219 37 12 
    button "Settings", 91, 7 231 37 12 
  } 
  on *:DIALOG:chan:sclick:6:{ cs access $$?="Channel" del $$?="Nickname" } 
  on *:DIALOG:chan:sclick:7:{ cs access $$?="Channel" list } 
  on *:DIALOG:chan:sclick:8:{ cs access $$?="Channel" add $$?="Nickname" $$?="Level" } 
  on *:DIALOG:chan:sclick:9:{ cs access $$?="Channel" clear } 
  on *:DIALOG:chan:sclick:10:{ cs akick $$?="Channel" del $$?="Hostmask" } 
  on *:DIALOG:chan:sclick:11:{ cs akick $$?="Channel" add $$?="Hostmask" } 
  on *:DIALOG:chan:sclick:12:{ cs akick $$?="Channel" list } 
  on *:DIALOG:chan:sclick:13:{ cs akick $$?="Channel" unstick $$?="Hostmask" } 
  on *:DIALOG:chan:sclick:14:{ cs akick $$?="Channel" stick $$?="Hostmask" } 
  on *:DIALOG:chan:sclick:15:{ cs akick $$?="Channel" enforce } 
  on *:DIALOG:chan:sclick:16:{ cs akick $$?="Channel" view } 
  on *:DIALOG:chan:sclick:17:{ cs akick $$?="Channel" clear } 
  on *:DIALOG:chan:sclick:18:{ cs register $$?="Channel" $$?="Password" $$?="Description" } 
  on *:DIALOG:chan:sclick:19:{ cs identify $$?="Channel" $$?="Password" } 
  on *:DIALOG:chan:sclick:21:{ cs set $$?="Channel" description $$?="Description" } 
  on *:DIALOG:chan:sclick:22:{ cs set $$?="Channel" successor $$?="Nickname" } 
  on *:DIALOG:chan:sclick:23:{ cs set $$?="Channel" url $$?="URL" } 
  on *:DIALOG:chan:sclick:25:{ cs set $$?="Channel" email $$?="Email" } 
  on *:DIALOG:chan:sclick:26:{ cs set $$?="Channel" restricted $$?="On/Off" } 
  on *:DIALOG:chan:sclick:27:{ cs set $$?="Channel" entrymsg $$?="Message" } 
  on *:DIALOG:chan:sclick:28:{ cs set $$?="Channel" securefounder $$?="On/Off" } 
  on *:DIALOG:chan:sclick:29:{ cs set $$?="Channel" peace $$?="On/Off" } 
  on *:DIALOG:chan:sclick:30:{ cs set $$?="Channel" mlock $$?="On/Off" } 
  on *:DIALOG:chan:sclick:31:{ cs set $$?="Channel" private $$/="On/Off" } 
  on *:DIALOG:chan:sclick:32:{ cs set $$?="Channel" opnotice $$?="On/Off" } 
  on *:DIALOG:chan:sclick:34:{ cs set $$?="Channel" keeptopic $$?="On/Off" } 
  on *:DIALOG:chan:sclick:35:{ cs set $$?="Channel" founder $$?="Nickname" } 
  on *:DIALOG:chan:sclick:36:{ cs set $$?="Channel" password $$?="Password" } 
  on *:DIALOG:chan:sclick:37:{ cs set $$?="Channel" bantype $$?="0/1/2/3" } 
  on *:DIALOG:chan:sclick:38:{ cs set $$?="Channel" xop $$?="On/Off" } 
  on *:DIALOG:chan:sclick:39:{ cs set $$?="Channel" secure $$?="On/Off" } 
  on *:DIALOG:chan:sclick:40:{ cs set $$?="Channel" topiclock $$?="On/Off" } 
  on *:DIALOG:chan:sclick:41:{ cs set $$?="Channel" secureops $$?="On/Off" } 
  on *:DIALOG:chan:sclick:42:{ cs set $$?="Channel" signkick $$?="On/Off" } 
  on *:DIALOG:chan:sclick:43:{ cs  } 
  on *:DIALOG:chan:sclick:44:{ cs  } 
  on *:DIALOG:chan:sclick:45:{ cs  } 
  on *:DIALOG:chan:sclick:46:{ cs  } 
  on *:DIALOG:chan:sclick:47:{ cs  } 
  on *:DIALOG:chan:sclick:48:{ cs  } 
  on *:DIALOG:chan:sclick:49:{ cs  } 
  on *:DIALOG:chan:sclick:50:{ cs  } 
  on *:DIALOG:chan:sclick:51:{ cs  } 
  on *:DIALOG:chan:sclick:52:{ cs  } 
  on *:DIALOG:chan:sclick:53:{ cs  } 
  on *:DIALOG:chan:sclick:54:{ cs  } 
  on *:DIALOG:chan:sclick:55:{ cs  } 
  on *:DIALOG:chan:sclick:56:{ cs  } 
  on *:DIALOG:chan:sclick:57:{ cs  } 
  on *:DIALOG:chan:sclick:58:{ cs  } 
  on *:DIALOG:chan:sclick:60:{ cs  } 
  on *:DIALOG:chan:sclick:61:{ cs  } 
  on *:DIALOG:chan:sclick:62:{ cs  } 
  on *:DIALOG:chan:sclick:63:{ cs  } 
  on *:DIALOG:chan:sclick:64:{ cs  } 
  on *:DIALOG:chan:sclick:65:{ cs  } 
  on *:DIALOG:chan:sclick:66:{ cs  } 
  on *:DIALOG:chan:sclick:67:{ cs  } 
  on *:DIALOG:chan:sclick:69:{ cs  } 
  on *:DIALOG:chan:sclick:70:{ cs  } 
  on *:DIALOG:chan:sclick:71:{ cs  } 
  on *:DIALOG:chan:sclick:72:{ cs  } 
  on *:DIALOG:chan:sclick:73:{ cs  } 
  on *:DIALOG:chan:sclick:74:{ cs  } 
  on *:DIALOG:chan:sclick:75:{ cs  } 
  on *:DIALOG:chan:sclick:76:{ cs  } 
  on *:DIALOG:chan:sclick:77:{ cs  } 
  on *:DIALOG:chan:sclick:78:{ cs  } 
  on *:DIALOG:chan:sclick:79:{ cs  } 
  on *:DIALOG:chan:sclick:80:{ cs  } 
  on *:DIALOG:chan:sclick:81:{ cs  } 
  on *:DIALOG:chan:sclick:82:{ cs  } 
  on *:DIALOG:chan:sclick:83:{ cs  } 
  on *:DIALOG:chan:sclick:84:{ cs  } 
  on *:DIALOG:chan:sclick:85:{ cs  } 
  on *:DIALOG:chan:sclick:86:{ cs  } 
  on *:DIALOG:chan:sclick:88:{ cs  } 
  on *:DIALOG:chan:sclick:90:{ cs  } 
  on *:DIALOG:chan:sclick:91:{ cs  } 
  dialog help { 
    title "Identifiers" 
    size -1 -1 134 60 
    option dbu 
    text "$chan - Channel", 3, 7 14 41 8 
    text "$$?=WORD - Input request saying the WORD", 4, 7 24 115 8 
    text "$active - Active window", 5, 7 35 58 8 
    text "$me - Nickname of youself", 6, 7 45 68 8 
    box "Identifiers", 2, 4 6 124 50 
  } 
  dialog memo { 
    title "MemoServ Control" 
    size -1 -1 144 114 
    option dbu 
    box "Message", 2, 4 4 83 64 
    box "Notify", 3, 91 39 47 63 
    button "Info", 1, 45 37 37 12 
    button "Send", 4, 8 13 37 12 
    button "List", 5, 8 37 37 12 
    button "Cancel", 6, 8 25 37 12 
    button "Read", 7, 45 13 37 12 
    button "Delet", 8, 45 25 37 12 
    button "Check", 9, 26 49 37 12 
    box "Limit", 10, 91 4 47 28 
    button "Edit", 11, 95 13 37 12 
    button "On", 12, 94 47 37 12 
    button "Off", 13, 94 59 37 12 
    button "New", 14, 94 83 37 12 
    button "Logon", 15, 94 71 37 12 
  } 
  on *:DIALOG:memo:sclick:1:{ ms info } 
  on *:DIALOG:memo:sclick:4:{ ms send $$?="Nickname" $$?="Message" } 
  on *:DIALOG:memo:sclick:5:{ ms list } 
  on *:DIALOG:memo:sclick:6:{ ms cancel } 
  on *:DIALOG:memo:sclick:7:{ ms read $$?="Number" } 
  on *:DIALOG:memo:sclick:8:{ ms delet $$?="Number" } 
  on *:DIALOG:memo:sclick:9:{ ms check } 
  on *:DIALOG:memo:sclick:11:{ ms set limit $$?="Limit" } 
  on *:DIALOG:memo:sclick:12:{ ms set notify on } 
  on *:DIALOG:memo:sclick:13:{ ms set notify off } 
  on *:DIALOG:memo:sclick:14:{ ms set notify new } 

  on *:dialog:UltiDialog:sclick:9: {
    /dialog -x UltiDialog UltiDialog
    /dialog -m SkinnEr SkinnEr
  }
  dialog SkinnEr {
    title SkinnEr
    size 294 255 380 166
    box "Other images", 1, 3 3 194 158,
    text "Toolbar", 2, 12 22 45 15,
    text "Buttons", 3, 12 65 45 15,
    text "Switchbar", 4, 12 107 45 15,
    edit %dir.toolbar , 5, 11 40 94 19, Read
    edit %dir.buttons , 6, 11 83 94 19, Read
    edit %dir.switchbar , 7, 12 127 94 19, Read
    button "Browse", 8, 113 40 42 19,
    button "Browse", 9, 113 83 42 19,
    button "Browse", 10, 113 127 42 19,
    button "OK", 11, 162 40 25 19,
    button "OK", 12, 162 83 25 19,
    button "OK", 13, 162 127 25 19,
    box "Main images", 14, 203 3 174 158,
    button "Main Window", 15, 212 24 75 21,
    button "Status", 16, 212 54 75 21,
    button "Nickname", 17, 212 84 75 21,
    button "Channel", 18, 212 114 75 21,
    button "OK", 19, 303 24 63 33, OK
    button "Cancel", 20, 303 65 63 33, Cancel
    button "Remove", 22, 137 20 50 16,
    button "Remove", 23, 137 63 50 16,
    button "Remove", 24, 137 107 50 16,
    text "SkinnEr", 21, 261 143 110 16, disable
  }

  on *:dialog:SkinnEr:sclick:*: {
    if $did == 8 {
      .unset %dir.toolbar
      .set %dir.toolbar $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a SkinnEr 1 %dir.toolbar
    }
    if $did == 9 {
      .unset %dir.buttons
      .set %dir.buttons $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a SkinnEr 1 %dir.buttons
    }
    if $did == 10 {
      .unset %dir.switchbar
      .set %dir.switchbar $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a SkinnEr 1 %dir.switchbar
    }
    if $did == 11 { /background -l %dir.toolbar }
    if $did == 12 { /background -u %dir.buttons }
    if $did == 13 { /background -h %dir.switchbar }
    if $did == 17 { /dialog -m NickBCH NickBCH }
    if $did == 18 { /dialog -m ChanBCH ChanBCH }
    if $did == 15 { /dialog -m Main Main }
    if $did == 16 { /dialog -m Status Status }
    if $did == 22 { /background -lx }
    if $did == 23 { /background -ux }
    if $did == 24 { /background -hx }

  }

  dialog NickBCH {
    title Query Background
    size 294 255 198 148
    edit %dir.nick.image , 1, 3 5 103 20, Read Return Hsbar
    button "Browse", 2, 116 5 75 22,
    edit "Nickname", 3, 3 30 103 20,
    radio "Center", 4, 3 62 54 15,
    radio "Fill", 5, 62 62 51 15,
    radio "Normal", 6, 3 80 51 15,
    radio "Stretch", 7, 3 99 54 15,
    radio "Tile", 8, 62 80 37 15,
    radio "Photo", 9, 62 97 45 15,
    button "OK", 11, 116 90 75 22, OK
    button "Cancel", 12, 116 118 75 22, Cancel
    button "Remove", 13, 116 61 75 22,
  }

  on *:dialog:NickBCH:sclick:*: {
    if $did == 2 {
      .unset %dir.nick.image
      .set %dir.nick.image $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a NickBCH 1 %dir.nick.image
    }
    if $did(3) == $null { /dialog -m ErrorBCH ErrorBCH }
    if $did == 4 { /background -c $did(3) %dir.nick.image }
    if $did == 5 { /background -f $did(3) %dir.nick.image }
    if $did == 6 { /background -n $did(3) %dir.nick.image }
    if $did == 7 { /background -r $did(3) %dir.nick.image }
    if $did == 8 { /background -t $did(3) %dir.nick.image }
    if $did == 9 { /background -p $did(3) %dir.nick.image }
    if $did == 11 { /echo Background for $did(3) Changed Successfully! }
    if $did == 12 { /echo No Query Background Changed! }
    if $did == 13 { /background -x $did(3) | /echo Background for $did(3) Removed Successfully! }
  }

  dialog ChanBCH {
    title Channel Background
    size 294 255 198 148
    edit %dir.chan.image , 1, 3 5 103 20, Read Return Hsbar
    button "Browse", 2, 116 5 75 22,
    edit "#Channel", 3, 3 30 103 20,
    radio "Center", 4, 3 62 54 15,
    radio "Fill", 5, 62 62 51 15,
    radio "Normal", 6, 3 80 51 15,
    radio "Stretch", 7, 3 99 54 15,
    radio "Tile", 8, 62 80 37 15,
    radio "Photo", 9, 62 97 45 15,
    button "OK", 11, 116 90 75 22, OK
    button "Cancel", 12, 116 118 75 22, Cancel
    button "Remove", 13, 116 61 75 22,
  }

  on *:dialog:ChanBCH:sclick:*: {
    if $did == 2 {
      .unset %dir.chan.image
      .set %dir.chan.image $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a ChanBCH 1 %dir.chan.image
    }
    if $did(3) == $null { /dialog -m ErrorBCH ErrorBCH }
    if $did == 4 { /background -c $did(3) %dir.chan.image }
    if $did == 5 { /background -f $did(3) %dir.chan.image }
    if $did == 6 { /background -n $did(3) %dir.chan.image }
    if $did == 7 { /background -r $did(3) %dir.chan.image }
    if $did == 8 { /background -t $did(3) %dir.chan.image }
    if $did == 9 { /background -p $did(3) %dir.chan.image }
    if $did == 11 { /echo Background for $did(3) Changed Successfully! }
    if $did == 12 { /echo No Channel Background Changed! }
    if $did == 13 { /background -x $did(3) | /echo Background for $did(3) Removed Successfully! }
  }

  dialog Main {
    title Main Window Background
    size 294 255 198 148
    edit %dir.main , 1, 3 5 103 20, Read Return Hsbar
    button "Browse", 2, 116 5 75 22,
    radio "Center", 4, 3 62 54 15,
    radio "Fill", 5, 62 62 51 15,
    radio "Normal", 6, 3 80 51 15,
    radio "Stretch", 7, 3 99 54 15,
    radio "Tile", 8, 62 80 37 15,
    radio "Photo", 9, 62 97 45 15,
    button "OK", 11, 116 90 75 22, OK
    button "Cancel", 12, 116 118 75 22, Cancel
    button "Remove", 13, 116 61 75 22,
  }
  on *:dialog:Main:sclick:*: {
    if $did == 2 {
      .unset %dir.main
      .set %dir.main $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a Main 1 %dir.main
    }
    if $did == 4 { /background -mc %dir.main }
    if $did == 5 { /background -mf %dir.main }
    if $did == 6 { /background -mn %dir.main }
    if $did == 7 { /background -mr %dir.main }
    if $did == 8 { /background -mt %dir.main }
    if $did == 9 { /background -mp %dir.main }
    if $did == 11 { /echo Background for Main Window Changed Successfully! }
    if $did == 12 { /echo No Main Window Background Changed! }
    if $did == 13 { /background -mx | /echo Background for Main Window Removed Successfully! }
  }
  dialog Status {
    title Status Background
    size 294 255 198 148
    edit %dir.status , 1, 3 5 103 20, Read Return Hsbar
    button "Browse", 2, 116 5 75 22,
    radio "Center", 4, 3 62 54 15,
    radio "Fill", 5, 62 62 51 15,
    radio "Normal", 6, 3 80 51 15,
    radio "Stretch", 7, 3 99 54 15,
    radio "Tile", 8, 62 80 37 15,
    radio "Photo", 9, 62 97 45 15,
    button "OK", 11, 116 90 75 22, OK
    button "Cancel", 12, 116 118 75 22, Cancel
    button "Remove", 13, 116 61 75 22,
  }
  on *:dialog:Status:sclick:*: {
    if $did == 2 {
      .unset %dir.status
      .set %dir.status $shortfn($$sfile($mircdir*.bmp,Browse Image File,OK))
      did -a Status 1 %dir.status
    }
    if $did == 4 { /background -sc %dir.status }
    if $did == 5 { /background -sf %dir.status }
    if $did == 6 { /background -sn %dir.status }
    if $did == 7 { /background -sr %dir.status }
    if $did == 8 { /background -st %dir.status }
    if $did == 9 { /background -sp %dir.status }
    if $did == 11 { /echo Background for Status Window Changed Successfully! }
    if $did == 12 { /echo No Status Window Background Changed! }
    if $did == 13 { /background -sx | /echo Background for Status Window Removed Successfully! }
  }

  dialog ErrorBCH {
    title Error!
    size 294 255 205 70
    text "ERROR! Please choose correct file format, fill the nickname/channel field, then select picture position and click OK!", 1, 7 5 193 50, NoWrap Center
    button "OK", 2, 72 50 60 17, OK
  }
  dialog away2 {
    title "Away System"
    size -1 -1 115 130
    option dbu
    box "",1,5 5 105 39
    box "",216, 9 113 24 11
    box "",440,9 113 98 11
    check "Logging",2,8 10 40 14
    check "Away Pager",3,8 22 40 11
    check "Auto Reply",4,8 32 40 11
    radio "Colorful",6,63 12 40 11
    radio "No color",7,63 22 40 11
    radio "Silent Away",8,63 32 40 11
    edit "",10,43 50 67 11,autohs
    edit "",11,43 62 67 11,autohs
    combo 187,43 74 67 90,drop
    button "Away",100,43 95 30 11
    button "Back",900,43 95 30 11,hide ok
    button "Cancel",101,76 95 30 11,cancel
    button "Help!",911,10 95 30 11
    text "Away Reason:", 12, 5 51 37 10
    text "Away Nick: ",13, 5 64 30 10
    text "Msg Interval:", 99, 5 76 35 10
    text "Duration:",211, 10 117 21 10
    text "Not Away",330, 33 117 72 6
  }
  on *:DIALOG:away2:init:0:{
    if (%away.log == On) { did -c away2 2 }
    if (%away.page == On) { did -c away2 3 }
    if (%auto.reply == On) { did -c away2 4 }
    if ($network == $null) { did -ra away2 330 *** Not connected }
    if $network != $null) { did -ra away2 330 *** Not away }
    did -c away2 $calc(5 + %msg.opts)
    did -a away2 10 %away.reason
    did -a away2 11 %away.nick
    did -a away2 187 1 Minute
    did -a away2 187 2 Minutes
    did -a away2 187 3 Minutes
    did -a away2 187 5 Minutes
    did -a away2 187 10 Minutes
    did -a away2 187 15 Minutes
    did -a away2 187 20 Minutes
    did -a away2 187 30 Minutes
    did -a away2 187 45 Minutes
    did -a away2 187 1 Hour
  }
  on *:DIALOG:away2:sclick:187:{
    if ($did(away2,187).sel == 1) { set %interval 60 }
    if ($did(away2,187).sel == 2) { set %interval 120 }
    if ($did(away2,187).sel == 3) { set %interval 180 }
    if ($did(away2,187).sel == 4) { set %interval 300 }
    if ($did(away2,187).sel == 5) { set %interval 600 }
    if ($did(away2,187).sel == 6) { set %interval 900 }
    if ($did(away2,187).sel == 7) { set %interval 1200 }
    if ($did(Away3,187).sel == 8) { set %interval 1800 }
    if ($did(Away3,187).sel == 9) { set %interval 3600 }
  }
  on *:DIALOG:Away2:sclick:100:{
    if ($away == $true) { echo -a $error 15You are already marked as away! | halt }
    if ($network == $null) { echo -a $error 15You aren't connected! | halt }
    if ($did(Away2,2).state == 1) { set %away.log On }
    else { set %away.log Off }
    if ($did(Away2,3).state == 1) { set %away.page On }
    else { set %away.page Off }
    if ($did(Away2,4).state == 1) { set %auto.reply On }
    else { set %auto.reply Off }
    if ($did(away2,6).state == 1) { set %msg.opts 1 }
    elseif ($did(away2,7).state == 1) { set %msg.opts 2 }
    else { set %msg.opts 3 }
    set %away.reason $did(away2,10).text
    set %away.nick $did(away2,11).text
    if ($did == 100) { did -m away2 11
      did -m away2 10 
      did -b away2 2 
      did -b away2 3 
      did -b away2 4 
      did -b away2 6 
      did -b away2 7 
      did -b away2 8 
      did -h away2 100
      did -v away2 900
      did -b away2 101
      did -b away2 187
      away.mode
    }
  }
  on *:DIALOG:away2:sclick:911:{ a.help }
  on *:DIALOG:away2:sclick:900:{ back }
  alias -l dur.count { did -ra away2 330 $duration($calc($ctime - %left.time)) }
  alias -l info { return 14(15info14)4> }
  alias -l error { return 14(15error14)4> }
  alias -l addon { return Ph? Away System v1.02 }
  alias -l pheer.time { return $replace($asctime(h:nnTT),:,4:) }
  alias -l pe { return 4??? }
  alias -l a.help { 
    window -k[0] @Help Tahoma 14
    echo @Help 4 $+ $addon 
    echo @Help 
    echo @Help 
    echo @Help 15Colorful/No Color/Silent: This enables you to turn the away system colors off or even turn the notification off altogether.. Some networks or channels kick for stupid reasons (IE color)..
    echo @Help -
    echo @Help 15Logging will log all your query messages for you to look at when you return.. It closes the windows so that you don't have 6 million of them when you return from a long time..
    echo @Help -
    echo @Help 15Pageing is similar to the logging but it will beep so that you can hear incoming PAGES..
    echo @Help -
    echo @Help 15Auto reply will message people when they query or PAGE you notifying them that you are away, why, and since when..
    echo @Help -
    echo @Help 15Away Reason/Away Nick/Msg Interval: Your away reason is the reason you are leaving, the away nick is what you want your name to be while away (IE PhaR0ah[afk]), if you don't type an away nick your nick will not be changed.. Msg Interval is how often you want your away info to be displayed..
    echo @Help 
    echo @Help 
    echo @Help 4Thanks to everyone who gave me help on #mIRCScripts on Undernet.. www.mircscripts.org for all the helpful tutorials..
    echo @Help 4Trippin.Cobralink.Net #Lobby... See ya there!
    echo @Help 
    echo @Help 14This away script was going to go on Ph? ?f? but I am too busy right now to write a full mIRC script because of this A+ class and stuff.. Enjoy the script.. Please don't rip =/ Get permission..
  }
  alias p.away {  
    if ($dialog(away2) == away2) { echo -a $info 15 $+ $addon is already open! }
    else { dialog -rdm away2 away2 }
  }
  alias -l away.mode {
    if ($chan(1) == $null) { goto blah }
    if (%away.reason == $null) { set %away.reason None }
    if (%away.nick == $null) { set %away.nick $me }
    if (%interval == $null) { set %interval 380 }
    if (%msg.opts == $null) { set %msg.opts 1 }
    if (%msg.opts == 1) { 
      ame $pe 15away 4- 14(15Reason4/15 $+ %away.reason $+ 14) (15 $+ Log4/15 $+ %away.log $+ 14)  14(15 $+ CTCP Page4/15 $+ %away.page $+ 14) $pe 
      else { halt }
    }
    if (%msg.opts == 2) {
      ame $strip($pe) away - (Reason/ $+ %away.reason $+ ) ( $+ Log/ $+ %away.log $+ ) ( $+ CTCP Page/ $+ %away.page $+ ) $strip($pe)
      else { halt }  
    }
    if (%msg.opts == 3) { 
      goto blah
      else { halt }
    }
    :blah
    away (Reason/ $+ %away.reason $+ ) (Log/ $+ %away.log $+ )  ( $+ Page/ $+ %away.page $+ )
    set %left.time $ctime
    set %old.nick $me
    nick %away.nick
    set %gone.since $asctime(h:nnTT)
    set %messages 0
    set %pages 0
    away.msg
    .timerDUR 0 1 dur.count
    .timerCheckIdle OFF
  }
  alias -l away.msg {
    if (%msg.opts == 1) { .timerAWAY 0 %interval ame $pe away 4- 14(Reason4/ $+ %away.reason $+ 14) ( $+ Log4/ $+ %away.log $+ 14)  14( $+ CTCP Page4/ $+ %away.page $+ 14) 14(15Since4/15 $+ %gone.since $+ 14) $pe }
    if (%msg.opts == 2) { .timerAWAY 0 %interval ame $strip($pe) away - (Reason/ $+ %away.reason $+ ) ( $+ Log/ $+ %away.log $+ ) ( $+ CTCP Page/ $+ %away.page $+ ) (Since/ $+ %gone.since $+ ) $strip($pe) }
    if (%msg.opts == 3) { halt }
  }
  alias -l back {
    if ($chan(1) == $null) { goto dreamcast }
    if (%msg.opts == 1) { ame $pe 15back 4- 14(15Reason4/15 $+ %away.reason $+ 14) 4- 14(15 $+ Duration4/15 $+ $duration($calc($ctime - %left.time)) $+ 14) $pe }
    if (%msg.opts == 2) { ame $strip($pe) back - (Reason/ $+ %away.reason $+ ) - (Duration/ $+ $duration($calc($ctime - %left.time)) $+ ) $strip($pe) }
    if (%msg.opts == 3) { goto dreamcast }
    if (%auto == On) { idle.check }
    :dreamcast
    away
    .timerAWAY OFF
    echo -a $info 14(15Messages4/15 $+ %messages $+ 14) (15Pages4/15 $+ %pages $+ 14) 14(15 $+ Duration4/15 $+ $duration($calc($ctime - %left.time)) $+ 14)
    unset %away.reason
    unset left.time
    nick %old.nick
    unset %messages
    unset %pages
    unset %left.time
    unset %gone.since
    unset %old.nick
    .timerDUR OFF 
  }
  on 1:DISCONNECT:{
    unset %away.reason
    unset left.time
    nick %old.nick
    unset %messages
    unset %pages
    unset %left.time
    unset %gone.since
    unset %old.nick
  }
  on 1:TEXT:*:?:{
    if ($nick == $me) { halt }
    if ($away == $false) { halt }
    if (%auto.reply == On) { .timerMSG 1 2 msg $nick $pe 15away 4- 14(15Reason4/15 $+ %away.reason $+ 14) 4- 14(15 $+ Log4/15 $+ %away.log $+ 14)  14(15 $+ Page4/15 $+ %away.page $+ 14) (15Since4/15 $+ %gone.since $+ 14) $pe }
    if (%away.log == On) {
      .window @AwayLog
      inc %messages 1
      echo @AwayLog 14(4 %messages 14) 4- ( $+ $pheer.time $+ ) < $+ $nick $+ > $1-
      closemsg $nick
    }
    else halt
  }
  ctcp *:PAGE:*: {
    if ($away == $false) { halt }
    if (%away.page == Off) { halt }
    if (%auto.reply == On) { timerPAGE 1 2 notice $nick Your PAGE has been recieved.. }
    if (%away.page == On) { 
      window @AwayPages
      inc %pages 1
      beep 7
      echo @AwayPages 14(4 %pages 14) 4- ( $+ $pheer.time $+ ) < $+ $nick $+ > $remove($1-,PAGE)
      closemsg $nick
    }
    else halt
  }

  dialog SlangTran {
    title "Slang Translator"
    size -1 -1 174 126
    option dbu
    edit "", 1, 19 44 130 10
    button "Slang Translator", 2, 10 7 150 20
    button "Translate", 3, 14 93 40 20
    button "Quit", 4, 122 93 40 20, cancel
    button "Back", 5, 67 93 40 20
    text "TransLate ", 6, 66 34 34 8, center
    text "Made By Tony - Thanks To Derek1316", 7, 39 117 97 8
    list 8, 19 55 130 34, size
    scroll "", 9, 140 56 8 32
  }
  on *:dialog:SlangTran:sclick:3: {
    set %slang.word $did(1)
    did -r SlangTran 2 
    sockopen slang www.noslang.com 80
  }

  on *:SOCKOPEN:slang: {
    sockwrite -nt $sockname GET /search.php?st= $+ %slang.word. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
    sockwrite -nt $sockname Host: www.noslang.com
    sockwrite -nt $sockname $crlf
  }

  on *:SOCKREAD:slang: {
    if ($sockerr) { halt }
    else {
      /noop $replace(%slang.word,+,$chr(32))
      var %slang.reader
      sockread %slang.reader
      if (*We didn't find any matches for* iswm %slang.reader) {
        %slang.way. [ $+ [ $right($sockname,6) ] ] $c1(Your search for) $c3(" $+ $replace(%slang.word. [ $+ [ $right($sockname,6) ] ],+,$chr(32)) $+ ") $c1(did not return any results.)
        unset %Slang. [ $+ [ $right($sockname,6) ] ]
        unset %slang.result
        sockclose slang
      }
      if (*"></a><abbr title="*"><b>* iswm %slang.reader) {
        tokenize 32 $nohtml(%slang.reader)
        set %slang.result $1-
        %slang.way. [ $+ [ $right($sockname,6) ] ] $c1(Slang Word) $c3(" $+ %slang.word. [ $+ [ $right($sockname,6) ] ] $+ ") $c1(was translated into:)
        %slang.way. [ $+ [ $right($sockname,6) ] ] $c2(%slang.result)
        unset %slang [ $+ [ $right($sockname,6) ] ]
        unset %slang.result
        sockclose slang
      }
    }
  }
  alias -l nohtml {
    var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
    %x = $replace(%x,&nbsp;,$null)
    return %x
  }
  alias tl {
    set %tllang1 $1
    set %tllang2 $2
    set %tltext $replace($3-,$chr(32),$chr(43))
    /sockclose tl
    sockopen tl ets.freetranslation.com 80
    set %tlmsg msg $active
  }
  on *:SOCKOPEN:tl: {
    sockwrite -nt $sockname GET ?srcText= $+ %tltext $+ &mode=html&template=results_en-us.htm&sequence=core&language= $+ %tllang1 $+ $chr(37) $+ 2F $+ %tllang2 HTTP/1.1
    sockwrite -nt $sockname Host: ets.freetranslation.com
    sockwrite -nt $sockname $crlf
  }
  on *:SOCKREAD:tl: {
    if ($sockerr) { echo -a SOCKET ERROR: $sckerr }
    else {
      var %tlsockreader
      sockread %tlsockreader
      if ( *<textarea name="dsttext" cols="40" rows="6">* iswm %tlsockreader) {
        %tlmsg $remove($nohtml(%tlsockreader),$chr(09)) [ $chr(3) ] 
        /sockclose $sockname
        if (%translator == on) {
          /did -a translator 1 < $+ $me $+ > - $remove($nohtml(%tlsockreader),$chr(09))
        }
        /sockclose tl
        unset %tl*
      }
    }
  }
  alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } alias -l htm { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }

  dialog translator {
    title "Oliver's Ultimate Translator"
    size -1 -1 188 191
    option dbu
    list 1, 8 16 172 128, size
    edit "", 2, 32 148 123 10, autohs
    text "Message:", 3, 8 149 25 8
    combo 4, 137 163 43 50, size drop
    text "to", 7, 60 164 8 8
    combo 5, 72 163 43 50, size drop
    combo 6, 13 163 43 50, size drop
    text "in", 8, 122 164 7 8
    text "", 9, 105 5 36 8
    text "", 10, 142 5 33 8
    button "Exit", 11, 75 177 37 12, cancel
    button "Send", 12, 158 148 26 10
    button "hidden button", 13, 15 1 37 12, default
  }
  on *:dialog:translator:sclick:13:{
    set %tllang1 $did(translator,6)
    set %tllang2 $did(translator,5)
    set %tltext $replace($did(translator,2),$chr(32),$chr(43))
    if ($sock(tl)) .sockclose tl
    set %tlmsg msg $did(translator,4)
    sockopen tl ets.freetranslation.com 80
    /did -r translator 2
  }
  alias translatorallchans {
    var %num = 1
    while ($chan(%num)) {
      did -a translator 4 $chan(%num)
      inc %num 1
    }
  }
  on *:TEXT:*:*: {
    if (%translator == on) {
      if (!$chan) {
        /write $query $+ .txt < $+ $nick $+ > $1-
      }
      else {
        /write $chan $+ .txt < $+ $nick $+ > $1-
      }
      if (%translatorstatus == $chan) {
        /did -a translator 1 < $+ $nick $+ > $1-
      }
      elseif (%translatorstatus == $query) {
        /did -a translator 1 < $+ $nick $+ > $1-
      }
      inc %transnum
      /write translatorlist.txt $chan $+ .txt
      /write translatorqlist.txt $query $+ .txt
    }
  }
  on *:DIALOG:translator:sclick:4:{
    /did -r translator 1
    /loadbuf -or translator 1 $did($dname,4) $+ .txt
    set %translatorstatus $did($dname,4)
  }
  on *:DIALOG:translator:sclick:12:{
    set %tllang1 $did(translator,6)
    set %tllang2 $did(translator,5)
    set %tltext $replace($did(translator,2),$chr(32),$chr(43))
    if ($sock(tl2)) .sockclose tl
    set %tlmsg msg $did(translator,4)
    sockopen tl ets.freetranslation.com 80
    /did -r translator 2
  }
  on *:dialog:translator:init:*:{
    /did -h translator 13
    set %translator on
    translatorallchans
    /timer $+ translatortime 0 1 /did -ra translator 10 $!time(HH:nn:ss)
    /timer $+ translatordate 0 1 /did -ra translator 9 $!time(ddd/mmm/yyyy)
    /did -a translator 6,5 English
    /did -a translator 6,5 Spanish
    /did -a translator 6,5 Dutch
    /did -a translator 6,5 German
    /did -a translator 6,5 Portuguese
    /did -a translator 6,5 Italian
    /did -a translator 6,5 French
  }
  on *:dialog:translator:sclick:11:{
    set %translator off
    /massremove translatorlist.txt
    /massremove translatorqlist.txt
    unset %translatorlist*
    unset %translatorqlist*
    unset %transnum
    /timer $+ translatortime off
    /timer $+ translatordate off
  }
  alias massremove {
    var %num = 1
    while ($read($1,%num) != $null) {
      /write -c $read($1,%num)
      /write -d $1 $read($1,%num)
    }
  }
  alias translatorallchans {
    var %num = 1
    while ($chan(%num)) {
      did -a translator 4 $chan(%num)
      inc %num 1
    }
  } 

  dialog blacklist {
    title "Oliver's Ultimate Blacklist"
    size -1 -1 260 193
    option dbu
    tab "Nick", 1, 0 -1 254 175
    box "Blacklist new nick", 4, 8 21 91 89, tab 1
    edit "", 5, 15 36 50 10, tab 1 autohs
    check "Blacklist address", 7, 16 54 50 10, tab 1
    check "Blacklist nick", 8, 16 66 50 10, tab 1
    button "Ban nick!", 10, 15 93 37 12, tab 1
    box "Blacklist", 12, 117 25 125 132, tab 1
    list 11, 122 33 114 119, tab 1 size vsbar
    box "Unblacklist nick", 19, 8 114 90 50, tab 1
    edit "", 28, 15 128 50 10, tab 1 autohs
    button "Unblacklist nick", 29, 12 143 41 12, tab 1
    button "Unblacklist all", 41, 57 143 37 12, tab 1
    tab "Channel", 2
    edit "", 15, 15 36 50 10, tab 2 autohs
    text "Channel", 16, 68 37 23 8, tab 2
    check "Blacklist all users on channel", 17, 17 54 80 10, tab 2
    button "Blacklist channel!", 20, 16 91 50 12, tab 2
    box "Blacklist new channel", 21, 8 21 91 89, tab 2
    box "Blacklist", 22, 117 25 125 132, tab 2
    list 23, 122 33 114 119, tab 2 size vsbar
    box "Unblacklist channel", 24, 8 114 90 50, tab 2
    edit "", 25, 15 128 50 10, tab 2 autohs
    button "Unblacklist channel", 27, 12 143 51 12, tab 2
    check "Blacklist nicks", 42, 24 66 50 10, tab 2
    check "Blacklist addresses", 43, 24 78 57 10, tab 2
    tab "Blacklist Setup", 3
    box "Storage info (optional)", 30, 9 19 110 46, tab 3
    text "Channel filename.ini", 31, 67 36 51 8, tab 3
    box "External Use", 36, 133 24 82 47, tab 3
    check "Allow external use", 37, 138 34 57 10, tab 3
    check "Nick blacklist", 38, 145 45 50 10, group tab 3
    edit "", 6, 14 35 50 10, tab 3 autohs
    edit "", 26, 14 49 50 10, tab 3 autohs
    text "Nick filename.ini", 32, 67 50 51 8, tab 3
    check "Channel blacklist", 33, 145 56 50 10, group tab 3
    box "Channel Kick Blacklist", 34, 21 80 89 70, tab 3
    check "Turn on kick blacklist", 35, 29 92 77 10, tab 3
    edit "", 39, 29 105 18 10, tab 3 autohs
    text "Number of kicks ", 40, 50 106 41 8, tab 3
    button "OK", 13, 170 178 37 12, ok cancel
    button "Cancel", 14, 213 178 37 12, cancel
    edit "", 9, 3 179 142 10, autohs
    text "status", 18, 148 180 17 8
    text "", 44, 219 3 38 9
    text "", 45, 179 3 38 9
  }
  on *:dialog:blacklist:sclick:14:{
    /timer $+ blacklist off
    /timer $+ blacklistdate off
  }
  on *:dialog:blacklist:sclick:35:{
    if ($did($dname,35).state == 1) {
      set %kickstop on
      /did -e blacklist 39
      /did -ar blacklist 9 kick now activated
    }
    elseif ($did($dname,35).state == 0) {
      set %kickstop off
      /did -ar blacklist 39
      /did -b blacklist 39
      /did -ar blacklist 9 kick deactivated
    }
  }
  on *:dialog:blacklist:sclick:41:{
    /remove %nick_blacklist
    /did -r blacklist 11
  }
  on *:dialog:blacklist:sclick:33,38:{
    if ($did($dname,33).state == 1) && ($did($dname,38).state == 1) {
      /did -ar blacklist 9 externaluse activated for nick and channel blacklisting
    }
    elseif ($did($dname,33).state != 1) && ($did($dname,38).state == 1) {
      /did -ar blacklist 9 externaluse deactivated for channel blacklisting
    }
    elseif ($did($dname,33.state == 1) && ($did)$dname,38.state != 1) {
      /did -ar blacklist 9 externaluse deactivated for nick blacklisting
    }
  }
  on *:dialog:blacklist:init:*:{
    /timer $+ blacklist 0 1 /did -ra blacklist 45 $!time(HH:nn:ss)
    /timer $+ blacklistdate 0 1 /did -ra blacklist 44 $!time(ddd/mmm/yyyy)
    /did -b blacklist 42
    /did -b blacklist 43
    if (%kickstop == $null) {
      set %kickstop off
    }
    if (%kickstop == off) {
      /did -b blacklist 39
    }
    if (%kickstop == on) {
      /did -c blacklist 35
      /did -e blacklist 39
      /did -ar blacklist 39 %kicknum
    }
    if (%nick_blacklist == $null) {
      set %nick_blacklist nick_blacklist.txt
    }
    if (%chan_blacklist == $null) {
      set %chan_blacklist nick_blacklist.txt
    }
    /write $+(-ds,$chr(13),$chr(10)) %nick_blacklist
    /did -m blacklist 9
    /did -ar blacklist 6 %chan_blacklist
    /did -ar blacklist 26 %nick_blacklist
    if ($readini(blacklist.ini,extuse,on) == true) {
      /did -c blacklist 37
      /did -e blacklist 38
      /did -e blacklist 33
    }
    if ($readini(blacklist.ini,extuse,on) != true) {
      /did -b blacklist 38
      /did -b blacklist 33
    }
    if ($readini(blacklist.ini,extuse,nick) == true) {
      /did -c blacklist 38
    }
    if ($readini(blacklist.ini,extuse,nick) == true) && ($readini(blacklist.ini,extuse,chan) != true) {
      /did -ar blacklist 9 externaluse active for nick blacklisting
    }
    elseif ($readini(blacklist.ini,extuse,nick) == true) && ($readini(blacklist.ini,extuse,chan) == true) {
      /did -ar blacklist 9 externaluse active for nick and chan blacklisting
    }
    elseif ($readini(blacklist.ini,extuse,nick) != true) && ($readini(blacklist.ini,extuse,chan) == true) {
      /did -ar blacklist 9 externaluse active for channel blacklisting
    }
    if ($readini(blacklist.ini,extuse,chan) == true) {
      /did -c blacklist 33
    }
    loadbuf -o blacklist 11 %nick_blacklist
    loadbuf -o blacklist 23 %chan_blacklist
  }
  on *:dialog:blacklist:sclick:37:{
    if ($did($dname,37).state == 1) {
      /did -ar blacklist 9 Externaluse activated
      /did -e blacklist 33
      /did -e blacklist 38
    }
    elseif ($did($dname,37).state == 0) {
      /did -bu blacklist 38
      /did -bu blacklist 33
      /did -ar blacklist 9 Externaluse deactivated
    }
  }
  on *:dialog:blacklist:sclick:13:{
    /timer $+ blacklist off
    /timer $+ blacklistdate off
    if (%kickstop == on) && ($did($dname,39).edited == $true) {
      set %kicknum $did($dname,39)
    }
    elseif (%kickstop == on) && ($did($dname,39).edited != $true) {
      set %kickstop off
      unset %kicknum
    }
    /write $+(-ds,$chr(13),$chr(10)) %nick_blacklist
    if ($did($dname,6).edited == $true) && (*.txt* iswm $did($dname,6)) {
      set %chan_blacklist $did($dname,6)
    }
    else { set %chan_blacklist chan_blacklist.txt
    }
    if ($did($dname,26).edited == $true) && (*.txt* iswm $did($dname,26)) {
      set %nick_blacklist $did($dname,26)
    }
    else { set %nick_blacklist nick_blacklist.txt }
    if ($did($dname,37).state == 1) {
      /writeini blacklist.ini extuse on true
    }
    if ($did($dname,37).state == 0) {
      /writeini blacklist.ini extuse on false
    }
    if ($did($dname,33).state == 1) {
      /writeini blacklist.ini extuse chan true
    }
    if ($did($dname,33).state == 0) {
      /writeini blacklist.ini extuse chan false
    }
    if ($did($dname,38).state == 1) {
      /writeini blacklist.ini extuse nick true
    }
    if ($did($dname,38).state == 0) {
      /writeini blacklist.ini extuse nick false
    }
  }
  on *:dialog:blacklist:sclick:11:{
    did -ar $dname 28 $did(11).seltext
  }
  on *:dialog:blacklist:sclick:10:{
    amsg [ GLOBAL ] $did($dname,5) has now been globally blacklisted by: $me . Any channel i am op or hop in, $did($dname,5) is banned in!
    /did -ar blacklist 9 $did($dname,5) added to nick blacklist!
    if ($did($dname,8).state == 1) {
      write %nick_blacklist $did($dname,5)
    }
    if ($did($dname,7).state == 1) {
      write %nick_blacklist $address($did($dname,5),2)
    }
    loadbuf -or blacklist 11 %nick_blacklist
    /did -u blacklist 8
    /did -u blacklist 7
    /did -r blacklist 5
    /write $+(-ds,$chr(13),$chr(10)) %nick_blacklist
  }
  on *:dialog:blacklist:sclick:29:{
    amsg [ GLOBAL ] $did($dname,28) has now been unblacklisted by: $me .
    /write $+(-ds,$chr(13),$chr(10)) %nick_blacklist
    /write $+(-dl,$read(%nick_blacklist, s, $+(*,$did(28),*))) %nick_blacklist
    /did -d $dname 11 $didwm(11,$+(*,$did(28),*))
    /did -ar blacklist 9 $did($dname,28) removed from nick blacklist!
    /did -r blacklist 28
  }
  on *:dialog:blacklist:sclick:17:{
    if ($did($dname,17).state == 1) {
      /did -e blacklist 42
      /did -e blacklist 43
    }
    elseif ($did($dname,17).state == 0) {
      /did -u blacklist 42
      /did -u blacklist 43
      /did -b blacklist 42
      /did -b blacklist 43
    }
  }
  on *:dialog:blacklist:sclick:23:{
    if ($did($dname,25).edited != $true) {
      did -a $dname 25 $did(23).seltext
    }
  }
  on *:dialog:blacklist:sclick:20:{
    amsg [ GLOBAL ] $did($dname,15) has now been globally blacklisted by: $me .
    msg $did($dname,15) This channel is blacklisted! send oliver a memo to get unbanned - /ms send oliver (msg)
    part $did($dname,15)
    /did -ar blacklist 9 $did($dname,15) added to chan blacklist!
    if ($did($dname,17).state == 1) {
      if ($did($dname,42).state == 1) && ($did($dname,43).state == 1) {
        set %alluserschan $did($dname,15)
        set %alluserschanaddress $did($dname,15)
        /allusers
        /allusersaddress
        /did -u blacklist 43
        /did -u blacklist 42
        /did -u blacklist 17
        /did -b blacklist 42
        /did -b blacklist 43
      }
      elseif ($did($dname,42).state == 1) && ($did($dname,43).state == 0) {
        set %alluserschan $did($dname,15)
        /allusers
        /did -u blacklist 17
        /did -u blacklist 42
        /did -b blacklist 42
        /did -b blacklist 43
      }
      elseif ($did($dname,42).state == 0_ && ($did($dname,43).state == 1) {
        set %alluserschanaddress $did($dname,15)
        /allusersaddress
        /did -u blacklist 17
        /did -u blacklist 43
        /did -b blacklist 42
        /did -b blacklist 43
      }
    }
    write %chan_blacklist $did($dname,15)
    /did -u blacklist 17
    /did -r blacklist 15
    loadbuf -or blacklist 23 %chan_blacklist
    loadbuf -or blacklist 11 %nick_blacklist
  }
  on *:dialog:blacklist:sclick:27:{
    amsg [ GLOBAL ] $did($dname,28) has now been unblacklisted by: $me .
    /write $+(-ds,$chr(13),$chr(10)) %nick_blacklist
    /did -ar blacklist 9 $did($dname,25) removed from chan blacklist!
    /write -ds $+ $did($dname,25) %chan_blacklist
    /did -d $dname 23 $didwm(23,$did(25))
    /did -r blacklist 25
  }
  alias allusersaddress {
    var %y = 1
    while $nick(%alluserschan,%y) {
      /write %nick_blacklist $address($nick(%alluserschan,%y),2)
      inc %y 1
    }
  }
  alias allusers {
    var %x = 1
    while $nick(%alluserschan,%x) {
      /write %nick_blacklist $nick(%alluserschan,%x)
      inc %x 1
    }
  }

  alias allusers2 {
    var %x = 1
    if ($exists($1 $+ allusers2.txt) == $true) {
      remove $1 $+ allusers2.txt
    }
    while $nick($1,%x) {
      /write $1 $+ allusers2.txt $nick($1,%x)
      inc %x 1
    }
  }

  on *:KICK:#: {
    if ($knick == $me) {
      if (%kickstop == on) {
        inc %kicker [ $+ [ $chan ] ] 1
        /noticeall $chan
        if (%kicker [ $+ [ $chan ] ] == %kicknum) {
          unset %kicker [ $+ [ $chan ] ]
          /write %chan_blacklist $chan
          amsg [ GLOBAL ] $chan has now been kick blacklisted for kicking me.
        }
      }
    }
  }

  alias noticeall {
    var %x = 1
    while $read($1 $+ allusers.txt,%x) {
      if (%kicker [ $+ [ $1 ] ] < %kicknum) {
        /notice $read($1 $+ allusers2.txt,%x) [ $1 ] DO NOT KICK ME!! Please use the .leave function next time. kicks left : $calc(%kicknum - %kicker [ $+ [ $1 ] ])
      }
      elseif (%kicker [ $+ [ $1 ] ] == %kicknum) {
        /notice $read($1 $+ allusers2.txt,%x) [ $1 ] $1 has now been kick blacklisted for kicking me 5 times. please memo oliver to get your channel unbanned : /ms send oliver (msg)
      }
      inc %x 1
    }
  }

  on *:TEXT:!blacknick *:*: {
    if ($readini(blacklist.ini,extuse,nick) == true) {
      if ($address($nick,2) == $address($me,2)) || ($nick == Borris) || ($read(staff.txt, w, $address($nick,2))) {
        set %blackchankick $2
        /blackchankick
        write %nick_blacklist $address($2,2)
        write %nick_blacklist $2
        amsg [ GLOBAL ] $2 has now been globally blacklisted by: $nick for: $3- . Any channel i am op or hop in, $2 is banned in!
        notice $2 $2 has now been globally blacklisted by: $nick for: $3- . Any channel i am op or hop in, $2 is banned in!
      }
      else {
        notice $nick you need to be oliver or bot staff to do that...
      }
    }
    else {
      notice $nick external use is currently off
    }
  }
  alias blackchankick {
    var %x = 1
    while ($comchan(%blackchankick,%x)) {
      if ($comchan(%blackchankick,%x).op || $comchan(%blackchankick,%x).help) {
        /ban -k $comchan(%blackchankick,%x) %blackchankick $nick is globally banned and will be banned on everychannel im on until removed
      }
      inc %x 1
    }
  }
  on *:TEXT:!unblacknick *:*: {
    if ($readini(blacklist.ini,extuse,nick) == true) {
      if ($address($nick,2) == $address($me,2)) || ($nick == Borris) || ($read(staff.txt, w, $address($nick,2))) {
        /write -ds $2 %nick_blacklist
        amsg [ GLOBAL ] $2 has now been unblacklisted by: $nick .
        notice $2 you have now been unblacklisted by: $nick .
      }
      else {
        notice $nick you need to be oliver or bot staff to do that...
      }
    }
    else {
      notice $nick external use is currently off
    }
  }
  on *:TEXT:!blackchan *:*: {
    if ($readini(blacklist.ini,extuse,chan) == true) {
      if ($address($nick,2) == $address($me,2)) || ($read(staff.txt, w, $address($nick,2))) {
        write %chan_blacklist $2
        amsg [ GLOBAL ] $2 has now been blacklisted by: $nick for: $3- .
        msg $2 $2 has now been blacklisted by: $nick for: $3- .   
      }
      else {
        notice $nick you need to be oliver or bot staff to do that...
      }
    }
    else {
      notice $nick external use is currently off
    }
  }
  on *:TEXT:!unblackchan *:*: {
    if ($readini(blacklist.ini,extuse,chan) == true) {
      if ($address($nick,2) == $address($me,2)) || ($read(staff.txt, w, $address($nick,2))) {
        /write -ds $2 %chan_blacklist
        amsg [ GLOBAL ] $2 has now been unblacklisted by: $nick .
        msg $2 $2 has now been unblacklisted by: $nick .
      }
      else {
        notice $nick you need to be oliver or bot staff to do that...
      }
    }
    else {
      notice $nick external use is currently off
    }
  }
  on *:PART:#: {
    /allusers2 $chan
  }

  on *:QUIT:#: {
    /allusers2 $chan
  }

  on *:NICK:#: {
    /allusers2 $chan
  }
  on *:JOIN:#: {
    /allusers2 $chan
    if ($nick == $me) && ($read(%chan_blacklist, w, $chan)) {
      msg $chan This channel is blacklisted! send oliver a memo to get unbanned - /ms send oliver (msg)
      part $chan
    }
    elseif (%kicker [ $+ [ $chan ] ] < %kicknum) && ($nick == $me) && (%kickstop == on) {
      msg $chan Hi im $me. To view my commands type !commands. If you wish me to leave please type .leave . This channel has kicked me %kicker [ $+ [ $chan ] ] $+ / $+ %kicknum and has $calc(%kicknum - %kicker [ $+ [ $chan ] ]) chances left until channel blacklist.
    }
    if ($nick != $me) && ($me isop $chan || $me ishop $chan) {
      if ($read(%nick_blacklist, w, $nick)) || ($read(%nick_blacklist, w, $address($nick,2))) {
        /ban -k $chan $nick 2 $nick is globally banned and will be banned on everychannel im on until removed
        /notice $nick you are globally banned and will be banned on everychannel im on until removed
      }
    }
  }

  on *:TEXT:*:#: {
    if ($nick != $me) && ($me isop $chan || $me ishop $chan) {
      if ($read(%nick_blacklist, w, $nick)) || ($read(%nick_blacklist, w, $address($nick,2))) {
        /ban -k $chan $nick is globally banned and will be banned on everychannel im on until removed
        /notice $nick you globally banned and will be banned on everychannel im on until removed
      }
    }
  }
  dialog Remote.Creator {
    title "Remote Creator"
    size -1 -1 317 228
    option dbu
    combo 1, 9 13 80 55, size drop
    box "Create A Remote", 2, 4 4 309 221
    edit "", 3, 175 23 124 60, read multi return hsbar vsbar
    text "Remote View:", 4, 212 12 42 8
    button "Choose New Event", 5, 93 13 49 10
    radio "Channel", 6, 102 39 50 10
    radio "PM (Query)", 7, 102 52 50 10
    radio "Channel/PM", 8, 102 64 66 10
    edit "", 9, 10 98 106 10, autohs
    text "", 10, 10 79 105 17
    text "", 11, 153 114 146 78
    button "Set Word", 12, 10 111 37 10
    button "Send To Clipboard", 13, 209 86 49 10
    button "Set Nick", 14, 10 160 37 10
    edit "", 15, 10 146 106 10, autohs
    text "", 16, 10 124 106 20
    button "?", 17, 146 13 7 10
    text "", 18, 9 178 106 17
    button "Exit", 19, 266 204 42 12, ok
    edit "", 20, 9 197 106 10, autohs
    button "Set Command", 21, 10 211 37 10
    box "Info/Help", 22, 146 104 159 94
    button "Skip", 23, 79 160 37 10
    text "Activate in:", 24, 98 29 47 8
  }

  ON *:DIALOG:remote.creator:*:*: {
    if ($devent == edit) {
      if ($did == 20) {
        if (!$did(20)) { did -b $xrem 21 }
        if ($did(20)) { did -e $xrem 21 }
      }
      if ($did == 15) {
        if (!$did(15)) { did -b $xrem 14 }
        if ($did(15)) { did -e $xrem 14 }
      }
      if ($did == 9) {
        if (!$did(9)) { did -b $xrem 12 }
        if ($did(9)) { did -e $xrem 12 }
      }
    }
    if ($devent == Init) {
      did -b $xrem 5,6-9,12-15,17,20,21
      did -a $xrem 1 On Action Event
      did -a $xrem 1 On Input Event
      did -a $xrem 1 On Mode Event
      did -a $xrem 1 On Nick Event
      did -a $xrem 1 On Notice Event
      did -a $xrem 1 On Op Event
      did -a $xrem 1 On Deop Event
      did -a $xrem 1 On Voice Event
      did -a $xrem 1 On Devoice Event
      did -a $xrem 1 On Halfop Event
      did -a $xrem 1 On Dehalfop Event
      did -a $xrem 1 On Text Event
      did -a $xrem 1 On Join Event
      did -a $xrem 1 On Part Event
      did -a $xrem 1 On Quit Event
      did -a $xrem 1 On Ban Event
      did -a $xrem 1 On Unban Event
      did -a $xrem 1 On Kick Event
      did -a $xrem 1 On Topic Event
      did -b $xrem 23
    }
    if ($devent == Sclick) {
      if ($did == 1) {
        did -e $xrem 5,6,7,8,17
        did -b $xrem 1
        if ($wrd == Action) {
          did -ra $xrem 3 on *:ACTION:*:
          did -a $xrem 10 Word for Script to activate on:
          did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The On Action event triggers when someone uses '/me'
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Input) {
          did -ra $xrem 3 on *:INPUT:
          did -a $xrem 10 Word for Script to activate on:
          did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The on INPUT event triggers when you enter text in an editbox and press enter.
        }
        if ($wrd == Mode) {
          did -ra $xrem 3 on *:MODE:
          did -b $xrem 7,8
          did -a $xrem 10 Word for Script to activate on:
          did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf NOTE: use the mode, example: +m = m , +s = s , $crlf -s = -s $crlf $crlf The on MODE event triggers when a user changes a channel mode.
          did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
        }
        if ($wrd == Nick) {
          did -ra $xrem 3 On *:NICK: $chr(123)
          did -b $xrem 6-9
          did -c $xrem 6
          did -e $xrem 15,23
          did -a $xrem 11 The on NICK event triggers when a user changes nickname while on the same channel as you.
          did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
        }
        if ($wrd == Notice) {
          did -ra $xrem 3 On *:NOTICE:*:
          did -e $xrem 6-8
          did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The on NOTICE event triggers when someone uses a '/notice'.
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Op) {
          did -ra $xrem 3 On *:OP:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -e $xrem 15,23
          did -a $xrem 11 The on OP events trigger when a user on a channel is opped.
          did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
        }
        if ($wrd == Deop) {
          did -ra $xrem 3 On *:DEOP:#: $chr(123)
          did -b $xrem 6-8
          did -a $xrem 11 The on DEOP events trigger when a user on a channel is deopped.
          did -e $xrem 15,23
          did -c $xrem 6
          did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
        }
        if ($wrd == Dehalfop) {
          did -ra $xrem 3 On *:DEHELP:#: $chr(123)
          did -b $xrem 6-8
          did -a $xrem 11 The on DEHELP events trigger when a user on a channel is dehalfopped.
          did -e $xrem 15,23
          did -c $xrem 6
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == halfop) {
          did -ra $xrem 3 On *:HELP:#: $chr(123)
          did -b $xrem 6-8
          did -a $xrem 11 The on HELP events trigger when a user on a channel is halfopped.
          did -e $xrem 15,23
          did -c $xrem 6
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Voice) {
          did -ra $xrem 3 On *:VOICE:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on VOICE events trigger when a user on a channel is voice.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == devoice) {
          did -ra $xrem 3 On *:DEVOICE:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on DEVOICE events trigger when a user on a channel is devoiced.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Text) {
          did -ra $xrem 3 On *:TEXT:*:
          did -e $xrem 6-8
          did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The on TEXT event triggers when you receive private and/or channel messages.
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Join) {
          did -ra $xrem 3 On *:JOIN:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on JOIN events trigger when a user joins a channel.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == part) {
          did -ra $xrem 3 On *:PART:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on JOIN events trigger when a user parts a channel.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Quit) {
          did -ra $xrem 3 On *:QUIT: $chr(123)
          did -b $xrem 6-8
          did -a $xrem 11 The on QUIT event triggers when a user quits IRC while on the same channel as you.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == BAN) {
          did -ra $xrem 3 On *:BAN:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on BAN events trigger when a user on a channel is banned.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Unban) {
          did -ra $xrem 3 On *:UNBAN:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on UNBAN events trigger when a user on a channel is unbanned.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == Kick) {
          did -ra $xrem 3 On *:KICK:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on KICK event triggers when a user is kicked from a channel.
          did -e $xrem 15,23
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
        if ($wrd == topic) {
          did -ra $xrem 3 On *:TOPIC:#: $chr(123)
          did -b $xrem 6-8
          did -c $xrem 6
          did -a $xrem 11 The on TOPIC event triggers when a user changes a channel topic.
          did -e $xrem 9
          did -a $xrem 10 set a specific topic for the script to activate on.
          did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
        }
      }
      if ($did == 6) {
        did -a $xrem 3 #: $chr(123) | did -b $xrem 6-8 | did -e $xrem 9
        if ($wrd == Nick) {
          did -b $xrem 9
          did -e $xrem 15
        }
      }
      if ($did == 7) { did -a $xrem 3 ?: $chr(123) | did -b $xrem 6-8 | did -e $xrem 9 }
      if ($did == 8) { did -a $xrem 3 *: $chr(123) | did -b $xrem 6-8 | did -e $xrem 9 }
      if ($did == 12) {
        did -a $xrem 3 $crlf if ( $+ $did($xrem,9) iswm $!1- $+ ) $chr(123)
        did -b $xrem 9,12
        did -e $xrem 15,23
      }
      if ($did == 14) {
        did -a $xrem 3 $crlf if ( $+ $!nick == $did($xrem,15) $+ ) $chr(123)
        did -b $xrem 14,15,23
        did -e $xrem 20
        did -a $xrem 11 $crlf Set a command to do, Example 'msg $!nick Hi' $crlf $crlf use $chr(124) as a separator if you would like to perform more than one command. $crlf $crlf Example: $crlf msg $!nick Hi $chr(124) msg $!chan $!nick just joined the channel.
      }
      if ($did == 13) {
        var %x = 0
        clipboard
        while (%x < $did($xrem,3).lines) {
          inc %x
          clipboard -a $crlf $did($xrem,3,%x)
        }
      }
      if ($did == 21) {
        %xbrackets = $did($xrem,3).lines
        did -b $xrem 20,21
        did -a $xrem 3 $crlf $did($xrem,20) $str($crlf $chr(125),%xbrackets)
        did -e $xrem 13
        did -a $xrem 11 You will have to load this into Remotes (ALT + R) for this script to activate.
      }
      if ($did == 23) {
        did -e $xrem 20
        did -b $xrem 14,15,23
      }
      if ($did == 17) {
        help ON $wrd
      }
      if ($did == 5) {
        did -u $xrem 6-8
        did -e $xrem 1,6,7,8
        did -b $xrem 5,6,7,8,9,12,14,15,17,20,23
        did -r $xrem 3,9,10,11,15,20
      }
    }
  }

  alias xrem { return Remote.Creator }
  alias wrd { return $gettok($did($dname,1),2,32) }
  alias remote.creator { dialog -mdro Remote.Creator Remote.creator }
  Dialog soundconfig {
    Title "Sound Config"
    Size -1 -1 260 130
    Button "Sounds ON", 1, 10 10 250 25, Sounds ON
    Button "Sounds OFF", 2, 10 35 250 25, Sounds OFF
    Button "Cancel", 10, 100 90 80 25, cancel
  }

  On *:DIALOG:soundconfig:*:*:{
    if ($devent == sclick) && ($did == 1) {
      load -rs $mircdirsounds\sounds | /halt
    }
    elseif ($devent == sclick) && ($did == 2) {
      unload -rs sounds | /halt
    }
  }
  dialog fla {
    title "Friends List"
    size -1 -1 84 122
    option dbu
    edit "", 1, 2 14 80 10, autohs
    box "Enter NickName", 2, 0 5 84 23
    button "Add", 3, 2 30 80 8, flat
    button "Remove", 4, 2 101 80 9, flat
    box "Friend List", 5, 0 40 84 59
    button "Done", 7, 2 112 80 9, flat ok
    list 8, 2 49 80 47, size vsbar
  }
  ON *:LOAD {
    hmake fdlist 15  
    set %nuy 0
  }
  ON *:DIALOG:fla:init:0:{
    var %nug 1
    while ( %nug <= %nuy ) {
      did -a fla 8 $hget(fdlist,%nug).item
      inc %nug
    }
    unset %nug
  }
  ON *:DIALOG:fla:sclick:3:{
    if ( $did(1) == $null ) { return }
    else {
      auser 5 $did(1)  
      hadd -m fdlist $did(1) %nuy 
      inc %nuy
      did -r fla 8,1
      var %nug 1
      while ( %nug <= %nuy ) {
        did -a fla 8 $hget(fdlist,%nug).item
        inc %nug
      }
      unset %nug
    }
  }
  ON *:DIALOG:fla:sclick:4:{
    if ( $did(8).sel == $null) { return }
    else {
      ruser $did(8).seltext  
      set %ugf $did(8).seltext
      did -d fla 8 $did(8).sel
      hdel -sw fdlist %ugf
      dec %nuy
      unset %ugf
    }
  }
  ON *:DIALOG:fla:sclick:7: {
    .hsave -so fdlist $scripdir $+ fdlist.mrc  
  }
  on 1:OPEN:?:*: { 
    if ( %stop == A ) { return }  
    else { 
      msg $nick Hallo $nick ask to talk to me in a channel . I am not accepting private massages from you .
      echo -a 4,1 < $+ $nick $+ >  8,1 $1-
    close -m $nick } 
  } 
  on 5:OPEN:?:*: { 
    if ( %stop == A ) { return }  
    else { return } 
  }  
  ON *:START {
    hmake fdlist 15
    .hload -s fdlist $scriptdir $+ fdlist.mrc
  }

  alias -l `b.i.f { if ($isfile($+(",$scriptdirsettings.ini,"))) return $readini $+(",$scriptdirsettings.ini,") $1 $2- }
  alias -l `t.i.f { writeini $+(",$scriptdirsettings.ini,") $$1- }
  alias nlc { 
    .set %nlc.reg $`b.i.f(nicklist,reg)
    .set %nlc.voice $`b.i.f(nicklist,voice)
    .set %nlc.help $`b.i.f(nicklist,help)
    .set %nlc.op $`b.i.f(nicklist,op)
    .set %nlc.me $`b.i.f(nicklist,me)
    .set %nlc.notify $`b.i.f(nicklist,notify)
    .set %nlc.ignore $`b.i.f(nicklist,ignore)
    .set %nlc.mp3 $`b.i.f(nicklist,mp3)
    $iif(!$dialog(warna.nl),dialog -m warna.nl warna.nl) 
  }
  alias ncl.cl $iif(!$dialog(ncl.cl),dialog -m ncl.cl ncl.cl)
  alias -l buat.war {
    set -u0 %i 1
    while (%i <= $chan(0)) {
      set -u0 %j 1
      while (%j <= $nick($chan(%i),0)) {
        if ($nick($chan(%i),%j) isreg $chan(%i)) { cline $`b.i.f(nicklist,reg) $chan(%i) $nick($chan(%i),%j)) }
        if ($nick($chan(%i),%j) isvo $chan(%i)) { cline $`b.i.f(nicklist,voice) $chan(%i) $nick($chan(%i),%j)) }
        if ($nick($chan(%i),%j) ishelp $chan(%i)) { cline $`b.i.f(nicklist,help) $chan(%i) $nick($chan(%i),%j)) }
        if ($nick($chan(%i),%j) isop $chan(%i)) { cline $`b.i.f(nicklist,op) $chan(%i) $nick($chan(%i),%j)) }
        if ($nick($chan(%i),%j) == $me) { cline $`b.i.f(nicklist,me) $chan(%i) $nick($chan(%i),%j)) }
        if ($nick($chan(%i),%j) isnotify) { cline $`b.i.f(nicklist,notify) $chan(%i) $nick($chan(%i),%j)) }
        if ($nick($chan(%i),%j) $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan(%i) $nick($chan(%i),%j)) }
        inc %j
      }
      inc %i
    }
  }
  alias -l buang.war { 
    set -u0 %i 1
    while (%i <= $chan(0)) {
      set -u0 %j 1
      while (%j <= $nick($chan(%i),0)) { 
        if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) }
        inc %j
      }
      inc %i
    }
  }
  dialog ncl.cl {
    title "Pick One"
    size -1 -1 166 46
    icon $scriptdiricons\nlc.ico
    icon 1, 3 3 20 20, " $+ $scriptdiricons\0.jpg $+ "
    icon 2, 23 3 20 20, " $+ $scriptdiricons\1.jpg $+ "
    icon 3, 43 3 20 20, " $+ $scriptdiricons\2.jpg $+ "
    icon 4, 63 3 20 20, " $+ $scriptdiricons\3.jpg $+ "
    icon 5, 83 3 20 20, " $+ $scriptdiricons\4.jpg $+ "
    icon 6, 103 3 20 20, " $+ $scriptdiricons\5.jpg $+ "
    icon 7, 123 3 20 20, " $+ $scriptdiricons\6.jpg $+ "
    icon 8, 143 3 20 20, " $+ $scriptdiricons\7.jpg $+ "
    icon 9, 3 23 20 20, " $+ $scriptdiricons\8.jpg $+ "
    icon 10, 23 23 20 20, " $+ $scriptdiricons\9.jpg $+ "
    icon 11, 43 23 20 20, " $+ $scriptdiricons\10.jpg $+ "
    icon 12, 63 23 20 20, " $+ $scriptdiricons\11.jpg $+ "
    icon 13, 83 23 20 20, " $+ $scriptdiricons\12.jpg $+ "
    icon 14, 103 23 20 20, " $+ $scriptdiricons\13.jpg $+ "
    icon 15, 123 23 20 20, " $+ $scriptdiricons\14.jpg $+ "
    icon 16, 143 23 20 20, " $+ $scriptdiricons\15.jpg $+ "
    button "ok", 200, 10 10 10 10, ok hide
  }
  dialog warna.nl {
    title "NickList Color [ /nlc ]"
    size -1 -1 92 130
    icon $scriptdiricons\nlc.ico
    option dbu
    button "&Ok",1, 60 115 30 12,ok,default
    check "&Enable",17, 3 113 30 15
    text "Me",2, 3 7 40 12
    icon 70, 55 -28 57 75, " $+ $scriptdiricons\ $+ %nlc.me $+ .jpg $+ "
    text "Oped Users",5, 3 20 40 12
    icon 71, 55 -14 57 75, " $+ $scriptdiricons\ $+ %nlc.op $+ .jpg $+ "
    text "Voiced Users",9, 3 33 40 12
    icon 72, 55 -1 57 75, " $+ $scriptdiricons\ $+ %nlc.voice $+ .jpg $+ "
    text "Regular Users",11, 3 46 40 12
    icon 73, 55 12 57 75, " $+ $scriptdiricons\ $+ %nlc.reg $+ .jpg $+ "
    text "Notify Users" ,13, 3 59 40 12
    icon 74, 55 25 57 75, " $+ $scriptdiricons\ $+ %nlc.notify $+ .jpg $+ "
    text "Ignored Users" ,15, 3 72 40 12
    icon 75, 55 38 57 75, " $+ $scriptdiricons\ $+ %nlc.ignore $+ .jpg $+ "
    text "Help Color",7, 3 85 40 12
    icon 76, 55 51 57 75, " $+ $scriptdiricons\ $+ %nlc.help $+ .jpg $+ "
    text "Mp3 Servers" ,18, 3 98 40 12
    icon 77, 55 64 57 75, " $+ $scriptdiricons\ $+ %nlc.mp3 $+ .jpg $+ "
  }
  on *:join:#:{ 
    if ($`b.i.f(nicklist,on) == on) {
      if ($nick == $me) { .timer -m 1 1 buat.war }
      else { 
        if ($nick isreg $chan) { cline $`b.i.f(nicklist,reg) $chan $nick }
        if ($nick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $nick }
        if ($nick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $nick }
        if ($nick isop $chan) { cline $`b.i.f(nicklist,op) $chan $nick }
        if ($nick == $me) { cline $`b.i.f(nicklist,me) $chan $nick }
        if ($nick isnotify) { cline $`b.i.f(nicklist,notify) $chan $nick }
        if ($nick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $nick } 
      }
    }
  }
  CTCP *:MP3:*:{ cline $`b.i.f(nicklist,mp3) $chan $nick }
  CTCP *:SLOTS:*:{ cline $`b.i.f(nicklist,mp3) $chan $nick }
  on *:OP:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
      if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
      if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
      cline $`b.i.f(nicklist,op) $chan $opnick 
    }
  }
  on *:serverOP:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
      if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
      if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
      cline $`b.i.f(nicklist,op) $chan $opnick 
    }
  }
  on *:DEOP:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($opnick == $me) { cline $`b.i.f(nicklist,me) $chan $opnick | halt }
      if ($opnick ishelp $chan) { cline $`b.i.f(nicklist,voice) $chan $opnick | halt }
      if ($opnick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $opnick | halt }
      if ($opnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $opnick | halt }
      if ($opnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $opnick | halt }
      cline $`b.i.f(nicklist,reg) $chan $opnick 
    }
  }
  on *:HELP:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($hnick == $me) { cline $`b.i.f(nicklist,me) $chan $hnick | halt }
      if ($hnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $hnick | halt }
      if ($hnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $hnick | halt }
      if ($hnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $hnick | halt }
      cline $`b.i.f(nicklist,help) $chan $hnick 
    }
  }
  on *:DEHELP:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($hnick == $me) { cline $`b.i.f(nicklist,me) $chan $hnick | halt }
      if ($hnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $hnick | halt }
      if ($hnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $hnick | halt }
      if ($hnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $hnick | halt }
      if ($hnick isvo $chan) { cline $`b.i.f(nicklist,voice) $chan $hnick | halt }
      cline $`b.i.f(nicklist,reg) $chan $hnick 
    }
  }
  on *:VOICE:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($vnick == $me) { cline $`b.i.f(nicklist,me) $chan $vnick | halt }
      if ($vnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $vnick | halt }
      if ($vnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $vnick | halt }
      if ($vnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $vnick | halt }
      if ($vnick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $vnick | halt }
      cline $`b.i.f(nicklist,voice) $chan $vnick 
    }
  }
  on *:DEVOICE:#:{
    if ($`b.i.f(nicklist,on) == on) {
      if ($vnick == $me) { cline $`b.i.f(nicklist,me) $chan $vnick | halt }
      if ($vnick isnotify) { cline $`b.i.f(nicklist,notify) $chan $vnick | halt }
      if ($vnick $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan $vnick | halt }
      if ($vnick isop $chan) { cline $`b.i.f(nicklist,op) $chan $vnick | halt }
      if ($vnick ishelp $chan) { cline $`b.i.f(nicklist,help) $chan $vnick | halt }
      cline $`b.i.f(nicklist,reg) $chan $vnick 
    }
  }
  on *:dialog:warna.nl:init:*:{ $iif($`b.i.f(nicklist,on) == on,did -c $dname 17) }
  on *:dialog:warna.nl:close:*:{
    if ($`b.i.f(nicklist,on) == on) { buat.war }
    if ($`b.i.f(nicklist,on) == off) { buang.war }
    $iif($dialog(ncl.cl),dialog -x ncl.cl)
    unset %nlc.*
  }
  on *:dialog:warna.nl:sclick:*:{
    if ($did == 17) { $iif($`b.i.f(nicklist,on) == on,`t.i.f nicklist on off,`t.i.f nicklist on on) }
    if ($did == 70) { .set %nlc.temp me | .set %nlc.temp.id 70 | ncl.cl }
    if ($did == 71) { .set %nlc.temp op | .set %nlc.temp.id 71 | ncl.cl }
    if ($did == 72) { .set %nlc.temp voice | .set %nlc.temp.id 72 | ncl.cl }
    if ($did == 73) { .set %nlc.temp reg | .set %nlc.temp.id 73 | ncl.cl }
    if ($did == 74) { .set %nlc.temp notify | .set %nlc.temp.id 74 | ncl.cl }
    if ($did == 75) { .set %nlc.temp ignore | .set %nlc.temp.id 75 | ncl.cl }
    if ($did == 76) { .set %nlc.temp help | .set %nlc.temp.id 76 | ncl.cl }
    if ($did == 77) { .set %nlc.temp mp3 | .set %nlc.temp.id 77 | ncl.cl }
  }
  on *:load: { 
    if ($version >= 6.0) { echo -s Welcome to 4NickList Colors v1.1 by da^hype | echo -s contact: da-hype@hirc.org | echo -s website: http://www.hirc.org | echo -s Malaysian Made | nlc
    }
    else { echo -a Sorry, you can't use This Script with version $version of mIRC, get the latest version at http://www.mirc.com/ | .unload -rs nicklist\nicklist.mrc }
  }

  on *:dialog:ncl.cl:sclick:*:{
    if ($did == 1) { `t.i.f nicklist %nlc.temp 0 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\0.jpg $+ " | dialog -x ncl.cl }
    if ($did == 2) { `t.i.f nicklist %nlc.temp 1 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\1.jpg $+ " | dialog -x ncl.cl }
    if ($did == 3) { `t.i.f nicklist %nlc.temp 2 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\2.jpg $+ " | dialog -x ncl.cl }
    if ($did == 4) { `t.i.f nicklist %nlc.temp 3 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\3.jpg $+ " | dialog -x ncl.cl }
    if ($did == 5) { `t.i.f nicklist %nlc.temp 4 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\4.jpg $+ " | dialog -x ncl.cl }
    if ($did == 6) { `t.i.f nicklist %nlc.temp 5 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\5.jpg $+ " | dialog -x ncl.cl }
    if ($did == 7) { `t.i.f nicklist %nlc.temp 6 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\6.jpg $+ " | dialog -x ncl.cl }
    if ($did == 8) { `t.i.f nicklist %nlc.temp 7 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\7.jpg $+ " | dialog -x ncl.cl }
    if ($did == 9) { `t.i.f nicklist %nlc.temp 8 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\8.jpg $+ " | dialog -x ncl.cl }
    if ($did == 10) { `t.i.f nicklist %nlc.temp 9 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\9.jpg $+ " | dialog -x ncl.cl }
    if ($did == 11) { `t.i.f nicklist %nlc.temp 10 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\10.jpg $+ " | dialog -x ncl.cl }
    if ($did == 12) { `t.i.f nicklist %nlc.temp 11 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\11.jpg $+ " | dialog -x ncl.cl }
    if ($did == 13) { `t.i.f nicklist %nlc.temp 12 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\12.jpg $+ " | dialog -x ncl.cl }
    if ($did == 14) { `t.i.f nicklist %nlc.temp 13 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\13.jpg $+ " | dialog -x ncl.cl }
    if ($did == 15) { `t.i.f nicklist %nlc.temp 14 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\14.jpg $+ " | dialog -x ncl.cl }
    if ($did == 16) { `t.i.f nicklist %nlc.temp 15 | did -g warna.nl %nlc.temp.id " $+ $scriptdiricons\15.jpg $+ " | dialog -x ncl.cl }
  }