PutAttachment .\plugin *.dll
Plugin hx=Window.Foreground()
Plugin Window.Move(hx,-31,-49)
UserVar zhiye=DropList{战士:0|法师:1|暗巫:2|幻师:3}=2 职业选择
UserVar zuobiao=227.103 挂机点坐标(能够直接到达)
UserVar ditu=DropList{北郡:0|阪泉:1|轩辕:2|宁海:3|秋枫原:4}=1 挂机地图
UserVar zuoji=DropList{有坐骑:0|无坐骑:1}=1 是否有坐骑(按键9)
UserVar Hong=180 购买红药数量
UserVar Lan=180 购买蓝药数量
UserVar HuiCheng=30 购买回城数量
UserVar Qiang=10 包里金币上限
Gosub 初始化
Rem 炼化任务
Gosub 打怪
If ditu=1
    Gosub 从阪到北
EndIf 
Gosub 炼化师
Gosub 交任务
Gosub 接任务
If ditu=1
    Gosub 从北到阪
EndIf 
Goto 炼化任务
Sub 做任务
    Gosub 检测
    //暗巫招宝宝
    If zhiye=2
        Delay 100
        //形态转换
        KeyPress 89,1
        Delay 1500
        //Q键招狗
        KeyPress 81,1
        Delay 5500
        //W键招精灵
        KeyPress 87,1
        Delay 5500
        //到任务点
    EndIf 
    //上坐骑
    If zuoji=0
        Delay 32
        //9键为骑马
        KeyPress 57,1
        Delay 32
    EndIf 
    //打开大地图
    KeyPress 9,1
    Delay 300
    MoveTo 604,129
    Delay 500
    LeftClick 1
    Delay 100
    //关闭大地图
    KeyPress 9,1
    Gosub 当前坐标
    inputx=227:inputy=103:t1=now:gamex1=cint(gamex1):gamey1=cint(gamey1)
    //移动延时
    Delay 15000
    Gosub 移动
    //下坐骑
    If zuoji=0
        Delay 32
        KeyPress 57,1
        Delay 32
    EndIf 
Return 做任务
Sub 炼化师
    Delay 2000
    //打开大地图
    KeyPress 9,1
    Delay 1000
    //移动到炼化师
    MoveTo 262,152
    Delay 1000
    LeftClick 1
    Delay 1000
    //关闭大地图
    KeyPress 9,1
    Gosub 当前坐标
    inputx=82:inputy=104:t1=now:gamex1=cint(gamex1):gamey1=cint(gamey1)
    //移动延时
    Delay 8000
    Gosub 移动
Return 炼化师
Sub 接任务
    Delay 100
    //查找炼化师
    VBSCall call FindPic(0,0,1280,1024,"Attachment:\lian.bmp",0.9,lx,ly)
    If lx>=0 and ly>=0
        MoveTo lx,ly+60
    Else 
        Gosub 接任务
    EndIf 
    Delay 500
    RightClick 1
    Delay 1000
    //弹出对话框判断
    Rem 接