Sub 玩具(n)
    For n
        FindPic 0,0,800,600,"Attachment:\玩具.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub
Sub 神圣祝福(n)
    For n
        FindPic 0,0,800,600,"Attachment:\神圣祝福.bmp",0.9,intX,intY
        If intX>0 And intY>0 Then 
            MoveTo intX,intY
            Delay 100
            LeftClick 1
            Delay 100
            FindPic 0,0,800,600,"Attachment:\制作.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX,intY
                Delay 100
                LeftClick 1
                Delay 100
                LeftClick 1
                Delay 5000
            End If
        End If
    Next
End Sub
Sub 向上(shang)
    FindPic 0,0,800,600,"Attachment:\向上.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY
        Delay 500
        For shang
            LeftClick 1
            Delay 500
        Next
        MoveTo intX+50,intY
    End If
End Sub
Sub 打开炼金滑块最下()
    KeyPress "F5", 1
    FindPic 0,0,800,600,"Attachment:\向下.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY - 6
        Delay 100
        LeftClick 1
        Delay 100
    End If
End Sub
Sub 重新打开炼金
    MoveTo 182, 82
    Delay 100
    LeftClick 1
    Delay 100
    KeyPress "Esc", 1
    Delay 100 
    KeyPress "F5", 1
    Delay 100
End Sub
UserVar l1=0 "下级力量灵药"
UserVar l2=0 "中级力量灵药"
UserVar l3=0 "上级力量灵药"
UserVar l4=0 "特级力量秘药"
UserVar l5=0 "特级力量灵药"
UserVar l6=0 "顶级力量灵药"
UserVar z1=0 "下级智力灵药"
UserVar z2=0 "中级智力灵药"
UserVar z3=0 "上级智力灵药"
UserVar z4=0 "特级智力秘药"
UserVar z5=0 "特级智力灵药"
UserVar z6=0 "顶级智力灵药"
UserVar s1=0 "下级生命灵药"
UserVar s2=0 "中级生命灵药"
UserVar s3=0 "上级生命灵药"
UserVar s4=0 "特级生命秘药"
UserVar s5=0 "特级生命灵药"
UserVar s6=0 "顶级生命灵药"
UserVar wanju=0 "神秘世界的玩具"
UserVar sszf=0 "神圣祝福"
//Call 打开炼金滑块最下()
//玩具
If wanju > 0 Then 
    FindPic 0,0,800,600,"Attachment:\向上.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        MoveTo intX, intY + 40
        Delay 100
        LeftClick 1