1. //For 3
2. 标记 开始钓鱼
3. 右键单击
4. 延时50毫秒
5. 右键单击
6. i=1
7. 如果表达式 (i<3) 为真,则循环执行
8.     延时1000毫秒
9.     i=i+1
10. 循环结束
11. 标记 a
12. //VBSCall FindColor(116,10,1030,432,"b08d92",x,y)ff9074,ffa3a6
13. 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(180,31,833,353,"ffa3a6",0,0.7,x,y)
14. 如果表达式 (x>0 and y>0) 为真,则
15.     鼠标移到 x , y
16. 否则
17. 条件结束
18. 标记 确定鱼上钩
19. 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(180,31,833,353,"ffa3a6",0,0.7,x,y)
20. 如果表达式 (q>0 and w>0) 为真,则
21.     右键单击
22.     跳转到标记 拣取物品
23. 否则
24. 条件结束
25. 跳转到标记 确定鱼上钩
26. 标记 拣取物品
27. 延时50毫秒
28. 跳转到标记 开始钓鱼
29. //EndFor
30. 跳转到标记 开始钓鱼