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