たまに飛んでくるUFOを上キーでジャンプしてよけ、
下に家があったらスペースキーでプレゼントを落としましょう。

ジャンプは、放物線を使ってリアルに表現しています。
プレゼントが、屋根に落ちたら1ポイント入ります。
プレゼントを何もないところに落とす、または横からUFOに当たるとゲームオーバーになります。
上からつぶすのはセーフです。

サンタは、POKEを5文字分使って作っています。


赤小文字はAlt + アルファベット、数字
赤大文字はAlt + Shift + アルファベット
で入力してください。
隠し文字の分からないところは写真を参考にしてください。

プログラム

1 POKE #700,#C0,#60,#70,#F8,#70,#70,#E6,#F8:POKE #708,#70,#70,#FE,#48,#49,#4A,#FC,#00:POKE #710,#82,#24,#0E,#3F,#64,#A4,#24,#00:POKE #718,#00,#00,#00,#00,#00,#0E,#1F,#3F
2 POKE #720,#3F,#7F,#7E,#3E,#1C,#00,#00,#00
10 CLS:CLV:X=31:Y=11:V=-4:R=0:N=8:L=0:M=0:U=0
30 WAIT 5:IF R=1 LCN,B:?" "
35 SCROLL3:LCX-1,22:?"H"
40 LC7,Y-1:?" 30":LC7,Y:?" 412":LC0,0:?" P:";U:IF R=1 LCN,B:?" ":B=B+1:LCN,B:?"m"
41 IF (SCR(N,B+1)=157)+(SCR(N+1,B+1)=157)+(SCR(N,B+1)=72)+(SCR(N+1,B+1)=72)+(SCR(N+1,B+1)=95) U=U+1:R=0
45 IF B>20 LC0,5:END
50 K=INKEY():IF K=30 LC8,Y-1:?"  ":LC8,Y:?"   ":L=1
60 IF K=32 R=1
65 IF R=0 B=Y
67 IF (SCR(11,Y)=241)+(SCR(10,Y+1)=241)+(SCR(9,Y+1)=241)+(SCR(8,Y+1)=241) END
70 M=M+1:IF M=20 M=0:LCX-3,15:?"_":LCX-4,16:?"T SH":LCX-5,17:?"T   S":LCX-6,18:?"T     S":LCX-5,19:?"I   I":LCX-5,20:?"I   I":LCX-5,21:?"I   I":LCX-5,22:?"MHHHM"
75 IF RND(15)=0 LCX-1,11:?"h"
90 IF L=1 LC8,Y-1:?"  ":LC8,Y:?"   ":Y=Y+V:V=V+1:IF V=5 V=-4:L=0
200 GOTO 30
 

関連する記事
コメント
コメントする