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