|
发表于 2017-11-7 12:15:25
|
显示全部楼层
最近没时间梅林的代码还没有写完
local meilinAction
local meilinRoomNum
local meilinAtRoom
local meilinInFlag=true
local meilinRoomLink={}
--[[
meilinRoomLink[1]={
wayslist={north,south,east,west}
ways={
north=22
south=23
.. northout=-1
.. southout=-2
visited=0
},
}
dirReverse[l_set[1]]--翻转路径
]]--
function meilinIn()
meilinInFlag=true
meilin_maze()
end
function meilinOut()
meilinInFlag=false
meilin_maze()
end
function meilin_maze()
meilinAction=0
meilinRoomNum=0
DeleteTriggerGroup("meilin")
create_trigger_t('meilin1',"^( )*这里(看得清的|明显的|唯一的|看得见的唯一)出口是(\\D*)。$",'','meilinGo')
create_trigger_t('meilin2',"^( )* 梅林 - $",'','meilinActionClear')
create_trigger_t('meilin3',"^( )* 这是梅林中的一条小路,小路往北就出了梅林,在远处似乎折向了西边。$",'','meilinNorthOut')
create_trigger_t('meilin4',"^( )* 这是梅林中的一条小路,小路往南就出了梅林,远处隐约现出白墙,似乎$",'','meilinSouthOut')
create_trigger_t('meilin5',"^( )* 这是梅林中的一条小路。举目望去,四处遍地都是梅树,枝叶茂密地连天$",'','meilinGoOn')
create_trigger_t('meilin6',"^( )* 这是梅林中的一条小路,你已经走到了小路的尽头,只有回头了。四处遍$",'','meilinBack')
SetTriggerOption("meilin1","group","meilin")
SetTriggerOption("meilin2","group","meilin")
SetTriggerOption("meilin3","group","meilin")
SetTriggerOption("meilin4","group","meilin")
SetTriggerOption("meilin5","group","meilin")
SetTriggerOption("meilin6","group","meilin")
EnableTriggerGroup("meilin",true)
exe("look")
--meilinGo()
end
function meilinGo(n,l,w)
meilinRoomNum=meilinRoomNum+1
if meilinRoomLink[meilinRoomNum]~=nil then
else
local cnt
local l_set==exit_set(w[3])
cnt=table.getn(l_set)
meilinRoomLink[meilinRoomNum]={}
meilinRoomLink[meilinRoomNum].wayslist=l_set
meilinRoomLink[meilinRoomNum].ways={}
for i=1,cnt do
if meilinRoomLink[meilinRoomNum].ways[meilinRoomLink[meilinRoomNum].wayslist[i]]==nil then
meilinRoomLink[meilinRoomNum].ways[meilinRoomLink[meilinRoomNum].wayslist[i]]=0
else if meilinRoomLink[meilinRoomNum].ways[meilinRoomLink[meilinRoomNum].wayslist[i]]==0 then
meilinRoomLink[meilinRoomNum].ways[meilinRoomLink[meilinRoomNum].wayslist[i]]=meilinRoomNum+1
exe(meilinRoomLink[meilinRoomNum].wayslist[i])
return meilinNext
else
end
end
end
end
function meilinNext()
end
function meilinActionClear()
meilinAction=0
end
function meilinNorthOut()
meilinAction=1
end
function meilinSouthOut()
meilinAction=2
end
function meilinGoOn()
meilinAction=3
end
function meilinBack()
meilinAction=4
end |
|