2011年05月01日投稿 / 投稿者 : 下手な人 / タグ : 投稿プログラム ゲーム レースゲーム 初代対応 移植
ベーマガ1983年8月号 熊谷 栄二さん投稿JR-100用「3D CAR RACE」の移植です。
※ プチコンmkII 専用に作り直された 3D CAR RACE Ver2.0 もあります。mkII の方はこちらをお楽しみください。
デモ画面
プレイ画面
プチコンmkII 向けの QR コードです。
- CLEAR
- VISIBLE 1,1,0,0,0,0
- CLS
- DIM V$(24)
- DIM V0$(24),V1$(24)
- DIM V2$(24),V3$(24)
- GOSUB @SETCHR
- GOTO @DEMO
- @START
- D=1:E=3:C=0:X=16
- FOR I=0 TO 23
- V0$(I)=”┯├┼├”
- V1$(I)=”┯”
- V2$(I)=”━◇◇◇◇◇◇◇◇◇◇◇◇◇◇┏”
- V3$(I)=”┯┠┯━”
- NEXT I
- FOR I=0 TO 22
- FOR J=23 TO 1 STEP −1
- V$(J)=V$(J−1)
- LOCATE 0,J:PRINT V$(J);
- NEXT J
- V$(0)=”◇┏┯├┼├┠┯━◇◇◇◇◇◇◇◇◇◇◇◇◇◇┏┯┠┠┯┠┯━◇”
- VSYNC 1
- NEXT I
- LOCATE 0,23
- PRINT ”◇┏┯├┼├┠┯━◇◇◇◇◇◇◇◇◇◇◇◇◇◇┏┯┠┠┯┠┯━◇”;
- CHRSET ”BGF0”,0,C1$
- LOCATE 0,0
- PRINT ”SCORE; HIGH; ”;
- LOCATE 18,0:PRINT H
- @MAIN
- B=BUTTON()
- X=X−(B==4)+(B==8)
- FOR I=1 TO D
- GOSUB @PRCSCRD
- NEXT I
- M0$=MID$(V2$(16),X−8,2)
- M1$=MID$(V2$(17),X−8,2)
- IF M0$!=”◇◇” GOTO @CRUSH
- IF M1$!=”◇◇” GOTO @CRUSH
- C=C+1:C1=C%E
- LOCATE 6,0:PRINT C
- IF C1==0 THEN GOSUB @PRTECARM
- IF C3==1 THEN V1$(2)=”┨”
- IF C4==5 THEN V3$(2)=”┴┴┴┷”
- C2=C%100:C3=C%6:C4=C%8
- IF (C2>=75) AND (C2<90) THEN BEEP 1
- V0$(0)=” ◇◇◇”
- IF (C2<75) OR (C2>=80) THEN V0$(0)=”┯├┼├”
- @SKP01
- GOSUB @PRCSCRDA
- IF (C2>74) AND (C2<79) THEN V0$(1)=” ◇○◇”
- VSYNC 1
- GOSUB @PRTSCR
- GOTO @MAIN
- @CRUSH
- LOCATE X,16:PRINT ”┛┫”;
- LOCATE X−1,16:PRINT ”┬┴┣┗”;
- LOCATE X−1,17:PRINT ”┗┛┓┏”;
- LOCATE X,18:PRINT ”┴┛”;
- BEEP 13:VSYNC 60
- @GOVER
- LOCATE 0,19
- PRINT ”YOUR SCORE ”;C;”POINTS!!”
- IF H>=C GOTO @GOVER0
- H=C
- PRINT ”YOUR HIGH SCORE!!”
- FOR I=0 TO 2
- BEEP 2
- VSYNC 5
- NEXT I
- @GOVER0
- LOCATE 18,0:PRINT H
- VSYNC 60
- @DEMO
- V$(23)=”◇┏┯├┼├┠┯━◇◇◇◇◇◇◇◇◇◇◇◇◇◇┏┯┠┠┯┠┯━◇”
- CHRSET ”BGF0”,0,C0$
- LOCATE 0,23:PRINT V$(23);
- @DEMO0
- B=BUTTON()
- IF (B AND 16) GOTO @START
- C=C+1:C1=C%3
- IF C1==0 THEN GOSUB @PRTECAR
- FOR I=0 TO 22
- V$(I)=V$(I+1)
- NEXT I
- V$(23)=” ”
- FOR I=0 TO 23
- LOCATE 0,I:PRINT V$(I);
- NEXT I
- IF C>32766 THEN C=0
- LOCATE 23,0:PRINT ”PLAY→[А]”;
- VSYNC 1
- GOTO @DEMO0
- @SETCHR
- FOR I=0 TO 7
- READ A$:C0$=C0$+A$
- NEXT I
- FOR I=0 TO 7
- READ A$:C1$=C1$+A$
- NEXT I
- CHRSET ”BGF0”,&H80,C1$
- FOR I=&H81 TO &H93
- D$=””
- FOR J=0 TO 7
- READ A$:D$=D$+A$
- NEXT J
- CHRSET ”BGF0”,I,D$
- NEXT I
- RETURN
- @PRTECAR
- R=RND(13)+9
- T$=V$(21)
- T1$=MID$(T$,0,R)+”┗┣”
- T2$=MID$(T$,R+2,30−R)
- V$(21)=T1$+T2$
- T$=V$(22)
- T1$=MID$(T$,0,R)+”┻╋”
- T2$=MID$(T$,R+2,30−R)
- V$(22)=T1$+T2$
- RETURN
- @PRTECARM
- R=RND(13)+1
- T$=V2$(2)
- T1$=MID$(T$,0,R)+”┗┣”
- T2$=MID$(T$,R+2,14−R)
- V2$(2)=T1$+T2$
- T$=V2$(3)
- T1$=MID$(T$,0,R)+”┻╋”
- T2$=MID$(T$,R+2,14−R)
- V2$(3)=T1$+T2$
- RETURN
- @PRCSCRD
- FOR I_=23 TO 1 STEP −1
- V2$(I_)=V2$(I_−1)
- NEXT I_
- RETURN
- @PRCSCRDA
- FOR I_=23 TO 2 STEP −1
- V0$(I_)=V0$(I_−2)
- V1$(I_)=V1$(I_−2)
- V3$(I_)=V3$(I_−2)
- NEXT I_
- V0$(1)=V0$(0)
- V1$(1)=V1$(0)
- V3$(1)=V3$(0)
- RETURN
- @PRTSCR
- FOR I_=1 TO 23
- LOCATE 0,I_
- PRINT ”◇┏”;V0$(I_);
- PRINT ”┠”;V1$(I_);V2$(I_);
- PRINT ”┯┠┠”;V3$(I_);
- IF I_==16 THEN LOCATE X,16:PRINT ”┓┛”;
- IF I_==17 THEN LOCATE X,17:PRINT ”┳┫”;
- NEXT I_
- RETURN
- @DT0
- ’00(0)
- DATA ”00000000”,”00000000”
- DATA ”00000000”,”00000000”
- DATA ”00000000”,”00000000”
- DATA ”00000000”,”00000000”
- ’00(1)&80
- DATA ”0F0F0F0F”,”F0F0F0F0”
- DATA ”0F0F0F0F”,”F0F0F0F0”
- DATA ”0F0F0F0F”,”F0F0F0F0”
- DATA ”0F0F0F0F”,”F0F0F0F0”
- ’81
- DATA ”0F000FFF”,”F000FFF0”
- DATA ”0F000FFF”,”F000FFF0”
- DATA ”0F000FFF”,”000FFFF0”
- DATA ”000FFFFF”,”0000FFF0”
- ’82
- DATA ”FFFFFFFF”,”FFFFFFFF”
- DATA ”FFFFFFFF”,”FFFFFFFF”
- DATA ”FFFFFFFF”,”FFFFFFFF”
- DATA ”FFFFFFFF”,”FFFFFFFF”
- ’83
- DATA ”000FFF0F”,”00F0FF00”
- DATA ”0000FFFF”,”0000FFFF”
- DATA ”000FFF00”,”00F0FF0F”
- DATA ”000FFF00”,”00F0FF0F”
- ’84
- DATA ”0F0000FF”,”F0000F0F”
- DATA ”0F00F00F”,”F000F00F”
- DATA ”0F00FFFF”,”F000F000”
- DATA ”0000FF00”,”0000F0FF”
- ’85
- DATA ”FFFFFF00”,”FFFFF0F0”
- DATA ”FFFFF00F”,”FFFFF00F”
- DATA ”0000FFFF”,”0000000F”
- DATA ”000000FF”,”FFFFFF0F”
- ’86
- DATA ”0F00000F”,”F000F00F”
- DATA ”0F00FFFF”,”F000FFFF”
- DATA ”0F00FFF0”,”F000F000”
- DATA ”0000FFF0”,”0000F0FF”
- ’87
- DATA ”FFFFF000”,”FFFFF00F”
- DATA ”FFFFFFFF”,”FFFFFFFF”
- DATA ”00000FFF”,”0000000F”
- DATA ”000000FF”,”FFFFFF0F”
- ’88
- DATA ”0000F0FF”,”0000F0FF”
- DATA ”0000F0FF”,”0000FF00”
- DATA ”0000F000”,”F000FFF0”
- DATA ”0F00FFFF”,”F0000FFF”
- ’89
- DATA ”FFFFFF0F”,”FFFFFF0F”
- DATA ”FFFFFF0F”,”000000FF”
- DATA ”0000000F”,”00000FFF”
- DATA ”FFFFFFFF”,”FFFFFFF0”
- ’8A
- DATA ”0000F0FF”,”0000F0FF”
- DATA ”0000F0FF”,”0000FFF0”
- DATA ”0000FF00”,”0000FFF0”
- DATA ”0F00FFFF”,”F0000FFF”
- ’8B
- DATA ”FFFFFF0F”,”FFFFFF0F”
- DATA ”FFFFFF0F”,”000000FF”
- DATA ”0000000F”,”00000FFF”
- DATA ”FFFFFFFF”,”FFFFFFF0”
- ’8C
- DATA ”0FF00FF0”,”00FF00FF”
- DATA ”F00FF00F”,”FF00FF00”
- DATA ”0FF00FF0”,”00FF00FF”
- DATA ”F00FF00F”,”FF00FF00”
- ’8D
- DATA ”0F000F00”,”F000F000”
- DATA ”000F000F”,”00F000F0”
- DATA ”0F000F00”,”F000F000”
- DATA ”000F000F”,”00F000F0”
- ’8E
- DATA ”0F000F00”,”F000F000”
- DATA ”0000FFFF”,”0000FFF0”
- DATA ”00000000”,”0FFFFFF0”
- DATA ”000F000F”,”00F000F0”
- ’8F
- DATA ”0F0F0F0F”,”00FFF0F0”
- DATA ”0FFFFF0F”,”FF000FF0”
- DATA ”FF000FFF”,”0FFFFF00”
- DATA ”00FFF00F”,”F0F0F0F0”
- ’90
- DATA ”0F000F00”,”00000000”
- DATA ”00000000”,”00000000”
- DATA ”00000000”,”00000000”
- DATA ”00000000”,”00F000F0”
- ’91
- DATA ”F0FFFFFF”,”FFFF00FF”
- DATA ”FFF00FF0”,”0F00FF00”
- DATA ”FFFFF00F”,”FFFF00F0”
- DATA ”0F0F0F0F”,”F0F0F0F0”
- ’92
- DATA ”FF0FF0FF”,”000FF000”
- DATA ”000FF000”,”000FF000”
- DATA ”F00FF0F0”,”000FFF0F”
- DATA ”F00FF0F0”,”000FF000”
- ’93
- DATA ”0FF00000”,”00000FF0”
- DATA ”00FF0000”,”00000000”
- DATA ”F0F0F0F0”,”0F0F0F0F”
- DATA ”F0F0F0F0”,”00000000”
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.147 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:03 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30