EndIf 

Return 

//处理惊喜

Sub Jingxi

     dim intX,intY

     VBSCall Call FindPic(0,50,1023,767,"Attachment:\关闭.bmp",0.9,intX,intY)

     If intX>=0 and intY>=0

         SaveMousePos 

         MoveTo intX+38,intY+11

         Delay 500

         LeftClick 1

         Delay 500

         RestoreMousePos 

     EndIf 

Return 

//自动吃药

Sub EatFood

     dim intX,intY

     VBSCall Call FindPic(0,50,1023,767,"Attachment:\hp_null.bmp",0.9,intX,intY)

     If intX>=0 and intY>=0

         //按F1

         SaveMousePos 

         KeyPress 112,1

         Delay 500

         VBSCall Call FindPic(0,50,1023,767,"Attachment:\eat.bmp",0.9,intX,intY)

         If intX>=0 and intY>=0

             //点吃药

             MoveTo intX+3,intY+3

             Delay 500

             LeftClick 1

             Delay 3000

         EndIf 

         //按F2

         RestoreMousePos 

         KeyPress 113,1

         Delay 500

         LeftClick 1

     EndIf 

Return