按精-吃紅吃藍檢物自動回城賣垃圾腳本

適用於白骨洞外面地圖.

[General]
Description=征途賣垃圾腳本
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=1
Number=1943232333
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//定意義變量
VBS dim jia,jian
//自定義設置
UserVar jia=0 1是%30加紅加藍，0是%50加紅加藍
UserVar jian=1 是否撿物，1撿，0不撿
UserVar JINENG7=1 是否使用，1使用，0不用
UserVar JINENG8=1 是否使用，1使用，0不用
a=1
While a=1
    If jia=1
        Gosub %30加紅加藍
    Else
        Gosub %50加紅加藍
    EndIf
    IfColor 483 658 18344a 0
        Gosub 回城
    EndIf
    IfColor 442 6559 10304a 0
        Gosub 回城
    EndIf
    If jian=1
        KeyPress 192 1
    EndIf
    If JINENG7=1
        Gosub 技能7
    EndIf
    If JINENG8=1
        Gosub 技能8
    EndIf
EndWhile
Sub %30加紅加藍
    IfColor 13 60 0 2
        KeyPress 49 1
    EndIf
    Delay 200
    IfColor 70 56 0 2
        KeyPress 50 1
    EndIf
Return %30加紅加藍
Sub %50加紅加藍
    IfColor 5 37 0 2
        KeyPress 49 1
    EndIf
    Delay 200
    IfColor 70 56 0 2
        KeyPress 50 1
    EndIf
Return %50加紅加藍
Sub 回城
    IfColor 483 658 18344a 0
        Delay 1000
        KeyPress 52 1
        Delay 1000
        KeyPress 51 1
        Delay 7000
        Rem 找NPC_武器店伙計
        KeyPress 70 1
        Delay 100
        KeyPress 66 1
        Delay 500
        MoveTo 623 449
        Delay 100
        MoveR 1 1
        Delay 50
        LeftClick 1
        Delay 500
        MoveTo 830 530
        Delay 100
        MoveR 1 1
        LeftDoubleClick 1
        Delay 100
        KeyPress 66 1
        Delay 100
        KeyPress 27 1
        Delay 5000
        VBS xh=1
        Rem 找相同顏色1
        VBS x=197:y=110:ss=1
        IfColor x y ffffff 0
            For 10
                VBS x=x+1
                Delay 100
                IfColor x y ffffff 0
                    VBS ss=ss+1
                Else
                    Goto 找相同顏色1
                EndIf
            EndFor
        Else
            Delay 100
            Goto 找相同顏色1
        EndIf
        If ss>=8
            Gosub 賣東西
        Else
            VBS xh=xh+1
            If xh>100
                Goto 找NPC_武器店伙計
            EndIf
            Goto 找相同顏色1
        EndIf
        Rem 找NPC_雜貨店伙計
        KeyPress 70 1
        Delay 100
        MoveTo 700 170
        Delay 100
        MoveR 1 1
        Delay 50
        LeftClick 1
        Delay 100
        Rem 按Z
        KeyPress 90 4
        MoveTo 830 530
        Delay 100
        MoveR 1 1
        LeftDoubleClick 1
        Delay 100
        KeyPress 66 1
        Delay 500
        KeyPress 27 1
        Delay 5000
        VBS xh=1
        Rem 找相同顏色2
        VBS x=197:y=110:ss=1
        IfColor x y ffffff 0
            For 10
                VBS x=x+1
                Delay 100
                IfColor x y ffffff 0
                    VBS ss=ss+1
                Else
                    Goto 找相同顏色2
                EndIf
            EndFor
        Else
            Delay 100
            Goto 找相同顏色2
        EndIf
        If ss>=8
            Gosub 買回城
        Else
            VBS xh=xh+1
            If xh>100
                Goto 找NPC_雜貨店伙計
            EndIf
            Goto 找相同顏色2
        EndIf
        Rem 找NPC_藥店伙計
        KeyPress 70 1
        Delay 100
        MoveTo 700 170
        Delay 100
        MoveR 1 1
        Delay 50
        LeftClick 1
        Delay 100
        Rem 按Z
        KeyPress 89 3
        Delay 500
        MoveTo 830 530
        Delay 100
        MoveR 1 1
        LeftDoubleClick 1
        Delay 100
        KeyPress 66 1
        Delay 500
        KeyPress 27 1
        Delay 5000
        VBS xh=1
        Rem 找相同顏色3
        VBS x=197:y=110:ss=1
        IfColor x y ffffff 0
            For 10
                VBS x=x+1
                Delay 100
                IfColor x y ffffff 0
                    VBS ss=ss+1
                Else
                    Goto 找相同顏色3
                EndIf
            EndFor
        Else
            Delay 100
            Goto 找相同顏色3
        EndIf
        If ss>=8
            Gosub 買藥
        Else
            VBS xh=xh+1
            If xh>100
                Goto 找NPC_藥店伙計
            EndIf
            Goto 找相同顏色3
        EndIf
        KeyPress 77 1
        Delay 5000
        MoveTo 869 348
        Delay 100
        MoveR 1 1
        Delay 200
        LeftClick 1
        Delay 5000
        KeyPress 52 1
        Delay 500
        MoveTo 640 386
        Delay 100
        MoveR 1 1
        Delay 200
        LeftClick 1
        Delay 5000
    Return 回城
    Sub 技能7
        IfColor 144 48 312021 1
            KeyPress 55 1
            Delay 200
        EndIf
    Return 技能7
    Sub 技能8
        IfColor 144 48 312021 1
            KeyPress 56 1
            Delay 200
        EndIf
    Return 技能8
    //=========================================================
    Sub 賣東西
        MoveTo 200 493
        Delay 500
        MoveR 1 1
        Delay 50
        LeftClick 1
        Delay 100
        //最右邊一檔不賣
        xx=1
        While xx<7
            gjx=560+(xx-1)*38
            xy=1
            VBS (??1 Or ??2)
            While xy<7
                If xx<2
                    xy=(xy+3)
                Else
                    gjy=250+(xy-1)*38
                    MoveTo gjx gjy
                    Delay 500
                    MoveTo gjx+1 gjy+1
                    Delay 1000
                    LeftClick 1
                    Delay 500
                    MoveTo 262 415
                    Delay 500
                    MoveTo 263 416
                    Delay 500
                    LeftClick 1
                    Delay 500
                    xy=xy+1
                EndWhile
                xx=xx+1
            EndWhile
            KeyPress 27 1
            Delay 500
        Return 賣東西
        //=========================================================
        Sub 買回城
            MoveTo 262 169
            Delay 100
            MoveR 1 1
            Delay 50
            RightClick 1
            Delay 1000
            MoveTo 559 234
            Delay 100
            MoveR 1 1
            Delay 50
            LeftClick 1
            Delay 1000
            MoveTo 522 658
            Delay 100
            MoveR 1 1
            Delay 50
            LeftClick 1
            Delay 1000
            KeyPress 27 1
            Delay 500
        Return 買回城
        //=========================================================
        Sub 買藥
            IfColor 442 646 ffffff 1
                MoveTo 298 240
                Delay 2000
                MoveR 1 1
                RightClick 1
                Delay 100
            Else
                For 30
                    MoveTo 296 204
                    Delay 500
                    MoveR 1 1
                    RightClick 1
                    Delay 100
                EndFor
            EndIf
            KeyPress 27 1
            Delay 500
        Return 買藥
        //=========================================================