划船_漂副官腳本(後台)

使用者條件_先把護服華梅砍到剩下渣

有砍的人才能使用


腳本如下


//1.後台漂副官操舵划船操帆腳本CE+版，遊戲視窗模式800*600，建議使用按鍵精靈7.X版
//2.快捷鍵F1,F2,F3,F4,F5,F6,F7,F8為自定義欄，F9為使用技能，F12變更副官負責內容
//3.自定義欄內的F1為操帆，F2~F4為自定義技能，F5和F6和F8為料理，F7為救助
//4.有防掉線功能,在按鍵右邊“腳本屬性”“自定義”中設定。不能開大寫鍵盤,否則會登錄失敗
//5.支援漂副官功能, 請把一副設為航海長,二副設為倉管
//6.可選擇轉圈或點岸邊，第一次用請把滑鼠放到岸邊或船側身，建議使用點岸邊
//7.可以全後台，可以最小化!如果要最小化，請將船尾對岸(即船的頭部面向大海)再啟動腳本
//8.需要361後台插件，下載解壓後的後台插件檔案BGKM5.dll放在按建精靈/plugin目錄下
//9.下載位址:http://bbs.vrbrothers.com/viewth ... &extra=page%3D1
//0.本腳本由:砍死護服(華梅)搶劫隊
//程式碼如下:
//=========================我是分隔線=========================
// *********定義變量*******************************
VBS dim shiftDown,VKCode,nAscCode,nSkillCounter
UserVar UserName="aaaaaaaaa" 用戶名
UserVar Password="aaaaaaaaa" 密碼
//*************************************************
Plugin hwnd=Window.Foreground()
VBS Dim DX,DY
Plugin s = Window.GetClientRect(hwnd)
MyArray = Split(s, "|", -1, 1)
DX = MyArray(0)
DY = Myarray(1)
//獲取視窗原始位置函數
VBS Dim chp,ren,hex,day,ol
VBS Dim chpAdd,renAdd,hexAdd,dayAdd,olAdd
VBS Dim pd1,pd2,sw1,sw1_1,hcsw,sw5,sw5_1,sw5_2
VBS chpAdd=&h00B68A3A
VBS renAdd=&h00B68A2C
VBS hexAdd=&h00B68A20
VBS dayAdd=&h00B6A998
VBS olAdd=&H00B6889C
//內存chpAdd船耐久，renAdd為水手數，hexAdd為行動力，dayAdd為航海天數，olAdd為線上掉線
UserVar sw1=1 操帆開關1開啟0關閉(F5)
UserVar sw1_1=1 操帆加速練習開關1啟用0關閉
UserVar hcsw=0 轉圈/點岸開關，1轉圈，0點岸邊
UserVar sw5=1 漂副官開關1開啟0關閉
UserVar sw5_1=83 漂副官職位天數(天)
UserVar sw5_2=1 二副官開關1開啟0關閉
//以上是設定選項，以下是腳本開始
VBSCall Call GetCursorPos(pd1,pd2)
Plugin win=BGKM5.ScrToCli(hwnd,pd1,pd2)
MyArray1= Split(win, "|", -1, 1)
pd1 = MyArray1(0)
pd2 = MyArray1(1)
For 999999
Gosub 點岸邊
Gosub 判斷是否掉線
Gosub 點岸邊
Gosub 吃料理
Gosub 點岸邊
Gosub 救助
Gosub 點岸邊
Gosub 放技能
Gosub 點岸邊
Gosub 操帆
Gosub 點岸邊
Gosub 副官
Gosub 點岸邊
EndFor
Sub 讀參數
Plugin chp=Memory.Read32Bit(hwnd,chpAdd)
Plugin ren=Memory.Read32Bit(hwnd,renAdd)
Plugin hex=Memory.Read32Bit(hwnd,hexAdd)
Plugin day=Memory.Read32Bit(hwnd,dayAdd)
Plugin ol=Memory.Read32Bit(hwnd,olAdd)
//讀入目前船耐久、水手數、行動力、航海天數、線上判斷
Return 讀參數
Sub 激活視窗
Plugin Window.Active(hwnd)
Plugin Window.Restore(hwnd)
Plugin Window.Move(hwnd,0,0)
Return 激活視窗
Sub 清屏
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,120)
Delay 100
EndFor
Return 清屏
Sub 判斷是否掉線
Delay 50
Gosub 讀參數
Delay 50
If ol=0
Delay 200
Gosub 激活視窗
Delay 200
KeyPress 13,1
Delay 1000
KeyPress 13,1
Delay 1000
KeyPress 13,1
Delay 6000
KeyPress 13,1
Delay 1000
Gosu●禁私人部落格●In
Delay 9500
Delay 100
EndIf
Return 判斷是否掉線
Sub 吃料理
Gosub 讀參數
If hex<100
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,116)
Delay 100
EndFor
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,117)
Delay 100
EndFor
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,119)
Delay 100
EndFor
Gosub 點岸邊
EndIf
Return 吃料理
Sub 救助
Gosub 讀參數
If chp<1 or ren<1
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,118)
Delay 100
EndFor
Gosub 點岸邊
EndIf
Return 救助
Sub 放技能
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,113)
Delay 100
EndFor
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,114)
Delay 100
EndFor
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,115)
Delay 100
EndFor
Return 放技能
Sub 操帆
If sw1=1
For 10
Gosub 點岸邊
Plugin Bkgnd.KeyPress(hwnd,112)
Delay 100
EndFor
If sw1_1=1
Plugin BGKM5.LClick(hwnd,781,581)
Delay 100
EndIf
Gosub 清屏
EndIf
Return 操帆
Sub 點岸邊
If hcsw=1
Plugin BGKM5.RClick(hwnd,pd1,pd2)
Plugin BGKM5.LDBCLK(hwnd,pd1,pd2)
EndIf
If hcsw=0
Plugin BGKM5.LDBCLK(hwnd,pd1,pd2)
Plugin BGKM5.LDBCLK(hwnd,pd1+20,pd2)
EndIf
Return 點岸邊
Sub 副官
If sw5=1
Gosub 讀參數
If day mod sw5_1=0 and day>0 and day<998
For 10
Plugin Bkgnd.KeyPress(hwnd,123)
Delay 100
EndFor
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,40)
Delay 1000
If sw5_2=1
Plugin BGKM5.LClick(hwnd,343,98)
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,40)
Delay 1000
EndIf
Plugin Bkgnd.KeyPress(hwnd,13)
Delay 1000
Plugin Bkgnd.KeyPress(hwnd,13)
Delay 500
Plugin BGKM5.LClick(hwnd,555,370)
Delay 1000
For 65
Gosub 救助
Gosub 點岸邊
Delay 1000
EndFor
EndIf
EndIf
Return 副官
// 登入遊戲
Su●禁私人部落格●In
Delay 500
Goto goon1
Rem relogin2
KeyPress 13,1
Delay 500
KeyPress 13,1
Delay 500
KeyPress 13,1
Delay 500
KeyPress 13,1
Delay 500
KeyPress 13,1
Delay 500
KeyPress 13,1
Delay 500
Rem goon1
MoveTo DX+50, DY+50
Delay 50
LeftClick 1
MoveTo DX+400, DY+439
Delay 50
LeftClick 1
Delay 3000
// 顏色比較判斷是否進入到登錄畫面
counter1=0
Rem check1
IfColor DX+439, DY+486, b19f83, 2
MoveTo DX+50, DY+50
For 10
RightClick 1
Delay 20
EndFor
Else
counter1=counter1+1
If counter1>10
Goto relogin2
EndIf
Delay 2000
Goto check1
EndIf
Delay 1000
MoveTo DX+293, DY+240
Delay 200
LeftClick 1
Delay 200
KeyPress 8,20
Delay 200
Gosub ProcessUsername
Delay 1000
KeyPress 13,1
Delay 500
Gosub ProcessPassword
Delay 1000
KeyPress 13,1
Delay 1000
// 顏色比較判斷是否進入到選擇帳號畫面
counter1=0
Rem check2
IfColor DX+320,DY+192,e1e2e4,2
KeyPress 13,1
Else
counter1=counter1+1
If counter1>10
Goto relogin2
EndIf
Delay 2000
Goto check2
EndIf
Delay 1000
// 顏色比較判斷是否進入到選擇遊戲世界畫面
counter1=0
Rem check3
IfColor DX+451,DY+455,dad5cc,2
KeyPress 13,1
Else
counter1=counter1+1
If counter1>10
Goto relogin2
EndIf
Delay 2000
Goto check3
EndIf
Delay 1000
// 顏色比較判斷是否進入到選擇角色畫面
counter1=0
Rem check4
IfColor DX+284,DY+402,e0d9cd,2
KeyPress 13,1
Else
counter1=counter1+1
If counter1>10
Goto relogin2
EndIf
Delay 2000
Goto check4
EndIf
Return LogIn
// ASCII碼轉換為精靈按鍵碼
Sub ASCtoVK
// 數字0-9
If nAscCode>=48 And nAscCode<=57
VKCode = nAscCode
shiftDown = 0
// 小寫字母
ElseIf nAscCode>=97 And nAscCode<=122
VKCode = nAscCode - 32
shiftDown = 0
// 大寫字母
ElseIf nAscCode>=65 And nAscCode<=90
VKCode = nAscCode
KeyPress shiftDown = 1
// !
ElseIf nAscCode=33
VKCode = 49
shiftDown = 1
// @
ElseIf nAscCode=64
VKCode = 50
shiftDown = 1
// #$%
ElseIf nAscCode>=35 And nAscCode<=37
VKCode = nAscCode + 16
shiftDown = 1
// ^
ElseIf nAscCode=94
VKCode = 54
shiftDown = 1
// &
ElseIf nAscCode=38
VKCode = 55
shiftDown = 1
// *
ElseIf nAscCode=42
VKCode = 56
shiftDown = 1
// (
ElseIf nAscCode=40
VKCode = 57
shiftDown = 1
// )
ElseIf nAscCode=41
VKCode = 48
shiftDown = 1
// -
ElseIf nAscCode=45
VKCode = 189
shiftDown = 0
// _
ElseIf nAscCode=95
VKCode = 189
shiftDown = 1
// =
ElseIf nAscCode=61
VKCode = 187
shiftDown = 0
// +
ElseIf nAscCode=43
VKCode = 187
shiftDown = 1
// [
ElseIf nAscCode=91
VKCode = 219
shiftDown = 0
// {
ElseIf nAscCode=123
VKCode = 219
shiftDown = 1
// ]
ElseIf nAscCode=93
VKCode = 221
shiftDown = 0
// }
ElseIf nAscCode=125
VKCode = 221
shiftDown = 1
// '
ElseIf nAscCode=39
VKCode = 222
shiftDown = 0
// "
ElseIf nAscCode=34
VKCode = 222
shiftDown = 1
// ;
ElseIf nAscCode=59
VKCode = 186
shiftDown = 0
// :
ElseIf nAscCode=58
VKCode = 186
shiftDown = 1
// \
ElseIf nAscCode=92
VKCode = 220
shiftDown = 0
// |
ElseIf nAscCode=108
VKCode = 220
shiftDown = 1
// ,
ElseIf nAscCode=44
VKCode = 188
shiftDown = 0
// <
ElseIf nAscCode=60
VKCode = 188
shiftDown = 1
// .
ElseIf nAscCode=46
VKCode = 190
shiftDown = 0
// >
ElseIf nAscCode=62
VKCode = 190
shiftDown = 1
// /
ElseIf nAscCode=47
VKCode = 191
shiftDown = 0
// ?
ElseIf nAscCode=63
VKCode = 191
shiftDown = 1
Else
VKCode = 32
shiftDown = 0
EndIf
Return ASCtoVK
// 處理用戶名字元串
Sub ProcessUsername
dim array(), arrayAsc(),strLength, i
i = 0
strLength = Len(UserName)
redim array(strLength-1)
redim arrayAsc(strLength-1)
For strLength
array(i) = Mid(UserName, i+1, 1)
nAscCode = Asc(array(i))
Gosub ASCtoVK
Gosub SendKeyPress
i = i+1
EndFor
Return ProcessUsername
// 處理密碼字元串
Sub ProcessPassword
dim array(), arrayAsc(),strLength, i
i = 0
strLength = Len(Password)
redim array(strLength-1)
redim arrayAsc(strLength-1)
For strLength
array(i) = Mid(Password, i+1, 1)
nAscCode = Asc(array(i))
Gosub ASCtoVK
Gosub SendKeyPress
i = i+1
EndFor
Return ProcessPassword
// 輸入用戶名及密碼
Sub SendKeyPress
If shiftDown = 0
KeyPress VKCode,1
Else
KeyDown 16,1
KeyPress VKCode,1
KeyUp 16,1
EndIf
Return SendKeyPress

