German:
Requirements:
ACTools
Tiamats Fishing Bot Listener (s. Anhang)
1024x768
in euren sound options (windows nicht wow) müsst ihr den recording part auswählen
in den wow sound options müsst ihr alles abschalten bis auf "Enable All Sounds"
da dieses macro auf den bobber sound reagiert müsst ihr euch n stilles plätzchen suchen, jeder andere ton kann zum fehlschlag führen
zoomt mit eurem interface nah an das wasser rann, beachtet aber dabei das der bobber unbedingt zwischen eurer hp/mp und dem ende der chatbox (horizontal gemessen an der minimap) liegt (nur in diesem bereich sucht das macro)
nun müsst ihr nur noch ein fishing hotkey auf die 1 legen, auf 9 und 0 darf nichts liegen
kopiert folgenden code (weiter unten nach dem englischen text) in actools und startet die tiamat.exe, danach natürlich das eigentliche macro
English:
Things needed:
ACTools
Tiamats Fishing Bot Listener
Now, I know you might suspect me of putting a trojan or a keylogger into the Listener, but I didnt. The only keys it grabs are 9 and 0, but if you are worried virus scan it and dont open it until you are ready. Im sure someone will vouch it works(Nixon I hope
) Anywho, to set it up, you are going to have to switch your sound recording to "What You Hear." To do that you need to go to Control Panel(Im asuming windows) -> Sounds and Audio Devices -> Audio
In the audio tab, click volume in the sound recording part. Make sure "What U Hear" is turned up at least a little bit and its check box is checked.
Now, in World of Warcraft, make sure to uncheck everything in the sound menu except "Enable All Sounds"
Now, I suggest you go find a place to fish thats pretty much noise free, as the way we are going to detect the bobber being nibbled is by the sound effect being made. Any other sound will be mistaken, so Id go to a place where people usually dont congregate and there arent any critters that spawn.
You'll have to zoom in on the water and make sure the bobber lands in the area between the end of your hp/mp thingy to the minimap and down to the chat box. Why? This is the only area which is checked for the bobber. To check this, cast a few times. Itd be best if the bobber usually lands closer to the top of the screen, but it shouldnt matter much if it doesnt.
Ok, now set up a toolbar with fishing on the 1 spot and nothing on either the 9 or 0 spot.
There, all the preparing is done.
Copy this code into ACTools and run Tiamat.exe then start the macro:
Code:
SetActiveWindow World of Warcraft
Delay 5 sec
Constants
* DidBreak = 0
* Caught = 0
* TestX = 0
* TestY = 0
* i = 0
* j = 0
* fish = 0
* // 1 if the character should throw away loot (i.e. only train fishing)
* ThrowAwayLoot = 0
* *
* // 1 for each of these if you dont want them
* BrilliantSmallFish = 0
* LongJawMudSnapper = 0
* OilyBlackMouth = 1
* // Bottle = 1
* RainbowFin = 1
* // The number of fishing loops the macro should do before logging out.
* // A number below 1 will mean an indefinite loop.
* NumberOfFishingLoops = 0
End
Object RainFin
*56=0,0|114=0,4
*94=2,2|112=2,4
*85=4,2|125=4,4
End
Object OilyBlack
*172=0,0|137=0,18
*189=2,0|118=2,2
*106=8,0|115=8,6
*95=10,6|107=10,8
*91=16,16|116=16,18
*116=18,2|104=18,18
End
// Object Bot
// *197=0,8|122=0,18
// *234=2,6|234=2,8
// *88=4,4|251=4,6
// *247=10,8|232=10,10
// *178=12,10|141=12,12
// *89=18,16|164=18,18
//End
Object BrilSmall
*158=0,0|83=0,8
*193=2,8|166=2,10
*90=8,16|146=8,18
*209=10,0|117=10,2
*167=12,0|156=12,18
*216=14,2|115=14,16
End
Object Longjaw
*197=0,6|154=0,8
*106=2,0|173=2,18
*51=8,12|126=8,14|
*137=10,2|222=10,16
*129=12,8|60=12,12
*124=14,8|139=14,16
End
Procedure PutMouseInNeutralPosition
* MousePos 0, 0
* Delay 100
End
Procedure UseSlot1
* MousePos 23, 746
* Delay 50
* LeftClick
* Delay 50
End
Procedure StopOnSwitchedWindow On WindowChange
* Keys 0
*Stop
End
Procedure StartFishing
*call UseSlot1
* call PutMouseInNeutralPosition
End
Procedure Waitforfish
* SetConst Fish = 0
* While $Fish <= 0
* * *GetRed 900,683 = 238
* * * * Delay 250
* * * * Continue
* * *Else
* * * * Delay 250
* * * * LoadRGB 900,683
* * * * if {rgbred} > 200
* * * * * *Delay 250
* * * * * *Continue
* * * * Else
* * * * * Delay 250
* * * * * *LoadRGB 900,683
* * * * * * *if {rgbred} > 200
* * * * * * * Delay 250
* * * * * * * *Continue
* * * * * *Else * * *
* * * * * * * * * Delay 250
* * * * * * * * * * LoadRGB 900,683
* * * * * * * * * *if {rgbred} > 200
* * * * * * * * * * * Delay 250
* * * * * * * * * * *Continue
* * * * * * * * *Else * * *
* * * * * * * * * * * * Keys 0
* * * * * * * * * * SetConst Fish = 1
* * * * * * * * End
* * * * * * End
* * * * End
* * *End
* End
End
Procedure FindBobbingThingy
* SetConst DidBreak = 0
* Delay 500
* Loop TestY = 0 to 26
* * *Loop TestX = 0 to 27
* * * * Compute i = $TestX * 20
* * * * Compute i = $i + 220
* * * * Compute j = $TestY * 20
* * * * Compute j = $j + 10
* * * * MousePos $i, $j
* * * * Delay 15
* * * * GetRed 900,683 = 239
* * * * * *SetConst DidBreak = 1
* * * * * *If $TestY < 5
* * * * * * * Delay 1000
* * * * * *End
* * * * * *Keys 9
* * * * * *Break
* * * * Else
* * * * * *Delay 10
* * * * * *LoadRGB 900,683
* * * * * *if {rgbred} > 237
* * * * * * * SetConst DidBreak = 1
* * * * * * * If $TestY < 5
* * * * * * * * *Delay 1000
* * * * * * * End
* * * * * * * Keys 9
* * * * * * * Break
* * * * * *End
* * * * End
* * *End
* * *If $DidBreak > 0
* * * * Break
* * *End
* * *Continue
* End
* call waitforfish
* call PutMouseInNeutralPosition
End
Procedure closeloot
* MousePos 175,129
* Delay 50
* LeftClick
* Delay 500
End
Procedure loot
* MousePos 40, 200
* Delay 50
* LeftClick
* Delay 500
End * *
Function isLongjaw
* if $LongJawMudSnapper = 1
* * *IsObject Longjaw At 33,190
* * * * SetConst Result = 1
* * * * Exit
* * *Else
* * * * SetConst Result = 0
* * * * Exit
* * *End
* Else
* * *SetConst Result = 0
* * *Exit
* End
End
Function isBrilSmall
* if $BrilliantSmallFish = 1
* * *IsObject BrilSmall At 28,192
* * * * SetConst Result = 1
* * * * Exit
* * *Else
* * * * SetConst Result = 0
* * * * Exit
* * *End
* Else
* * *SetConst Result = 0
* * *Exit
* End
End
Function isOilyBlack
* if $OilyBlackmouth = 1
* * *IsObject OilyBlack At 36,194
* * * * SetConst Result = 1
* * * * Exit
* * *Else
* * * * SetConst Result = 0
* * * * Exit
* * *End
* Else
* * *SetConst Result = 0
* * *Exit
* End
End
//Function isBot
// * if $Bottle = 1
// * * *IsObject Bot At 35,193
// * * * * * SetConst Result = 1
// * * * * Exit
// * * *Else
// * * * * SetConst Result = 0
// * * * * Exit
// * * *End
// * Else
// * * *SetConst Result = 0
// * * *Exit
// * End
//End
Function isRainFin
* if $RainbowFin = 1
* * *IsObject RainFin At 50,204
* * * * * SetConst Result = 1
* * * * Exit
* * *Else
* * * * SetConst Result = 0
* * * * Exit
* * *End
* Else
* * *SetConst Result = 0
* * *Exit
* End
End
* * *
// handles the catch
Procedure HandleCatch
* If $ThrowAwayLoot <= 0
* * *if $isBrilSmall = 1 Or $isLongjaw = 1 Or $isRainFin = 1 Or $isOilyBlack = 1// Or $isBot = 1
* * * * call closeloot
* * *Else
* * * * Delay 400
* * * * if $isBrilSmall = 1 Or $isLongjaw = 1 Or $isRainFin = 1 Or $isOilyBlack = 1// Or $isBot = 1
* * * * * *call closeloot
* * * * Else
* * * * * *call loot
* * * * end
* * *End
* Else
* * *call closeloot
* End
End
// If returns zero, will ensure that the main loop is not called again.
Procedure MainLoop
* call StartFishing
* call FindBobbingThingy
* call HandleCatch
End
Procedure Main
*If $NumberOfFishingLoops <= 0
* * *While $NumberOfFishingLoops <= 0
* * * * call MainLoop
* * *End
* Else
* * *Loop $NumberOfFishingLoops
* * * * call MainLoop
* * *End
* End
End
call Main
![x]vIrus[x's Avatar](https://www.elitepvpers.com/forum/customavatars/avatar283743_18.gif){kind=avatar}
