Wow script: Fishing script

**chadouming** · 02-17-2009 01:19 AM

I have created a little script for fish. work with ACtools.

Link to get ACtools: http://www.actool.net/files/actoolinstall_540.exe

so copy this script and put it in ACtools blank windows. Then run the number of time you want it to run.
Have some good feature like: -afk killer
-Auto lure
-Auto feed pet

REMEMBER: - Take this bot with moderation
- Don't forget to read the instruction
- Bind a key to stop/pause the macro in actools
- ALWAYS FISH AWAY FROM OTHER PLAYER
- let your comment of this script :smile:

P.S. CAP are to get your attention :biggrin:

so here is the script:

// WoW Fishing Bot v1.2
// Made by CA/HD
// Added lure option
// put the lure in slot 6
// and the fishing pole in slot 7
// will apply the every 28 fishing, you should not change that unless you catch fish every time
// Added the hunter option, feed pet.
// Create a macro to feed pet and put it in slot 8
// the macro command should be /cast Feed Pet
// /cast <your pet food name>
// Changes
// v1.1
// + Added in the option to turn off AFK Killer
// + Added in changes log
//
// v1.0
// + Initial version
// Special instructions:
// - Put your fishing skill in slot '0'
// - Zoom into 1st person mode
// - Under Video Options, uncheck 'Hardware Cursor'
// - Be sure to have activated Auto-loot
// copyright 2009 this version of this script is controlled by a copyright and can be used only under the distribution of
// CA/HD, even if its free, You cannot use it to make another. You can also send any commentary or improving comment at
// chadou666@hotmail.com (not a big enterprise) only put : wow fishing bot 1.2 in object
// Only remember to use at your own risk. I CANNOT BE BLAME FOR YOU GET BAN. USE IT WISE AND REMEMBER TO STAY AWAY FROM OTHER PLAYER!
// Thank you
SetActiveWindow World of Warcraft
Constants

/////////////////////////
// CHANGABLE CONSTANTS //
/////////////////////////

// Feed Pet
// If you have a pet, you can turn this feature on or dismiss you pet. To turn this feature on,
// only put : FeedPet = 1. To turn it off, put : FeedPet = 0
// To know how to create your macro or to know where to place it, see my added note.
FeedPet = 0

// Lure, To make this script put a lure onto your fishing pole make Lure = 1 (0 to not lure it)
// Also be sure to put lure in slot 6 and fishing pole in slot 7.
Lure = 1

// Speed
// This is the initial scan speed. The lower the number, the faster the scan goes,
// and the higher the number, the slower the scan goes. If you're having problems
// where the initial scan isnt finding the bobber and just scanning right over it,
// try increasing this number slowly.
scanSpeed = 90

// Scan box distances
// These are the distances away from the sides of the screen to scan for a lure
// These are measured as percentages of the screen in the appropriate direction
scanLeftDist = .3
scanRightDist = .3
scanTopDist = .4
scanBottomDist = .25

// Brightness range
// This is the number of RGB values over and under the 'bright spot' that is the
// lure to look for. Basically, if you're getting the message 'No fish to hook',
// try increasing both numbers a bit, and if the bobber bobs but you dont catch
// anything, try decreasing both numbers a bit. This can change from environment
// to environment. Also, generally speaking brightRangeUp shouldnt be very high.
brightRangeDown = 28
brightRangeUp = 06

// Brightness distance
// Doesnt matter what it does, but basically, leave it alone unless you're having
// problems actually catching the fish. If you're having problems and you want
// to tweak it, general rule is, the higher the resolution, the higher the number,
// the but number range should only be anywhere from 2 MIN to 6 MAX. If you start
// getting too out of wack with this, you'll never catch a fish
brightDist = 2

// AFK Away
// Set to 1 to use AFK Away (which presses Enter twice before every cast) or
// to 0 to disable AFK Away entirely. This comes in useful if you like to
// chat on WoW while fishing.
afkAway = 0

/////////////////////////////
// NON-CHANGABLE CONSTANTS //
/////////////////////////////

// Run count
// How many times the script should try to fish
runCount = 40

// Optimal scan step ratios
widthToWindowRatio = 0.056
heightToWindowRatio = 0.075

