Program post site for everyone
与作を操作して左右から迫るイノシシの突進にぶつからないように倒してください
←→で移動
↑ でジャンプ
スペースで斧を出します。
斧はしばらく押していないと出ないので
足の速いイノシシは間に合わないのでジャンプで逃げてください。
何匹しとめられるかな？
ゲームオーバーで画面が止まったら↓キーでｉｃｈｉｇｏｊａｍ画面にもどります。
10 'YOSAKU 20 UART1:CLV:O=128:?"PC RESET":?"PC VIDEO 1":VIDEO0:?"PC SPRITE START 03" 25 FORI=0TO1:?CHR$(O,6,8,I,I*7,0):?CHR$(O,5,7,I,#A6):NEXT 30 X=10:Y=6:P=20:V=1 40 @CALC 50 K=INKEY() 60 IFK=28ANDXX=X-1:V=-1 70 IFK=29ANDX<19X=X+1:V=1 80 IFBTN(32)IFA=0D=D+1 90 IFD>15A=6:D=0 100 IFAA=A-1:IFX+V=PANDB=0P=20:BEEP:S=S+1:?CHR$(O,5,7,0,#A6+S/10):?CHR$(O,5,7,1,#A6+S%10):?CHR$(O,5,7,4,#FF) 110 IF A<1?CHR$(O,5,7,3,#FF) 120 @JP 130 IFBTN(30)ANDB<1E=E+1 140 IFE>8B=15:E=0 150 IFBB=B-1 160 @INO 170 IFP>19ORP<0Q=RND(100):IFQ<2P=Q*19:R=1-Q*2:T=RND(7)+3:Q=TELSE?CHR$(O,5,7,4,#FF) 180 IFQQ=Q-1 190 IFQ<1IFP<20ANDP>-1:P=P+R:Q=T 200 IFP=XANDB=0PLAY"T600CRCR2CRE1":ELSEGOTO@PR 205 @GOV 207 IFBTN(DOWN)VIDEO1:?"PC VIDEO 0":ENDELSEGOTO@GOV 210 @PR 220 ?CHR$(O,6,8,2,X*4,(Y-(B>0))*6):?CHR$(O,5,16,2,(V=-1)):?CHR$(O,5,7,2,#04) 230 IFAIFXANDX<19?CHR$(O,6,8,3,(X+V)*4,(Y-(B>0))*6):?CHR$(O,5,16,3,(V=-1)):?CHR$(O,5,7,3,#34) 240 IFP>-1ANDP<20?CHR$(O,6,8,4,P*4,Y*6):?CHR$(O,5,16,4,(R=-1)):?CHR$(O,5,7,4,#25) 250 GOTO@CALC
