Dim xy2
xy2 = Plugin.Window.Foreground()
Call Plugin.Window.Min(xy2)
Delay 500
Call Plugin.Window.Restore(xy2)
Delay 500
Rem bj
FindPic 0,0,2000,2000,"Attachment:\道具栏.bmp",0.9,intX,intY
If intx>0 and inty>0 Then

	FindPic 0,0,2000,2000,"Attachment:\香.bmp",0.9,intX,intY
		If intX > 0 And intY > 0 Then
		MoveTo intX, intY

		Delay 200
		RightClick 1
         		Delay 2000
		Else
        KeyDown 18, 1
        KeyPress 69, 1
        KeyUp 18, 1
        Delay 500
        
		FindPic 0,0,2000,2000,"Attachment:\杂货店老板.bmp",0.9,intX,intY
   	 		If intX>0 and intY>0 Then
   			 MoveTo intX+10, intY-50
   			 Delay 500
   			 LeftClick 1
   			 Delay 1000    
                    		Else
        MessageBox "别挡！看不见杂货店老板了"
			End If
    FindPic 0,0,2000,2000,"Attachment:\我想买东西.bmp",1,intX,intY
    If intX>0 and intY>0 Then
        MoveTo intX, intY+5
    Delay 500
        LeftClick 1
        Delay 500
End If
        FindPic 0, 0, 2000, 2000, "Attachment:\香.bmp", 0.9, intX, intY
    If intX>0 and intY>0 Then
        MoveTo intX, intY
        Delay 1000
        LeftClick 1
        Delay 500
                    LeftClick 1
                    Delay 500
        KeyPress "Num 9", 1
        Delay 500
        
        End If
        FindPic 0, 0, 2000, 2000, "Attachment:\购买.bmp", 0.9, intX, intY
    If intX>0 and intY>0 Then
        MoveTo intX, intY
        Delay 500
        LeftClick 1
        Delay 500
        MoveTo intX + 150, intY
        Delay 500
        RightClick 1

        
        
        
        
                Delay 2000
            		End If
End If
   
Else
KeyDown 18, 1
KeyPress 69, 1
KeyUp 18, 1
End If
Goto bj