原創 - 走迷宮遊戲

魔術王子 · 2018-01-08, 06:49 PM

語法:

10 KEY OFF: CLS
20 RANDOMIZE TIMER
30 PRINT : PRINT
40 INPUT "Input Length and width (H,V)"; H, V
50 IF H <> 1 AND V <> 1 THEN 70
60 PRINT "Input Error! again...": GOTO 40
70 DIM W(H, V), V(H, V)
80 Q = 0: Z = 0: X = INT(RND * H + 1)
90 FOR i = 1 TO H
100 IF i = X THEN 120
110 PRINT ".--"; : GOTO 130
120 PRINT ".  ";
130 NEXT i
140 PRINT "."
150 C = 1: W(X, 1) = C: C = C + 1
160 R = X: S = 1: GOTO 230
170 IF R <> H THEN 210
180 IF S <> V THEN 200
190 R = 1: S = 1: GOTO 220
200 R = 1: S = S + 1: GOTO 220
210 R = R + 1
220 IF W(R, S) = 0 THEN 170
230 IF R - 1 = 0 THEN 560
240 IF W(R - 1, S) <> 0 THEN 560
250 IF S - 1 = 0 THEN 390
260 IF W(R, S - 1) <> 0 THEN 390
270 IF R = H THEN 310
280 IF W(R + 1, S) <> 0 THEN 310
290 X = INT(RND * 3 + 1)
300 ON X GOTO 900, 940, 970
310 IF S <> V THEN 340
320 IF Z = 0 THEN 370
330 Q = 1: GOTO 350
340 IF W(R, S + 1) <> 0 THEN 370
350 X = INT(RND * 3 + 1)
360 ON X GOTO 900, 940, 1040
370 X = INT(RND * 2) + 1
380 ON X GOTO 900, 940
390 IF R = H THEN 490
400 IF W(R + 1, S) <> 0 THEN 490
410 IF S <> V THEN 440
420 IF Z = 1 THEN 470
430 Q = 1: GOTO 450
440 IF W(R, S + 1) <> 0 THEN 470
450 X = INT(RND * 3 + 1)
460 ON X GOTO 900, 970, 1040
470 X = INT(RND * 2) + 1
480 ON X GOTO 900, 970
490 IF S <> V THEN 520
500 IF Z = 1 THEN 550
510 Q = 1: GOTO 530
520 IF W(R, S + 1) <> 0 THEN 550
530 X = INT(RND * 2 + 1)
540 ON X GOTO 900, 1040
550 GOTO 900
560 IF S - 1 = 0 THEN 750
570 IF W(R, S - 1) <> 0 THEN 750
580 IF R = H THEN 680
590 IF W(R + 1, S) <> 0 THEN 680
600 IF S <> V THEN 630
610 IF Z = 1 THEN 660
620 Q = 1: GOTO 640
630 IF W(R, S + 1) <> 0 THEN 660
640 X = INT(RND * 3 + 1)
650 ON X GOTO 940, 970, 1040
660 X = INT(RND * 2 + 1)
670 ON X GOTO 940, 970
680 IF S <> V THEN 710
690 IF Z = 1 THEN 740
700 Q = 1: GOTO 720
710 IF W(R, S + 1) <> 0 THEN 740
720 X = INT(RND * 2 + 1)
730 ON X GOTO 940, 1040
740 GOTO 940
750 IF R = H THEN 840
760 IF W(R + 1, S) <> 0 THEN 840
770 IF S <> V THEN 800
780 IF Z = 1 THEN 830
790 Q = 1: GOTO 950
800 IF W(R, S + 1) <> 0 THEN 830
810 X = INT(RND * 2 + 1)
820 ON X GOTO 970, 1040
830 GOTO 970
840 IF S <> V THEN 870
850 IF Z = 1 THEN 890
860 Q = 1: GOTO 880
870 IF W(R, S + 1) <> 0 THEN 890
880 GOTO 1040
890 GOTO 1140
900 W(R - 1, S) = C
910 C = C + 1: V(R - 1, S) = 2: R = R - 1
920 IF C = H * V + 1 THEN 1150
930 Q = 0: GOTO 230
940 W(R, S - 1) = C: C = C + 1
950 V(R, S - 1) = 1: S = S - 1: IF C = H * V + 1 THEN 1150
960 Q = 0: GOTO 230
970 W(R + 1, S) = C
980 C = C + 1: IF V(R, S) = 0 THEN 1000
990 V(R, S) = 3: GOTO 1010
1000 V(R, S) = 2
1010 R = R + 1
1020 IF C = H * V + 1 THEN 1150
1030 GOTO 560
1040 IF Q = 1 THEN 1100
1050 W(R, S + 1) = C: C = C + 1: IF V(R, S) = 0 THEN 1070
1060 V(R, S) = 3: GOTO 1080
1070 V(R, S) = 1
1080 S = S + 1: IF C = H * V + 1 THEN 1150
1090 GOTO 230
1100 Z = 1
1110 IF V(R, S) = 0 THEN 1130
1120 V(R, S) = 3: Q = 0: GOTO 1140
1130 V(R, S) = 1: Q = 0: R = 1: S = 1: GOTO 220
1140 GOTO 170
1150 FOR j = 1 TO V: PRINT "|";
1160 FOR i = 1 TO H
1170 IF V(i, j) < 2 THEN 1200
1180 PRINT "   ";
1190 GOTO 1210
1200 PRINT "  |";
1210 NEXT i
1220 PRINT
1230 FOR i = 1 TO H
1240 IF V(i, j) = 0 THEN 1270
1250 IF V(i, j) = 2 THEN 1270
1260 PRINT "|  "; : GOTO 1280
1270 PRINT "|--";
1280 NEXT i
1290 PRINT ".": NEXT j
1300 END

