Dim lx
Dim ly
Dim rx
Dim ry
Dim rz
Dim ru
Dim lan
lan = 0
Dim yuandi
Dim wanmei

yuandi = 0
wanmei=0

FindPic 0,0,2000,1080,"Attachment:\left2.bmp",0.8,leftX,leftY
If leftX > 0 And leftY > 0 Then 
 lx = leftX
 ly = leftY
 Else 
 MessageBox "没找到窗口1"

End If
FindPic 0,0,2000,1080,"Attachment:\right2.bmp",0.8,rzX,ruY
If rzX > 0 And ruY > 0 Then 
rz = rzX
ru = ruY
Else 
 MessageBox "没找到窗口3"
End If

FindPic 0,0,2000,1080,"Attachment:\upr2.bmp",0.9,rightX,rightY
If rightX > 0 And rightY > 0 Then 
rx = rightX
ry = rightY
Else 
 MessageBox "没找到窗口2"

End If

Dim i
i = 1

Rem cc

While i
//MoveTo lx + 50, ly

// FindPic lx, ly, lx-150, ly+150, "Attachment:\bb.bmp", 0.8, intX, intY
//
//If intX > 0 AND intY > 0 Then 
//MoveTo intX + 5, intY + 5
//  Delay 500
// LeftClick 1
//End If

//当循环条件成立的时候，反复执行循环体
//查看人物是否死了
FindPic lx, ly, rz, ru, "Attachment:\yuandi2.bmp", 0.8, intX, intY

If intX > 0 AND intY > 0 Then 
 Delay 200
  MoveTo intX + 5, intY + 5
  Delay 500
 LeftClick 2
 Delay 100000

 End If
  FindPic lx, ly, rz, ru, "Attachment:\queding.bmp", 0.8, intX, intY
 If intX > 0 AND intY > 0 Then 
 //MessageBox "hell2"
 Delay 200
 	MoveTo intX + 5, intY + 5
 Delay 200
 LeftClick 2
 Delay 200
 MoveTo intX + 150, intY + 150
 End If


lan=lan+1
//	调回兰的频率
If lan > 20 Then 
Delay 200
KeyPress "F3", 1
Delay 320
lan = 1
Delay 320
	
End If

KeyPress "1", 1

Delay 320
KeyPress "2", 1
Delay 320
KeyPress "3", 1
Delay 320
KeyPress "4", 1
Delay 320