某8ビット機と8ビット機のスレッド

631 ：「8192階建ての塔」 WebMSX版：2023/02/22(水) 05:59:20.04 ID:Jqjr1ivl1

「8192階建ての塔」 WebMSX版


【原作】8192階建ての塔 遊び方
https://archive.org/details/MSXFAN199004/page/n45/mode/2up


【原作】8192階建ての塔 プログラムリスト
https://archive.org/details/MSXFAN199004/page/n61/mode/2up


100 ' KEY1,CHR$(133) :F=8188:C=F*4
110 SCREEN1,1,0:COLOR15,0,0:WIDTH24:KEYOFF:DEFINTA-Z:DEFFNA=VPEEK(6208+X\8+(Y\8)*32)ORVPEEK(6209+(X+7)\8+(Y\8)*32):GOSUB230
120 A=RND(-9):VPOKE8208,50:FORI=0TO20:VPOKE6211+I*32,133:VPOKE6236+I*32,133:NEXT:FORI=0TO9:LOCATERND(1)*19,2+I*2:PRINTSTRING$(6,133):NEXT
130 LOCATE0,22:PRINTSTRING$(24,133);:X=32:Y=160:A=1:F=1:SOUND1,0:SOUND7,62
140 X=X+A*4-2:P=PXOR1:GOSUB190
150 IFFNA=32THENY=Y+8:SOUND8,0:GOTO140ELSEB=S:S=STRIG(0):IFSTHENJ=JMOD12+1:SOUND0,99-J:SOUND8,15:GOTO140ELSESOUND8,0:IFB=0ANDS=0THENJ=0:GOTO140
160 X=X+A*4-2:Y=Y-J:J=J-1:GOSUB190:IFJ<0ANDFNA<>32THENJ=0:Y=(Y\8)*8:GOTO140
170 IFY>64THEN160ELSEF=F+1:FORI=0TO3:C=C-(C<32767):LOCATE0,2:PRINTCHR$(27)+"L":Y=Y+8:IFCMOD2=0THENLOCATERND(1)*9+(C/2MOD2)*10,2:PRINTSTRING$(6,133)
180 GOSUB190:NEXT:LOCATE10,0:PRINTF"F":IFF=8192THEN210ELSE160
190 PUTSPRITE0,(X,Y),7,A*2+P:A=AXOR-(X=32ORX=208):IFY<176THENRETURNELSERETURN200:' IFY<255THENRETURNELSERETURN200
200 PLAY"voltSM999L64DD-C":FORI=0TO20:LOCATE,2:PRINTCHR$(27)+"M":NEXT:GOTO220
210 PLAY"voltS0M5000O5GO6C"
220 FORI=0TO1:I=STICK(0):NEXT:RUN
230 FORI=14336TO14367:READA$:VPOKEI,VAL("&H"+A$):NEXT:RETURN
240 DATA 3C,3C,80,FF,3D,7C,4F,C1,3C,3C,00,3C,7C,3C,18,38,3C,3C,01,FF,BC,3E,F2,83,3C,3C,00,3C,3E,3C,18,1C


【ヒント】
8188階へ行く方法は100行、ゲームオーバー判定の無効化は190行