1. //开心宝贝后台跳绳
2. //V1.0
3. //2009.10.30
4. //漂流侠 http://hi.baidu.com/piaoliuxia
5. //QQ：277058507
6. //---------------------------------------------
7. //以下是自定义变量
8. 用户定义变量 PetColor=2BBFEF 宝贝身上的特征颜色
9. 用户定义变量 RopeColor=000099 绳子变化时颜色（一般不动）
10. 用户定义变量 SearchArea="20|120|750|400" 查色范围(左上角、右下角坐标)
11. //UserVar FeedPet=DropList{否:0|是:1}=0 是否主动喂食
12. 用户定义变量 FoodXY="400|580" 食物坐标
13. 用户定义变量 HealthXY="730|330" 健康度坐标（需要补食位置）
14. 用户定义变量 FeedDelay=7000 宝贝吃饭花费时间
15. 用户定义变量 DelayTime=50 延迟时间
16. 用户定义变量 TryCount=5 尝试自动跳绳次数
17. 用户定义变量 LogFile="C:\RopeLog.txt" 跳绳记录位置
18. Dim Hwnd
19. Dim FlagOver
20. //-------------
21. Rect=Split(SearchArea,"|")
22. X1=CInt(Rect(0))
23. Y1=CInt(Rect(1))
24. X2=CInt(Rect(2))
25. Y2=CInt(Rect(3))
26. //取得鼠标所在窗体句柄
27. 调用插件命令 Hwnd=Window.MousePoint()
28. //初始化结束标志
29. FlagOver=0
30. 调用插件命令 startTime =GetSysInfo.GetTime()
31. text= "-----------开始时间"&Time&"计划自动起跳"&TryCount&"次-----------！"
32. 调用插件命令 File.WriteFileEx(LogFile, text)
33. m=1
34. 循环 TryCount 遍
35.     调用插件命令 T1 =GetSysInfo.GetTime()
36.     //检测是否有弹出对话框阻挡，如果有，就点击关闭
37.     调用插件命令 PopDialog = Bkgnd.FindColor(Hwnd,225,270,520,385,"FFCC00")
38.     如果表达式 (PopDialog <> "-1|-1") 为真,则
39.         PopXY= split(PopDialog,"|")
40.         PopX=CInt(PopXY(0))
41.         PopY=CInt(PopXY(1))
42.         调用插件命令 Bkgnd.LeftClick(Hwnd,PopX,PopY)
43.     条件结束
44.     //
45.     //开始引导宝贝拿绳子准备起跳
46.     调用子程序 自动引导宝贝跳绳
47.     //
48.     n=0
49.     如果表达式 (FlagOver =0) 为真,则循环执行
50.         调用子程序 一次跳绳过程
51.         如果表达式 (FlagOver=0) 为真,则
52.             n=n+1
53.         条件结束
54.     循环结束
55.     调用插件命令 T2 =GetSysInfo.GetTime()
56.     T=round((T2-T1)/1000/60,1)
57.     n=round(n/1.6,0)
58.     text = "第 "&m&" 次：结束时间"&Time&" 本次共运行了"&T&"分钟，跳了 "&n&" 下（估计值）"
59.     //下面这句是向目标文件(LogFile)写入文本内容(text)
60.     调用插件命令 File.WriteFileEx(LogFile, text)
61.     m=m+1
62. 循环结束
63. 脚本停止运行
64. //脚本运行结束
65. 子程序 一次跳绳过程
66.     调用插件命令 UseTime1 =GetSysInfo.GetTime()
67.     标记 查是否可起跳
68.     延时DelayTime毫秒
69.     调用插件命令 EnableJump = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,RopeColor)
70.     如果表达式 (EnableJump <> "-1|-1") 为真,则
71.         //如果可以起跳，则查找宝贝身上的特征色
72.         延时50毫秒
73.         调用插件命令 FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)
74.         如果表达式 (FindPet <> "-1|-1") 为真,则
75.             //如果找到宝贝位置，则后台发送鼠标左键点击
76.             PetPos=split(FindPet,"|")
77.             PetX=CInt(PetPos(0))
78.             PetY=CInt(PetPos(1))
79.             调用插件命令 Bkgnd.LeftClick(Hwnd, PetX, PetY)
80.         条件结束
81.     否则
82.         调用插件命令 UseTime2 =GetSysInfo.GetTime()
83.         UseTime = UseTime2-UseTime1
84.         如果表达式 (UseTime < 5000) 为真,则
85.             跳转到标记 查是否可起跳
86.         否则
87.             FlagOver = 1
88.         条件结束
89.     条件结束
90. 子程序结束,回到调用处
91. //尝试自动引导宝贝喂食、跳绳
92. 子程序 自动引导宝贝跳绳
93.     标记 把食物、绳子拿给宠物
94.     HealthArray=split(HealthXY,"|")
95.     HealthX=CInt(HealthArray(0))
96.     HealthY=CInt(HealthArray(1))
97.     调用插件命令 HealthColor = Bkgnd.GetPixelColor(Hwnd,HealthX,HealthY)
98.     如果表达式 (HealthColor <> "3833EE") 为真,则
99.         //喂食
100.         调用插件命令 FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)