shift+1启动，shift+2停止。自动升级技能（每过20杆检测一次），站在能点到NPC的地方就行，屏幕分辨率800*600窗口模式，最好视角里全是水。。。
脚本附件：训练.bmp, Yupiao3.bmp, 钓鱼技能.bmp
运行环境：分辨率：1680×1050 色深：32位 操作系统：Windows 8 Pro 按键精灵版本：9.51.11790
标签： 脚本
此脚本只适用于巨人拉车时使用
举例：这个脚本可以模拟鼠标左右键的点击动作，对于厌倦了人工看着拉车的人很有用哦。
<首先角色必须是在太平城城内，之后确保按下F键后所弹出的窗口右上边缘要与屏幕右上角的窗口边缘相切。即上边于所在国下边缘相切，右边于小地图的左面相切>
举例：按F11键运行脚本
按*号键暂停脚本
按F12停止运行脚步。
运行环境：分辨率：1024×768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：7.12.5013
@wdl998 2009/11/18
For 3 Delay 500 KeyPress 48,1 Delay 500 KeyPress 70,1 Delay 1000 KeyPress 66,7 Delay 500 MoveTo 464,420 Delay 500 LeftDoubleClick 1 Delay 500 MoveTo 825,44 Delay 500 LeftClick 1 KeyPress 84,1 Delay 35000 KeyPress 84,1 Delay 500 MoveTo 67,418 Delay 500 LeftClick 1 Delay 500 MoveTo 83,514 Delay 500 LeftClick 1 Delay 5000 MoveTo 545,631 Delay 500 LeftClick 1 Delay 550000 MoveTo 938,111 Delay 500 LeftClick 1 Delay 2000 MoveTo 547,631 Delay 500 LeftClick 1 Delay 240000 MoveTo 70,210 Delay 500 LeftClick 1 Delay 500 MoveTo 40,258 Delay 500 LeftClick 1 Delay 500 KeyPress 77,1 Delay 500 MoveTo 460,38 Delay 500 LeftClick 1 Delay 300 MoveTo 1005,0 Delay 200 LeftClick 1 Delay 300 KeyPress 84,1 Delay 110000 MoveTo 738,330 Delay 200 LeftClick 1 Delay 200 KeyPress 70,1 Delay 300 KeyPress 72,11 Delay 300 MoveTo 505,421 Delay 300 LeftDoubleClick 1 Delay 2000 MoveTo 822,44 Delay 300 LeftClick 1 Delay 12000 MoveTo 542,117 Delay 300 LeftClick 1 Delay 80000 EndFor
脚本附件：
运行环境：分辨率：1280×800 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：7.12.5013
@piaoliuxia 2009/11/18
//开心宝贝后台跳绳
//V1.0
//2009.10.30
//漂流侠 http://hi.baidu.com/piaoliuxia
//QQ：277058507
//---------------------------------------------
//以下是自定义变量
UserVar PetColor=2BBFEF 宝贝身上的特征颜色
UserVar RopeColor=000099 绳子变化时颜色（一般不动）
UserVar SearchArea="20|120|750|400" 查色范围(左上角、右下角坐标)
//UserVar FeedPet=DropList{否:0|是:1}=0 是否主动喂食
UserVar FoodXY="400|580" 食物坐标
UserVar HealthXY="730|330" 健康度坐标（需要补食位置）
UserVar FeedDelay=7000 宝贝吃饭花费时间
UserVar DelayTime=50 延迟时间
UserVar TryCount=5 尝试自动跳绳次数
UserVar LogFile="C:\RopeLog.txt" 跳绳记录位置
Dim Hwnd
Dim FlagOver
//-------------
Rect=Split(SearchArea,"|")
X1=CInt(Rect(0))
Y1=CInt(Rect(1))
X2=CInt(Rect(2))
Y2=CInt(Rect(3))
//取得鼠标所在窗体句柄
Plugin Hwnd=Window.MousePoint()
//初始化结束标志
FlagOver=0
Plugin startTime =GetSysInfo.GetTime()
text= "-----------开始时间"&Time&"计划自动起跳"&TryCount&"次-----------！"
Plugin File.WriteFileEx(LogFile, text)
m=1
For TryCount
Plugin T1 =GetSysInfo.GetTime()
//检测是否有弹出对话框阻挡，如果有，就点击关闭
Plugin PopDialog = Bkgnd.FindColor(Hwnd,225,270,520,385,"FFCC00")
If PopDialog <> "-1|-1"
PopXY= split(PopDialog,"|")
PopX=CInt(PopXY(0))
PopY=CInt(PopXY(1))
Plugin Bkgnd.LeftClick(Hwnd,PopX,PopY)
EndIf
//
//开始引导宝贝拿绳子准备起跳
Gosub 自动引导宝贝跳绳
//
n=0
While FlagOver =0
Gosub 一次跳绳过程
If FlagOver=0
n=n+1
EndIf
EndWhile
Plugin T2 =GetSysInfo.GetTime()
T=round((T2-T1)/1000/60,1)
n=round(n/1.6,0)
text = "第 "&m&" 次：结束时间"&Time&" 本次共运行了"&T&"分钟，跳了 "&n&" 下（估计值）"
//下面这句是向目标文件(LogFile)写入文本内容(text)
Plugin File.WriteFileEx(LogFile, text)
m=m+1
EndFor
EndScript
//脚本运行结束
Sub 一次跳绳过程
Plugin UseTime1 =GetSysInfo.GetTime()
Rem 查是否可起跳
Delay DelayTime
Plugin EnableJump = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,RopeColor)
If EnableJump <> "-1|-1"
//如果可以起跳，则查找宝贝身上的特征色
Delay 50
Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)
If FindPet <> "-1|-1"
//如果找到宝贝位置，则后台发送鼠标左键点击
PetPos=split(FindPet,"|")
PetX=CInt(PetPos(0))
PetY=CInt(PetPos(1))
Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY)
EndIf
Else
Plugin UseTime2 =GetSysInfo.GetTime()
UseTime = UseTime2-UseTime1
If UseTime < 5000
Goto 查是否可起跳
Else
FlagOver = 1
EndIf
EndIf
Return 一次跳绳过程
//尝试自动引导宝贝喂食、跳绳
Sub 自动引导宝贝跳绳
Rem 把食物、绳子拿给宠物
HealthArray=split(HealthXY,"|")
HealthX=CInt(HealthArray(0))
HealthY=CInt(HealthArray(1))
Plugin HealthColor = Bkgnd.GetPixelColor(Hwnd,HealthX,HealthY)
If HealthColor <> "3833EE"
//喂食
Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)
If FindPet <> "-1|-1"
PetPos=split(FindPet,"|")
PetX=CInt(PetPos(0))
PetY=CInt(PetPos(1))
FoodArray=split(FoodXY,"|")
FoodX=CInt(FoodArray(0))
FoodY=CInt(FoodArray(1))
Plugin Bkgnd.LeftClick(Hwnd,130,390)
Delay 200
Plugin Bkgnd.LeftDown(Hwnd, FoodX, FoodY)
//Delay 200
Plugin Bkgnd.MoveTo(Hwnd, PetX, PetY)
Delay 200
Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY)
Delay FeedDelay
EndIf
EndIf
Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)
If FindPet <> "-1|-1"
PetPos=split(FindPet,"|")
PetX=CInt(PetPos(0))
PetY=CInt(PetPos(1))
//拿绳子
Plugin Bkgnd.LeftClick(Hwnd,130,390)
Delay 200
Plugin Bkgnd.LeftDown(Hwnd, 400, 520)
//Delay 200
Plugin Bkgnd.MoveTo(Hwnd, PetX, PetY)
Delay 200
Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY)
Delay 500
Plugin Bkgnd.LeftClick(Hwnd,130, 390)
FlagOver=0
Else
FlagOver=1
EndIf
Return 自动引导宝贝跳绳
Sub OnScriptExit
Plugin T2 =GetSysInfo.GetTime()
T=round((T2-T1)/1000/60,1)
n=round(n/1.6,0)
text = "第 "&m&" 次：结束时间"&Time&" 本次共运行了"&T&"分钟，跳了 "&n&" 下（估计值）"
//下面这句是向目标文件(LogFile)写入文本内容(text)
Plugin File.WriteFileEx(LogFile, text)
Plugin EndTime =GetSysInfo.GetTime()
TotalTime=round((EndTime-StartTime)/1000/60,0)
text= "----结束！"&Time&" 共经过"&TotalTime&"分钟，实际尝试自动起跳"&m&"次"
//下面这句是向目标文件(LogFile)写入文本内容(text)
Plugin File.WriteFileEx(LogFile, text)
MessageBox "脚本运行结束！快看看创造的记录吧~~"
VBSCall RunApp(LogFile)
Return