*內存使用CE自己修改
腳本開始
//1.本腳本可選擇掛炮或者戰鬥輔助，船隻小於設置的耐久就進行緊急修理,請用按鍵精靈8.20及以上版本
//2.戰鬥輔助時，可自行修理，自行吃料理，自行放技能；掛炮是一個炮一個炮的發
//2.炮技能1-10在熱那亞接55任務在卡利亞里西面掛，炮技能10-15倫敦接西蘭島掠奪團任務在哥本哈根門口掛
//3.快捷鍵F8自定義,F9使用技能,其餘空;自定義欄F123炮技能;F4統率;F5料理;F6外科或其他;F7救助;F8修理
//4.掛炮時先站好位置停船,按TAB瞄準NPC後啟動腳本,先打跟隨的NPC,最後打TD,TD快掛時停戰重新進入戰鬥
//5.掛炮一般用船廠NPC賣的火炮2門（500元的那種），網速慢的可以將Delay 1000改為Delay 1500或者更高
//6.本腳本由『GG2255』原創,交流腳本
Hwnd=Plugin.Window.Foreground()
VBS chpAdd=&H00C14E3E
VBS chmAdd=&H00C151A4
VBS renAdd=&H00C14E30
VBS xdlAdd=&H00C14E24
VBS xdmAdd=&H00C14E28
VBS pldAdd=&H00C14E34
VBS dylAdd=&H00C170E8
VBS jnsAdd=&H00C7DF90
//內存chpAdd船耐久，renAdd為水手數，xdlAdd為行動力，dylAdd為定義欄，jnsAdd為當前釋放的技能個數
UserVar gpzd=1 "掛炮和戰鬥輔助開關，1為掛炮，0戰鬥輔助"
For 999999
Call 吃料理
Call 修理
Call 放技能
Call 發炮
Next
Sub 讀參數()
chp=Plugin.Memory.Read32Bit(Hwnd,chpAdd)
chm=Plugin.Memory.Read16Bit(Hwnd,chmAdd)
ren=Plugin.Memory.Read32Bit(Hwnd,renAdd)
xdl=Plugin.Memory.Read32Bit(Hwnd,xdlAdd)
xdm=Plugin.Memory.Read32Bit(Hwnd,xdmAdd)
pld=Plugin.Memory.Read16Bit(Hwnd,pldAdd)
dyl=Plugin.Memory.Read32Bit(Hwnd,dylAdd)
Addr1=Plugin.Memory.Read32Bit(hwnd,jnsAdd)
Addr2=Plugin.Memory.Read32Bit(hwnd,Addr1+&H20)
jns=Plugin.Memory.Read32Bit(hwnd,Addr2+&H38)
//讀入目前船耐久、水手數、行動力
End Sub
Sub 打開自定義欄()
Call 讀參數
If dyl=0
For 10
Call Plugin.Bkgnd.KeyPress(hwnd,119)
Delay 100
Next
End if
End Sub
Sub 關閉自定義欄()
Call 讀參數
If dyl=16
For 10
Call Plugin.Bkgnd.KeyPress(hwnd,120)
Delay 100
Next
End if
End Sub
Sub 吃料理()
Call 讀參數
If xdl/xdm<0.6 or pld>300
For 99
Call 打開自定義欄
Call Plugin.Bkgnd.KeyPress(hwnd,116)
Delay 500
Call 讀參數
If xdl/xdm>0.9 and pld<50
Goto 吃飽了
End If
Next
rem 吃飽了
Call 救助
End If
End Sub
Sub 救助()
Call 打開自定義欄
Call Plugin.Bkgnd.KeyPress(hwnd,118)
Delay 1000
Call Plugin.Bkgnd.KeyPress(hwnd,117)
Delay 1000
Call Plugin.Bkgnd.KeyPress(hwnd,115)
Delay 1000
End Sub
Sub 放技能()
Call 讀參數
If jns<3
Call 打開自定義欄
Call Plugin.Bkgnd.KeyPress(hwnd,112)
Delay 1000
Call Plugin.Bkgnd.KeyPress(hwnd,113)
Delay 1000
Call Plugin.Bkgnd.KeyPress(hwnd,114)
Delay 1000
Call 救助
End If
End Sub
Sub 修理()
Call 讀參數
If chp/chm<0.8
For 99
Call 吃料理
Call Plugin.Bkgnd.KeyPress(hwnd,119)
Delay 500
Call 讀參數
If chp/chm>0.98
Goto 修好了
End If
Next
rem 修好了
Call 救助
End If
End Sub
Sub 發炮
If gpzd=1 Then
Call 關閉自定義欄
//下面為炮個數，根據炮數調整，4門炮刪最後一句，3門炮刪最後兩句
Call Plugin.Bkgnd.KeyPress(hwnd,112)
Delay 100
Call Plugin.Bkgnd.KeyPress(hwnd,113)
Delay 100
Call Plugin.Bkgnd.KeyPress(hwnd,114)
Delay 100
Call Plugin.Bkgnd.KeyPress(hwnd,115)
Delay 100
Call Plugin.Bkgnd.KeyPress(hwnd,116)
Delay 100
End if
If gpzd=0 Then
Call 打開自定義欄
MyKeyCode = 13
Call 執行按鍵動作()
Delay 100
End if
End Sub
Sub 執行按鍵動作()
Delay 10
KeyResult = GetAsyncKeyState(MyKeyCode)
If KeyResult <> -32767 Then
KeyDown MyKeyCode,1
End if
Delay 10
Call Plugin.Bkgnd.KeyPress(hwnd,MyKeyCode)
Delay 10
End Sub |
收藏
分享
讚
幹
分享
分享
