infinity's world
http://w.atwiki.jp/wiki7_infinity/
infinity's world
ja
2006-08-25T19:53:45+09:00
1156503225
-
top
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 "SPACE KEY を押すと自キャラ上昇、離すと下降"<br>
pos 30,190<br>
mes "SCOREが500上昇するごとにLEVELが1上昇\n＆難易度UP"<br>
pos 30,250<br>
mes "緑の壁にあたるとGAME OVER"<br>
color 255,0,255<br>
pos 160,300<br>
mes "SPACE KEY : START"<br>
mes "ENTER KEY : TITLE"<br>
<br>
repeat<br>
wait 1<br>
stick KEY<br>
if KEY&16 :goto *GAMEBUFFER<br>
if KEY&32 :goto *GAMETITLE<br>
loop</p>
<p><br>
/*MAIN*/<br>
*GAMEBUFFER<br>
color 128,64,64<br>
boxf 0,0,480,360<br>
color 0,255,0<br>
boxf 0,0,480,100<br>
boxf 0,300,480,360<br>
UPWALL=100<br>
SPACE=200<br>
MY=180<br>
SPEED=0.0<br>
SC=0</p>
<p>*GAMEMAIN<br>
LV=SC/500+1<br>
if LV>18 :LV=18</p>
<p>//上壁作成<br>
color 128,64,64<br>
boxf 477,0,480,360<br>
color 0,255,0<br>
R=rnd(LV*2+1)-LV<br>
UPWALL=UPWALL+R<br>
if UPWALL<10 :UPWALL=10<br>
if UPWALL>250 :UPWALL=250<br>
boxf 477,0,479,UPWALL</p>
<p>//隙間作成<br>
R=rnd(LV*2+1)-LV<br>
SPACE=SPACE+R<br>
if SPACE<100 :SPACE=100<br>
if SPACE>200 :SPACE=200</p>
<p>//下壁作成<br>
boxf 477,UPWALL+SPACE,479,359</p>
<p>//当たり判定<br>
pget 281,MY+1<br>
if ginfo_r!128 :goto *GAMEOVER</p>
<p>//自キャラ移動<br>
color 128,0,255<br>
boxf 280,MY,282,MY+2<br>
stick KEY,16<br>
if KEY&16 :SPEED=SPEED-0.25 :else :SPEED=SPEED+0.25<br>
if SPEED>3.0 :SPEED=3.0<br>
if SPEED<-3.0 :SPEED=-3.0<br>
MY=MY+int(SPEED)</p>
<p>//コピー<br>
pos 0,0<br>
gcopy 0,3,0,477,360</p>
<p>//スコア表示<br>
SC=SC+1<br>
color 128,0,255<br>
boxf 0,0,300,16<br>
pos 70,0<br>
color 255,255,255<br>
mes "LEVEL : " + LV + " / " + "SCORE : " +SC<br>
<br>
wait 1<br>
goto *GAMEMAIN</p>
<p><br>
/*GAMEOVER*/<br>
*GAMEOVER<br>
wait 50<br>
font MOJI,40,1<br>
color 255,255,0<br>
pos 130,150<br>
mes "GAME OVER"<br>
font MOJI,18,1<br>
color 0,255,255<br>
pos 190,200<br>
mes "SCORE : "+SC<br>
color 255,0,255<br>
pos 160,250<br>
mes "SPACE KEY : TITLE"<br>
; mes "ENTER KEY : RANK"<br>
mes "ESC KEY : END"<br>
//ハイスコア表示<br>
if HISC<SC {<br>
HISC=SC<br>
font MOJI,50,1<br>
color 255,128,0<br>
pos 130,70<br>
mes "HI SCORE！"<br>
}<br>
sysfont</p>
<p>repeat<br>
wait 1<br>
stick KEY<br>
if KEY&16 :goto *GAMETITLE<br>
; if KEY&32 :goto *GAMERANK<br>
if KEY&128 :end<br>
loop</p>
<p><br>
/*ランキング*/<br>
*GAMERANK<br>
; 作成中</p>
2006-08-25T19:53:45+09:00
1156503225