maxstepfilter={east=true,e=true,south=true,s=true,west=true,w=true,north=true,n=true,southeast=true,se=true,southwest=true,sw=true,northeast=true,ne=true,northwest=true,nw=true,eastup=true,eu=true,eastdown=true,ed=true,southup=true,su=true,southdown=true,sd=true,westup=true,wu=true,westdown=true,wd=true,northup=true,nu=true,northdown=true,nd=true,up=true,u=true,down=true,d=true,enter=true,out=true}

maxstepfilter["#loc"]=true

loadmod("blocker.mod")

walkend=nil

walking=nil

_roomid=-1

_roomname=""

_exits=""

walk={}

walk["to"]=-1

walk["path"]=""

walk["data"]={}

walk["index"]=0

walk["step"]=nil

walk["steptype"]=0 -- 0单，1多,2多步的单步特殊命令

walk["end"]=function(s)

walking=nil

hook(hooks.stepfail,nil)

hook(hooks.step,nil)

hook(hooks.flyfail,nil)

hook(hooks.maxstep,nil)

if ((s~="")and(s~=nil)) then

call(walk[s])

end

walk.resume=nil

dogunhook()

walk["ok"]=nil

walk["fail"]=nil

walk_end_fail=function()

walk["end"]("fail")

walk["stop"]=function(thook)

if (not(hashook(hooks.step))) then

call(thook)

return

end

walkstopstep=walking.step

walkstopthook=thook

walk["ok"]=nil

walk["fail"]=nil

if getnum(walking["maxstep"])<2 then

hook(hooks.step,walk_stop_hook)

else

hook(hooks.maxstep,walk_stop_hook)

end

if hashook(hooks.steptimeout) then

hook(hooks.steptimeout,walkstopthook)

end

walk_stop_hook=function()

if walkstopstep~=nil and getnum(walking["maxstep"])<2 then

steptrace(walkstopstep)

end

if getnum(walking["maxstep"])<2 then

hook(hooks.step,nil)

else

hook(hooks.maxstep,nil)

end

call(walkstopthook)

walk_stop_to=function()

do_walk(walkstoptoto,walkstoptook,walkstoptofail)

walkstoptook=nil

walkstoptofail=nil

walkstoptook=nil

walkstoptofail=nil

walk["stopto"]=function(to,walk_ok,walk_fail)

walkstoptoto=to

walkstoptook=walk_ok

walkstoptofail=walk_fail

walk["stop"](walk_stop_to)

walk["npc"]=function(npc,walk_ok,walk_fail)

if npcs[npc]==nil then

print("无法找到npc "..npc ..",请检查npcs.ini")

return

end

go(npcs[npc]["loc"],walk_ok,walk_fail)

walk_on_busy=function(name, line, wildcards)

if walking==nil then return end

if ((walking["step"]~=nil)and(hooks.step~=nil)) then

if wildcards[2]=="你突然发现眼前的景象有些迷乱" then

run(walking["step"])

elseif wildcards[2]=="你太累了，还是休息一会儿吧" then

DoAfterSpecial(1,'run("yun recover;"..walking["step"])',12)

else

DoAfterSpecial(1,'run(walking["step"])',12)

end

end

walk_onnoweapon=function(n,l,w)

weapon(0)

if ((walking["step"]~=nil)and(hooks.step~=nil)) then

run(walking["step"])

end

room_obj={}

walk_on_room=function (name, line, wildcards,styles)

__textindex=1

