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

適用於白骨洞外面地圖.

[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 買藥
        //=========================================================

先謝了!來去試試看!yociexp196.gif

請問大大視窗要設多少
回城卷和蝴蝶要放哪藥水要買大罐還是小罐可以說明一下嗎
謝謝

[General]
Description=
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
//定義變量
VBS dim f5,f6,f7,f8,jia,jian,t51,t61,t71,t81,t52,t62,t72,t82
//自定義設置
UserVar f3=60 第一個技能(F3)的間隔時間(秒)，設為0表示不用該技能
UserVar f4=15 第一個技能(F4)的間隔時間(秒)，設為0表示不用該技能
UserVar f5=60 第一個技能(F5)的間隔時間(秒)，設為0表示不用該技能
UserVar f6=60 第一個技能(F6)的間隔時間(秒)，設為0表示不用該技能
UserVar f7=60 第一個技能(F7)的間隔時間(秒)，設為0表示不用該技能
UserVar f8=60 第一個技能(F8)的間隔時間(秒)，設為0表示不用該技能
UserVar jia=1 是否加紅加藍，1加，0不加
UserVar jian=1 是否撿物，1撿，0不撿
EndIf
//主程序開始
If jia=1
    Gosub 加紅加藍
EndIf
KeyPress 116 1
Plugin t51=GetSysInfo.GetTime()
Delay 2000
KeyPress 117 1
Plugin t61=GetSysInfo.GetTime()
Delay 2000
KeyPress 118 1
Plugin t71=GetSysInfo.GetTime()
Delay 2000
KeyPress 119 1
Plugin t81=GetSysInfo.GetTime()
a=1
//下面是個死循環，要F12才能結束腳本
While a=1
    If jian=1
        KeyPress 192 1
    EndIf
    If jia=1
        Gosub 加紅加藍
    EndIf
    Gosub 加技能
    Delay 100
EndWhile
Sub 加紅加藍
    IfColor 90 100 0 0
        KeyPress 50 1
    EndIf
EndIf
EndIf
IfColor 18 104 0 0
    KeyPress 49 1
Else
    IfColor 24 8 0 0
        KeyPress 49 1
    Else
        IfColor 10 20 0 0
            KeyPress 49 1
        EndIf
    EndIf
EndIf
Return 加紅加藍
Sub 加技能
    Plugin t52=GetSysInfo.GetTime()
    Plugin t62=GetSysInfo.GetTime()
    Plugin t72=GetSysInfo.GetTime()
    Plugin t82=GetSysInfo.GetTime()
    If f5<>0
        If t52-t51>=f5*1000
            KeyPress 116 1
            Plugin t51=GetSysInfo.GetTime()
        EndIf
    EndIf
    If f6<>0
        If t62-t61>=f6*1000
            KeyPress 117 1
            Plugin t61=GetSysInfo.GetTime()
        EndIf
    EndIf
    If f7<>0
        If t72-t71>=f7*1000
            KeyPress 118 1
            Plugin t71=GetSysInfo.GetTime()
        EndIf
    EndIf
    If f8
        If t82-t81>=f8*1000
            KeyPress 119 1
            Plugin t81=GetSysInfo.GetTime()
        EndIf
    EndIf
Return 加技能
Rem 腳本結束
EndScript

感謝啊!!!獲益良多啊!!!

謝謝你的提供yociexp179.gif

謝啦

yociexp193.gif

感恩大大的分享
YCT46B