Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
MyArray=Split(sRect,"|")
Ux=MyArray(0)
Uy=MyArray(1)
Rem 等待输入
key = WaitKey()
If key>48 and key<55 Then Call 循环炮轰()
End If
Sub 循环炮轰()
Rem 循环炮轰
If key=49 Then
Call 控制()
SaveMousePos
For 2
MoveTo Ux+104, Uy+274
LeftClick 1
MoveTo Ux+673, Uy+218
LeftClick 1
MoveTo Ux+104, Uy+274+85
LeftClick 1
MoveTo Ux+673, Uy+473
LeftClick 1
Next
RestoreMousePos
key=key+1
Delay 5500
End If
If key = 50 Then
Call 控制()
SaveMousePos
For 2
MoveTo Ux+104+160, Uy+274
LeftClick 1
MoveTo Ux+673, Uy+218
LeftClick 1
MoveTo Ux+104+160, Uy+274+85
LeftClick 1
MoveTo Ux+673, Uy+473
LeftClick 1
Next
RestoreMousePos
key=key+1
Delay 5500
End If
If key = 51 Then
Call 控制()
SaveMousePos
For 2
MoveTo Ux+104+320, Uy+274
LeftClick 1
MoveTo Ux+673, Uy+218
LeftClick 1
MoveTo Ux+104+320, Uy+274+85
LeftClick 1
MoveTo Ux+673, Uy+473
LeftClick 1
Next
RestoreMousePos
key=key+1
Delay 5500
End If
If key = 52 Then
Call 控制()
SaveMousePos
For 2
MoveTo Ux+104+480, Uy+274
LeftClick 1
MoveTo Ux+673, Uy+473
LeftClick 1
MoveTo Ux+104+480, Uy+274+85
LeftClick 1
MoveTo Ux+673, Uy+218
LeftClick 1
Next
RestoreMousePos
key=key+1
Delay 5500
End If
If key = 53 Then
Call 控制()
SaveMousePos
For 2
MoveTo Ux+104+320, Uy+274-2*85
LeftClick 1
MoveTo Ux+673, Uy+218
LeftClick 1
MoveTo Ux+104+320, Uy+274-85
LeftClick 1
MoveTo Ux+673, Uy+473
LeftClick 1
Next
RestoreMousePos
key=key+1
Delay 5500
End If
If key = 54 Then
Call 控制()
SaveMousePos
For 2
MoveTo Ux+104+320, Uy+274+2*85
LeftClick 1
MoveTo Ux+673, Uy+218
LeftClick 1
MoveTo Ux+104+320, Uy+274+3*85
LeftClick 1
MoveTo Ux+673, Uy+473
LeftClick 1
Next
RestoreMousePos
key=key-5
Delay 5500
End If
Goto 循环炮轰
End Sub
Sub 控制()
IfColor Ux+4,Uy+322,"532415",0 Then
IfColor Ux+124,Uy+322,"FF",0 Then
Goto 等待输入
End If
Else
Goto 等待输入
End If
End Sub