Register for your free account! | Forgot your password?

You last visited: Today at 05:28

  • Please register to post and access all features, it's quick, easy and FREE!

 

EQ2 Crafting Macro

Reply
 
Old   #1
 
elite*gold: 20
Join Date: Apr 2005
Posts: 700
Received Thanks: 24
Use AutoIt Spy Window to find the Begin/Repeat button and update the variables in the script. Likewise you can update the number of times you have enough ingredients to run this script. I also added some randomness for those people who might be watching for macros. The actual spamming of the related abilities is slightly randomized (500 ms + a random number). Also, there's a 15% chance your toon will perform one of the 12 social interactions. I got bored just watching LOL (I know it's gonna be used by a lot of AFK people but they can modify very easily to remove the socials, and I'll probably make that configurable in the very near future when I also create a few more to keep leveling up with.

So enough rambling on my part - here's the script - hope someone finds it useful



undispudet is offline  
Old   #2
 
elite*gold: 20
Join Date: Apr 2005
Posts: 700
Received Thanks: 24
;
; User needs to update these values accordingly
;
$eq = "EverQuest II (Nov 19 2004 16:21:31) USER OPTIMIZED: SOEBuild=1521T"
$mX = 966 ; Mouse X coordinate for the Begin/Repeat button
$mY = 750 ; Mouse Y coordinate for the Begin/Repeat button
$stacks = 20 ; Number of complete products you have the ingredients for

;
; Make EQ2 Window Active
;
WinActivate($eq)

;
; Loop x times based on number of stacks of ingredients
;
For $count = 1 to $stacks
MouseClick("left", $mX, $mY) ; Click begin
Sleep(1500 + Random(100))
For $count2 = 1 to 25
Send("1") ; Awareness
Sleep(500 + Random(25))
Send("2") ; Constant Heat
Sleep(500 + Random(25))
Send("3") ; Seasoning
Sleep(300 + Random(25))
If (Call("crafted") = 1) Then ExitLoop 1
Sleep(2600 + Random(100))
Next
MouseClick("left", $mX, $mY) ; Click repeat
Sleep(500 + Random(25))
Next
MsgBox(0, "Done!", "Time to make the doughnuts....")

;
; Let's try and be smarter about this and see if we finished the product
; and let's add some flare by doing some random acts every now and then
;
Func crafted()
$done = 0
MouseMove($mX, $mY)
$color = PixelGetColor($mX, $mY)
If ($color = 7359501) Then $done = 1
If (($done = 1) AND (Random(0, 100) > 85)) Then Call("doSocial")
Return $done
EndFunc

;
; Determine which random act of silliness to perform
;
Func doSocial()
Send("{F2}") ; Select nobody
$social = Int(Random(1, 12))
Select
Case 1 = $social
Send("/applaud")
Case 2 = $social
Send("/curse")
Case 3 = $social
Send("/dance")
Case 4 = $social
Send("/frustrated")
Case 5 = $social
Send("/grumble")
Case 6 = $social
Send("/heelclick")
Case 7 = $social
Send("/scream")
Case 8 = $social
Send("/shimmy")
Case 9 = $social
Send("/swear")
Case 10 = $social
Send("/sigh")
Case 11 = $social
Send("/tantrum")
Case 12 = $social
Send("/yawn")
EndSelect
Send("{ENTER}{TAB}")
Sleep(3000)
EndFunc


undispudet is offline  
Old   #3
 
elite*gold: 0
Join Date: Jul 2005
Posts: 3,528
Received Thanks: 51
Good macro.

Man you dont half do some good work.
ultimatedestroyer is offline  
Old   #4
 
elite*gold: 0
Join Date: Feb 2006
Posts: 1
Received Thanks: 0
is there someone or some were i can go to learn what each lines do


vincer20 is offline  
Old   #5
 
