comeinqs 发表于 2007-4-15 14:32:16

求祭祀自动加SX加HP脚本，大虾帮帮忙撒！

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

ctgwglzc 发表于 2007-4-15 15:24:14

KOFANS马服群共享里有的下

comeinqs 发表于 2007-4-15 21:29:44

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

comeinqs 发表于 2007-4-15 21:49:57

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

guaiwulichang 发表于 2007-4-16 09:13:44

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

llpku 发表于 2007-4-16 11:09:30

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

limp80 发表于 2007-4-16 11:57:32

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

llpku 发表于 2007-4-16 12:42:03

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

f4hao 发表于 2007-4-16 19:13:13

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

f4hao 发表于 2007-4-16 21:44:10


Description=KO2_祭祀专用_V2.0421
BeginHotkey=122
beginHotkeyMod=0
RunOnce=0
Enable=0

Type=0
Number=1

Content=


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 解诅咒
//===============================
页: [1] 2
查看完整版本: 求祭祀自动加SX加HP脚本，大虾帮帮忙撒！