Call fj()
MoveTo wplX+35, wplY-85
Call fj()
MoveTo wplX+65, wplY-85
Call fj()
MoveTo wplX+95, wplY-85
Call fj()
MoveTo wplX+125, wplY-85
Call fj()
MoveTo wplX+155, wplY-85
Call fj()
MoveTo wplX+185, wplY-85
Call fj()
MoveTo wplX+215, wplY-85
Call fj()
MoveTo wplX+5, wplY-55
Call fj()
MoveTo wplX+35, wplY-55
Call fj()
MoveTo wplX+65, wplY-55
Call fj()
MoveTo wplX+95, wplY-55
Call fj()
MoveTo wplX+125, wplY-55
Call fj()
MoveTo wplX+155, wplY-55
Call fj()
MoveTo wplX+185, wplY-55
Call fj()
MoveTo wplX+215, wplY-55
Call fj()
Delay 300
KeyPress "Esc", 1
Delay 200
MoveTo 367, 158
KeyPress "Esc", 1
Delay 100
LeftClick 1
Delay 100
KeyPress "Esc", 1
Delay 200
KeyPress "I", 1
Delay 500
MoveTo wplX+200, wplY-25
LeftClick 1
Delay 500
KeyPress "W", 13
Goto wc
    FindPic 0,0,600,450,"Attachment:\QQQQ.bmp",0.8,QQQQX,QQQQY
If QQQQX > 0 And QQQQY > 0 Then
End If
Sub wlj()
    IfColor QQQQX-108,QQQQY-23,"8DC5DD",1 Then
IfColor QQQQX-108,QQQQY-23,"8DC5DD",1 Then
                        MoveTo 240, 357
            Delay 100
            KeyPress "Esc",1
                        Delay 200
                                    MoveTo 240, 357
                        LeftClick 1
            Delay 200
            MoveTo 240, 357
            Delay 200
            KeyPress "Esc", 1
            Delay 200
                                    LeftClick 1
            KeyPress "Esc", 1
    KeyPress "N", 1
        Delay 1000
        FindPic 0,0,300,300,"Attachment:\ld.bmp",0.6,ldX,ldY
If ldX > 0 And ldY > 0 Then
End If
        MoveTo ldX+15, ldY+15
            RightClick 1
                Delay 15000
        KeyPress "N", 1
        Delay 1000
        FindPic 0,0,400,400,"Attachment:\ld2.bmp",0.6,ld2X,ld2Y
If ld2X > 0 And ld2Y > 0 Then
End If
        MoveTo ld2X-5, ld2Y+50
        LeftClick 1
        Delay 200
                FindPic 0,0,400,400,"Attachment:\ld2.bmp",0.6,ld2X,ld2Y
        If ld2X > 0 And ld2Y > 0 Then
        End If
                MoveTo ld2X+10, ld2Y+165
        LeftClick 1
        Delay 1000
        LeftClick 1
        Delay 1000
        KeyPress "Enter", 1
        Delay 1000
            KeyPress "Esc", 1
            Delay 100
            KeyPress "Esc", 1
        KeyPress "N", 1
        Delay 1000
        FindPic 0,0,600,450,"Attachment:\lns.bmp",0.6,lnsX,lnsY
If lnsX > 0 And lnsY > 0 Then