脚本内有使用按精的"多线程"功能.目前只有6.85版或以上的按精支持,请使用6.85或更高的按精版本
为了挂炮,所以写这个脚本,但因为炮挂完了,有些地方我就没再有时间去修正了..所以我感觉有的地方不是太智能,就是按得比较傻...所以用得上的朋友就用啦,不喜欢的就直接删佬.
在脚本右边脚本属性的"自定义"栏里必须设置的是船的耐久上限,行动力满足多少(百份比)就不再补和开炮延迟. 关于开炮延迟这一块,之所以设成100是因为我不想就这么死死的固定多久开一次炮,中间有啥漏的就得错开了,所以我是一直按开炮.
将F8设为呼出快捷栏,并放置料理 / F9设为呼出技能栏
在脚本开始时会先弹出技能判断技能所在位置,才开始点技能,如发现开始后没在开技能,可能是网络问题导致技能没抓到,请重开脚本.
此脚本本来只想个人用,有些地方可能不能考虑到他人使用的情况,反正如果没脚本的话先试下吧,好过没用.其实主要也是给其他玩家提供一些写脚本的思路,高手喷场能理解.
本脚本还得用图,由于17173无法上传图片,所以图片到以下网址下载挂炮图库pData.
http://bbs.vrbrothers.com/viewthread.php?tid=81431&extra=page%3D1
1-2 海岚·止战
以下为脚本内容:
Plugin dol=Window.Foreground()
Plugin hwnd=Window.GetKeyFocusWnd()
//==============自定义区=============
UserVar Mana=50 控制补行动力%
UserVar maxship=479 船耐久上限
VBS MaxActionAdd=&haf8504
VBS ShipAdd=&haf851a
VBS CrewAdd=&haf850c
VBS ActionAdd=&haf8500
VBS Seatime=&hafa3c4
//==============自定义区=============
//---------|||||
Plugin BGKM5.KeyClick(hwnd,120)
Plugin BGKM5.KeyClick(hwnd,120)
Delay 1500
VBSCall FindPic(0,0,1024,768,"pData\修理.bmp",0.9,x,y)
Plugin jnzb=BGKM5.ScrToCli(dol,x,y)
MyArray = Split(jnzb, "|", -1, 1)
xiulix = MyArray(0)
xiuliy = MyArray(1)
Delay 30
VBSCall FindPic(0,0,1024,768,"pData\救助.bmp",0.9,x,y)
Plugin jnzb=BGKM5.ScrToCli(dol,x,y)
MyArray = Split(jnzb, "|", -1, 1)
jiuzhux = MyArray(0)
jiuzhuy = MyArray(1)
Delay 30
VBSCall FindPic(0,0,1024,768,"pData\水平.bmp",0.9,x,y)
Plugin jnzb=BGKM5.ScrToCli(dol,x,y)
MyArray = Split(jnzb, "|", -1, 1)
shuipingx = MyArray(0)
shuipingy = MyArray(1)
Delay 30
VBSCall FindPic(0,0,1024,768,"pData\弹道.bmp",0.9,x,y)
Plugin jnzb=BGKM5.ScrToCli(dol,x,y)
MyArray = Split(jnzb, "|", -1, 1)
dandaox = MyArray(0)
dandaoy = MyArray(1)
Delay 30
VBSCall FindPic(0,0,1024,768,"pData\速射.bmp",0.9,x,y)
Plugin jnzb=BGKM5.ScrToCli(dol,x,y)
MyArray = Split(jnzb, "|", -1, 1)
shusex = MyArray(0)
shusey = MyArray(1)
Delay 30
//---------|||||
Plugin datd=Memory.Read16Bit(dol,CrewAdd)
BeginThread "duoxc"
Delay 200
While 1
Rem 吃料理
Plugin data=Memory.Read16Bit(dol,ActionAdd)
Plugin datb=Memory.Read16Bit(dol,MaxActionAdd)
If data<50
While Mana>data/datb*100
Plugin BGKM5.KeyClick(hwnd,119)
Delay 2000
Plugin BGKM5.KeyClick(hwnd,119)
Delay 300
Plugin data=Memory.Read16Bit(dol,ActionAdd)
Plugin datb=Memory.Read16Bit(dol,MaxActionAdd)
EndWhile
Delay 1000
EndIf
Plugin datc=Memory.Read16Bit(dol,ShipAdd)
If 25>datc/maxship*100
While 80>datc/maxship*100
Gosub 修理
Plugin datc=Memory.Read16Bit(dol,ShipAdd)
EndWhile
Delay 1000
EndIf
Plugin datf=Memory.Read16Bit(dol,CrewAdd)
If 0 Gosub 救助
Delay 1000
EndIf
Gosub 速射
Gosub 水平
Gosub 弹道
Delay 1000
EndWhile
Sub duoxc
Plugin hwns=Window.GetKeyFocusWnd()
UserVar Fireon=100 开炮延迟
While 1
Plugin BGKM5.KeyClick(hwns,112)
Delay Fireon
Plugin BGKM5.KeyClick(hwns,113)
Delay Fireon
Plugin BGKM5.KeyClick(hwns,114)
Delay Fireon
Plugin BGKM5.KeyClick(hwns,115)
Delay Fireon
EndWhile
Return duoxc
Sub 修理
Plugin dataxl=Memory.Read16Bit(dol,ActionAdd)
If dataxl<50
Goto 吃料理
EndIf
Plugin BGKM5.KeyClick(hwnd,120)
Plugin BGKM5.KeyClick(hwnd,120)
Delay 2000
Plugin BGKM5.LClick(hwnd,xiulix,xiuliy)
Delay 200
Return 修理
Sub 救助
Plugin BGKM5.KeyClick(hwnd,120)
Plugin BGKM5.KeyClick(hwnd,120)
Delay 2000
Plugin BGKM5.LClick(hwnd,jiuzhux,jiuzhuy)
Delay 200
Return 救助
Sub 水平
Plugin BGKM5.KeyClick(hwnd,120)
Plugin BGKM5.KeyClick(hwnd,120)
Delay 2000
Plugin BGKM5.LClick(hwnd,shuipingx,shuipingy)
Delay 200
Return 水平
Sub 弹道
Plugin BGKM5.KeyClick(hwnd,120)
Plugin BGKM5.KeyClick(hwnd,120)
Delay 2000
Plugin BGKM5.LClick(hwnd,dandaox,dandaoy)
Delay 200
Return 弹道
Sub 速射
Plugin BGKM5.KeyClick(hwnd,120)
Plugin BGKM5.KeyClick(hwnd,120)
Delay 2000
Plugin BGKM5.LClick(hwnd,shusex,shusey)
Delay 200
Return 速射
| 此篇文章为17173玩家原创作品，获得积分奖励 20Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
