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

2018/09/28 21:29:23

MixJuice GET URL : kidspod.club/mj/636

HATAKE 畑を守れ

魔術師の叫根Mandrake畑 引き抜くと叫び声を上げて聞いたものを即死させるという。叫根畑に土竜Doryuが進入した。土の中を掘り進み叫根を下から食い荒らす。土竜に喰われた叫根も土の上は見分けが付かない。退治するには雷の呪文で叫根ごと吹き飛ばすしかない。呪文で攻撃したところには土竜が侵入しないのがせめてもの救いだ。土竜の場所を予測して呪文をぶち込め!

SOURCE CODE

10 'HATAKE
20 CLS:SRNDTICK():CLP
30 POKE#748,#00,#52,#4A,#34,#7E,#7E,#7E,#FF
40 POKE#790,#0C,#18,#30,#7C,#3E,#0C,#18,#39
50 POKE#760,#00,#52,#4A,#34,#7E,#7E,#7E,#FF
60 POKE#768,#00,#3C,#7E,#DB,#E6,#DB,#BD,#7E
70 ?" 12345X"
80 FORI=1TO5
90 ?I;:FORX=1TO5:?CHR$(#E9);:NEXT:?
100 NEXT
110 ?"Y"
120 A=RND(5)+1:B=RND(5)+1
130 LCA,B:?CHR$(#EC);
140 GOTO@SKIP
150 @LOOP
160 C=RND(4)
170 IFC=0D=A+1:E=B
180 IFC=1D=A-1:E=B
190 IFC=2D=A:E=B+1
200 IFC=3D=A:E=B-1
210 F=SCR(D,E)
220 IFF=233ORF=236A=D:B=E
230 LCA,B:?CHR$(#EC)
240 @SKIP
250 LC0,8:?CHR$(#18);:INPUT"X:",X
260 LC0,9:?CHR$(#18);:INPUT"Y:",Y
270 LC0,8:?CHR$(#18);"X:"
280 LC0,9:?CHR$(#18);"Y:"
290 IFA=XANDB=YGOTO@HIT
300 LCX,Y:?CHR$(#F2)
310 GOTO@LOOP
320 @HIT
330 LCX,Y:?CHR$(#ED)
340 POKE#760,#00,#00,#00,#00,#00,#00,#00,#00
350 POKE#790,#00,#00,#00,#00,#00,#00,#00,#00
360 LC0,8:?"HIT!"
370 END

COMMENT