elite*gold: 0
Join Date: Oct 2006
Posts: 3
Received Thanks: 0
not sure where i am going wrong on this one.
i got it working but begin and repeat buttons are 2 different buttons
so i guess i need to know how to add the second button to the script and get the script to use the added button. i may be wrong here but i think that the begin/repeat button used to do both functions. the begin button now says begin on it and the coords are 930,767 atm the repeat button doesnt show up until the item is created then it appears at these coords 1152,767 so i guess either ive messed up the coords in some way or the game has been updated and there is an additional button that im not sure how to add ...sorry...very new to scripting and do not yet know any programming/scripting languages ty
sevti is offline  
Old   #6
 
elite*gold: 0
Join Date: Oct 2006
Posts: 3
Received Thanks: 0
OK.....
i think i figured it out....
I did an ugly hack job on your script...(lol sorry about that) but it is working better than it was i added the extra button and made the script use it. Still cant figure out how to get the repeat to trigger faster it just keeps hitting buffs for a while then triggers the repaet seems random i guess it has something to do with the sleep entry but not sure which one and i havent seen the socials kick in yet so i guess thats something ill have to figure out too. I`ll try to post the script and see if anyone can suggest any changes ty

Code:
; 
; User needs to update these values accordingly 
; 
$eq = "EverQuest II (Nov  3 2008 11:10:13) USER OPTIMIZED: SOEBuild=5202L " 
$mX = 888 ; Mouse X coordinate for the Begin button 
$mY = 784 ; Mouse Y coordinate for the Begin button 
$mX2 = 1114 ; Mouse X coordinate for the Repeat button  
$mY2 = 784 ; Mouse Y coordinate for the Repeat button
$stacks = 20 ; Number of complete products you have the ingredients for 

; 
; Make EQ2 Window Active 
; 
WinActivate($eq) 

; 
; Loop x times based on number of stacks of ingredients 
; 
For $count = 1 to $stacks 
MouseClick("left", $mX, $mY) ; Click begin 
Sleep(1500 + Random(100)) 
For $count2 = 1 to 25 
Send("1") ; Awareness 
Sleep(500 + Random(25)) 
Send("2") ; Constant Heat 
Sleep(500 + Random(25)) 
Send("3") ; Seasoning 
Sleep(300 + Random(25)) 
If (Call("crafted") = 1) Then ExitLoop 1 
Sleep(2600 + Random(100)) 
Next 
MouseClick("left", $mX2, $mY2) ; Click repeat 
Sleep(500 + Random(25)) 
Next 
MsgBox(0, "Done!", "Lets get on with the crafting....") 

; 
; Let's try and be smarter about this and see if we finished the product 
; and let's add some flare by doing some random acts every now and then 
; 
Func crafted() 
$done = 0 
MouseMove($mX, $mY) 
$color = PixelGetColor($mX, $mY) 
If ($color = 0x572B16) Then $done = 1 
If (($done = 1) AND (Random(0, 100) > 85)) Then Call("doSocial") 
Return $done 
EndFunc 

; 
; Determine which random act of silliness to perform 
; 
Func doSocial() 
Send("{F2}") ; Select nobody 
$social = Int(Random(1, 12)) 
Select 
Case 1 = $social 
Send("/applaud") 
Case 2 = $social 
Send("/curse") 
Case 3 = $social 
Send("/dance") 
Case 4 = $social 
Send("/frustrated") 
Case 5 = $social 
Send("/grumble") 
Case 6 = $social 
Send("/heelclick") 
Case 7 = $social 
Send("/scream") 
Case 8 = $social 
Send("/shimmy") 
Case 9 = $social 
Send("/swear") 
Case 10 = $social 
Send("/sigh") 
Case 11 = $social 
Send("/tantrum") 
Case 12 = $social 
Send("/yawn") 
EndSelect 
Send("{ENTER}{TAB}") 
Sleep(3000) 
EndFunc
sevti is offline  
Old   #7
 
elite*gold: 0
Join Date: Oct 2006
Posts: 3
Received Thanks: 0
YES!!!
It works awesome now!!!
thanks for the script i know its old and there is probably way better script for the game crafting now but this was a huge find for me thanks again. this works well as of 11/6/08 just be sure to follow the instructions and add the repeat button coords seems to run better if you have your crafting window up and set at the begin button. also for those who are afraid of putting in coords just save the script below with a . au3 file extension, start it then move the crafting window until the mouse pointer is sitting where the repeat button is. once you get it set there restart the macro/script


Code:
; 
; User needs to update these values accordingly 
; 
$eq = "EverQuest II (Nov  3 2008 11:10:13) USER OPTIMIZED: SOEBuild=5202L " 
$mX = 893 ; Mouse X coordinate for the Begin button 
$mY = 785 ; Mouse Y coordinate for the Begin button 
$mX2 = 1112 ; Mouse X coordinate for the Repeat button  
$mY2 = 785 ; Mouse Y coordinate for the Repeat button
$stacks = 82 ; Number of complete products you have the ingredients for 

; 
; Make EQ2 Window Active 
; 
WinActivate($eq) 

; 
; Loop x times based on number of stacks of ingredients 
; 
For $count = 1 to $stacks 
MouseClick("left", $mX, $mY) ; Click begin 
Sleep(1500 + Random(100)) 
For $count2 = 1 to 25 
Send("1") ; Awareness 
Sleep(500 + Random(25)) 
Send("2") ; Constant Heat 
Sleep(500 + Random(25)) 
Send("3") ; Seasoning 
Sleep(300 + Random(25)) 
If (Call("created") = 1) Then ExitLoop 1 
Sleep(2600 + Random(100)) 
Next 
MouseClick("left", $mX2, $mY2) ; Click repeat 
Sleep(500 + Random(25)) 
Next 
MsgBox(0, "Done!", "Lets get on with the crafting....") 

; 
; Let's try and be smarter about this and see if we finished the product 
; and let's add some flare by doing some random acts every now and then 
; 
Func created() 
$done = 0 
MouseMove($mX2, $mY2) 
$color = PixelGetColor($mX2, $mY2) 
If ($color = 0x212039) Then $done = 1 
If (($done = 1) AND (Random(0, 100) > 58)) Then Call("doSocial") 
Return $done 
EndFunc 

; 
; Determine which random act of silliness to perform 
; 
Func doSocial() 
Send("{F2}") ; Select nobody 
$social = Int(Random(1, 12)) 
Select 
Case 1 = $social 
Send("/applaud") 
Case 2 = $social 
Send("/curse") 
Case 3 = $social 
Send("/dance") 
Case 4 = $social 
Send("/frustrated") 
Case 5 = $social 
Send("/grumble") 
Case 6 = $social 
Send("/heelclick") 
Case 7 = $social 
Send("/scream") 
Case 8 = $social 
Send("/shimmy") 
Case 9 = $social 
Send("/swear") 
Case 10 = $social 
Send("/sigh") 
Case 11 = $social 
Send("/tantrum") 
Case 12 = $social 
Send("/yawn") 
EndSelect 
Send("{ENTER}{TAB}") 
Sleep(3000) 
EndFunc


sevti is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Tailoring Crafting Bot/Macro?
Hi guys, I looked already in the correct section to find a bot that does the crafting for you but I cant find any. I was wondering if a bot exsists...
1 Replies - Aion Main - Discussions / Questions
macro for crafting
is there a way to create a macro where your dwarf can craft (soulshots) every few minutes for mana to regain. It kinda annoys me that i have to...
3 Replies - Lineage 2
Post NGE Crafting Macro
**There is no such thing as a macro you can use to grind crafting AFK, because there is no command to select the resources during the crafting...
0 Replies - General Gaming Discussion
AFK Crafting Macro / -Bot / -Tool / -Whatever
Hi there. :D I have a simple question. I am playing Lineage II on a L2j Server with full recipebook stuff. That means that even...
2 Replies - Lineage 2
NGE Crafting Macro - Pics - Detailed
There are two different ones that I have used. The forst one is more for the early stages when its easier to figure out the numbers to the draft...
0 Replies - General Gaming Discussion



All times are GMT +1. The time now is 05:28.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.