LeftClick 1
Delay 500
FindPic 0,0,1439,899,"Attachment:\战胜.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then 
    i = 3
       End If
    FindPic 0,0,1439,899,"Attachment:\战斗.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then 
   i = 3
      End If
 
   End If
  
Wend

Goto jiesu


Rem jiesu//战斗结束离开
i = 0
While i = 0

FindPic 0,0,1439,899,"Attachment:\离开.bmp",0.8,intX,intY
  If intX > 0 And intY > 0 Then 
   MoveTo intX, intY+60
   LeftClick 1
   i=1  
   End If
   
   FindPic 0,0,1439,899,"Attachment:\离开1.bmp",0.8,intX,intY
  If intX > 0 And intY > 0 Then 
   MoveTo intX, intY+60
   LeftClick 1
   i=1  
   End If
   
   FindPic 0,0,1439,899,"Attachment:\离开3.bmp",0.8,intX,intY
  If intX > 0 And intY > 0 Then 
   MoveTo intX-96, intY+395
   LeftClick 1
   i=1  
   End If
   Wend
   Delay 3000
Event Form1.Load

End Event