GWBASIC的程式,也是我寫Basic程式的另一個目的,就是希望能夠執行這個程式(有點遙不可及齁

)
不過這程式沒辦法在VB執行,倒是可以在QB執行
前幾天有在網路找到QB64位元的程式,有編譯成執行檔,連接在下面
https://drive.google.com/file/d/1v47...ew?usp=sharing

魔術王子 · 2018-01-08, 06:52 PM

不過我沒辦法下載MEGA的檔案,畫面一直停留在初始化

mini · 2018-01-08, 08:22 PM

引用:

作者: 魔術王子

不過我沒辦法下載MEGA的檔案,畫面一直停留在初始化

可能晚一點再試試
方才可以下...，要不然先轉存到你申請的MEGA空間，接著再從你申請的MEGA點擊下載

又剛剛想到如何實現
【動態】參考地圖旗幟
可能近期會改版一下
預計改版後外表是不會感覺不同，純粹是程式碼邏輯運作變化

魔術王子 · 2018-01-08, 09:14 PM

引用:

作者: mini

可能晚一點再試試
方才可以下...，要不然先轉存到你申請的MEGA空間，接著再從你申請的MEGA點擊下載

又剛剛想到如何實現
【動態】參考地圖旗幟
可能近期會改版一下
預計改版後外表是不會感覺不同，純粹是程式碼邏輯運作變化

其實我現在連自己的MEGA空間都進不去,一直出現正在接收帳戶資料的畫面
還好我沒有什麼重要資料存在裡面

mini · 2018-01-08, 09:48 PM

引用:

作者: 魔術王子

其實我現在連自己的MEGA空間都進不去,一直出現正在接收帳戶資料的畫面
還好我沒有什麼重要資料存在裡面

清空網路暫存
換瀏覽器
網路重新撥號(換IP)
再不然就是隔日再試

以前也碰過
大多是隔幾天後就正常了

魔術王子 · 2018-01-08, 11:36 PM

引用:

作者: mini

清空網路暫存
換瀏覽器
網路重新撥號(換IP)
再不然就是隔日再試

以前也碰過
大多是隔幾天後就正常了

清除暫存資料後,重新登錄就正常了,謝謝
似乎漸漸跟電腦脫軌了,竟然連這麼簡單的概念都沒聯想到

mini · 2018-01-15, 02:38 PM

https://mega.nz/#!NxQm3KAD!JrvlypKmj...Y15HiEb9U_j3lQ

裡面有兩個版本 (其一為原本的 "GPS預知設計")
新版
完成 "動態旗標設計"，程式碼使用類似動態陣列的設計技巧
可以突破固定陣列的邏輯限制，又當小於100x100時記憶體使用會較少(其實程式碼增加後一來一往下並沒有佔到多少便宜...)
只是此設計所代表的意義是:
較真實的智慧體 (使用相對座標，GPS則是絕對座標)

