引用:
|
10 CLS
20 PRINT "你是一個武功高強的劍客,現在天色快暗了,你在尋找客棧..."
30 PRINT "走到半途中,你遇到強盜..."
40 INPUT "是否要擊退強盜? ",S$
50 IF S$="N" OR S$="n" THEN GOTO 80
60 N=RANDOMIZE(10)
70 IF N>1 AND N<7 THEN PRINT "恭喜你擊退了強盜...":GOTO 100 ELSE PRINT "很遺憾你輸了...":GOTO 210
80 N=RANDOMIZE(10)
90 IF N>1 AND N<7 THEN PRINT "恭喜你脫逃成功..." ELSE PRINT "很遺憾你被強盜抓了...":GOTO 210
100 PRINT "走了沒多久,你遇到了老虎..."
110 INPUT "是否要學武松打倒虎? ",S$
120 IF S$="N" OR S$="n" THEN GOTO 150
130 N=RANDOMIZE(10)
140 IF N>1 AND N<7 THEN PRINT "恭喜你打死了老虎...":GOTO 170 ELSE PRINT "被老虎吃掉了...":GOTO 210
150 N=RANDOMIZE(10)
160 IF N>1 AND N<7 THEN PRINT "恭喜你逃出虎口..." ELSE PRINT "跑太慢,被老虎吃掉了...":GOTO 210
170 PRINT "恭喜你找到了客棧..."
180 INPUT "是否要休息? ",S$
190 IF S$="N" OR S$="n" THEN PRINT "辛苦了,遊戲繼續...":GOTO 10
200 PRINT "晚安..."
210 PRINT "遊戲結束..."
|
https://drive.google.com/file/d/1NBQ...ew?usp=sharing
完完全全沒想到這個程式竟然可以執行這個BASIC遊戲程式
昨天玩得還蠻得意的
不過可惜還欠缺了一項,就是當遊戲結束要重玩必須重新輸入"RUN"或是移動滑鼠按[RUN]的按鈕
而在以前的BASIC只需按下F2鈕就行了
所以今天又因為這個因素加入這個功能還有按[ESC]可以取消INPUT輸入
還有可以在OUTPUT畫面單純輸入行號,來刪除行號以及修改行號內容,Help也有做些微的修改
反正好玩嘛
