LDゲームMystery Discを入手しましたがリモコンがないので、とりあえずP-BASICで操作プログラムを書いてみました。
- LCT001 Mystery Disc 1: Murder, Anyone?
- LCT002 Mystery Disc 2: Many Roads To Murder
p:プレイ n:コマ送り e:終了 l:コース1 r:コース2 m:チャプターm(m<=100) m:フレームm(m>100)
RUNするとチャプター0から始まるので、途中から始めるにはGOTO 100としてください。100以下の数字はチャプター番号として、それより大きい数字はフレーム番号として解釈します。
MYSTERY.BAS
10 REM INITIAL 20 B$="" 30 CALL IMPOSE(1) 40 CALL SEARCH(0,C,0) 50 CALL REMOTE(0,"P+") 90 REM MAIN 100 KEY OFF:CLS:A$="" 110 PRINT B$;:INPUT A$ 120 IF A$="p" THEN 220 130 IF A$="l" THEN 250 140 IF A$="r" THEN 270 150 IF A$="n" THEN 290 160 IF A$="e" THEN 310 170 A=VAL(A$):IF A>100 THEN 200 180 CALL SEARCH(0,C,A) 190 GOTO 100 200 CALL SEARCH(0,F,A) 210 GOTO 100 220 CALL REMOTE(0,"P+") 230 CALL IMPOSE(1) 240 GOTO 100 250 CALL REMOTE(0,"L+") 260 B$=B$+"1":GOTO 220 270 CALL REMOTE(0,"L-") 280 B$=B$+"2":GOTO 220 290 CALL REMOTE(0,"S+") 300 GOTO 100 310 CALL IMPOSE(0) 320 KEY ON
