なかなかめずらしい、対戦形式のヘビゲームを作ってきてくれたぞ。2人で遊ぶ2Pモードはもちろん、CPUと戦う1Pモードもあるぞ。
ヘビゲームの目的はおなじみ、自分のヘビを衝突させずに伸ばし続ける事だ。1Pモードでは十字ボタンを使って青いヘビを操り、1000ポイント貯めればステージクリア。1ドット伸ばせば1ポイント、敵の赤いヘビが自分の青いヘビにぶつかればボーナス100ポイント追加だ。積極的に活用しよう。
2P対戦モードでは1P(青ヘビ)は十字ボタン、2P(赤ヘビ)はABXYボタンで操作になる。お互いどこかにぶつかってしまうとゲームセットだ。
相手をいかに追いつめて囲うか、戦略も楽しいアクションゲームだね。
およ
ヘビゲームの対戦版です。
- @GSTART
- BGMPLAY(3):P0=1:SCNT=0
- GOSUB @LOGO0
- GOSUB @PUSHANY
- GCLS:CLS
- @NSTAGE
- IF P0==1 THEN BGMPLAY(15)
- IF P0==2 THEN BGMPLAY(25)
- SCNT=SCNT+1:CNT=0
- X1=RND(205)+25:XZ1=RND(3)-1
- Y1=RND(150)+20:YZ1=0
- IF XZ1==0 THEN YZ1=RND(3)-1
- IF XZ1==0 AND YZ1==0 THEN XZ1=1
- X2=RND(205)+25:XZ2=RND(3)-1
- Y2=RND(150)+20:YZ2=0
- IF XZ2==0 THEN YZ2=RND(3)-1
- IF XZ2==0 AND YZ2==0 THEN XZ2=1
- @LOOP
- B=BUTTON()
- IF (B AND 1)==1 THEN GOSUB @P1U
- IF (B AND 2)==2 THEN GOSUB @P1D
- IF (B AND 4)==4 THEN GOSUB @P1L
- IF (B AND 8)==8 THEN GOSUB @P1R
- IF P0==1 THEN GOSUB @P2MOVE
- IF (B AND 16)==16 THEN GOSUB @P2R
- IF (B AND 32)==32 THEN GOSUB @P2D
- IF (B AND 64)==64 THEN GOSUB @P2U
- IF (B AND 128)==128 THEN GOSUB @P2L
- C1=GSPOIT(X1+XZ1,Y1+YZ1)
- C2=GSPOIT(X2+XZ2,Y2+YZ2)
- IF C1!=0 THEN @GOVER
- IF C2!=0 AND P0==2 THEN GOSUB @GOVER
- IF C2==6 THEN GOSUB @P2STOP
- IF X1+XZ1<0 OR X1+XZ1>255 THEN @GOVER
- IF Y1+YZ1<0 OR Y1+YZ1>190 THEN @GOVER
- IF X2+XZ2<0 OR X2+XZ2>255 THEN GOSUB @P2STO2
- IF Y2+YZ2<0 OR Y2+YZ2>190 THEN GOSUB @P2STO2
- X1=X1+XZ1:X2=X2+XZ2
- Y1=Y1+YZ1:Y2=Y2+YZ2
- GPSET X1,Y1,6:GPSET X2,Y2,3
- CNT=CNT+1
- LOCATE 0,0
- IF P0==1 THEN PRINT CNT
- IF P0==2 THEN PRINT ”VS MODE”
- FOR I=0 TO 1000-(SCNT*50):NEXT I
- IF CNT<=1000 THEN @LOOP
- GOSUB @LOGO4
- GOSUB @LOGO2
- BGMPLAY(3):GOSUB @PUSHANY
- GCLS:CLS
- GOTO @NSTAGE
- @P2STOP
- BEEP 5:CNT=CNT+100
- @P2STO2
- IF P0==2 THEN @GOVER
- XZ2=0:YZ2=0
- RETURN
- @P2MOVE
- KK=RND(80)
- IF XZ2==0 AND YZ2==0 THEN KK=RND(5)
- IF KK==1 THEN B=16
- IF KK==2 THEN B=32
- IF KK==3 THEN B=64
- IF KK==4 THEN B=128
- RETURN
- @GOVER
- CLS:BEEP(13)
- GOSUB @LOGO2
- GOSUB @LOGO3
- GOSUB @PUSHANY
- GOTO @GSTART
- @PUSHANY
- IF BUTTON()!=0 THEN @PUSHANY
- @PUSHAN2
- B=BUTTON()
- IF B==0 THEN @PUSHAN2
- P0=2:IF B<16 THEN P0=1
- RETURN
- @P1U
- IF YZ1!=0 THEN RETURN
- XZ1=0:YZ1=-1:RETURN
- @P1R
- IF XZ1!=0 THEN RETURN
- XZ1=1:YZ1=0:RETURN
- @P1D
- IF YZ1!=0 THEN RETURN
- XZ1=0:YZ1=1:RETURN
- @P1L
- IF XZ1!=0 THEN RETURN
- XZ1=-1:YZ1=0:RETURN
- @P2U
- IF YZ2!=0 THEN RETURN
- XZ2=0:YZ2=-1:RETURN
- @P2R
- IF XZ2!=0 THEN RETURN
- XZ2=1:YZ2=0:RETURN
- @P2D
- IF YZ2!=0 THEN RETURN
- XZ2=0:YZ2=1:RETURN
- @P2L
- IF XZ2!=0 THEN RETURN
- XZ2=-1:YZ2=0:RETURN
- @LOGO0
- GCLS:CLS
- COLOR 9
- GOSUB @LOGO1
- GOSUB @LOGO2
- PRINT ””
- PRINT ”П ...1P”
- PRINT ”АБФХ...2P(1P VS 2P)”
- PRINT ””
- PRINT ””
- PRINT ”PUSH П OR АБФХ START”
- PRINT ””
- PRINT ””
- PRINT ””
- PRINT ””
- PRINT ” 1988 キチテ゛ン”
- PRINT ” 2011 オヨ”
- COLOR 12
- LOCATE 0,12:PRINT ”АБФХ”
- LOCATE 16,12:PRINT ”2P”
- LOCATE 10,15:PRINT ”АБФХ”
- COLOR 9
- RETURN
- @LOGO1
- PRINT ”┿ ┿ ┿┿ ┿┿蒻 ┸”
- PRINT ”┿┸┿ ┿┝ ┿┝┸ ┿”
- PRINT ”┿ ┿ ┿ ┿┥蒻 ┿”
- PRINT ”┿ ┿ ┿┝ ┿┿┸ ┿”
- PRINT ””
- RETURN
- @LOGO2
- PRINT ”┝┿蒻 ┝┿蒻 蒻 ┝ ┿┿”
- PRINT ”┿ ┿ ┿ ┿蒻┝┿ ┿┝”
- PRINT ”┿ ┥ ┿┥┿ ┿┥┸┿ ┿ ”
- PRINT ”┥┿┿ ┿ ┿ ┿ ┿ ┿┝”
- PRINT ””
- RETURN
- @LOGO3
- PRINT ”┝┿蒻 ┿ ┿ ┿┿ ┿┿蒻”
- PRINT ”┿ ┿ ┿ ┿ ┿┝ ┿ ┿”
- PRINT ”┿ ┿ ┥蒻┝┸ ┿ ┿┥蒻”
- PRINT ”┥┿┸ ┥┸ ┿┝ ┿ ┥”
- PRINT ””
- RETURN
- @LOGO4
- PRINT ”蒻 ┿ ┸ ┝┿蒻 ┿┿”
- PRINT ”┿蒻┿ ┿ ┿┸ ┿┝”
- PRINT ”┿┥┿ ┿ ┿蒻┝ ┿ ”
- PRINT ”┿ ┥ ┿ ┥┿┸ ┿┝”
- PRINT ””
- RETURN