// Scanbox
scanTop = 0
scanBottom = 0
scanLeft = 0
scanRight = 0
scanStepX = 0
scanStepY = 0
scanSuccess = 0

// THE Box
boxMinX = 0
boxMaxX = 0
boxMinY = 0
boxMaxY = 0
boxCenterY = 0
boxCenterX = 0

boxScanStep = 4

boxAvgWidth = 0
boxAvgHeight = 0

// Misc vars
x = 0
y = 0
i = 0
j = 0

// Mouse vars
isMouseOrange = 0
mouseX = 0
mouseY = 0

// Lure location
lureInitLocX = 0
lureInitLocY = 0

// RGB Info
brightX = 0
brightY = 0
brightTotal = 0
brightR = 0
brightG = 0
brightB = 0
brightRMin = 0
brightRMax = 0
brightGMin = 0
brightGMax = 0
brightBMin = 0
brightBMax = 0
curTotal = 0

// Splash
splashed = 0

End
///////////////
// Main Proc //
///////////////
If $FeedPet = 1
Delay 10
Keydown 8 200
delay 10
End
If $Lure = 1
Keydown 6 200
delay 10
Keydown 7 200
delay 3000
End
Delay 1000
Call CalculateScanBoxConstants
Loop $runCount
Keys 0
Delay 1000
Call FindLureInitial
Call FindBoxCenter

Compute x = $boxMaxX-10
MousePos $x, $boxCenterY
Delay $scanSpeed

Call GetRGBValue
Call WaitForSplash

If $afkAway = 1
Delay 2500
KeyDown {RETURN} 250
KeyDown {RETURN} 250
Delay 2000
Else
Delay 5000
End

End

////////////////
// Procedures //
////////////////
Procedure CalculateScanBoxConstants

Compute scanTop = {WindowTop} + Trunc( {WindowHeight} * $scanTopDist )
Compute scanBottom = ( {WindowTop} + {WindowHeight} ) - Trunc( {WindowHeight} * $scanBottomDist )
Compute scanLeft = {WindowLeft} + Trunc( {WindowWidth} * $scanLeftDist )
Compute scanRight = ( {WindowLeft} + {WindowWidth} ) - Trunc( {WindowWidth} * $scanRightDist )

Compute boxAvgWidth = Trunc( {WindowWidth} * $widthToWindowRatio )
Compute boxAvgHeight = Trunc( {WindowHeight} * $heightToWindowRatio )

Compute scanStepX = $boxAvgWidth
Compute scanStepY = Trunc( $boxAvgHeight / 2 )

End
Procedure FindLureInitial
SetConst scanSuccess = 0
Compute y = $scanTop

While $y <= $scanBottom AND $scanSuccess = 0

Compute i = {LoopNo} MOD 2

If $i = 0
Timestamp In Even
Compute x = $scanLeft
Else
Timestamp In Odd
Compute x = $scanLeft + Trunc( $boxAvgWidth / 2 )
End

While $x <= $scanRight AND $scanSuccess = 0
// Move the mouse and wait a second (wait is required!)
MousePos $x, $y
Delay $scanSpeed

Call isMouseOrange

// If the mouse is orange
If $isMouseOrange = 1
SetConst lureInitLocX = $x
SetConst lureInitLocY = $y
SetConst scanSuccess = 1
End

Compute x=$x + $scanStepX
End

Compute y=$y + $scanStepY
End

End
Procedure FindBoxCenter

// Find X min
SetConst scanSuccess = 0
Compute x = $lureInitLocX
Compute y = $lureInitLocY
While $scanSuccess = 0

// Move the mouse and wait a second (wait is required!)
MousePos $x, $y
Delay $scanSpeed

Call isMouseOrange

If $isMouseOrange = 0
SetConst boxMinX = $x
SetConst scanSuccess = 1
Else
Compute x= $x - $boxScanStep
End
End

// Find X max
SetConst scanSuccess = 0
Compute x = $lureInitLocX
Compute y = $lureInitLocY
While $scanSuccess = 0

// Move the mouse and wait a second (wait is required!)
MousePos $x, $y
Delay $scanSpeed

Call isMouseOrange

If $isMouseOrange = 0
SetConst boxMaxX = $x
SetConst scanSuccess = 1
Else
Compute x= $x + $boxScanStep
End
End

