forked from StepfenShawn/Cantonese
-
Notifications
You must be signed in to change notification settings - Fork 0
/
game.cantonese
107 lines (89 loc) · 5.58 KB
/
game.cantonese
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
/*
Cantonese 实现迷宫小游戏
*/
使下 os
|| 拍住上 -> |地图|
|地图| -> 加啲: |["■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■\n"]|
|地图| -> 加啲: |["■","●"," "," "," "," "," "," "," "," "," ","■"," "," "," ","■","■"," "," "," ","■"," ","■","■","■"," ","■","■","■","■\n"]|
|地图| -> 加啲: |["■"," ","■","■","■","■","■","■"," ","■"," ","■"," ","■"," "," "," "," ","■"," ","■"," ","■","■","■"," ","■","■","■","■\n"]|
|地图| -> 加啲: |["■"," ","■"," "," "," ","■","■"," ","■"," "," "," ","■"," ","■","■","■","■"," ","■"," ","■","■","■"," "," "," ","■","■\n"]|
|地图| -> 加啲: |["■"," "," "," ","■"," ","■","■"," "," ","■","■","■"," "," "," "," ","■"," "," ","■"," "," ","■","■"," ","■","■","■","■\n"]|
|地图| -> 加啲: |["■","■","■","■","■"," ","■"," "," "," "," "," ","■"," ","■","■","■","■","■"," ","■","■"," "," "," "," ","■","■","■","■\n"]|
|地图| -> 加啲: |["■"," "," "," ","■"," ","■","■","■","■","■"," ","■"," "," "," ","■"," "," "," ","■"," ","■"," ","■"," "," "," "," ","■\n"]|
|地图| -> 加啲: |["■"," ","■"," ","■"," "," "," "," ","■","■"," ","■"," ","■","■","■","■"," ","■","■"," ","■"," ","■"," ","■","■","■","■\n"]|
|地图| -> 加啲: |["■"," ","■"," ","■"," ","■","■"," "," "," "," "," "," ","■","■"," "," "," "," "," "," ","■"," ","■"," ","■","■","■","■\n"]|
|地图| -> 加啲: |["■"," ","■"," ","■"," ","■","■","■","■","■","■","■"," ","■","■"," ","■","■","■","■","■","■"," ","■"," "," "," ","■","■\n"]|
|地图| -> 加啲: |["■"," ","■"," "," "," ","■","■"," "," "," ","■","■","■","■","■","■","■","■","■","■","■"," ","■","■","■"," "," "," ","■\n"]|
|地图| -> 加啲: |["■"," ","■","■","■","■","■","■"," ","■"," ","■","■","■","■","■"," "," ","■"," "," "," "," "," "," "," "," ","■"," ","■\n"]|
|地图| -> 加啲: |["■"," "," "," "," "," "," "," "," ","■"," ","■"," "," "," "," "," ","■","■","■","■","■"," ","■","■","■"," ","■"," ","★\n"]|
|地图| -> 加啲: |["■"," ","■","■","■","■","■","■","■","■"," ","■","■","■","■","■"," ","■","■","■","■","■"," ","■","■","■"," ","■","■","■\n"]|
|地图| -> 加啲: |["■"," "," "," "," "," ","■"," ","■","■"," ","■","■","■","■","■"," ","■","■","■"," "," "," "," "," "," "," ","■","■","■\n"]|
|地图| -> 加啲: |["■","■","■","■","■"," ","■"," ","■","■"," ","■"," "," "," "," "," "," ","■","■","■","■","■","■","■","■"," ","■"," ","■\n"]|
|地图| -> 加啲: |["■"," "," "," "," "," ","■"," ","■","■"," ","■","■"," ","■","■","■"," "," "," "," "," "," "," "," ","■"," "," "," ","■\n"]|
|地图| -> 加啲: |["■"," ","■"," ","■","■","■"," "," "," "," "," "," "," ","■","■","■","■","■","■"," ","■","■","■","■","■","■","■"," ","■\n"]|
|地图| -> 加啲: |["■"," ","■"," "," "," "," ","■","■","■"," ","■","■"," "," "," "," "," "," ","■"," "," "," "," "," "," "," "," "," ","■\n"]|
|地图| -> 加啲: |["■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■","■\n"]|
$Display 要做咩:
|行数| 从 0 行到 20
|列数| 从 0 行到 30
畀我睇下 |地图[行数][列数], end = ""| 点样先?
行晒
行晒
搞掂
Display 下 -> ||
$Clear 要做咩:
落Order: "cls"
搞掂
$GameBegin 要做咩:
讲嘢: x 系 1
讲嘢: y 系 1
讲嘢: p 系 12
讲嘢: q 系 29
落操场玩跑步
讲嘢: |命令| 系 &畀你("请输入行走的方向:")
如果 |命令 系 "s"| 嘅话 -> {
如果 |地图[x + 1][y] != "■"| 嘅话 -> {
讲嘢: |地图[x][y]| 系 " "
讲嘢: |x| 系 |x + 1|
讲嘢: |地图[x][y]| 系 "O"
}
Clear 下 -> ||
Display 下 -> ||
}
定系 |命令 系 "d"| 嘅话 -> {
如果 |地图[x][y + 1] != "■"| 嘅话 -> {
讲嘢: |地图[x][y]| 系 " "
讲嘢: |y| 系 |y + 1|
讲嘢: |地图[x][y]| 系 "O"
}
Clear 下 -> ||
Display 下 -> ||
}
定系 |命令 系 "w"| 嘅话 -> {
如果 |地图[x - 1][y] != "■"| 嘅话 -> {
讲嘢: |地图[x][y]| 系 " "
讲嘢: |x| 系 |x - 1|
讲嘢: |地图[x][y]| 系 "O"
}
Clear 下 -> ||
Display 下 -> ||
}
定系 |命令 系 "a"| 嘅话 -> {
如果 |地图[x][y - 1] != "■"| 嘅话 -> {
讲嘢: |地图[x][y]| 系 " "
讲嘢: |y| 系 |y - 1|
讲嘢: |地图[x][y]| 系 "O"
}
Clear 下 -> ||
Display 下 -> ||
}
定系 |命令 系 "q"| 嘅话 -> {
收工
}
唔系 嘅话 -> {
畀我睇下 "命令错误" 点样先?
}
玩到 |x 系 p 同埋 y 系 q| 为止
畀我睇下 "成功找到出口" 点样先?
搞掂
GameBegin 下 -> ||