17173首页 - 免费新游 - 火爆论坛 - 游戏博客 - 游戏播客 - 百科问答 - 网游排行榜 - 网游期待榜
| 通行证 注册
大航海时代OL > > 正文
发个自家用的钓鱼保管脚本(全自动)
2009-06-05           【 加入收藏 / 文章投稿 / 截图上传 / 发表评论
作者:fly0025@sogou.com 获得积分: Z 投稿总数:

自定义栏=F8,料理按自己设定可选择,F1-F4放各类道具(耳塞、救助、灭火、老鼠药……)

请将窗口移到左上角顶牢,需要361度插件

设置文件GV Online Sc.ini:

[window]
select_device=0,0,800,600,22,1

================以下为脚本内容=====================

[General]
Description=全自动钓鱼、杀鱼、丢弃
BeginHotkey=192
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=【功能说明】
全自动钓鱼、杀鱼、清空,无人值守,全天候使用。(请准备足量料理)
【使用说明】
请将分辨率设置为800x600,窗口模式。在游戏窗口下按Ctrl+`启动
【作者介绍】
v1.0儿童节版 陈卓恺制作
【制作日期】
2009年6月1日(儿童节)

[Script]
Dim xd,key1,Item,i
UserVar Item=DropList{F1:1|F2:2|F3:3|F4:4|F5:5|F6:6|F7:7}=7 料理所在键位
Plugin hwnd=Window.GetKeyFocusWnd()
i=1
Sub Main
    Rem start
    i=i+1
    Delay 3000
    Gosub Check
    Rem Judge
    If xd<200
        Gosub Eat
        Delay 800
        Gosub Check
        Goto Judge
    Else
    EndIf
    Gosub K
    Delay 30000
    Gosub K
    If i>15
        Gosub Produce
    Else
    EndIf
    Goto start
Return
Sub Eat
    Plugin BGKM5.KeyClickE(hwnd,119)
    Delay 1600
    Plugin BGKM5.KeyClickE(hwnd,111+Item)
    Delay 200
Return
Sub Check
    Plugin xd=Memory.Read16Bit(hwnd,&h00B0D4D0)
    Delay 200
Return
Sub K
    Plugin BGKM5.KeyClickE(hwnd,119)
    Delay 1600
    Plugin BGKM5.KeyClickE(hwnd,115)
    Delay 300
    Plugin BGKM5.KeyClickE(hwnd,119)
    Delay 1600
    Plugin BGKM5.KeyClickE(hwnd,113)
    Delay 300
    Plugin BGKM5.KeyClickE(hwnd,119)
    Delay 1600
    Plugin BGKM5.KeyClickE(hwnd,112)
    Delay 300
    Plugin BGKM5.KeyClickE(hwnd,119)
    Delay 1600
    Plugin BGKM5.KeyClickE(hwnd,114)
    Delay 500
    Plugin BGKM5.KeyClickE(hwnd,120)
    Delay 1500
    Plugin BGKM5.LClick(hwnd,719,182)
    Delay 200
Return
Sub Produce
    Rem Pro
    Plugin BGKM5.KeyClickE(hwnd,119)
    Delay 1800
    Plugin BGKM5.KeyClickE(hwnd,116)
    Delay 1500
    For 10
        Plugin BGKM5.KeyClickE(hwnd,40)
        Delay 100
    EndFor
    Plugin BGKM5.KeyClickE(hwnd,13)
    Delay 2000
    Plugin BGKM5.LClick(hwnd,460,365)
    Delay 100
    Rem Circle
    Gosub Check
    Gosub Check2
    If xd1-xd2>0
    Else
        Goto OK
    EndIf
    If xd<100
        For 5
            Plugin BGKM5.KeyClickE(hwnd,27)
            Delay 200
        EndFor
    Else
        Goto Circle
    EndIf
    Rem Let's eat
    Gosub Eat
    Gosub Check
    If xd>250
    Else
        Goto Let's eat
    EndIf
    Goto Pro
    Rem OK
    For 5
        Plugin BGKM5.KeyClickE(hwnd,27)
        Delay 200
    EndFor
    Delay 400
    Gosub Throw
Return
Sub Throw
    Plugin BGKM5.KeyClickE(hwnd,118)
    Delay 1800
    Plugin BGKM5.LClick(hwnd,438,365)
    Delay 1000
    LockMouse
    Plugin Window.Restore(hwnd)
    Delay 100
    Plugin Window.Active(hwnd)
    Delay 100
    KeyDownS 17,1
    Delay 50
    MoveToS 289,174
    Delay 100
    For 2
        LeftClickS 1
        Delay 300
    EndFor
    KeyUpS 17,1
    Delay 50
    Plugin BGKM5.LClick(hwnd,634,392)
    Delay 100
    UnlockMouse
    Plugin Window.Min(hwnd)
    i=1
Return
Sub Check2
    Gosub Check
    xd1=xd
    Delay 1500
    Gosub Check
    xd2=xd
Return


此篇文章为17173玩家原创作品,获得积分奖励 10Z。
17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击

此篇文章为17173玩家原创作品,获得积分奖励 Z。
17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击
关键字:

相关链接

http://dol.17173.com/jingyan/tanxian.shtml

游戏截图
用户: 匿名
史上最强的拼音输入法 下载>>>
评论

我要发布Sogou推广服务

热点标签:
新闻 标题 栏目 文章 图片 链接
热点标签:
新闻 标题 栏目 文章 图片 链接