P.S.
相對座標: 藉由起點推算出每一步相對於起點所對應出來的座標值

2018-01-08, 06:49 PM	#1 (permalink)
魔術王子版區管理員榮譽勳章勳章總數11 UID - 115097 在線等級: 註冊日期: 2004-01-13 住址: 魔術學園文章: 3141 精華: 0 現金: 15607 金幣資產: 2679247 金幣	語法: 10 KEY OFF: CLS 20 RANDOMIZE TIMER 30 PRINT : PRINT 40 INPUT "Input Length and width (H,V)"; H, V 50 IF H <> 1 AND V <> 1 THEN 70 60 PRINT "Input Error! again...": GOTO 40 70 DIM W(H, V), V(H, V) 80 Q = 0: Z = 0: X = INT(RND * H + 1) 90 FOR i = 1 TO H 100 IF i = X THEN 120 110 PRINT ".--"; : GOTO 130 120 PRINT ". "; 130 NEXT i 140 PRINT "." 150 C = 1: W(X, 1) = C: C = C + 1 160 R = X: S = 1: GOTO 230 170 IF R <> H THEN 210 180 IF S <> V THEN 200 190 R = 1: S = 1: GOTO 220 200 R = 1: S = S + 1: GOTO 220 210 R = R + 1 220 IF W(R, S) = 0 THEN 170 230 IF R - 1 = 0 THEN 560 240 IF W(R - 1, S) <> 0 THEN 560 250 IF S - 1 = 0 THEN 390 260 IF W(R, S - 1) <> 0 THEN 390 270 IF R = H THEN 310 280 IF W(R + 1, S) <> 0 THEN 310 290 X = INT(RND * 3 + 1) 300 ON X GOTO 900, 940, 970 310 IF S <> V THEN 340 320 IF Z = 0 THEN 370 330 Q = 1: GOTO 350 340 IF W(R, S + 1) <> 0 THEN 370 350 X = INT(RND * 3 + 1) 360 ON X GOTO 900, 940, 1040 370 X = INT(RND * 2) + 1 380 ON X GOTO 900, 940 390 IF R = H THEN 490 400 IF W(R + 1, S) <> 0 THEN 490 410 IF S <> V THEN 440 420 IF Z = 1 THEN 470 430 Q = 1: GOTO 450 440 IF W(R, S + 1) <> 0 THEN 470 450 X = INT(RND * 3 + 1) 460 ON X GOTO 900, 970, 1040 470 X = INT(RND * 2) + 1 480 ON X GOTO 900, 970 490 IF S <> V THEN 520 500 IF Z = 1 THEN 550 510 Q = 1: GOTO 530 520 IF W(R, S + 1) <> 0 THEN 550 530 X = INT(RND * 2 + 1) 540 ON X GOTO 900, 1040 550 GOTO 900 560 IF S - 1 = 0 THEN 750 570 IF W(R, S - 1) <> 0 THEN 750 580 IF R = H THEN 680 590 IF W(R + 1, S) <> 0 THEN 680 600 IF S <> V THEN 630 610 IF Z = 1 THEN 660 620 Q = 1: GOTO 640 630 IF W(R, S + 1) <> 0 THEN 660 640 X = INT(RND * 3 + 1) 650 ON X GOTO 940, 970, 1040 660 X = INT(RND * 2 + 1) 670 ON X GOTO 940, 970 680 IF S <> V THEN 710 690 IF Z = 1 THEN 740 700 Q = 1: GOTO 720 710 IF W(R, S + 1) <> 0 THEN 740 720 X = INT(RND * 2 + 1) 730 ON X GOTO 940, 1040 740 GOTO 940 750 IF R = H THEN 840 760 IF W(R + 1, S) <> 0 THEN 840 770 IF S <> V THEN 800 780 IF Z = 1 THEN 830 790 Q = 1: GOTO 950 800 IF W(R, S + 1) <> 0 THEN 830 810 X = INT(RND * 2 + 1) 820 ON X GOTO 970, 1040 830 GOTO 970 840 IF S <> V THEN 870 850 IF Z = 1 THEN 890 860 Q = 1: GOTO 880 870 IF W(R, S + 1) <> 0 THEN 890 880 GOTO 1040 890 GOTO 1140 900 W(R - 1, S) = C 910 C = C + 1: V(R - 1, S) = 2: R = R - 1 920 IF C = H * V + 1 THEN 1150 930 Q = 0: GOTO 230 940 W(R, S - 1) = C: C = C + 1 950 V(R, S - 1) = 1: S = S - 1: IF C = H * V + 1 THEN 1150 960 Q = 0: GOTO 230 970 W(R + 1, S) = C 980 C = C + 1: IF V(R, S) = 0 THEN 1000 990 V(R, S) = 3: GOTO 1010 1000 V(R, S) = 2 1010 R = R + 1 1020 IF C = H * V + 1 THEN 1150 1030 GOTO 560 1040 IF Q = 1 THEN 1100 1050 W(R, S + 1) = C: C = C + 1: IF V(R, S) = 0 THEN 1070 1060 V(R, S) = 3: GOTO 1080 1070 V(R, S) = 1 1080 S = S + 1: IF C = H * V + 1 THEN 1150 1090 GOTO 230 1100 Z = 1 1110 IF V(R, S) = 0 THEN 1130 1120 V(R, S) = 3: Q = 0: GOTO 1140 1130 V(R, S) = 1: Q = 0: R = 1: S = 1: GOTO 220 1140 GOTO 170 1150 FOR j = 1 TO V: PRINT "\|"; 1160 FOR i = 1 TO H 1170 IF V(i, j) < 2 THEN 1200 1180 PRINT " "; 1190 GOTO 1210 1200 PRINT " \|"; 1210 NEXT i 1220 PRINT 1230 FOR i = 1 TO H 1240 IF V(i, j) = 0 THEN 1270 1250 IF V(i, j) = 2 THEN 1270 1260 PRINT "\| "; : GOTO 1280 1270 PRINT "\|--"; 1280 NEXT i 1290 PRINT ".": NEXT j 1300 END GWBASIC的程式,也是我寫Basic程式的另一個目的,就是希望能夠執行這個程式(有點遙不可及齁) 不過這程式沒辦法在VB執行,倒是可以在QB執行前幾天有在網路找到QB64位元的程式,有編譯成執行檔,連接在下面 https://drive.google.com/file/d/1v47...ew?usp=sharing
	__________________ 『唸金母心咒：嗡。金母。悉地。吽。』持此咒者，可免一切瘟疫，一切瘟神抱頭四散。魔術就是欣賞神奇的效果如果魔術的秘密被破解了那魔術就失去欣賞的價值
	送花文章: 1554, 收花文章: 1610 篇, 收花: 3969 次

