Rem 开始钓鱼
RightClick 1//KeyDown 49 1
Delay 50
RightClick 1//KeyUp 49 1
i=1
While i<3
    Delay 1000
    i=i+1
EndWhile 　　　\\上面是甩杆　我设置到按键1的
Rem a
//VBSCall FindColor(116,10,1030,432,"b08d92",x,y)ff9074,ffa3a6
VBSCall FindColorEx(180,31,833,353,"ffa3a6",0,0.7,x,y)
If x>0 and y>0
    MoveTo x,y
Else 　　
EndIf 
Rem 确定鱼上钩
VBSCall FindColorEx(1224,230,1327,272,"329932",2,0.7,q,w)
If q>0 and w>0
    RightClick 1
    Goto 拣取物品
Else 
EndIf 
Goto 确定鱼上钩
Rem 拣取物品
Delay 50
Goto 开始钓鱼
//EndFor
Goto 开始钓鱼