infinity's world
http://w.atwiki.jp/wiki7_infinity/
infinity's worldja2006-08-25T19:53:45+09:001156503225top
https://w.atwiki.jp/wiki7_infinity/pages/2.html
<p>//Produced by Rei in 2006.8<br>
//HSPversion3.0</p>
<p>#packopt name "CAVE ADVENTURE"</p>
<p>title "CAVE ADVENTURE"<br>
randomize<br>
screen 0,480,360</p>
<p><br>
/*TITLE*/<br>
*GAMETITLE<br>
cls 4<br>
MOJI="msgothic"<br>
NAME="CAVE ADVENTURE"<br>
<br>
font MOJI,40,1<br>
color 125,125,125<br>
pos 70,105<br>
mes NAME<br>
color 255,255,0<br>
pos 65,100<br>
mes NAME<br>
font MOJI,18,1<br>
color 0,255,0<br>
pos 160,180<br>
mes "SPACE KEY : START"<br>
mes "ENTER KEY : HELP"<br>
; mes "CTRL KEY : RANKING"<br>
mes "ESC KEY : END"<br>
color 0,255,255<br>
pos 180,260<br>
mes "HI SCORE : "+HISC<br>
<br>
repeat<br>
wait 1<br>
stick KEY<br>
if KEY&16 :goto *GAMEBUFFER<br>
if KEY&32 :goto *GAMEHELP<br>
; if KEY&64 :goto *GAMERANK<br>
if KEY&128 :end<br>
loop</p>
<p><br>
/*HELP*/<br>
*GAMEHELP<br>
cls 4<br>
font MOJI,40,1<br>
color 255,255,0<br>
pos 200,20<br>
mes "HELP"<br>
font MOJI,18,1<br>
pos 20,80<br>
color 0,255,255<br>
mes "操作説明"<br>
color 0,255,0<br>
pos 30,130<br>
mes 2006-08-25T19:53:45+09:001156503225