FindPic 0,0,1024,768,"Attachment:\杂货店.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY+50
    Delay 300
MoveTo intX+20, intY+80
    Delay 500
    LeftClick 1
    Exit Do
    Else 
    Goto zhd
End If
Loop


//连续找图 加延迟
//有点卡 延迟高点
Delay 300
//点击 打开杂货店
Do 
        Rem dk
FindPic 0,0,1024,768,"Attachment:\打开杂货店.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+50, intY+10
    Delay 300
    LeftClick 1
    Exit Do
    Else 
    Goto dk
End If
Loop

Delay 300
Do
    Rem dkl
FindPic 68,14,660,569,"Attachment:\随机位置.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
	Exit Do
	Else
	    Goto dkl
End If
Loop

//连续找图 加延迟
//判断 购买随机数量120
//加上 区域坐标 利于合理找图
Delay 300
Do
FindPic 33,358,517,831,"Attachment:\随机数量120.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
Exit Do
    Else
    Goto aa
End If

    Rem aa
    FindPic 68,14,660,569,"Attachment:\随机位置.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
        RightClick 16
End If
Loop

//连续找图 加延迟
//判断 购买经验球30个以内
//加上 区域坐标 利于合理找图
//鼠标点击次数 决定买球的多少
//120号由于 图色不规范 所以多了个鼠标命令
Delay 500
Do
FindPic 177,724,251,797,"Attachment:\经验球数量25.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
Exit Do
    Else 
    Goto jyq
End If
    Rem jyq
    MoveTo intX, intY-20
    Delay 300
    FindPic 4,4,672,506,"Attachment:\经验球位置.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
        RightClick 1
End If
Loop
Delay 300
KeyPress "Esc", 1

//连续找图加延迟
Delay 300
KeyPress "F1", 1
Delay 300
//这里 是存钱的命令 存3次

FindPic 0,0,1024,768,"Attachment:\VIP图片.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    Delay 300
LeftClick 1
    Delay 500
        MoveTo intX-300, intY-245