
if (取孩子素养(0)==1) then
       goto en;
end
任务名字="学习对诗"
对话内容="综合素养提升"
任务npc场景="洛阳"
任务npc名字="木子姐姐"
其他间隔=1

while (任务名字=="学习对诗") do 
 ::a::
 local 任务内容,任务进度=取任务(任务名字)
if (任务进度 == 1) then
    召唤坐骑 ()
    寻路2 (任务npc场景, 任务npc名字)
    等待 (其他间隔)
    打开 (任务npc名字)
    等待 (其他间隔)

    对话 (对话内容)
    等待 (其他间隔)
    对话 (任务名字)
    等待 (其他间隔)
    完成 ()
    等待 (其他间隔)
end

if (任务进度 == -1) then
    召唤坐骑 ()
    寻路2 (任务npc场景, 任务npc名字)
    等待 (其他间隔)
    打开 (任务npc名字)
    等待 (其他间隔)
    对话 (对话内容)
    等待 (其他间隔)
    对话 (任务名字)
    等待 (其他间隔)
    
   是否继续=取提示内容()
   if(寻找文本 (是否继续, "诗数值已经培养", 1, 0) > 0 or 寻找文本 (是否继续,"巅峰",1,0) > 0) then
       goto en;
   end
       goto a;
end

  if (寻找文本 (任务内容, "成功对诗", 1, 0) > 0 and 任务进度 == 0) then
        召唤坐骑 ()
        等待 (其他间隔)
        目标名称 = 取对象名称 (任务内容)
        目标地图 = 取对象地图 (任务内容)
        目标X = 取对象坐标 (任务内容, 1)
        目标Y = 取对象坐标 (任务内容, 2)
        寻路2 (目标地图,目标名称)
        等待 (其他间隔)
        打开 (目标名称)
        等待 (其他间隔)
        对话 ("我要对诗")
        等待 (其他间隔)
           local n=0;
           while(取任务进度 (任务名字) == 0) do
	       n=n+1
               选择对话(n)               
               等待 (其他间隔)
	       if n>=4 then
	          n=0;
		  等待 (其他间隔)
	       end
	       提示=取提示内容()
	       if 寻找文本 (任务内容, "任务完成", 1, 0) > 0 then
	           goto a;
	       end
           end                
  end
  等待 (其他间隔)
end 
::en::
打印信息("作诗完成")
