dol.txt

大航海时代后台游戏控制

[General]
Description=后台挂划船操舵
BeginHotkey=50
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=0
EnableWindow=大航海时代 Online
Enable=1
AutoRun=0
[Repeat]
Type=1
Number=1943232333
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
//大航海时代Online 游戏后台挂划船操舵脚本
//使用说明：
//F1为划船，F2运用,F3警戒，F4老鼠药，F5灭火,F6救助（或救生圈）,F7料理，F8修理,F9为使用技，自定义栏设置F10，
//按Ctrl+2启动脚本，F12中止脚本（F11，F12游戏中设置为空）
//2007.12.1艾登.雷斯(1-4)编写
VBS dim hwnd,tl,nj,ss
Plugin hwnd=Window.GetKeyFocusWnd()
//////
Plugin tl=Memory.Read16Bit(hwnd,&h00A4DE54)
Plugin nj=Memory.Read16Bit(hwnd,&h00A4DE6E)
Plugin ss=Memory.Read16Bit(hwnd,&h00A4DE60)
While 
    If tl<550
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,118) //F7料理
        // Plugin tl=Memory.Read16Bit(hwnd,&h00A4DE54)
        //
    EndIf 
    If nj<220
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,119) //F8修理
        // Plugin nj=Memory.Read16Bit(hwnd,&h00A4DE6E)
    EndIf 
    If ss=0
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,117) //F6救助
        Plugin nj=Memory.Read16Bit(hwnd,&h00A4DE6E)
        Plugin ss=Memory.Read16Bit(hwnd,&h00A4DE60)
    EndIf 
    If nj=0
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
        Delay 1500
        Plugin Window.SendKeyPress(hwnd,117) //F6救助
        Plugin nj=Memory.Read16Bit(hwnd,&h00A4DE6E)
        Plugin ss=Memory.Read16Bit(hwnd,&h00A4DE60)
    EndIf 
    //Plugin BGKM5.KeyClick(hwnd,37) //键← 转向(死亡后启动)
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,112) //F1划船
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,113) //F2运用
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,114) //F3警戒
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,115) //F4老鼠药
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,116) //F5灭火   疾病
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,121) //调用F10自定义栏
    Delay 1500
    Plugin Window.SendKeyPress(hwnd,117) //F6疾病
    Plugin nj=Memory.Read16Bit(hwnd,&h00A4DE6E)
    Plugin ss=Memory.Read16Bit(hwnd,&h00A4DE60)
    Plugin tl=Memory.Read16Bit(hwnd,&h00A4DE54)
EndWhile