1. //=================
2. //浪漫庄园钓钓鱼-2009-1-14
3. //=================
4. dim dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_x,dofish_y,dofish_xpy,dofish_ypy
5. dim dofish_c_yp,dofish_c_sg,dofish_c_yg,dofish_c_hs
6. Randomize
7. 调用子程序 dofishsub
8. 脚本停止运行
9. //钓鱼过程sub
10. 子程序 dofishsub
11.     //设置钓鱼区域，考虑到太靠近窗口边缘，提示会超出窗口抓不到颜色， 大家可以根据自己庄园里头的鱼塘自己设置。
12.     dofish_left=210
13.     dofish_top=80
14.     dofish_right=1010
15.     dofish_bottom=604
16.     //偏移
17.     dofish_xpy=10:dofish_ypy=10
18.     //窗口max过后区域：219,25,963,604
19.     //鱼漂、上钩、鱼竿、河水颜色！
20.     //用数组主要是用来支持 白天黑夜之间上述4个物体颜色会渐变
21.     dofish_c_yp=array("101080","88","80c98","40","50","404038")
22.     dofish_c_sg=array("D8CCB8","E8E0C0")
23.     dofish_c_yg=array("486468")
24.     dofish_c_hs=array("c09820","784408")
25.     i=0
26.     如果表达式 (1) 为真,则循环执行
27.         标记 dofish_rr
28.         i=i+1:i=i mod 2
29.         延时500毫秒
30.         //找河水
31.         在调试状态下向调试窗口输出 dofish_left & "," & dofish_top & "," & dofish_right & "," & dofish_bottom
32.         调用外部VBScript子程序 在屏幕区域里查找颜色(dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_c_hs(i),dofish_x,dofish_y)
33.         如果表达式 (dofish_x>0 and dofish_y>0) 为真,则
34.             在调试状态下向调试窗口输出 "找到河流"
35.             //鼠标移动到河水上，随机偏移0，0，10，10之间
36.             dofish_xpy=int(rnd*10)+10:dofish_ypy=int(rnd*10)+10
37.             鼠标移到 dofish_x+dofish_xpy , dofish_y+dofish_ypy
38.             延时500毫秒
39.             //移动鼠标到河水上check是否有鱼竿，相对位置-50，50
40.             调用外部VBScript子程序 在屏幕区域里查找颜色(dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_c_hs(i),dofish_x,dofish_y)
41.             如果表达式 (dofish_x>0 and dofish_y>0) 为真,则
42.                 在调试状态下向调试窗口输出 "找到鱼竿！"
43.                 左键单击
44.                 //msgbox "找到鱼竿"
45.                 延时2000毫秒
46.                 //是否有鱼漂, 点击相对范围-40,+40之间
47.                 dofish_yp_j=0
48.                 循环 ubound(dofish_c_yp) 遍
49.                     dofish_yp_j=dofish_yp_j+1
50.                     调用外部VBScript子程序 在屏幕区域里查找颜色(dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_c_hs(i),dofish_x,dofish_y)
51.                     如果表达式 (dofish_x>0 and dofish_y>0) 为真,则
52.                         跳转到标记 dofish_yp_chkok
53.                     条件结束
54.                 循环结束
55.                 在调试状态下向调试窗口输出 "没找到鱼漂"
56.                 跳转到标记 dofish_rr
57.                 标记 dofish_yp_chkok
58.                 如果表达式 (dofish_x>0 and dofish_y>0) 为真,则
59.                     在调试状态下向调试窗口输出 "找到鱼漂!"
60.                     延时13000毫秒
61.                     //与游戏兼容性是否有鱼上钩,相对位置：207,566,215,539=8,-27
62.                     dofish_j=0
63.                     标记 dofish_getfish_rr
64.                     dofish_j=dofish_j+1
65.                     延时500毫秒
66.                     //与游戏兼容性是否上钩
67.                     dofish_sg_j=0
68.                     循环 ubound(dofish_c_sg) 遍
69.                         dofish_sg_j=dofish_sg_j+1
70.                         调用外部VBScript子程序 在屏幕区域里查找颜色(dofish_left,dofish_top,dofish_right,dofish_bottom,dofish_c_hs(i),dofish_x,dofish_y)
71.                         如果表达式 (dofish_x_sg>0 and dofish_y_sg>0) 为真,则
72.                             跳转到标记 dofish_sg_chkok
73.                         条件结束
74.                     循环结束
75.                     在调试状态下向调试窗口输出 "没找到上钩提示！"
76.                     //Goto dofish_rr
77.                     标记 dofish_sg_chkok
78.                     如果表达式 (dofish_x_sg>0 and dofish_y_sg>0) 为真,则
79.                         在调试状态下向调试窗口输出 "鱼儿山钩了！！"
80.                         //msgbox "鱼儿山钩了！！"
81.                         鼠标移到 dofish_x_sg , dofish_y_sg
82.                         左键单击
83.                         跳转到标记 dofish_rr
84.                     否则
85.                         在调试状态下向调试窗口输出 "没上钩"
86.                     条件结束
87.                     如果表达式 (dofish_j>30) 为真,则
88.                         跳转到标记 dofish_rr
89.                     否则
90.                         跳转到标记 dofish_getfish_rr
91.                     条件结束
92.                 否则
93.                     跳转到标记 dofish_rr
94.                 条件结束
95.             否则
96.                 在调试状态下向调试窗口输出 "没找到鱼竿，重来"
97.                 跳转到标记 dofish_rr
98.             条件结束
99.         否则
100.             在调试状态下向调试窗口输出 "没有河流，退出！" & i