rendered paste bodymenu 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, ,$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 }
}