第2種腳本_內存需要修改使用CE先抓內存


// 361後台插件下載位址:http://bbs.vrbrothers.com/viewth ... &extra=page%3D1
// 請把解壓後的檔案放在按建精靈/plugin目錄下
//**********************功能描述****************************************
// 支援800*600/任意分辯率
// 練習 操帆 操舵 划船,漂副官 吃料理 自我救助 ,第一次用請把滑鼠放到船側身 或岸邊,啟動腳本後
// 會記錄滑鼠位置,腳本會自我究錯,如有什麼疑問可線上m我!(副官可以設船醫)
// 提示==>請不要把遊戲最小化,目前不支援,可以後台但不能最小化!
// 1.3版新加入自定義技能鍵 F3,F4 放入想要用的技能,並打開SW3 SW4
// 1.4版新加入漂副官功能, 請把一副設為航海長,二副設為船醫
//
// delaymax 參數 是用來調節網速的,跟據網速自己調一下預設為10
// hcsw 開關參數 為1啟用轉圈划船,為0點岸邊! 啟用轉圈時請把游標指向船側身
// 啟用點岸時請把游標指向岸邊 ,腳本會記錄游標位置!
// jssw 開關參數 操帆加速練習開關 1啟用加速但需要分辯率為800*600,0關閉加速支援任意分辯率
// sw1 操帆開關1開啟0關閉
// sw1_1 操帆加速練習開關 1啟用加速但需要分辯率為800*600,0關閉加速支援任意分辯率
// sw2 划船開關1開啟0關閉
// sw3 開關參數 1開啟 0關閉 用戶自定義要練習的技能
// sw4 開關參數 1開啟 0關閉 用戶自定義要練習的技能
// sw5 漂副官1開啟0關閉
// sw5_1 二副官開關1開啟0關閉 , 啟用二副需要800*600支援
// sw5_2 漂副官職位天數(天)
// 幫助
// 1:為什麼不能使用技能?
// 答:可能你電腦卡,請把調節網速參數調高
// 由於沒有進行長久的測試,如有問題出現,請留言或遊戲裡m我!
//*********************功能鍵描述**************************************
//
// 自定義欄登陸: f1=救助(或救生圈),f2=划船,F3=自定義1,F4=自定義2f5=操帆,f7=料理
// 快捷鍵登陸: f1,f2,f3,f4,f5,f7=自定義欄 f9=使用技能 f12=副官負責內容變更
// 注:f9改為使用技能感覺穩定性好點
//*********************************************************************
VBS Dim i,j,ren,chp,hp,xmin,pd1,pd2,hpmax,delaymax,hcsw,jssw
VBS Dim sw1,sw2,sw3,sw4,sw5,sw5_1,sw5_2,sw1_1,day,day1,day2,day3,day4
VBS Dim chpAdd,renAdd,hpAdd,DayAdd
UserVar hpmax=60 吃料理體力上限
UserVar delaymax=30 調節網速
UserVar hcsw=1 轉圈/點岸開關,1轉圈,0點岸邊
UserVar sw1=1 操帆開關1開啟0關閉(F5)
UserVar sw1_1=1 操帆加速練習開關1啟用0關閉
UserVar sw2=1 划船開關1開啟0關閉(F2)
UserVar sw3=1 自定義開關1開啟0關閉(F3)
UserVar sw4=1 自定義開關1開啟0關閉(F4)
UserVar sw5=1 漂副官開關1開啟0關閉
UserVar sw5_1=1 二副官開關1開啟0關閉
UserVar sw5_2=30 漂副官職位天數(天)
VBS chpAdd=&H00ac24f2  -----------------這邊要使用CE抓到的內存後修改
//VBS chpAdd=&H00ab94ee   -----------這邊一樣要修改
//船耐久
VBS renAdd=&H00ac24e4    -----------------這邊也要修改
//VBS renAdd=&H00ab94e0   -------------這邊要修改
//水手數
VBS hpAdd=&H00ac24d8    -----------要修改
//VBS hpAdd=&H00ab94d4  ---------要修改
//當前行動力
VBS dayAdd=&H00ac4354   ------要修改
//VBS dayAdd=&H00abb354  ------------要修改
//日數
VBSCall Call GetCursorPos(pd1,pd2)
Plugin hwn=Window.Foreground()
//Plugin hwn=Window.GetKeyFocusWnd()
Plugin win=BGKM5.ScrToCli(hwn,pd1,pd2)
MyArray = Split(win, "|", -1, 1)
pd1 = MyArray(0)
pd2 = MyArray(1)
Gosub 讀參數
VBS day4=day
While 1
    Gosub 點岸邊
    Gosub 救助
    Gosub 點岸邊
    Gosub 吃料理
    Gosub 點岸邊
    Gosub 划船
    Gosub 點岸邊
    Gosub 操帆
    Gosub 點岸邊
    Gosub 自定義1
    Gosub 點岸邊
    Gosub 自定義2
    Gosub 點岸邊
    Gosub 副官
    Gosub 點岸邊
