While 1>0
    If delaytime>28000
        Goto start
    EndIf 
    i=i+1
    VBSCall cpix=getpixelcolor(xx,yy)
    dr=abs(color0(2)-cint("&H"&right(cpix,2)))
    dg=abs(color0(1)-cint("&H"&mid(cpix,3,2)))
    db=abs(color0(0)-cint("&H"&left(cpix,2)))
    avcolor=int((dr+db+dg)/3)
    ddcolor=abs(dr-avcolor)+abs(dg-avcolor)+abs(db-avcolor)
    If ddcolor>40 or dr+dg+db>150
        Goto over5
    EndIf 
EndWhile 
Rem over5
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//起杆
MoveTo xx+50,yy+50
Delay 100
MoveTo xx,yy
KeyDown 16,1
RightClick 1
KeyUp 16,1
Delay 2000
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//判断BUFF时间，到了五分钟运行一次自动加BUFF的宏
If datediff("s",starttime,now)>303 and fishertime<>0
    KeyDown 18,1
    KeyPress 79,1
    KeyUp 18,1
    Delay 6000
    starttime=now
    dela=0
EndIf 
Goto start
Rem over
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//                                                           BY 灰烬燃烧
//                                                              2007-5-16