F1_键=操帆相关
F2_键=灭火相关
F3_键=灭鼠相关
F4_键=甲板刷子
F5_键=坏血病相关
F6_键=瘟疫相关
F7_键=统率技能
F8_键=料理相关
此脚本只针对系统第一个打开的GVO窗口,其他窗口无效.此脚本功能可后台.
目前为测试版本
说明:
操帆技能 放 F1
灭火砂或灭火技能 放 F2
灭鼠药或驱逐技能 放 F3
甲板刷子 放 F4
疾病学或莱姆果汁等去白血病药放 F5
疾病学或瘟疫药 放F6
统率技能 放F7
料理 放 F8
本脚本并非外挂类,请勿与外挂比较功能的好坏.
如有异常或疑问,联系1-2 海岚·止战 或QQ63320117,以下为脚本内容
//大航海时代ol GVOnline c3 beta
Gosub Statement
Plugin hwnd=Window.GetKeyFocusWnd()
Delay 300
//Main.exe
While true
Plugin ManaValue=Memory.Read16Bit(hwnd,ManaValue_add)
Plugin FatigueValue=Memory.Read16Bit(hwnd,FatigueValue_add)
If ManaValue<40
For Circulation
Gosub Mg_value
EndFor
ElseIf FatigueValue>300
Gosub Mg_value
EndIf
Delay 200
Plugin SailLevel=Memory.Read16Bit(hwnd,SailLevel_add)
If SailLevel>0
Plugin HoldSail=Memory.Read16Bit(hwnd,HoldSail_add)
If HoldSail=0
Gosub HoldTheSail
EndIf
EndIf
Delay 200
Plugin Condition=Memory.Read16Bit(hwnd,Condition_add)
If Condition=16
Gosub Pree_F2
ElseIf Condition=8
Gosub Pree_F3
ElseIf Condition=65536
Gosub Pree_F4
ElseIf Condition=1
Gosub Pree_F5
ElseIf Condition=2
Gosub Pree_F6
ElseIf Condition=4 or Condition=4194304
Gosub Pree_F7
EndIf
Delay 200
EndWhile
//Sub.exe
Sub Mg_value
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,119)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Pree_F3
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,114)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Statement
UserVar Circulation=3 食料理次数
VBS ControlFrame_add=&hafa1b8
VBS ManaValue_add=&haf8500
VBS FatigueValue_add=&haf8510
VBS HoldSail_add=&haf88fc
VBS SailLevel_add=&haf88dc
VBS Condition_add=&haf8444
Return
Sub HoldTheSail
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,112)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Pree_F2
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,113)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Pree_F4
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,115)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Pree_F5
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,116)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Pree_F6
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,117)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
Sub Pree_F7
KeyDown 17,1
Delay 50
Plugin Window.SendKeyPress(hwnd,90)
Delay 50
KeyUp 17,1
Delay 1500
LoginTime=0
While LoginTime<10
Plugin ControlFrame=Memory.Read16Bit(hwnd,ControlFrame_add)
If ControlFrame=8
Plugin Window.SendKeyPress(hwnd,118)
Delay 200
LoginTime=LoginTime+10
Else
Delay 300
LoginTime=LoginTime+1
EndIf
EndWhile
Return
| 此篇文章为17173玩家原创作品，获得积分奖励 20Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
