Program post site for everyone
地下のモンスターをお守りで退治するアクションゲームです。
プレイヤーは穴を掘りながら移動できます。モンスターが移動してくるところを狙ってお守りを置いてください。モンスターはお守りに触れると消え去ります。
モンスターが集まりやすい形に穴を掘ってお守りで一網打尽にしましょう。
お守りは３つ使うことができます。また、お守りを回収してほかの場所に置くこともできます。
モンスターは行き止まり等になると足元に穴を掘り始めます。
また、モンスターは足場がないところでは落ちてきますので注意してください。モンスターが最下層に到達すると大爆発します。
すべてのモンスターをやっつけるとステージクリアです。５ステージをクリアするとゲームクリアになります。
プレイヤーがモンスターに当たったり、モンスターの爆発に巻き込まれるとゲームオーバーです。再ゲームはエンターキーです。
操作は、カーソルキーで移動。スペースキーを押しながら移動するとお守りを置くことができます。
電子工作マガジン WINTER 2020に掲載いただいた拙作「10枚のおふだ」に手を加えたものです。
遊んでもらえるとうれしいです。
10 'Tlsmn 20 CLS:CLV:F=#E6:G=#ED:H=#F9 30 L=L+1:E=L*10:U=3:X=15:Y=20:POKE#920,6:COPY#921,#920,703 40 FORI=0TO101:POKE#921+RND(29)+RND(19)*32,0,0:[I]=0:BEEP110-I:NEXT 50 LC9:IF L>5 ?"CLEAR!":GOTO30 60 ?"Tailsmans Lv";L:WAIT30 70 WAIT3:COPY#8CF,#8CB,-E*4 80 IF !A A=#921+RND(30) 90 W=PEEK(A+32):POKEA,0:BEEPA/32-68+W*5:IF W%H=0 OR W=F GOTO130 100 IF !B*(W<7) POKEA+32,(W+1)%5 110 W=PEEK(A+B):IF W%H=0 OR W=F A=A+B ELSE B=-B*!!RND(7-L) 120 GOTO160 130 A=A+32:B=A%2*2-1 140 IF A>3039 V=#F4:GSB230:IF SCR(X,Y)=V GOTO220 ELSE V=0:GSB230:A=0 150 W=PEEK(A+32):IF (W%H=0 OR W=F)*!PEEK(A) POKEA,G:WAIT3:GOTO80 160 LET[102-E*2],A,B:P=PEEK(A):POKEA,G:IF P=H GOTO220 170 IF P=F BEEP3,99:E=E-1:POKEA,F:WAIT7:IF !E WAIT200:GOTO30 180 K=INKEY():CLK:M=(K=29)*(X<30)-(K=28)*(X>1):N=(K=31)*(Y<22)-(K=30)*(Y>2) 190 IF SCR(X+M,Y+N)=F U=U+1 200 T=BTN(32)*!!(M+N)*F*(U>0):U=U-!!T:LCX,Y:?CHR$(T); 210 X=X+M:Y=Y+N:LCX,Y:IF SCR()<>G ?CHR$(H);:GOTO70 220 WAIT99:BEEP200,60:LC11,10:INPUT"GAME OVER",K:RUN 230 FORI=1TO22:POKEA-1-I*32,V,V,V:BEEPI:NEXT:RTN
