Program post site for everyone
与作を操作して左右から迫るイノシシの突進にぶつからないように倒してください
←→で移動
↑ でジャンプ
スペースで斧を出します。
斧はしばらく押していないと出ないので
足の速いイノシシは間に合わないのでジャンプで逃げてください。
何匹しとめられるかな？
10 'YOSAKU 20 CLS:CLV:FORI=1TO5:LC5,I:?"H H":NEXT 30 X=8:Y=6:P=16:V=1 40 @CALC 50 K=INKEY() 60 IFK=28ANDXLCX,Y-(B>0):?" ";:X=X-1:V=-1 70 IFK=29ANDX<15LCX,Y-(B>0):?" ";:X=X+1:V=1 80 IFBTN(32)IFA=0D=D+1 90 IFD>15A=6:D=0 100 IFAA=A-1:C=VPEEK(X+V,Y):IFC=112ORC=113:R=16:BEEP:S=S+1:LC0,0:?"SCORE ";S 110 IFA<1LCX+V,Y:?" "; 120 @JP 130 IFBTN(30)ANDB<1E=E+1 140 IFE>8B=15:E=0:LCX,Y:?" "; 150 IFBB=B-1:IFB<1:LCX,Y-1:?" "; 160 @INO 170 IFP>15ORP<0Q=RND(100):IFQ<2P=Q*15:R=1-Q*2:T=RND(7)+3:Q=T 180 IFQQ=Q-1 190 IFQ<1IFP<16ANDP>-1:LCP,Y:?" ";:P=P+R:Q=T 200 IFVPEEK(P,Y)=61:BEEP2,40:LC4,4:?"GAME OVER":END 210 @PR 220 LCX,Y-(B>0):?"="; 230 IFAIFXANDX<15LCX+V,Y:?"-"; 240 IFP>-1ANDP<16LCP,Y:?CHR$(112+(R+1)/2); 250 GOTO@CALC
