「瑪瑙姫の引退に関して」の編集履歴（バックアップ）一覧に戻る

瑪瑙姫の引退に関して - (2006/07/25 (火) 01:41:37) のソース

<p><a href=
"http://www.roseon.jp/download/streaming/fashion20050822.wmv">オシャレダンスパーティー</a></p>
<p>コピ↓</p>
<p>#include "hspext.as"<br>
#include "dtmc2.as"<br>
now="OFF"<br>
gosub *win<br>
stop</p>
<p>*pon1<br>
now="ON 1"<br>
gosub *win<br>
*main1<br>
stick key,0,0<br>
if key&amp;256 {<br>
gosub *check<br>
goto *jikko1<br>
}<br>
if key&amp;128 : goto *poff<br>
await 0<br>
goto *main1</p>
<p>*pon2<br>
now="ON 2"<br>
gosub *win<br>
*main2<br>
stick key,0,0<br>
if key&amp;256 {<br>
gosub *check<br>
goto *jikko2<br>
}<br>
if key&amp;128 : goto *poff<br>
await 0<br>
goto *main2</p>
<p>*pon3<br>
now="ON 3"<br>
gosub *win<br>
*main3<br>
stick key,0,0<br>
if key&amp;256 {<br>
gosub *check<br>
wait 200<br>
goto *jikko3<br>
}<br>
if key&amp;128 : goto *poff<br>
await 0<br>
goto *main3</p>
<p>*check<br>
getkey key,1<br>
if key=1 : goto *check<br>
return</p>
<p>*jikko1<br>
aplobj "EDIT"<br>
aplstr "/1"<br>
aplkey 13,0<br>
goto *main1</p>
<p>*jikko2<br>
stick key,0,0<br>
aplobj "EDIT"<br>
aplstr "/1"<br>
aplkey 13,0<br>
await 0<br>
if key&amp;128 : goto *poff<br>
DTLeftClick 0<br>
goto *jikko2</p>
<p>*jikko3<br>
stick key,0,0<br>
DTLeftPress<br>
gosub *esc<br>
mouse 500,400<br>
gosub *esc<br>
DTLeftRelease<br>
gosub *esc<br>
aplobj "EDIT"<br>
aplstr "/1"<br>
aplkey 13,0<br>
gosub *esc<br>
mouse 760,434<br>
goto *jikko3</p>
<p>*esc<br>
wait 5<br>
if key&amp;128 : goto *poff<br>
return</p>
<p>*poff<br>
now="OFF"<br>
gosub *win<br>
stop</p>
<p>*win<br>
screen 0,200,160<br>
title "（n'∀')ηｵｷﾀﾜｧ"<br>
objsize 200,24<br>
button "ON(one)",*pon1<br>
button "ON(full)",*pon2<br>
button "ON(item)",*pon3<br>
button "OFF",*poff<br>
button "END",*owari<br>
print "現在の状態："+now<br>
objsize 64,18<br>
aplsel "ROSE online"<br>
if stat=1 : print "ROSEを起動してください。" : else : print refstr+"
起動中です。"<br>
pos 136,120<br>
button gosub "更新",*win<br>
return</p>
<p>*owari<br>
end<br></p>
<p>コピ↑</p>