-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathhouse.mod
More file actions
55 lines (50 loc) · 3.07 KB
/
house.mod
File metadata and controls
55 lines (50 loc) · 3.07 KB
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
house={}
house["ok"]=nil
house["fail"]=nil
do_house=function(house_ok,house_fail)
house["ok"]=house_ok
house["fail"]=house_fail
end
house["end"]=function(s)
if ((s~="")and(s~=nil)) then
call(house[s])
end
house["ok"]=nil
house["fail"]=nil
end
house_end_ok=function()
house["end"]("ok")
end
house_end_fail=function()
house["end"]("fail")
end
house.add=function(housename)
if housename==nil then return end
if houses[housename]==nil then return end
houses[housename].type(housename)
end
panlong=function(housename)
baseloc=houses[housename].baseloc
Note("添加房屋["..housename.."]@"..baseloc)
mapper.loadline(tostring(baseloc).."="..housename.."大院|n:"..tostring(baseloc+1)..",out:"..tostring(houses[housename].loc)..",")
mapper.loadline(tostring(baseloc+1).."="..housename.."前庭|e:-1,push gate\\n:"..tostring(baseloc+2)..",s:"..tostring(baseloc)..",w:-1,")
mapper.loadline(tostring(baseloc+2).."=走道|n:"..tostring(baseloc+3)..",push gate\\s:"..tostring(baseloc+1)..",")
mapper.loadline(tostring(baseloc+3).."="..housename.."迎客厅|e:-1,n:"..tostring(baseloc+5)..",s:"..tostring(baseloc+2)..",")
mapper.loadline(tostring(baseloc+4).."=茶室|w:"..tostring(baseloc+3)..",")
mapper.loadline(tostring(baseloc+5).."=议事厅|e:"..tostring(baseloc+6)..",n:"..tostring(baseloc+8)..",s:"..tostring(baseloc+3)..",w:"..tostring(baseloc+7)..",")
mapper.loadline(tostring(baseloc+6).."=演武厅|w:"..tostring(baseloc+5)..",")
mapper.loadline(tostring(baseloc+7).."=演武厅|e:"..tostring(baseloc+5)..",")
mapper.loadline(tostring(baseloc+8).."="..housename.."中庭|n:"..tostring(baseloc+11)..",open east\\e:"..tostring(baseloc+10)..",open west\\w:"..tostring(baseloc+9)..",s:"..tostring(baseloc+5)..",")
mapper.loadline(tostring(baseloc+9).."=右厢房|w:"..tostring(baseloc+8)..",")
mapper.loadline(tostring(baseloc+10).."=左厢房|e:"..tostring(baseloc+8)..",")
mapper.loadline(tostring(baseloc+11).."=后院|e:"..tostring(baseloc+13)..",n:"..tostring(baseloc+14)..",s:"..tostring(baseloc+8)..",w:"..tostring(baseloc+12)..",")
mapper.loadline(tostring(baseloc+12).."=厨房|e:"..tostring(baseloc+11)..",")
mapper.loadline(tostring(baseloc+13).."=练武场|w:"..tostring(baseloc+11)..",")
mapper.loadline(tostring(baseloc+14).."=后花园|e:"..tostring(baseloc+15)..",open door\\w:"..tostring(baseloc+16)..",s:"..tostring(baseloc+11)..",")
mapper.loadline(tostring(baseloc+15).."=竹林|e:"..tostring(baseloc+19)..",w:"..tostring(baseloc+14)..",")
mapper.loadline(tostring(baseloc+16).."=居所|open door\\e:"..tostring(baseloc+14)..",u:"..tostring(baseloc+17)..",w:"..tostring(baseloc+18)..",")
mapper.loadline(tostring(baseloc+17).."=卧室|d:"..tostring(baseloc+16)..",")
mapper.loadline(tostring(baseloc+18).."=书房|e:"..tostring(baseloc+16)..",")
mapper.loadline(tostring(baseloc+19).."=听涛阁|w:"..tostring(baseloc+15)..",".."pass-"..housename..">#loc:"..yanjiuloc..",pass-"..housename..">#loc:"..sleeploc..",")
mapper.parsepath(houses[housename].loc,"pass-"..housename..">"..houses[housename].id..":"..tostring(baseloc))
end