EndWhile
Sub 讀參數
    //16
    Plugin ren=Memory.Read32Bit(hwn,renAdd)
    Plugin xmin=Memory.Read32Bit(hwn,hpAdd)
    Plugin chp=Memory.Read32Bit(hwn,chpAdd)
    //
    Plugin day=Memory.Read32Bit(hwn,dayAdd)
Return 讀參數
Sub 清屏
    VBS i=0
    Plugin Window.SendKeyPress(hwn,120)
Return 清屏
Sub 划船
    If sw2=1
        Gosub 讀參數
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,113)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 點岸邊
            Gosub 讀參數
            VBS i=i+1
            If i-delaymax>0
                Goto 超時退出
            EndIf
        EndWhile
        Rem 超時退出
        Gosub 清屏
    EndIf
Return 划船
Sub 操帆
    If sw1=1
        Gosub 讀參數
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,116)
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 點岸邊
            Gosub 讀參數
            VBS i=i+1
            If i-delaymax>0
                Goto 超時退出1
            EndIf
        EndWhile
        Rem 超時退出1
        If sw1_1=1
            Plugin BGKM5.LClick(hwn,781,581)
        EndIf
        Gosub 清屏
    EndIf
Return 操帆
Sub 點岸邊
    If hcsw=1
        Plugin BGKM5.RClick(hwn,pd1,pd2)
        Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
    EndIf
    If hcsw=0
        Plugin BGKM5.LDBCLK(hwn,pd1,pd2)
        Plugin BGKM5.LDBCLK(hwn,pd1+20,pd2)
    EndIf
