[综合]1-3 T-BAG_HughPromise的安特卫普港
在此先要感谢“风字”和“Hudakdu”的脚本分享(虽然本人对老夫的威名亦有点不以为然),正因为有他们的分享,才会有现在的脚本诞生。如果不是他们将自己写脚本的技术公布,那么我想即使再学上几个月也不可能会有什么进步。会想写脚本是因为本人实在没时间玩游戏,但对大航海的热情却让我想要继续下去。不为别的,只是为了心中对本人第一个网游的一份执着。公布脚本只是为交流,不是为了让各位用来破坏游戏。既然玩了,那么享受游戏的乐趣才是做为一个玩家最重要的东西,而脚本只是让我们可以从一些烦琐的事务中解放出来。本人所有的公布的脚本都是在游戏窗口800*600之下,32位色真彩下运行。拙劣之处还请各位大大们指证,因为没太多时间泡论坛,故也没办法即时回答各位的疑惑,还请先原谅一下。
[General]
Description=安特卫普港内钓鱼脚本
BeginHotkey=219
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=221
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//安特卫普港内钓鱼脚本
//F1=112;F2=113;F3=114;F4=115;F5=116;F6=117;F7=118;F8=119;F9=120;F10=121;F11=122;F12=123;
UserVar ActionLimit=360 行动力上限
UserVar Jiu=4 点餐酒的位置0为不点
UserVar Cai=8 点餐菜的位置0为不点
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn = Window.GetKeyFocusWnd()
//参数设置结束
Gosub 安特卫普港内钓鱼
Rem 脚本结束
EndScript
//=================================================================
Sub 安特卫普港内钓鱼
Gosub 码头广场下
Gosub 码头到酒馆
//是否吃过酒菜
OldJiuCai = 0
Gosub 酒馆事项
Gosub 酒馆到钓点
iActionLimit = ActionLimit
Tishi="窗口自动消失后就可以将航海切至后台了!"
Gosub 提示Tishi
For 99999999
Gosub 钓鱼
Gosub 激活窗口
Gosub 钓点到酒馆
Gosub 酒馆事项
Gosub 酒馆到钓点
Gosub 返回窗口
EndFor
Return 安特卫普港内钓鱼
//=================================================================
Sub 钓鱼
lun = iActionLimit\10-1
For lun
Plugin Window.SendKeyPress(hwn,121)
Delay 2000
Plugin Window.SendKeyPress(hwn,117)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 63000
EndFor
Return 钓鱼
Sub 码头广场下
Delay 1000
PosX = 656
PosY = 383
Gosub 移动鼠标
LeftClick 1
Gosub 延时判定
Delay 3000
Return 码头广场下
Sub 码头到酒馆
Delay 1000
TurnWay = "L"
TurnAngle = 800
TurnReset = 0
Gosub 转向
TurnAngle = 2800
Gosub 向前行走
Return 码头到酒馆
Sub 酒馆到钓点
Delay 1000
TurnWay = "L"
TurnAngle = 300
TurnReset = 0
Gosub 转向
TurnAngle = 8500
Gosub 向前行走
Return 酒馆到钓点
Sub 钓点到酒馆
Delay 1000
TurnWay = "R"
TurnAngle = 3000
TurnReset = 1
Gosub 转向
TurnAngle = 8600
Gosub 向前行走
Return 钓点到酒馆
//=================================================================
Sub 酒馆事项
Gosub 查找酒馆入口
Gosub 入口到老板
Gosub 查找酒馆老板
Gosub 补行动力
Gosu
[General]
Description=安特卫普港内钓鱼脚本
BeginHotkey=219
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=221
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//安特卫普港内钓鱼脚本
//F1=112;F2=113;F3=114;F4=115;F5=116;F6=117;F7=118;F8=119;F9=120;F10=121;F11=122;F12=123;
UserVar ActionLimit=360 行动力上限
UserVar Jiu=4 点餐酒的位置0为不点
UserVar Cai=8 点餐菜的位置0为不点
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn = Window.GetKeyFocusWnd()
//参数设置结束
Gosub 安特卫普港内钓鱼
Rem 脚本结束
EndScript
//=================================================================
Sub 安特卫普港内钓鱼
Gosub 码头广场下
Gosub 码头到酒馆
//是否吃过酒菜
OldJiuCai = 0
Gosub 酒馆事项
Gosub 酒馆到钓点
iActionLimit = ActionLimit
Tishi="窗口自动消失后就可以将航海切至后台了!"
Gosub 提示Tishi
For 99999999
Gosub 钓鱼
Gosub 激活窗口
Gosub 钓点到酒馆
Gosub 酒馆事项
Gosub 酒馆到钓点
Gosub 返回窗口
EndFor
Return 安特卫普港内钓鱼
//=================================================================
Sub 钓鱼
lun = iActionLimit\10-1
For lun
Plugin Window.SendKeyPress(hwn,121)
Delay 2000
Plugin Window.SendKeyPress(hwn,117)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 63000
EndFor
Return 钓鱼
Sub 码头广场下
Delay 1000
PosX = 656
PosY = 383
Gosub 移动鼠标
LeftClick 1
Gosub 延时判定
Delay 3000
Return 码头广场下
Sub 码头到酒馆
Delay 1000
TurnWay = "L"
TurnAngle = 800
TurnReset = 0
Gosub 转向
TurnAngle = 2800
Gosub 向前行走
Return 码头到酒馆
Sub 酒馆到钓点
Delay 1000
TurnWay = "L"
TurnAngle = 300
TurnReset = 0
Gosub 转向
TurnAngle = 8500
Gosub 向前行走
Return 酒馆到钓点
Sub 钓点到酒馆
Delay 1000
TurnWay = "R"
TurnAngle = 3000
TurnReset = 1
Gosub 转向
TurnAngle = 8600
Gosub 向前行走
Return 钓点到酒馆
//=================================================================
Sub 酒馆事项
Gosub 查找酒馆入口
Gosub 入口到老板
Gosub 查找酒馆老板
Gosub 补行动力
Gosu
来源:52pk玩家投稿 作者:匿名
大航海时代相关文章推荐
[大航海时代][杂文]一世感动——杯子,还记得我吗
[大航海时代][杂文]祝贺3区2服天涯人※菲霞婚礼圆满成功
[大航海时代][杂文]2区5服东地又见小海盗
[大航海时代][杂文] 私掠许可证
[大航海时代][杂文]明朝时候,戚继光的船只图(资料)
[跑跑卡丁车][心情]我的儿子是个小小卡丁车手
[最新动态]《华夏免费版》29日 登陆浩方对战平台
[CS]CS:ESWC 2007俄罗斯预选赛决赛进行中
[最新动态]《幻想世界FM》游戏口号诞生 大奖送出
[shaiya神泣][心情]再见了,神泣
[水浒Q传][水浒Q传交流]浅谈武师技能
[问道][综合]问道密码的保护方法
[梦幻西游][综合]发现梦幻的一些小秘密
[魔兽世界][圣骑士]圣骑士(光明制裁和审判的执行者)
[冒险岛][综合交流]冒险岛最特殊的药品 你见过吗大航海时代重要提示
3、本站是游戏爱好者网站,非大航海时代官方网站,本站服务器不提供大航海时代外挂下载,大航海时代私服下载。
大航海时代特别推荐
大航海时代论坛新帖
