If Form1.OptionBox1.Value = 1 Then  
        V = 0
    
     End If
     
  If Form1.OptionBox2.Value = 1 Then  
        V = 1
    
     End If  

i = 0
While i=0
FindPic 0,0,1439,899,"Attachment:\1.bmp",0.7,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    i=1
  
    LeftClick 1
    Delay 1000
    End If
    wend

//当循环条件成立的时候，反复执行循环体


i=0
While i = 0


FindPic 0,0,1439,899,"Attachment:\23.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+32, intY+132
   
    LeftClick 1
    Delay 1000
   
    MoveTo intX+10, intY+435
    LeftClick 1
    i = 1
    End If
 

    MoveTo intX-25, intY+430
    
Wend
//当循环条件成立的时候，反复执行循环体

i=0
While i=0
FindPic 0,0,1439,899,"Attachment:\4.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
    MoveTo intX+30, intY+15
    Delay 1000
    LeftClick 3
    i=1
    End If

    wend

i=0
While i=0 
FindPic 0,0,1439,899,"Attachment:\5.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
    i=1
    MoveTo intX+30, intY+130
    Delay 200
    LeftClick 1
    Delay 200
    End If

    Wend
    MoveTo intX + 30, intY - 300
 If V = 1 Then 
 	Goto V3
 End If
   If V = 0 Then 
 	Goto V1
 End If 
    
Rem V3
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+200, intY+18
Delay 100
LeftClick 1
   i=1
   End If
   
Wend
Goto jiesu
Rem V1

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+300