はやぶさ2が、地球(画面右上)の引力を使って惑星、「Ryugu」(画面左下)に着陸するゲームです。
ここぞ、と思うところでスペースキーを押してタイミングを合わせます。
成功したら着陸、失敗したら宇宙人が表示されます。

プログラム ver.IchigoJamBASIC1.1.1 ※赤文字は、恒例のかな入力・隠し文字入力です。


スロット0

1 CLS:CLV:A=0
2 LC9,9:?"____"
3 LC8,10:?"/    `"
4 LC7,11:?"'      "
5 LC6,12:?"        "
6 LC6,13:?"!        |"
7 LC6,14:?"|        ;"
8 LC6,15:?"        ,"
9 LC7,16:?"¥      ,"
10 LC8,17:?".._ ."
11 LC20,3:?"8"
20 IFA=0LC19,0:?" ":LC20,0:?""
30 IFA=1LC20,0:?" ":LC21,0:?""
40 IFA=2LC21,0:?" ":LC22,1:?""
50 IFA=3LC22,1:?" ":LC23,2:?""
60 IFA=4LC23,2:?" ":LC23,3:?""
70 IFA=5LC23,3:?" ":LC23,4:?""
80 IFA=6LC23,4:?" ":LC22,5:?""
90 IFA=7LC22,5:?" ":LC21,6:?""
100 IFA=8LC21,6:?" ":LC20,6:?""
110 IFA=9LC20,6:?" ":LC19,6:?""
120 IFA=10LC19,6:?" ":LC18,5:?""
130 IFA=11LC18,5:?" ":LC17,4:?""
140 IFA=12LC17,4:?" ":LC17,3:?""
150 IFA=13LC17,3:?" ":LC17,2:?""
160 IFA=14LC17,2:?" ":LC18,1:?""
170 IFA=15LC18,1:?" ":LC19,0:?""
171 IFINKEY()=32LRUN1
180 BEEP:A=A+1:IFA<16GOTO20:ELSEA=0:GOTO20


スロット1

1 IFA=0X=20:Y=0
2 IFA=1X=21:Y=0
3 IFA=2X=22:Y=1
4 IFA=3X=23:Y=2
5 IFA=4X=23:Y=3
6 IFA=5X=23:Y=4
7 IFA=6X=22:Y=5
8 IFA=7X=21:Y=6
9 IFA=8X=20:Y=6
10 IFA=9X=19:Y=6
11 IFA=10X=18:Y=5
12 IFA=11X=17:Y=4
13 IFA=12X=17:Y=3
14 IFA=13X=17:Y=2
15 IFA=14X=18:Y=1
16 IFA=15X=19:Y=0
100 LCX,Y:?”
110 X=X+(A=0)+(A=1)+(A=2)+(A=3)+(A=4)+(A=5)-(A=7)-(A=8)-(A=9)-(A=10)-(A=11)
120 Y=Y+(A=1)+(A=2)+(A=3)+(A=4)+(A=5)+(A=6)+(A=7)-(A=9)-(A=10)-(A=11)-(A=12)-(A=13)-(A=14)-(A=15)
130 IF (X>0)*(X<30)*(Y>0)*(Y<20)*(SCR(X,Y)=0)+(SCR(X,Y)=32) BEEP6:GOTO 100
140 IF A=7 LC8,13:?”セイコウ!”:ELSE LCX,Y:?”d”:LC8,13:?”シッパイ
150 WAIT 180:LRUN1
関連する記事
コメント
コメントする