Program post site for everyone
魔術師の叫根Mandrake畑 引き抜くと叫び声を上げて聞いたものを即死させるという。叫根畑に土竜Doryuが進入した。土の中を掘り進み叫根を下から食い荒らす。土竜に喰われた叫根も土の上は見分けが付かない。退治するには雷の呪文で叫根ごと吹き飛ばすしかない。呪文で攻撃したところには土竜が侵入しないのがせめてもの救いだ。土竜の場所を予測して呪文をぶち込め！
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
なるほど、できるだけMandrakeの被害を少なくして、Doryuを探しだすわけですね。説明文から見る限り、1ターンごとにDoryuが移動しているのでしょうか。Doryuの位置のヒントがあると、もっと面白くなりそうです！
