Call 对话和2
    call 识别地图
    If DITU="瑶池" Then //识别地图瑶池1111111111111111111111111111111111111111111
        rem 找坐标 
        Call 识别地图
        If x=23 and y=82 then//核对坐标23,82aaaaaaaaaaa
        Else //核对坐标23,82aaaaaaaaaaaaaa
            Call 写坐标(23,82)
            t找坐标 =now    
            Delay yc+ 200
            Goto 找坐标1
        End if//核对坐标23,82aaaaaaaaaaaaaa
        
        rem 找坐标1
        Call 识别地图
        If x=23 and y=82 then//核对坐标23,82 bbbbbbbbbbbbbbbbbbb
            rem 找王母
            Call 对话和2
        
            FindPic 0,0,807,621,"C:\XYW\s瑶池.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//找王母
                call 修正偏移(intX + 95,intY-7)
                Delay yc+ 200 
                t点王母 =now
                Rem 点王母
                dm_ret = dm.FindStr(0,0,807,621,"师门","08f448-000000",1.0,intX,intY)
                If intX > 0 And intY > 0 Then//点王母 选择师们 
                    call 修正偏移(intX + 20,intY +9)
                    Delay yc+ 200
            
                    dm_ret = dm.FindStr(0,0,807,621,"师门","08f448-000000",1.0,intX,intY)
                    If intX > 0 And intY > 0 Then//点王母
                        call 修正偏移(intX + 20,intY +9)
                    End If         
                    Delay yc+ 100
                   
                    dm_ret = dm.FindStr(176,329,577,475,"20级","f8fcf8-000000",1.0,intX,intY)
                    If intX > 0 And intY > 0 Then//覆盖级数不够
                        If wbjd=1 then
                            Call 对话和2 
                            Call 覆盖级数不够       
                            Call 关闭游戏
                            Goto 开始
                            Exit Sub
                        
                        Else
                            MessageBox "级数不够"
                            EndScript
                        end if 
                    End if//覆盖级数不够
                    dm_ret = dm.FindStr(176,329,577,475,"体力","f8fcf8-000000",1.0,intX,intY)
                    If intX > 0 And intY > 0 Then//覆盖体力不够 
                        If wbjd=1 then
                            Call 对话和2 
                            Call 覆盖体力不够       
                            Call 关闭游戏
                            Goto 开始
                            Exit Sub  
                        Else
                            MessageBox "体力不够"
                            EndScript
                        end if 
                    End if//覆盖体力不够                                    
                    dm_ret = dm.FindStr(176,329,577,475,"今天你","f8fcf8-000000",1.0,intX,intY)                
                    If intX > 0 And intY > 0 Then//完成10轮了
                        If wbjd=1 then
                            Call 对话和2 
                            Call 覆盖帐号       
                            Call 关闭游戏
                            Goto 开始
                            Exit Sub
                        Else
                            MessageBox "完成10轮"
                            EndScript
                        end if                  
                        
                    End if//完成10轮了 
                    
                
                    Call 对话和2
                    Call 识别任务       
                    Exit Sub  
                Else //点王母 选择师们 
                    If DateDiff("s",t点王母,now)>11 Then 
                        t点王母=now
                        goto 接任务1
                    End if
                    Delay yc+ 200
                    goto 找王母
                End IF//点王母 选择师们 
            Else //找王母
                If DateDiff("s",t找坐标,now)>11  Then 
                    t找坐标=now
                    goto 接任务1
                End if
                Delay yc+ 200
                goto 找王母
            End if//找王母
        Else //核对坐标23,82bbbbbbbbbbbbbbbbbbb
            If DateDiff("s",t找坐标,now)>11  Then