//Produced by Rei in 2006.8
//HSPversion3.0
#packopt name "CAVE ADVENTURE"
title "CAVE ADVENTURE"
randomize
screen 0,480,360
/*TITLE*/
*GAMETITLE
cls 4
MOJI="msgothic"
NAME="CAVE ADVENTURE"
font MOJI,40,1
color 125,125,125
pos 70,105
mes NAME
color 255,255,0
pos 65,100
mes NAME
font MOJI,18,1
color 0,255,0
pos 160,180
mes "SPACE KEY : START"
mes "ENTER KEY : HELP"
; mes "CTRL KEY : RANKING"
mes "ESC KEY : END"
color 0,255,255
pos 180,260
mes "HI SCORE : "+HISC
repeat
wait 1
stick KEY
if KEY&16 :goto *GAMEBUFFER
if KEY&32 :goto *GAMEHELP
; if KEY&64 :goto *GAMERANK
if KEY&128 :end
loop
/*HELP*/
*GAMEHELP
cls 4
font MOJI,40,1
color 255,255,0
pos 200,20
mes "HELP"
font MOJI,18,1
pos 20,80
color 0,255,255
mes "操作説明"
color 0,255,0
pos 30,130
mes "SPACE KEY を押すと自キャラ上昇、離すと下降"
pos 30,190
mes "SCOREが500上昇するごとにLEVELが1上昇\n＆難易度UP"
pos 30,250
mes "緑の壁にあたるとGAME OVER"
color 255,0,255
pos 160,300
mes "SPACE KEY : START"
mes "ENTER KEY : TITLE"
repeat
wait 1
stick KEY
if KEY&16 :goto *GAMEBUFFER
if KEY&32 :goto *GAMETITLE
loop
/*MAIN*/
*GAMEBUFFER
color 128,64,64
boxf 0,0,480,360
color 0,255,0
boxf 0,0,480,100
boxf 0,300,480,360
UPWALL=100
SPACE=200
MY=180
SPEED=0.0
SC=0
*GAMEMAIN
LV=SC/500+1
if LV>18 :LV=18
//上壁作成
color 128,64,64
boxf 477,0,480,360
color 0,255,0
R=rnd(LV*2+1)-LV
UPWALL=UPWALL+R
if UPWALL<10 :UPWALL=10
if UPWALL>250 :UPWALL=250
boxf 477,0,479,UPWALL
//隙間作成
R=rnd(LV*2+1)-LV
SPACE=SPACE+R
if SPACE<100 :SPACE=100
if SPACE>200 :SPACE=200
//下壁作成
boxf 477,UPWALL+SPACE,479,359
//当たり判定
pget 281,MY+1
if ginfo_r!128 :goto *GAMEOVER
//自キャラ移動
color 128,0,255
boxf 280,MY,282,MY+2
stick KEY,16
if KEY&16 :SPEED=SPEED-0.25 :else :SPEED=SPEED+0.25
if SPEED>3.0 :SPEED=3.0
if SPEED<-3.0 :SPEED=-3.0
MY=MY+int(SPEED)
//コピー
pos 0,0
gcopy 0,3,0,477,360
//スコア表示
SC=SC+1
color 128,0,255
boxf 0,0,300,16
pos 70,0
color 255,255,255
mes "LEVEL : " + LV + " / " + "SCORE : " +SC
wait 1
goto *GAMEMAIN
/*GAMEOVER*/
*GAMEOVER
wait 50
font MOJI,40,1
color 255,255,0
pos 130,150
mes "GAME OVER"
font MOJI,18,1
color 0,255,255
pos 190,200
mes "SCORE : "+SC
color 255,0,255
pos 160,250
mes "SPACE KEY : TITLE"
; mes "ENTER KEY : RANK"
mes "ESC KEY : END"
//ハイスコア表示
if HISC<SC {
HISC=SC
font MOJI,50,1
color 255,128,0
pos 130,70
mes "HI SCORE！"
}
sysfont
repeat
wait 1
stick KEY
if KEY&16 :goto *GAMETITLE
; if KEY&32 :goto *GAMERANK
if KEY&128 :end
loop
/*ランキング*/
*GAMERANK
; 作成中