2018-01-08, 06:52 PM	#2 (permalink)
魔術王子版區管理員榮譽勳章勳章總數11 UID - 115097 在線等級: 註冊日期: 2004-01-13 住址: 魔術學園文章: 3141 精華: 0 現金: 15607 金幣資產: 2679247 金幣	不過我沒辦法下載MEGA的檔案,畫面一直停留在初始化

	送花文章: 1554, 收花文章: 1610 篇, 收花: 3969 次

2018-01-15, 02:38 PM	#7 (permalink)
mini 超級版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13550 精華: 0 現金: 26989 金幣資產: 3024919 金幣	Ver2.0.2 https://mega.nz/#!NxQm3KAD!JrvlypKmj...Y15HiEb9U_j3lQ 裡面有兩個版本 (其一為原本的 "GPS預知設計") 新版完成 "動態旗標設計"，程式碼使用類似動態陣列的設計技巧可以突破固定陣列的邏輯限制，又當小於100x100時記憶體使用會較少(其實程式碼增加後一來一往下並沒有佔到多少便宜...) 只是此設計所代表的意義是: 較真實的智慧體 (使用相對座標，GPS則是絕對座標) P.S. 相對座標: 藉由起點推算出每一步相對於起點所對應出來的座標值此帖於 2018-01-16 03:05 PM 被 mini 編輯.

	送花文章: 2072, 收花文章: 8094 篇, 收花: 26956 次

主題工具
顯示可列印版本郵寄本頁給好友
顯示模式
切換到平板模式混合模式切換到樹形模式