Dim m
m=1
Gosub 【日志定义】
SaveString="--->>>QQ自由幻想自动过神医脚本启动!"
Gosub 【保存日志】
Rem 重新检查神医
Delay 2000
//以下是判断神医是否出现，查找4个点的颜色，如果全部都是真，那么就选择神医，否则就结束检查神医
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0
    SaveString="--->>>神医验证出现选择验证问题"
    Gosub 【保存日志】
    Goto 选择神医
EndIf 
Goto 结束检查神医
//*****************************************************************
//******************************选择神医***************************
//*****************************************************************
Rem 选择神医
Delay 2000
If m=1
    Goto 一次过神医     //第一次选择神医
ElseIf m=2
    Goto 二次过神医     //第二次选择神医
Else 
    Goto 小退重新进入角色  //两次选择神医失败，小退重新进入游戏
EndIf 
If m=1
Else 
    Goto 结束检查神医
EndIf 
Rem 一次过神医
SaveString="--->>>一次过神医!!!!"
Gosub 【保存日志】
Delay 1500
MoveToS 724,563
Delay 300
LeftClickS 1
Delay 2500
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0
    SaveString="--->>>一次过神医失败!!!!"
    Gosub 【保存日志】
    m=2
    Goto 选择神医     //第一次选择神医失败，重新判断神医选择
Else 
    m=1  //一次过神医成功，返回变量
    SaveString="--->>>一次成功过神医!!!!"
    Gosub 【保存日志】
    Goto 结束检查神医
EndIf 
Rem 二次过神医
SaveString="--->>>二次过神医!!!!"
Gosub 【保存日志】
Delay 1500
MoveToS 724,563
Delay 300
LeftClickS 1
Delay 2500
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0
    SaveString="--->>>二次过神医,失败!!!!"    //第二次选择神医失败，重新判断神医选择
    Gosub 【保存日志】
    m=3
    Goto 选择神医
Else 
    m=1  //二次过神医成功，返回变量
    SaveString="--->>>二次成功过神医!!!!"
    Gosub 【保存日志】
    Goto 结束检查神医
EndIf 
//*****************************************************************
//***************************重新进入角色**************************
//*****************************************************************
Rem 小退重新进入角色
m=1
Delay 260
Delay 1000
VBSCall FindColor(589,553,594,556,"0000FF",x,y)
VBSCall FindColor(600,554,608,557,"0000FF",x1,y1)
VBSCall FindColor(672,552,681,555,"0000FF",x2,y2)
VBSCall FindColor(663,625,669,628,"0000FF",x3,y3)
If x>0 and y>0 and x1>0 and y1>0 and x2>0 and y2>0 and x3>0 and y3>0
    Delay 2500
    KeyDownS 18,1
    Delay 120
    KeyPressS 79,1
    Delay 260
    KeyUpS 18,1
    Delay 750
    MoveToS 510,396