function work()
while true do
sendup("look")
sleep(3)
end
end
openroutine(work)

qigai = nil
mscount = 0

function match_sprite(k)
for id,ob in pairs(allsprites) do
if string.match(ob.name,k) and distance(my.x,my.y,ob.x,ob.y)< 1000 then return id end
end
end

function work2()
while my.room~="xy/mawangmiao" do command("xy/mawangmiao") sleep(1) end
while my.room~="xy/city" do command("xy/city") sleep(3) end

while my.room~="xy/bingying1" do command("xy/bingying1") sleep(1) end
while my.room~="xy/city" do command("xy/city") sleep(3) end

while my.room~="xy/yamen" do command("xy/yamen") sleep(1) end
while my.room~="xy/city" do command("xy/city") sleep(3) end

while my.room~="xy/cityeast" do command("xy/cityeast") sleep(3) end

sendup("task")
end

function asktask()
qigai = nil
mscount = 0
qigai=match_sprite("五袋小乞丐")
sleep(3)
while not qigai do
command("xy/kedian1") sleep(1)
command("xy/city") sleep(3)
sendup("inte xiao qigai")
sleep(3)
qigai=match_sprite("五袋小乞丐")
end
sendup("a "..qigai.." ask_job")
end

asktask()

function ondialog(s,t,id,data)
if string.match(data,"最近两国交战") or string.match(data,"你上一个任务还没完成") then
callout(asktask,200)
openroutine(work2)
return end

if string.match(data,"哦，你是丐帮来的") then
mscount = mscount + 1
printchannel("#W-#Y嘿嘿！！打听到 #H"..mscount.." #Y个消息")
return end

local a=string.match(data,"你已经打听了(.-)个消息")
if a then
if a=="一" or a=="二" or a=="三" then
openroutine(work2)
elseif a=="四" then
asktask()
end
return end

if string.match(data,"存在一个没有任何说明的任务") then
openroutine(work2)
return end

if string.match(data,"干得不错！丐帮就需要你这样的人") then
asktask()
return end

if string.match(data,"练功也要注意身体啊") then
for i=1,5 do
for i=1,5 do sendup("dazuo 10") sleep(6) end
sendup("exert recover")
end
asktask()
return end
end

function onsprite(id,ob)
if ob.name=="五袋小乞丐" then
qigai = id
end
if ob.name=="青年男子" then
move(my.id,ob.x,ob.y)
sendup("inte "..id)
sendup("inte "..id)
end
end

function onroom(s,t,name,id)
senddown("<dlg n=showList data=destroy>")
senddown("<dlg n=all_my_items data=destroy>")
end