查看單個文章
舊 2017-12-21, 08:02 PM   #4 (permalink)
魔術王子
版區管理員
 
魔術王子 的頭像
榮譽勳章
UID - 115097
在線等級: 級別:39 | 在線時長:1684小時 | 升級還需:76小時級別:39 | 在線時長:1684小時 | 升級還需:76小時級別:39 | 在線時長:1684小時 | 升級還需:76小時級別:39 | 在線時長:1684小時 | 升級還需:76小時
註冊日期: 2004-01-13
住址: 魔術學園
文章: 2395
精華: 0
現金: 12262 金幣
資產: 2675802 金幣
預設

https://drive.google.com/file/d/1NBQ...ew?usp=sharing

本來一直都是用MEGA分享的,結果剛剛要登錄都進不去,只好換Google

不過第一次用,不知道行不行(感覺好像很複雜),麻煩大家幫忙測試看看,順便指導一下,謝謝

同樣是分享Basic的程式,只不過這次改了名稱LWBasic

這次寫法又跟上次不一樣,有點類似之前的方式,也修正不少的Bug,加入了一些Basic沒有的指令

下面的狀態列中間有Help按鈕,可說明

引用:
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 "遊戲結束..."

此帖於 2017-12-21 09:47 PM 被 魔術王子 編輯.
__________________
魔術就是欣賞神奇的效果
如果魔術的秘密被破解了
那魔術就失去欣賞的價值
魔術王子 目前離線  
送花文章: 1275, 收花文章: 1387 篇, 收花: 3644 次
回覆時引用此帖
向 魔術王子 送花的會員:
mini (2017-12-21)
感謝您發表一篇好文章