// Find Y min
SetConst scanSuccess = 0
Compute x = $lureInitLocX
Compute y = $lureInitLocY
While $scanSuccess = 0

// Move the mouse and wait a second (wait is required!)
MousePos $x, $y
Delay $scanSpeed

Call isMouseOrange

If $isMouseOrange = 0
SetConst boxMinY = $y
SetConst scanSuccess = 1
Else
Compute y= $y - $boxScanStep
End
End

// Find Y max
SetConst scanSuccess = 0
Compute x = $lureInitLocX
Compute y = $lureInitLocY
While $scanSuccess = 0

// Move the mouse and wait a second (wait is required!)
MousePos $x, $y
Delay $scanSpeed

Call isMouseOrange

If $isMouseOrange = 0
SetConst boxMaxY = $y
SetConst scanSuccess = 1
Else
Compute y= $y + $boxScanStep
End
End

Compute boxCenterX = Trunc(( $boxMinX + $boxMaxX ) / 2)
Compute boxCenterY = Trunc(( $boxMinY + $boxMaxY ) / 2)

SetConst lureInitLocX = $boxCenterX
SetConst lureInitLocY = $boxCenterY

End
Procedure GetRGBValue

SetConst $brightTotal = 0

Compute y = $boxCenterY
Compute i = $boxCenterY + Trunc( ($boxMaxY - $boxCenterY) / 3 )

While $y <= $i

Compute x = $boxMinX
While $x <= $boxCenterX

LoadRGB $x, $y
Compute curTotal = {RGBRed} + {RGBGreen} + {RGBBlue}

If $curTotal > $brightTotal
Compute brightTotal = $curTotal

SetConst brightR = {RGBRed}
SetConst brightG = {RGBGreen}
SetConst brightB = {RGBBlue}

Compute brightRMin = $brightR - $brightRangeDown
Compute brightRMax = $brightR + $brightRangeUp
Compute brightGMin = $brightG - $brightRangeDown
Compute brightGMax = $brightG + $brightRangeUp
Compute brightBMin = $brightB - $brightRangeDown
Compute brightBMax = $brightB + $brightRangeUp

SetConst brightX = $x
SetConst brightY = $y
End

Compute x=$x + 2
End

Compute y=$y + 2
End

End
Procedure WaitForSplash

SetConst $splashed = 0

Call isMouseOrange

While $splashed = 0 AND $isMouseOrange = 1
Delay 100

// Check current spot
LoadRGB $brightX, $brightY
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check top left
Compute x=$brightX-$brightDist
Compute y=$brightY-$brightDist
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check top right
Compute x=$brightX+$brightDist
Compute y=$brightY-$brightDist
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check bottom left
Compute x=$brightX-$brightDist
Compute y=$brightY+$brightDist
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check bottom right
Compute x=$brightX+$brightDist
Compute y=$brightY+$brightDist
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check top left (extended)
Compute x=$brightX-($brightDist*2)
Compute y=$brightY-($brightDist*2)
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check top right (extended)
Compute x=$brightX+($brightDist*2)
Compute y=$brightY-($brightDist*2)
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check bottom left (extended)
Compute x=$brightX-($brightDist*2)
Compute y=$brightY+($brightDist*2)
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

// Check bottom right (extended)
Compute x=$brightX+($brightDist*2)
Compute y=$brightY+($brightDist*2)
LoadRGB $x, $y
If {RGBRed} > $brightRMax OR {RGBRed} < $brightRMin OR {RGBGreen} > $brightGMax OR {RGBGreen} < $brightGMin OR {RGBBlue} > $brightBMax OR {RGBBlue} < $brightBMin

SetConst splashed = 1
RightClick
Delay 500

End
End
End
End
End
End
End
End
End

Call isMouseOrange

End
End
Procedure isMouseOrange
SetConst $isMouseOrange = 0

// Get the mouse color
Compute mouseX= {MouseX} + 4
Compute mouseY= {MouseY} + 4
LoadRGB $mouseX, $mouseY

// If the mouse is orange (variance added just for good measure..)
If {RGBRed} >= 210 AND {RGBRed} <= 218 AND {RGBGreen} >= 160 AND {RGBGreen} <= 168 AND {RGBBlue} >= 84 AND {RGBBlue} <= 92
SetConst $isMouseOrange = 1
End
End

