sample\game\doukutu.hsp » Plain Format
; 洞窟探検ゲーム ; ; 顔(face.bmp)キャラクターを操って洞窟を進んでください。 ; スペースキーを押している間は、上に行こうとします。 ; スペースキーを離している間は、下に行こうとします。 ; 慣性がついているので、程よくキーを押してください。 ; だんだん洞窟が狭くなるので注意。 ; face=1 celload "face.bmp",face celdiv face,64,64,32,32 ; パーツのサイズと中心位置 *start cls 4 scr=0 wxs=640 wys=480 gys=320 gy=(wys-gys)/2 spd=8 px=100 py=240 dy=0 bom=0 *main ; キャラクターにぶつかったか調べる a=0 pget px+32,py-32 a=a+ginfo_g pget px+32,py+32 a=a+ginfo_g pget px+64,py a=a+ginfo_g if a>0 : goto *dead redraw 0 ; 洞窟を描画 color 0,192,0 boxf wxs-spd,0,wxs,wys color 0,0,0 boxf wxs-spd,gy,wxs,gy+gys pos 0,0 gmode 0,wxs-spd,wys gcopy 0,spd,0 scr=scr+1 title "点数="+scr gys=320-(scr/30) if gys<100 :gys=100 if scr<60 : goto *mymove dy=dy+1 if dy>16 : dy=16 stick ky,16 if ky=16 : dy=dy-3 py=py+(dy/2) *mymove gmode 2,64,64 pos px,py celput face if cn<1 :cn=rnd(16) :cn=cn+3 :ry=rnd(17) :ry=ry-8 cn=cn-1 gy+=ry if gy+gys>448 : gy=448-gys if gy<32 : gy=32 redraw 1 await 24 goto *main *dead ; ぶつかった font msgothic,60 pos 160,200 color 255,255,255 mes "いてーーー!" *keymati stick ky if ky&32 : goto *start wait 10 goto *keymati