:L 求祭祀自动加SX加HP脚本。让小弟晚上睡觉能挂下机。。。。谢谢。。。。:L

KOFANS马服群共享里有的下

加HP的好象用不了噢。。我试 过了 噢   :Q

哦 大虾 不是用不了 启动以后他只从1到8加一次血就座下不动了。。是这样地:'(

:o :o :o :o :o :o :o :o :o :o

哎，这个加血的脚本要求非常高，如果你不小心挪动了队伍那8个东东所在的框，或者与原来做脚本那人的框不一样，都没法用。。。建议还是自己作一个吧。。偶现在没的玩，不然帮你做一个

当初朋友帮我做了个自己捡垃圾..然后根据掉血情况加血的按键..跟外挂似的..
后来换了显示器就用不了了..可惜..
我自己只给我的战士做过按键..zz1111zz1111哈哈

没事，等我能玩了我帮你们做一批，呵呵，保证可以用浪人挂机～什么拣东西啊之类，嗯

以前GF的JS脚本能不能用?可以的话我发论坛你的短消息里~:D

[General]
Description=KO2_祭祀专用_V2.0421
BeginHotkey=122
beginHotkeyMod=0
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[Comment]
Content=

[Script]
Rem ======= 【主程序部分】=======
//===============================
//使用说明：
//技能设在F5里
//排列: 1 480血 1 960血 3上限 4防 5红 6蓝 7解疾病 8解诅咒
//自动接受组队,自动吃红蓝,
//自动加上限和防,自动给队友伤加血
//开近身箱子
//.
//作者信息：
//作者:★逍遥导师★ QQ:2656911   地界魔王
//===============================
VBS Dim team(8)
VBS k=0
VBS j=0
//===============================
Rem start
KeyPress 116 1
Gosub 自动接受组队
Gosub Self
Gosub 自动吃红蓝
Gosub check
VBS sk=2
Gosub +X
VBS sk=0
Gosub +X
// Gosub +SX
Gosub DAZUO
// Gosub Get
Goto start
EndScript
Rem 【 主 程 序 结 束 】
//===============================
Rem ======= 【子程序部分】=======
Rem 〖 子 程 序 〗
//===============================
Sub 自动接受组队
    IfColor 405 307 9cdff7 2
        IfColor 349 443 6bcff7 2
            IfColor 375 459 9cdfef 2
                IfColor 389 436 b5ebf7 2
                    MoveTo 389 436
                    Delay 350
                    LeftDown 1
                    Delay 500
                    LeftUp 1
                    Delay 350
                EndIf
            EndIf
        EndIf
    EndIf
    IfColor 626 143 c6cfe7 2
        IfColor 375 525 bdcfe7 2
            IfColor 681 548 bdcfe7 2
                IfColor 663 156 21344a 2
                    MoveTo 663 156
                    Delay 350
                    LeftDown 1
                    Delay 500
                    LeftUp 1
                    Delay 350
                EndIf
            EndIf
        EndIf
    EndIf
Return 自动接受组队
//===============================
Sub Self
    IfColor 230 42 1031 2
        KeyPress 90 1
        Delay 500
        KeyPress 49 1
        Delay 1500
    EndIf
Return Self
//===============================
Sub check
    VBS XX=1010
    VBS YY=113
    VBS c=0
    VBS team(0)=1
    VBS team(1)=1
    VBS team(2)=1
    VBS team(3)=1
    VBS team(4)=1
    VBS team(5)=1
    VBS team(6)=1
    VBS team(7)=1
    While c<8
        // 注：角色少小血
        IfColor XX-5 YY 0 0
            VBS team(c)=0
        EndIf
        // 注：角色少大血
        IfColor XX-20 YY 0 0
            VBS team(c)=2
        EndIf
        // 注：角色死亡
        IfColor 905 YY 0 0
            VBS team(c)=1
        EndIf
        // 注：判断角色是否存在。
        VBS YY=YY+45
        Gosub 解黄毒
        Gosub 解绿毒
        Gosub 解诅咒
        VBSCall FindColor(906,YY,908,YY+5,"00009C",xn,yn)
        If xn>0
            VBS c=c+1
        Else
            IfColor 906 YY 0 0
                VBS c=c+1
            Else
                VBS c=8
            EndIf
        EndIf
    EndWhile
Return check
//===============================
Sub +SX&F
    VBS c=0
    VBS YY=113
    While c<8
        VBSCall FindColor(906,YY,908,YY+5,"00009C",xn,yn)
        If xn>0
            MoveTo 950 YY
            Delay 100
            LeftDown 1
            Delay 200
            LeftUp 1
            Delay 350
            KeyDown 51 1
            Delay 100
            KeyUp 51 1
            Delay 1800
            KeyDown 52 1
            Delay 100
            KeyUp 52 1
            Delay 1800
            Gosub 自动吃红蓝
        EndIf
        VBS YY=YY+45
        Gosub 解黄毒
        Gosub 解绿毒
        Gosub 解诅咒
        VBSCall FindColor(906,YY,908,YY+5,"00009C",xn,yn)
        If xn>0
            VBS c=c+1
        Else
            IfColor 906 YY 0 0
                VBS c=c+2
            Else
                VBS c=8
            EndIf
        EndIf
    EndWhile
