hello=1
//图文使用说明：http://pansic.bokee.com
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//本脚本为魔兽世界自动钩鱼脚本---------->恶魔钓鱼1.0
//自动甩杆，有鱼上钩自动回杆，可自动加鱼饵，不修改.截取内存，适用于各种水域和天气。
//使用前请---->仔细阅读使用说明！<----，按使用说明设置，否则本软件无法正常工作！
//一.在魔兽视频设置里将硬件指针选项去掉,必须使用1024x768模式，效果全关。
//二.先打开技能书将“钩鱼技能”拖到技能条，再打开“按键设定”把在技能条的相应位置快捷键设   为ALT+P。
//三.(自选功能) 如果你想使用自动加鱼饵功能,请完成以下步骤:
//       1.新建一个宏，将以下内容复制进去
// /script for k=0,4 do if not GetWeaponEnchantInfo(16) then for w=1,22 do if GetContainerItemLink(k,w) and string.find(GetContainerItemLink(k,w),"鱼饵名") then UseContainerItem(k,w);PickupInventoryItem(16);AutoEquipCursorItem();end;end;end;end
//         注意多余的回车不要复制进去。其中"鱼饵名"改为你用的鱼饵名。
//       2.将这个宏拖到技能条，再打开“按键设定”把相应位置快捷键设为ALT+O。
//       3.将“按键小精灵”的“钓鱼”栏第二行参数：“是否自动加鱼饵(0为不使用,1为使用)”改为1
//       4.将你在第一步设置的鱼饵放到包裹里任意位置都可以。
//       5.在不用鱼饵的场合下，请务必将“是否自动加鱼饵(0为不使用,1为使用)”改回为0。
//四.找好要钓鱼的水域，以第一人称面对水域，视野调整至只能看到水，看不到其它东西。
//PS:应该尽量将鼠标扫描圈中心对准鱼漂出现较多的水域，直接关系到扫描鱼漂效率！！
//五.按ALT+Z隐藏工具栏，然后开启本脚本就可以了。
//更详细图文并貌的使用说明，请访问 恶魔钓鱼BLOG：
//http://pansic.bokee.com
//WOW的国际惯例，五区恶魔之翼，战士 佳宝
//有兴趣和问题的朋友请QQ留言：13268115，欢迎举报BUG。
//                                                           BY 灰烬燃烧
//                                                              2007-5-16
If hello<>1
    Goto over
EndIf 
//是否自动加鱼饵(0为不使用,1为使用)
UserVar fishertime=0
If fishertime<>0
    KeyDown 18,1
    KeyPress 79,1
    KeyUp 18,1
    Delay 6000
    starttime=now
EndIf 
timeagain=0
dela=0
Rem start
timeagain=timeagain+1
//设置扫描中心点
x=398:y=200
dim color0(2)
dim avcolor
dim ddcolor
dim yy
dim dr
dim dg
dim db
dim xlong
dim xx
//甩杆
KeyDown 18,1
KeyPress 80,1
KeyUp 18,1
Delay 2100
//设置找描间距
v=35
delaytime=0
//循环20次，即画20圈
a=1:b=0
j=7:k=1
p=1
For 12
    For 2
        n=a*j+b*k
        For n
            x=x+a*p*v:y=y+b*p*v
            MoveTo x,y
            Delay 40+dela
            IfColor x,y,000000,0
                Delay 100
                IfColor x,y,000000,0
                    MoveTo x,y+50
                    Goto over1
                EndIf 
                Goto over2
            EndIf 
        EndFor 
        c=a:a=b:b=c
    EndFor 
    p=p*(-1)
    j=j+1:k=k+1
EndFor 
If dela<9
    Dela=dela+8
EndIf 
Goto start
Rem over2
a=1:b=0
j=1:q=1
p=1
For 6
    For 2
        n=a*j+b*q
        For n
            x=x+a*p*v:y=y+b*p*v
            MoveTo x,y
            Delay 120