瑪瑙姫の引退に関して - irisagate @Wiki

オシャレダンスパーティー

コピ↓

#include "hspext.as"
#include "dtmc2.as"
now="OFF"
gosub *win
stop

*pon1
now="ON 1"
gosub *win
*main1
stick key,0,0
if key&256 {
gosub *check
goto *jikko1
}
if key&128 : goto *poff
await 0
goto *main1

*pon2
now="ON 2"
gosub *win
*main2
stick key,0,0
if key&256 {
gosub *check
goto *jikko2
}
if key&128 : goto *poff
await 0
goto *main2

*pon3
now="ON 3"
gosub *win
*main3
stick key,0,0
if key&256 {
gosub *check
wait 200
goto *jikko3
}
if key&128 : goto *poff
await 0
goto *main3

*check
getkey key,1
if key=1 : goto *check
return

*jikko1
aplobj "EDIT"
aplstr "/1"
aplkey 13,0
goto *main1

*jikko2
stick key,0,0
aplobj "EDIT"
aplstr "/1"
aplkey 13,0
await 0
if key&128 : goto *poff
DTLeftClick 0
goto *jikko2

*jikko3
stick key,0,0
DTLeftPress
gosub *esc
mouse 500,400
gosub *esc
DTLeftRelease
gosub *esc
aplobj "EDIT"
aplstr "/1"
aplkey 13,0
gosub *esc
mouse 760,434
goto *jikko3

*esc
wait 5
if key&128 : goto *poff
return

*poff
now="OFF"
gosub *win
stop

*win
screen 0,200,160
title "（n'∀')ηｵｷﾀﾜｧ"
objsize 200,24
button "ON(one)",*pon1
button "ON(full)",*pon2
button "ON(item)",*pon3
button "OFF",*poff
button "END",*owari
print "現在の状態："+now
objsize 64,18
aplsel "ROSE online"
if stat=1 : print "ROSEを起動してください。" : else : print refstr+" 起動中です。"
pos 136,120
button gosub "更新",*win
return

*owari
end

コピ↑