Return +SX&F
//===============================
Sub +X
    VBS kk=0
    For 8
        If last<>kk
            If team(kk)=sk
                Gosub +++
                VBS last=kk
                Gosub check
            EndIf
        Else
            VBS j=j+1
            If j>10
                VBS last=9
                VBS j=0
            EndIf
        EndIf
        VBS kk=kk+1
    EndFor
Return +X
//===============================
Sub DAZUO
    IfColor 978 748 0 0
        VBS k=0
    Else
        VBS k=k+1
        If k>3
            VBS k=0
            KeyDown 67 1
            Delay 400
            KeyUp 67 1
            Delay 100
        EndIf
    EndIf
Return DAZUO
//===============================
Sub +SX
    VBS bt=time
    VBS ct=DateDiff("s",at,bt)
    VBS ct=Abs(ct)
    If ct>605
        VBS at=time
        Delay 2000
        Gosub +SX&F
    EndIf
Return +SX
//===============================
Sub +++
    MoveTo 950 113+45*kk
    Delay 100
    LeftDown 1
    Delay 200
    LeftUp 1
    Delay 350
    If sk=0
        IfColor 412 42 9c 2
            KeyDown 49 1
        Else
            IfColor 412 80 9c 2
                KeyDown 49 1
            EndIf
        EndIf
    Else
        IfColor 412 42 9c 2
            KeyDown 50 1
        Else
            IfColor 412 80 9c 2
                KeyDown 50 1
            EndIf
        EndIf
    EndIf
    Delay 100
    If sk=0
        KeyUp 49 1
    Else
        KeyUp 50 1
    EndIf
    Delay 1500
    Gosub 自动吃红蓝
Return +++
//===============================
Sub 自动吃红蓝
    IfColor 150 42 1031 2
        IfColor 125 42 1031 2
            KeyPress 53 1
        EndIf
    EndIf
    IfColor 125 58 1031 2
        IfColor 80 58 1031 2
            IfColor 150 58 1031 2
                KeyPress 54 1
            EndIf
        EndIf
    EndIf
Return 自动吃红蓝
//===============================
Sub Get
    MoveTo 440 582
    KeyPress 32 1
    KeyPress 103 1
    KeyPress 104 1
    KeyPress 100 1
    KeyPress 101 1
    KeyPress 97 1
    KeyPress 98 1
Return Get
//===============================
Sub 解黄毒
    VBSCall FindColor(906,YY,908,YY+5,"108AB5",xn,yn)
    If xn>=0
        MoveTo xn yn
        MoveR 50 5
        Delay 300
        LeftClick 3
        Delay 300
        KeyPress 55 1
        Delay 1800
        KeyPress 67 1
        Delay 1000
    EndIf
    //    VBSCall FindPic(900,100,965,450,"KO2_H.bmp",0.9,x,y)
    //    If x>=900 and y>=100
    //        MoveTo x y
    //        Delay 300
    //        LeftClick 3
    //        Delay 300
    //        KeyPress 55 1
    //        Delay 1800
    //        KeyPress 67 1
    //        Delay 1000
EndIf
Return 解黄毒
//===============================
Sub 解绿毒
    VBSCall FindColor(906,YY,908,YY+5,"10794A",xn,yn)
    If xn>=0
        MoveTo xn yn
        Delay 300
        LeftClick 3
        Delay 300
        KeyPress 55 1
        Delay 1800
        KeyPress 67 1
        Delay 1000
    EndIf
    //    VBSCall FindPic(900,100,965,450,"KO2_G.bmp",0.9,x,y)
    //    If x>=900 and y>=100
    //        MoveTo x y
    //        MoveR 50 10
    //        Delay 300
    //        LeftClick 3
    //        Delay 300
    //        KeyPress 56 1
    //        Delay 1800
    //        KeyPress 67 1
    //        Delay 1000
    //    EndIf
Return 解绿毒
//===============================
Sub 解诅咒
    VBSCall FindColor(906,YY,908,YY+5,"4A348C",xn,yn)
    If xn>=0
        MoveTo xn yn
        Delay 300
        LeftClick 3
        Delay 300
        KeyPress 55 1
        Delay 1800
        KeyPress 67 1
        Delay 1000
    EndIf
    //    VBSCall FindPic(900,100,965,450,"KO2_Z.bmp",0.9,x,y)
    //    If x>=900 and y>=100
    //        MoveTo x y
    //        MoveR 50 10
    //        Delay 300
    //        LeftClick 3
    //        Delay 300
    //        KeyPress 56 1
    //        Delay 1800
    //        KeyPress 67 1
    //        Delay 1000
    //    EndIf
Return 解诅咒
//===============================