Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/12/31 09:19:00

MixJuice GET URL : kidspod.club/mj/723

SUPER MARI0

何かキーを押して始めます。
ゲーム中は何かキーを押してジャンプします。
Tはジャンプして、_はジャンプしないで通ってください。
Pを通るとスピードアップします。
ある程度続くとゲームクリアです。
ゲームクリア/ゲームオーバーの画面になったら何かキーを押してホームに戻ります。
エスケープキーで終了です。

タイトルはスーパーマリオのパクリです(内容は全然ちがう)。

結構初期段階に作ったので無駄な部分もあり、1024byte中960byteと改造の余地はほぼないのですが、結構楽しめます。

変数表(アルファベット順)

A,B:スクロール用の変数
E:障害物のY座標
I:カウンター
O:プレイヤーの1コマ前のY座標
S:スコア
W:待つ秒数
X,Y:プレイヤーのX座標とY座標

SOURCE CODE

1 REM SUPER MARI0#PCG1
5 CLS:PRINT "  Ichgojam GAME SUPER MARI0"
6 IF NOT INKEY() THEN GOTO6
10 X=20:Y=10:E=11:S=0:W=12
20 CLS:CLT
30 LOCATE X,Y:PRINT"(#FB)":LOCATE1,E:PRINT"   _T _TT _T_T __TTP  _  T _T _"
40 O=Y:IF INKEY() THEN Y=8:BEEP:LED1 ELSE Y=10:LED0
45 LOCATE X,O:PRINT" ":LOCATE X,Y:PRINT"(#FB)"
49 REM
50 WAIT W
55 A=SCR(1,E)
60 FOR I=31 TO 2 STEP -1
70   B=A:A=SCR(I,E)
80   LOCATE I,E:PRINT CHR$(B)
90 NEXT
95 LOCATE 31,E:PRINT CHR$(A)
100 IF Y=10 AND SCR(X,E)=ASC("T") THEN GOTO999
110 IF Y=8 AND SCR(X,E)=ASC("T") THEN S=S+1
120 LOCATE1,1:PRINT"SCORE:";S;"pt TIME:";TICK()/60;"sec"
130 IF Y=10 AND SCR(X,E)=ASC("_") THEN S=S+1
140 IF Y=8 AND SCR(X,E)=ASC("_") THEN GOTO999
150 IF SCR(X,E)=ASC("P") THEN W=W-2
160 IF W=2 THEN GOTO1000
170 GOTO40
200 IF INKEY() GOTO5 ELSE GOTO200
999 CLS:PRINT"GAME OVER ";"SCORE:";S;"pt TIME:";TICK()/60;"sec":LED1:BEEP:WAIT15:LED0:GOTO200
1000 CLS:PRINT"GAME CLEAR ";"SCORE:";S;"pt TIME:";TICK()/60;"sec":LED1:BEEP:WAIT15:LED0:GOTO200

COMMENT