Return 點岸邊
Sub 副官
    If sw5=1
        Gosub 讀參數
        VBS day1=(day-day4)/sw5_2-(day-day4)\sw5_2
        VBS day2=day-day4-sw5_2
        If day1=0 and day2>=0 and day3-day<>0
            VBS day3=day
            For 3
                Plugin Window.SendKeyPress(hwn,123)
            EndFor
            Delay 2000
            Plugin Window.SendKeyPress(hwn,40)
            Delay 1000
            If sw5_1=1
                Plugin BGKM5.LClick(hwn,343,98)
                Delay 1000
                Plugin Window.SendKeyPress(hwn,38)
                Delay 1000
            EndIf
            Plugin Window.SendKeyPress(hwn,13)
            Delay 1000
            Plugin Window.SendKeyPress(hwn,27)
        EndIf
    EndIf
Return 副官
Sub 自定義1
    If sw3=1
        Gosub 讀參數
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,114)
            Gosub 點岸邊
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 讀參數
            VBS i=i+1
            If i-delaymax>0
                Goto 超時退出2
            EndIf
        EndWhile
        Rem 超時退出2
        Gosub 清屏
    EndIf
Return 自定義1
Sub 自定義2
    If sw4=1
        Gosub 讀參數
        VBS hp=xmin
        While hp=xmin
            Plugin Window.SendKeyPress(hwn,115)
            Gosub 點岸邊
            Plugin Window.SendKeyPress(hwn,27)
            Gosub 讀參數
            VBS i=i+1
            If i-delaymax>0
                Goto 超時退出3
            EndIf
        EndWhile
        Rem 超時退出3
        Gosub 清屏
    EndIf
Return 自定義2
Sub 救助
    Gosub 讀參數
    While ren=0 or chp=0
        Plugin Window.SendKeyPress(hwn,112)
        Gosub 點岸邊
        Plugin Window.SendKeyPress(hwn,27)
        Gosub 讀參數
    EndWhile
Return 救助
Sub 吃料理
    Gosub 讀參數
    While xmin-hpmax<0
        Plugin Window.SendKeyPress(hwn,118)
        Gosub 點岸邊
        Plugin Window.SendKeyPress(hwn,27)
        Gosub 讀參數
    EndWhile
Return 吃料理

感謝G大再次分享這麼好用的腳本。
剛完沒多久，沒有能力幫G大砍華梅....

谢谢分享！~~~~~~~~~~~~~~~~~~~~

謝謝分享，
另外不太懂使用條件，
那是ｎｐｃ？？

多謝大大分享~~~~~~~~~~~可惜我是戰服的

這個26/8更新後能用嗎？我正想要一個呢。。

感謝大大分享，真是非常感謝啊。