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

2022/12/30 22:33:35

MixJuice GET URL : kidspod.club/mj/2156

宇宙人vsロケット

弱点丸出しの宇宙人をミサイル1発で倒してください。
失敗すると最悪な目に遭います。
スペースキーで攻撃です。

  • 1
  • 2
  • 3
  • 1
  • 2
  • 3

SOURCE CODE

10 CLV:CLS:B=4:C=13:I=1
20 FORA=0TO31:LCA,0:?CHR$(1):LCA,21:?CHR$(1):NEXT
30 LC0,B:?CHR$(0,0,0,0,152,145,153,0,0,0,4)
40 LC0,B+1:?CHR$(0,0,0,0,146,64,146,0,0,0,4)
50 LC0,B+2:?CHR$(0,0,0,151,154,145,155,151,0,0,4)
60 LC0,B+3:?CHR$(0,0,152,155,0,146,0,154,153,0,4)
70 LC0,B+4:?CHR$(0,152,155,0,0,146,0,0,154,153,4)
80 LC0,B+5:?CHR$(0,0,0,0,157,0,156,0,0,0,0)
90 LC0,B-1:?CHR$(0,0,0,0,0,0,0,0,0,0,0)
95 LC0,B+6:?CHR$(0,0,0,0,0,0,0,0,0,0,0)
100 B=B+I
150 IFB>13I=-1
160 IFB<4I=1
170 LC31,C:?CHR$(240);:WAIT3
180 IFBTN(32)GSB@BIMU
181 D=C:LC31,D:?CHR$(0);:WAIT3
190 IFINKEY()=31C=C+1
200 IFINKEY()=30C=C-1
210 IFQIFSCR(10,C)=4GSB@HITELSEIFSCR(10,C)=0GOTO@NOHIT
10000 GOTO30
10001 @BIMU:FORA=30TO10STEP-1:LCA,C:?CHR$(126):NEXT:Q=1
10002 RTN
10003 @HIT:FORE=0TO10:FORF=B-1TOB+6:LCE,F:?CHR$(244):NEXT:NEXT:END
10004 @NOHIT:FORE=11TO31:FORF=0TO21:LCE,F:?CHR$(232):NEXT:NEXT:VIDEO2:WAIT5:VIDEO1:WAIT5:VIDEO2:WAIT5:VIDEO1:WAIT5:VIDEO2:WAIT5:VIDEO1:LC11,11:?"GAME OVER":END

COMMENT

Kidspod運営チーム
Kidspod運営チーム2023/01/06 17:49:46

おお、以前に作っていた「人」ですね。ホントに敵として出てくると強そうだし、失敗したときにヒドイ目にあわされました。それにしても、敵からの攻撃の演出、カッコいいですね。