UserVar qiu=20 "最多一次购买几个球(已经改成固定版，此设置无效)"
UserVar suiji=120 "最多一次购买多少个随机(已经改成固定版，此设置无效)"
UserVar QQ="4000000" "取钱数量如果要更改双引号不要掉了"
UserVar C=4"每次存钱的次数"
UserVar YS=450 "使用随机速度过快请改大数值（毫秒）"
UserVar YS1=450 "施放技能速度过慢针对随机速度 降低50毫秒左右 不要低于300"
FindPic 493,345,1049,793,"Attachment:\VIP图片.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 500
    LeftClick 1
End If

//连续找图 加延迟
Delay 300
Do
Rem vip
//打开VIP仓库
FindPic 155,77,1005,716,"Attachment:\物品仓库.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx, intY
    Delay 300
    LeftClick 1
    Exit Do
    Else
        Goto vip
End If
Loop

//连续找图 加延迟
Delay 300
//点击 金币存储
Do
    Rem qq
FindPic 0,0,1024,768,"Attachment:\金币存储.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 300
    LeftClick 1
    Exit Do
    Else 
    Goto qq
End If
Loop

//连续找图 加延迟
Delay 300
//输入金额
Do
        Rem je
FindPic 0,0,1024,768,"Attachment:\输入金额.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+80, intY
    Delay 300
    LeftClick 1
    Delay 300
    SayString QQ
    Exit Do
    Else 
    Goto je
End If
Loop


//连续找图 加延迟
Delay 300
//点击 取钱
Do 
        Rem dj
FindPic 0,0,1024,768,"Attachment:\取钱.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 300
    LeftClick 1
    Delay 300
    KeyPress "Esc", 1
        Delay 300
        RightClick 1
        Delay 300
    KeyPress "1", 1
    Exit Do
    Else 
    Goto dj
End If
Loop
    Delay 900
//这里是杂货店旁 隐身 鼠标VIP位置保证每次成功
FindPic 493,345,1049,793,"Attachment:\VIP图片.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
    Delay 100
    KeyPress "F1", 1
End If

//连续找图 加延迟
//有点卡 延迟高点
Delay 500
//点击 杂货店
Do 
        Rem zhd