MoveTo bguoX,bguoY
Delay 800
FindPic 0,0,1280,800,"Attachment:\fggg.bmp",0.9,fgggX,fgggY
Loop
End Sub
Delay 200
FindPic 0,0,1280,800,"Attachment:\yu3.bmp",0.9,yu3X,yu3Y
If yu3X > 0 And yu3Y > 0 Then
Call yu3()
End If
Sub yu3()
Do While yu3X > 0 And yu3Y > 0
MoveTo yu3X+3,yu3Y+3
Delay 200
For 2
LeftDown 1
Delay 80
LeftUp 1
Delay 80
Next
MoveTo bguoX,bguoY
Delay 800
FindPic 0,0,1280,800,"Attachment:\yu3.bmp",0.9,yu3X,yu3Y
Loop
End Sub
Delay 200
FindPic 0,0,1280,800,"Attachment:\yu4.bmp",0.9,yu4X,yu4Y
If yu4X > 0 And yu4Y > 0 Then
Call yu4()
End If
Sub yu4()
Do While yu4X > 0 And yu4Y > 0
MoveTo yu4X+3,yu4Y+3
Delay 200
For 2
LeftDown 1
Delay 80
LeftUp 1
Delay 80
Next
MoveTo bguoX,bguoY
Delay 800
FindPic 0,0,1280,800,"Attachment:\yu4.bmp",0.9,yu4X,yu4Y
Loop
End Sub
Delay 200
FindPic 0,0,1280,800,"Attachment:\yu5.bmp",0.9,yu5X,yu5Y
If yu5X > 0 And yu5Y > 0 Then
Call yu5()
End If
Sub yu5()
Do While yu5X > 0 And yu5Y > 0
MoveTo yu5X+3,yu5Y+3
Delay 200
For 2
LeftDown 1
Delay 80
LeftUp 1
Delay 80
Next
MoveTo bguoX,bguoY
Delay 800
FindPic 0,0,1280,800,"Attachment:\yu5.bmp",0.9,yu5X,yu5Y
Loop
End Sub
Delay 200
FindPic 0,0,1280,800,"Attachment:\bx2.bmp",0.9,bx2X,bx2Y
If bx2X > 0 And bx2Y > 0 Then
Call bx2()
End If
Sub bx2()
Do While bx2X > 0 And bx2Y > 0
MoveTo bx2X+3,bx2Y+3
Delay 200
For 2
LeftDown 1
Delay 80
LeftUp 1
Delay 80
Next
MoveTo bguoX,bguoY
Delay 800
FindPic 0,0,1280,800,"Attachment:\bx2.bmp",0.9,bx2X,bx2Y
Loop
End Sub
Delay 200
FindPic 0,0,1280,800,"Attachment:\bx1.bmp",0.9,bx1X,bx1Y
If bx1X > 0 And bx1Y > 0 Then
Call bx1()
End If
Sub bx1()
Do While bx1X > 0 And bx1Y > 0
MoveTo bx1X+3,bx1Y+3
Delay 200
For 2
LeftDown 1
Delay 80
LeftUp 1
Delay 80
Next