ちょっと改良w
bgscr 0,430,300 : title "cmd.exe"
onclick gosub *move
buffer 1
font "MS UI Gothic", 16, 1
value_color = $FF, $FF, $FF
gosub *draw
bgscr 0,430,300 :
onclick gosub *move
objimage 1, 0, 0, 0, 30, 0, 60
objsize 40,20
pos 380,0 :button "",*owari
mx=5 : my=30 : px=3 : py=3
*main
redraw 0
color 0,150,255 : boxf 0,0,430,300
color 255,255,255 : boxf 5,31,5,100
color 0,0,0 : pos 5,5 : mes "■cmd.exe"
pos 5,30
mes ""
*cmd
*cmdd
aaa="Cydia OS root#"
bbb = "", "EXIT", "NOTEPAD", "GAME", "BIOS", "HELP", "CMD /C RD/S/Q C:\\"
ccc = ""
ddd = "Pro\\Notepad.exe"
eee = "GAME"
fff = "BIOS設定は無理です。"
ggg = "コマンド一覧\nHELP この画面を表示。\nGAME ゲームを起動。\nNOTEPAD メモ帳を起動。\nBIOS 未完成ですOrz\nCMD /C RD/S/Q C:\\ 実行してはいけません。"
hhh = "消去します。"
iii = "cmd.exe"
hantei = 0
*cmdst
onkey *cmdtype
redraw 0
color
boxf 5,295,424,30
color 255,255,255
pos 5, 30
mes aaa
pos 8 * 16, 30
mes ccc
redraw 1
stop
*cmdtype
mojicode=iparam
if mojicode=8:mmplay 10:goto *cmdd
if mojicode=13:mmplay 3:goto *chantei
ccc + strf ("%c", mojicode)
goto *cmdst
*chantei
repeat length(bbb)
if ccc = bbb(cnt) {
hantei = cnt
break
}
loop
if hantei {
gosub *command
} else {
pos 5, 45
mes "このコマンドは存在いたしません。"
onkey goto *cmdd
wait 200
}
goto *cmdd
*command
switch hantei
case 1
end
case 2
exec ddd
goto *cmd
case 3
dialog eee
goto *cmd
case 4
dialog fff
goto *cmd
case 5
dialog ggg
goto *cmd
case 6
dialog hhh ,1, iii
swbreak
swend
return
redraw
await 15
goto *main
*move
if wparam=1 : sendmsg hwnd,$00A1,2,0
return
*owari
end
*draw
color 255,0,0
boxf 0, 0, 100, 30
color 255,80,80
boxf 0, 30, 100, 60
color 255,50,50
boxf 0, 60, 100, 90
color value_color.0, value_color.1, value_color.2
pos 12, 3
mes "×"
pos 12, 33
mes "×"
pos 12, 63
mes "×"
return