珈蓝神殿 » 神殿测试游戏 » 大航海时代专区 » 挂炮的脚本（后台，还挺好用）

芙蓉 发表于 2008-3-13 23:53

挂炮的脚本（后台，还挺好用）

//脚本的开始时间为你进入战场，走边停好，点上第一条船后就可以启动脚本了，每次用一个技能的空隔时间都会发炮，合理利用时间。
//F1，F2，F3，F4为发炮.F8为打开自定义.
//F1，F2，F3为自己需要修炼的技能，如：贯通，弹道，水平.
//F6为救助，没次打炮结束一轮使用两次救助.F8为修理（2次），F4为料理（2次），F5为提桶（2次）
//料理为加50的，最好别用太高的，浪费，如果只开前面说的三种技能，刚好100行动力一次循环的。
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
//数字"1"为启用"0"为不启用
UserVar gp1=3000 发炮延时
UserVar gp2=1700 按F8后延时
UserVar gp3=1000 技能延时
UserVar Pd0=6 发炮轮数
UserVar Pd1=1 使用技能1
UserVar Pd2=1 使用技能2
UserVar Pd3=1 使用技能3
UserVar Pd4=1 使用料理
UserVar Pd5=1 使用修理
UserVar Pd6=1 使用救助
UserVar Pd7=1 使用提桶
//设置结束
Delay 1500
For 9999999
    Gosub 挂炮循环
EndFor
Sub 挂炮循环
    If Pd1=1
        Gosub 使用第1格技能
        Gosub 炮1
    EndIf
    If Pd2=1
        Gosub 使用第2格技能
        Gosub 炮2
    EndIf
    If Pd3=1
        Gosub 使用第3格技能
        Gosub 炮3
    EndIf
    For pd0
        Gosub 发炮
    EndFor
EndIf
If Pd4=1
    Gosub 使用F4吃料理
    Gosub 炮4
    Gosub 使用F4吃料理
    Gosub 炮1
EndIf
If Pd5=1
    Gosub 使用F8技能修理
    Gosub 炮2
    Gosub 使用F8技能修理
    Gosub 炮3
EndIf
If Pd6=1
    Gosub 使用F6技能救助
    Gosub 炮4
    Gosub 使用F6技能救助
    Gosub 炮1
EndIf
If Pd7=1
    Gosub 使用F5技能提桶
    Gosub 炮2
    Gosub 使用F5技能提桶
    Gosub 炮3
EndIf
Rem 结束
Return 挂炮循环
Sub 使用第3格技能
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,114)
    Delay gp3
Return 使用第3格技能
Sub 使用第2格技能
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,113)
    Delay gp3
Return 使用第2格技能
Sub 使用第1格技能
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,112)
    Delay gp3
Return 使用第1格技能
Sub 使用F5技能提桶
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,116)
    Delay gp3
Return 使用F5技能提桶
Sub 使用F6技能救助
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,117)
    Delay gp3
Return 使用F6技能救助
Sub 使用F8技能修理
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp3
Return 使用F8技能修理
Sub 使用F4吃料理
    Plugin Window.SendKeyPress(hwnd,119)
    Delay gp2
    Plugin Window.SendKeyPress(hwnd,115)
    Delay gp3
Return 使用F4吃料理
Sub 发炮
    Plugin Window.SendKeyPress(hwnd,112)
    Delay gp1
    Plugin Window.SendKeyPress(hwnd,113)
    Delay gp1
    Plugin Window.SendKeyPress(hwnd,114)
    Delay gp1
    Plugin Window.SendKeyPress(hwnd,115)
    Delay gp1
Return 发炮
Sub 炮1
    Plugin Window.SendKeyPress(hwnd,112)
    Delay gp3
Return 炮1
Sub 炮2
    Plugin Window.SendKeyPress(hwnd,113)
    Delay gp3
Return 炮2
Sub 炮3
    Plugin Window.SendKeyPress(hwnd,114)
    Delay gp3
Return 炮3
Sub 炮4
    Plugin Window.SendKeyPress(hwnd,115)
    Delay gp3
Return 炮4

[[i] 本帖最后由 芙蓉 于 2008-3-13 23:59 编辑 [/i]]

芙蓉 发表于 2008-3-13 23:57

使用体会就是发炮延时和发炮次数要根据自己技能调整。
炮术 速射 10级大约延时用2650毫秒 12轮用一次技能

viqrgw 发表于 2008-3-14 00:10

:微笑: 顶个芙蓉的贴 很好 很实用

传奇绵羊 发表于 2008-3-16 22:00

恩,支持....马上下了藏起来

查看完整版本: 挂炮的脚本（后台，还挺好用）