查看單個文章
舊 2017-12-22, 06:54 PM   #5 (permalink)
魔術王子
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:38 | 在線時長:1673小時 | 升級還需:4小時級別:38 | 在線時長:1673小時 | 升級還需:4小時級別:38 | 在線時長:1673小時 | 升級還需:4小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 2383
精華: 0
現金: 12202 金幣
資產: 2675732 金幣
預設

引用:
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也有做些微的修改
反正好玩嘛
__________________
魔術就是欣賞神奇的效果
如果魔術的秘密被破解了
那魔術就失去欣賞的價值
魔術王子 目前離線  
送花文章: 1266, 收花文章: 1379 篇, 收花: 3631 次
回覆時引用此帖
向 魔術王子 送花的會員:
mini (2017-12-23)
感謝您發表一篇好文章