自定义栏=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 |
