/<
function 过验证()
::A::
local str=获取NPC对话内容()
if str:match("移动到对应位置") then
x,y=str:match("\\<Img:%d+:%d+:(%d+):(%d+)>")
local fx=118;local fy=99;
local xs=nil;local ys=nil;
if tonumber(x)>fx then
xs=str:match("/(@向左[^>]+)>")
elseif tonumber(x)<fx then
xs=str:match("/(@向右[^>]+)>")
end
if tonumber(y)>fy then
ys=str:match("/(@向上[^>]+)>")
elseif tonumber(y)<fy then
ys=str:match("/(@向下[^>]+)>")
end
if xs then
选择(xs)
等待(500)
goto A
end
if ys then
选择(ys)
等待(500)
goto A
end
local cmd=str:match("/(@移动完毕[^>]+)>")
选择(cmd)
等待(1000)
按键(13)
end
end
过验证()
/>
