魔兽钓鱼脚本

魔兽钓鱼脚本 – 按键精灵 拷贝下列文本，存成txt文件，把该文件放在按键精灵安装目录下的script下，然后Ctrl+F9启动！ [General] Description=钓鱼 BeginHotkey=120 BeginHotkeyMod=2 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=122 StopHotkeyMod=2 RunOnce=1 EnableWindow= Enable=1 AutoRun=0 [Repeat] Type=1 Number=1 [Relative] SetupOCXFile= [Comment] Content= [Script] dim ts Rem Starter ts = 0 IfColor 770,785,172,2 IfColor 724,547,ffffff,1 Delay 100 KeyPress 13,1 EndIf Delay 100 KeyPress 74,1 Delay 100 KeyPress 69,1 Delay 100 KeyPress 83,1 Delay 100 KeyPress 83,1 Delay 100 KeyPress 73,1 Delay 100 KeyPress 78,1 Delay 100 KeyPress 49,1 Delay 100 KeyPress 50,1 Delay 100 KeyPress 48,1 Delay 100 KeyPress 54,1 Delay 100 KeyPress 13,1 Delay 5000 IfColor 800,580,6a,2 Delay 100 KeyPress 13,1 Goto Starter EndIf Delay 20000 KeyPress 13,1 Delay 60000 //For 5 //KeyPress 35,1 //Delay 200 //EndFor //KeyPress 36,1 //Delay 1000 //For 20 //MouseWheel 10 //Delay 100 //EndFor EndIf IfColor 970,830,3036f,2 Delay 100 KeyPress 13,1 Delay 20000 KeyPress 13,1 Delay 60000 EndIf Rem Start Delay 100 ts = ts + 1 If ts >= 30 Delay 100 KeyPress 32,1 Goto Starter EndIf Delay 200 MoveTo 840, 550 Delay 200 RightClick 1 Delay 100 RightClick 1 Delay 3000 Rem Pickup dim x dim y x = 0 y = 0 While 1 //251105 - 夜色森林 //112992 - 奧丹姆 //29284B,1E1839 - 暮光高地 //10151F - 荊棘谷 //0E2033 - 環形山 //091A5C - 泰羅卡 //080D31 - 北裂境 //111948 - 地深之源 VBSCall FindColorEx(300,150,1300,600,"111948",0,0.6,x,y) If x > 0 and y > 0 MoveTo x,y EndIf VBSCall mouse=GetCursorShape(0) If mouse = 1053591638 Goto Fish EndIf Delay 500 VBSCall mouse=GetCursorShape(0) If mouse = 965986689 Goto Start EndIf EndWhile Rem Fish dim intX dim intY intX = 0 intY = 0 While intX <= 0 and intY <= 0 //AE7F29 - 夜色森林 //FFFFFF,FFE9C9 - 奧丹姆 //E88260,FFFFBB,FFE29B - 暮光高地 //FFDA5A - 荊棘谷 //8CFCAC - 環形山 //B1DFCD - 泰羅卡 //FFFFFF - 北裂境 //FFF6D2 - 地深之源 VBSCall FindColorEx(x-100,y-75,x+100,y+75,"FFE29B",0,0.8,intX,intY) If intX > 0 and intY > 0 RightClick 1 Delay 1000 EndIf Delay 50 VBSCall mouse=GetCursorShape(0) If mouse = 965986689 Goto Start EndIf EndWhile Goto Start