**Hallowsend** · 02-17-2009 01:32 AM

Looks good. Its clean from: VirusTotal - Free Online Virus and Malware Scan

Code:

a-squared	4.0.0.93	2009.02.17	-
AhnLab-V3	5.0.0.2	2009.02.16	-
AntiVir	7.9.0.79	2009.02.16	-
Authentium	5.1.0.4	2009.02.16	-
Avast	4.8.1335.0	2009.02.16	-
AVG	8.0.0.237	2009.02.16	-
BitDefender	7.2	2009.02.17	-
CAT-QuickHeal	10.00	2009.02.16	-
ClamAV	0.94.1	2009.02.16	-
Comodo	980	2009.02.16	-
DrWeb	4.44.0.09170	2009.02.16	-
eSafe	7.0.17.0	2009.02.15	-
eTrust-Vet	31.6.6360	2009.02.16	-
F-Prot	4.4.4.56	2009.02.16	-
F-Secure	8.0.14470.0	2009.02.17	-
Fortinet	3.117.0.0	2009.02.17	-
GData	19	2009.02.17	-
Ikarus	T3.1.1.45.0	2009.02.17	-
K7AntiVirus	7.10.630	2009.02.14	-
Kaspersky	7.0.0.125	2009.02.17	-
McAfee	5528	2009.02.16	-
McAfee+Artemis	5528	2009.02.16	-
Microsoft	1.4306	2009.02.16	-
NOD32	3858	2009.02.16	-
Norman	6.00.06	2009.02.16	-
nProtect	2009.1.8.0	2009.02.16	-
Panda	10.0.0.10	2009.02.16	-
PCTools	4.4.2.0	2009.02.16	-
Prevx1	V2	2009.02.17	-
Rising	21.17.02.00	2009.02.16	-
SecureWeb-Gateway	6.7.6	2009.02.16	-
Sophos	4.38.0	2009.02.17	-
Sunbelt	3.2.1851.2	2009.02.12	-
Symantec	10	2009.02.17	-
TheHacker	6.3.2.2.258	2009.02.16	-
TrendMicro	8.700.0.1004	2009.02.16	-
VBA32	3.12.8.12	2009.02.16	-
ViRobot	2009.2.16.1609	2009.02.16	-
VirusBuster	4.5.11.0	2009.02.16	-

Always use at your own risk, though. Thanks for this contribution

.

**Sharx** · 02-17-2009 10:46 AM

Did some test it? =)

its detecable by warden?

**Juicy** · 02-17-2009 11:13 AM

I don't think it would be dected yet since he just released it...

But if I was you don't use it that much just in case

Thanks

Juicy

EDIT: Watch out he might do a system hack like HPv1.00

**Serverman** · 02-17-2009 11:17 AM

I dont think this is a virus, but be a little careful, it acceses something in your system32 folder, but it dosent write anything to it... But it may be that the installer had to do something there during install....

**Sharx** · 02-17-2009 11:45 AM

i think i will use some other ^^

**Serverman** · 02-17-2009 11:52 AM

I'd do that too XD(But i dont know what installers need, so it might be something it needed....)

**chadouming** · 02-18-2009 05:57 AM

very simple to use in fact, ther eis no virus and cannot be detected by warden cause its not controlling wow but it control your keyboard and your mouse. only be sure to put good value in changeable constant. im using it every night since like 1 1/2 month and have not been detected. but i make a lot of money

. at least try it.

**chadouming** · 02-18-2009 06:00 AM

oh and also the mirror is a link from the real site www.actools.net who is a little program to make macro and script for ascheron call game. only used it in a other way

**Juicy** · 02-18-2009 06:12 AM

No double posting (Y)

thanks for your time

Juicy

Wow script: Fishing script

Thread: Wow script: Fishing script

LinkBack

Thread Tools

Display

Wow script: Fishing script

Similar Threads

WoW Fishing Bot

Make your own WoW server !

Memoirs of World of Warcraft

Antfamous Gauntlet Bot v1.8 for mmBot

what do you know about the wow world?

Tags for this Thread

Posting Permissions