上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
- ▲
- --------
- スポンサー広告
- トラックバック : -
- http://sakemasu.blog.2nt.com/tb.php/84-f71750df
-件のトラックバック
みなさんこんにちは。
もう少し備品を整えれば物置で仕事再開できそうなサケマスです。
今朝ちこっとプチコンでゲームを作ったので、せっかくなので公開します。
当然ながらしょぼい内容ですけどね!
――――――――――――――――――――――――――――――――
CLS:CLEAR:DIM MAP$(23)
VISIBLE 1,1,0,0,0,0
LOCATE 12,11:PRINT "CAVE GAME"
@TITLE
BT=BUTTON()
IF BT<1 OR BT>128 THEN @TITLE
@START
FOR F=0 TO 22
MAP$(F)="■■■■■■■■■■"
MAP$(F)=MAP$(F)+" "
MAP$(F)=MAP$(F)+"■■■■■■■■■■"
NEXT F
X=15:SC=0:N=0:RW=10:RX=9
@MAIN1
IF SC>99999 THEN SC=99999
SC=SC+1:SC$=STR$(SC):SK=LEN(SC$)
FOR F=0 TO 5-SK
SC$="0"+SC$:NEXT F
IF SC/150>N+1 AND N<5 THEN N=N+1
MAP$(0)="":RX=RX+(RND(3)-1)
IF RX<0 THEN RX=RX+2
IF RX+RW>28 THEN RX=RX-2
FOR F=0 TO 29
IF F<=RX OR F>RX+RW-N THEN @MAIN2
MAP$(0)=MAP$(0)+" ":GOTO @MAIN3
@MAIN2
MAP$(0)=MAP$(0)+"■"
@MAIN3
NEXT F
BT=BUTTON()
X=X-(BT AND 4)/4+(BT AND 8)/8
FOR F=22 TO 1 STEP -1
MAP$(F)=MAP$(F-1)
LOCATE 1,F:PRINT MAP$(F)
NEXT F
LOCATE 10,0:PRINT "SCORE ";SC$
LOCATE X,21:PRINT "A"
VSYNC 2
AT$=MID$(MAP$(21),X-1,1)
IF AT$==" " THEN @MAIN1
LOCATE 12,11:PRINT "GAME OVER"
@WAIT
IF BUTTON()>15 THEN @START
GOTO @WAIT
――――――――――――――――――――――――――――――――
10行目のスペースは10個です。
37行目のPRINT文の"A"はお好みの宇宙船のグラフィックにしてください。
遊び方
謎の洞窟惑星に突入せよ!君はどこまで進むことが出来るか!?
壁にぶつからないように左右のパッドで宇宙船を操作してください。
先にも書きましたように、そろそろ仕事再開も考えないといけないので
とりあえずプチコンはしばらく休止になるかな。
でもちこっといじるだけで何か作れるので
ネタが浮かんだら気分転換で何か作るかも知れません。
ではでは、またです~。
- http://sakemasu.blog.2nt.com/tb.php/84-f71750df
0件のトラックバック
コメントの投稿