#include "hspext.as"
title "DAEMON 簡単ツール"
listb=0
sdim fil,1000
sdim exep,1000
ns=0
*res
cls
color 239,236,223
boxf 0,0,300,180
objmode 1,1
sysfont 17
objsize 64,20,30
pos 10,15
color 0,0,0
mes "デバイス:"
mes "イメージ:"
pos 10,100
objsize 120,20,30
button "設定",optn
button "DAEMON 起動",exs
pos 80,10
objsize 64,20,30
combox listb,100,"0\n1\n2\n3"
input fil,200,20
pos 210,10
objsize 70,20,30
button "アンマウント",umt
mes ""
button "参照",fs
button "マウント",mt
button "キャンセル",en

regkey 0,"Software\\Repysside\\dae",0
if stat!=0 :ns=1:goto optn
getreg exep,"exepath",1

gsel 0,1
stop
*fs
dialog "*",16
if stat=1 :fil=refstr
goto res
stop
*mt
exec "\""+exep+"\" -mount "+listb+",\""+fil+"\""
end
*umt
exec "\""+exep+"\" -unmount "+listb
end
*exs
exec "\""+exep+"\""
end
*en
end

*optn
screen 2,400,70,4
sdim fil2,1000
*opre
cls
color 239,236,223
boxf 0,0,420,180
objmode 1,1
sysfont 17
color 0,0,0

title "DAEMON 簡単ツール daemon.exe設定"
gsel 2,2
pos 10,15
mes "daemon.exeのパス:"
pos 110,10
input fil2,200,20
pos 320,10
objsize 70,20,30
button "参照",fs2
button "キャンセル",open
pos 240,40
button "OK",optok
stop
*optok
if fil2="" :stop
regkey 0,"Software\\Repysside\\dae",1
setreg fil2,"exepath",1
gsel 2,-1
gsel 0,0
goto res
*fs2
dialog "exe",16
if stat=1 :fil2=refstr
goto opre
stop
*open
gsel 2,-1
gsel 0,0
if ns=1 :end
goto res