if ((#wildcards[1])~=0)and((#wildcards[1])==styles[1]["length"]) then

__textindex=2

end

if ((#styles)==__textindex)and(styles[__textindex]["textcolour"]==ColourNameToRGB("Cyan")) then

_roomname=((styles[__textindex]["text"]))

end

walk_on_stepfail=function (name, line, wildcards)

_roomid=-1

callhook(hooks.stepfail)

walk_on_room1=function(name, line, wildcards)

_exits=wildcards[2]

dogtype=0

callhook(hooks.step)

room_obj={}

EnableTriggerGroup("roomobj",true)

walklocateto=0

walklocateok=nil

walklocatefail=nil

do_walk=function (to,walk_ok,walk_fail)

walking=walk

initmaze()

walk["to"]=to

walk["ok"]=walk_ok

walk["fail"]=walk_fail

walkend=walk["end"]

walk["maxstep"]=getnum(maxstep)

if (_roomid-0==-1) then

run("unset brief")

walklocateto=to

walklocateok=walk_ok

walklocatefail=walk_fail

EnableTriggerGroup("locate",true)

do_search(walk_locate_step,walk_locate_fail,walk_ok,walk_fail)

return

end

if (to==-2) then

do_nosafe(walk_ok,walk_fail)

return

end

if (_roomid-0==walk["to"]-0) then

walk["end"]("ok")

return

end

run("set brief 3")

hook(hooks.step,walk_on_step)

hook(hooks.stepfail,walk.stepfail)

hook(hooks.flyfail,walk["flyfail"])

hook(hooks.steptimeout,nil)

hook(hooks.maxstep,walk_on_maxstep)

walk["path"]=mapper.getpath(_roomid,to,1)

if (walk["path"]=="") then

walk["end"]("fail")

return

end

print(walk["path"])

walk["index"]=0

walk["data"]=convpath(walk["path"])

walk["step"]=nil

hook(hooks.stepfail,walk["stepfail"])

walk["steptype"]=0

walk_on_step()

if maxstep>1 then

walk["steptype"]=1

walk.resume=walkrunmaxstep

doghook()

busytest(walkrunmaxstep)

end

walk["stepfail"]=function()

if walk["steptype"]~=1 then

do_walk(walk["to"],walk["ok"],walk["fail"])

end

walk["flyfail"]=function()

walk["path"]=mapper.getpath(_roomid,walk["to"],0)

if (walk["path"]=="") then

walk["end"]("fail")

return

end

print(walk["path"])

walk["index"]=0

walk["data"]=convpath(walk["path"])

walk["step"]=nil

hook(hooks.stepfail,walk["stepfail"])

walk_on_step()

if maxstep>1 then

walk["steptype"]=1

busytest(walkrunmaxstep)

end

getexits=function(exit)

exits={}

i=0

re = rex.new ("(\[A-Za-z\]+)")

re:gmatch (exit, function (m, t)

i=i+1

exits[i]=m

end )

return exits

walk_locate_step=function()

local rm=mapper.getroomid(_roomname)

if getnum(_roomid)>-1 then

rm={}

rm[1]=_roomid-0

end

if (#rm~=1) then

searchfor["next"](getexits(_exits))

else

EnableTriggerGroup("locate",false)

run("set brief 3")

walk["ok"]=searchfor["ok"]

walk["fail"]=searchfor["fail"]

searchfor["end"]()

_roomid=rm[1]-0

go(walklocateto,walklocateok,walklocatefail)

end

walk_locate_fail=function()

run("set brief 3")

walk_on_step=function()

if _roomname~=nil and _roomname~="" then

if maze[_roomname]~=nil then

if _roomname~=mazename then

mazename=_roomname

walk["index"]=walk["index"]+1

steptrace(walk["step"])

end

mazestep=walk["data"][walk["index"]]

maze[_roomname]()

return

end

end

walk["index"]=walk["index"]+1

if mazestep~="" and mazestep~=nil then

steptrace(walk["step"])

else

steptrace(walk["step"])

end

initmaze()

walk["step"]=walk["data"][walk["index"]]

if maxstep<2 then

if (walk["step"]==nil) then

walk["end"]("ok")

return

end

if string.sub(walk["step"],1,4)=="#loc" then

walk["end"]("ok")

return

end

run(walk["step"])

elseif walk["steptype"]==2 then

run(walkmaxstepmcmd)

end

walkmaxstepmcmd="set no_more maxstep"

walk_on_maxstep=function()

if walking~=walk or maxstep<2 then return end

if _roomid-0==-1 then

do_walk(walk["to"],walk["ok"],walk["fail"])

return

end

if (walk["step"]==nil) then

walk["end"]("ok")

return

end

if string.sub(walk["step"],1,4)=="#loc" then

walk["end"]("ok")

return

end

busytest(walkrunmaxstep)

walkrunmaxstep=function()

local steps,steptype=getmaxsteps(walk["data"],walk["index"],maxstep)

walk["steptype"]=steptype

if steptype==1 then

steps=steps..walkmaxstepmcmd

end

run(steps)

steptrace=function(dir)

if ((dir=="")or(dir==nil)or(dir=="l")) then return end

if (_roomid~=-1) then

_roomid=getexitroom(_roomid,dir)

end

walk_on_flyfail=function (n,w,l)

if w[2] =="你已经超过17岁了，无法再使用这个指令回到客店了。" then

me.age=18

setflylist()

end

callhook(hooks.flyfail)

convpath=function(path)

local i=0

_convpath={}

re = rex.new("([^;]+)")

n=re:gmatch(path,function (m, t)

i=i+1

_convpath[i]=m

end)

return _convpath

on_obj=function(name, line, wildcards)

_item,num=getitemnum(wildcards[1])

if room_obj[wildcards[2]]~=nil then

room_obj[wildcards[2]]["num"]=room_obj[wildcards[2]]["num"]+num

else

room_obj[wildcards[2]]={num=num,id=wildcards[2]}

end

room_obj[_item]=room_obj[wildcards[2]]

on_objend=function(name, line, wildcards)

EnableTriggerGroup("roomobj",false)

walk_npc=function(n,l,w)

room_obj[w[2]]={num=1,id=nil}

walk_wdfail=function(n,l,w)

familys[me.fam].family="wd2"

settags()

callhook(hooks.flyfail)

walk_slfail=function(n,l,w)

familys[me.fam].family="sl2"

settags()

callhook(hooks.flyfail)

nosafe={}

nosafe.ok=nil

nosafe.fail=nil

do_nosafe=function(nosafe_ok,nosafe_fail)

nosafe["ok"]=nosafe_ok

nosafe["fail"]=nosafe_fail

EnableTriggerGroup("nosafe",true)

do_search(nosafe.step,nosafe_end_fail,nosafe_end_ok,nosafe_end_fail)

nosafe["end"]=function(s)

if ((s~="")and(s~=nil)) then

call(nosafe[s])

end

EnableTriggerGroup("nosafe",false)

nosafe["ok"]=nil

nosafe["fail"]=nil

nosafe_end_fail=function()

nosafe["end"]("fail")

nosafe_end_ok=function()

nosafe["end"]("ok")

nosafe.step=function()

run("attack")

nosafe_onok=function(n,l,w)

_roomid=searchfor["nextroom"]

searchfor["end"]("ok")

nosafe_onfail=function(n,l,w)

searchfor["next"](getroomexits(searchfor["nextroom"]))

go=walk["stopto"]

initmaze=function()

mazename=""

mazecount=0

mazestep=""

maze={}

mazetest={}

mazestep=""

mazename=""

maze["沙漠"]=function()

eatdrink()

hp()

mazestep="s"

busytest(mazetest["沙漠"])

mazetest["沙漠"]=function()

if testneili() then

dazuo(maze["沙漠"])

else

run(mazestep)

end

maze["大沙漠"]=function()

eatdrink()

hp()

if mazestep=="w" or mazestep=="w*" then

mazestep="w*"

elseif mazestep=="home" or mazestep=="home*" then

mazestep="home*"

else

mazestep="e*"

end

busytest(mazetest["大沙漠"])

mazetest["大沙漠"]=function()

if testneili() then

dazuo(maze["大沙漠"])

else

run(mazestep)

end

maze["南疆沙漠"]=function()

eatdrink()

if ((mazestep=="sw")or(mazestep=="sw*")) then

mazestep="sw"

else

mazestep="ne*"

end

if (mazestep=="sw")and(mazecount<8) then

run("sw")

mazecount=mazecount+1

else

run("ne")

end

maze["戈壁滩"]=function()

eatdrink()

if(mazestep=="w")or(mazestep=="w*") then

mazestep="w*"

if(mazecount<2) then

run("w")

elseif (mazecount%2)==0 then

run("n")

else

run("w")

end

else

mazestep="e*"

if(mazecount<2) then

run("s")

elseif (mazecount%2)==0 then

run("e")

else

run("s")

end

end

mazecount=mazecount+1

gwriver=function(n,l,w)

if walking==walk then

if w[2]=="你觉得河面太宽，没有十足的把握跃过去。" or w[2]=="你看着奔腾不息的白河，心里有点紧张，不敢乱来。" then

if itemsnum("Silver")~=0 then

run("give 1 silver to chuan fu")

else

run("give 1 gold to chuan fu")

end

walk["index"]=walk["index"]+1

steptrace(walk["step"])

else

run("cross")

end

else

if walking==steppath then

steppath["index"]=steppath["index"]+1

_roomid=steppath["nextroom"]

if (steppath["index"]>#steppath["path"]) then

steppath["end"]("ok")

return

end

steppath["step"]=steppath["path"][steppath["index"]]["step"]

steppath["nextroom"]=getexitroom(_roomid,steppath["step"])

run("cross")

end

end

on_locate=function(n,l,w)

if #n<3 then return end

local rid=tonumber(string.sub(n,3,#n))

if rid~= nil then

_roomid=rid

end

on_taihunocross=function(n,l,w)

if (nocrossloc[_roomid-0]==true)and walking==walk then

nocross=true

settags()

callhook(hooks.flyfail)

end

on_boatout=function(n,l,w)

run("halt;out")

getmaxsteps=function(pathlist,index,ms)

local steps=""

local stepcount=0

local pathstep=""

ms=ms-1

if pathlist==nil then return "",2,0 end

if index>#pathlist then return "",2,0 end

for i=index,#pathlist,1 do

pathstep=pathlist[i]

stepcount=stepcount+1

if pathstep~="" and pathstep~=nil then

if maxstepfilter[pathstep]==nil then

if steps=="" then

if string.sub(pathstep,1,4)=="#loc" then

return "l",2,stepcount

end

steps=steps..pathstep..";"

return steps,2,stepcount

end

return steps,1,stepcount

end

steps=steps..pathstep..";"

if stepcount>ms then

return steps,1,stepcount

end

end

end

return steps,1,stepcount

getmaxstepsinpath=function(pathlist,index,ms)

local steps=""

local stepcount=0

local pathstep=""

ms=ms-1

if pathlist==nil then return "",2,0 end

if index>#pathlist then return "",2,0 end

for i=index,#pathlist,1 do

if pathlist[i]~=nil then

pathstep=pathlist[i]["step"]

stepcount=stepcount+1

if pathstep~="" and pathstep~=nil then

if maxstepfilter[pathstep]==nil then

if steps=="" then

steps=steps..pathstep..";"

return steps,2,stepcount

end

return steps,1,stepcount

end

steps=steps..pathstep..";"

if stepcount>ms then

return steps,1,stepcount

end

end

end

end

return steps,1,stepcount

walk_maxstep=function(n,l,w)

callhook(hooks.maxstep)

dogtype=0

doglist={}

doglist["大狼狗"]=200000

doglist["蝎子"]=200000

doglist["毒蛇"]=200000

doglist["五步蛇"]=200000

doghook=function()

if not(hashook(hooks.fight)) then

hook(hooks.fight,dogtest)

end

dogunhook=function()

if _hooklist[hooks.fight]==dogtest then

hook(hooks.fight,nil)

end

dogkill=function(n,l,w)

if dogtype==0 and doglist[w[2]]~=nil then

if getnum(me.hp.exp)>doglist[w[2]] then

dogtype=1

else

dogtype=2

end

return

end

if doglist[w[2]]==nil then

dogtype=2

end

dogtest=function()

if dogtype==1 then

--pfm()

return

end

if walking~=nil then

if walking.resume~=nil then

dogrecon()

end

end

recon()

dogrecon=function()

hook(hooks.logok,walking.resume)

recon()

try_walkpath=function(start,path)

local steps=SplitN(path,";",-1)

local loc=start

local result=""

for k,v in pairs(steps) do

result=result.."({loc="..loc..",step=\""..v.."\"}),"

loc=getexitroom(loc,v)

end

if #result>0 then

result=UTF8Sub(result,0,#result-1)

end

return "{"..result.."}"