MacroQuest64

Need to talk about MacroQuest to other MacroQuest users?
https://mq64.org/phpBB3/

Ranger Auto-Archery w/ Snare|CloseCombat|Forage|Taunt etc..

https://mq64.org/phpBB3/viewtopic.php?t=7308

Page 2 of 4

CTD'ing now.

Posted: Thu Jun 17, 2004 1:35 pm
by Advari
As of the latest patch, this macro no longer works, causes CTD instantly upon autoattack.

Posted: Thu Jun 17, 2004 2:48 pm
by loadingpleasewait
Yeah, getting the same thing :( seems the latest zip probably has issues.. /ranged also seems not to work.. Hopefully Lax or one of the devs will be able to pull a magical fix out of their collective posterior..

working

Posted: Fri Jun 18, 2004 2:49 pm
by Riven
well im just got on today to do a little hacking. and long behold my most favorite mac kind does not work now. i can load the mac and it seems to be running but, it wont fire arrows. I sure hope u someone can fix mac for the new zip file. ill go in and see what lax changed to cause the mac to stop working.

Posted: Fri Jun 18, 2004 6:42 pm
by Tel0net
I confirm the crashing

Posted: Fri Jun 18, 2004 11:25 pm
by loadingpleasewait
Ok, it appears that the macro is broken with the new calculate function.. there is a workaround that involves editing your MQ2Utilities.cpp You can read about it in this thread:

http://macroquest2.com/phpBB2/viewtopic ... highlight=

I have applied the workaround, and it appears to work. I have NOT checked out all the functions of the macro yet tho..

Its sad, this macro has made playing my ranger so basic and simple, AKA BORING that I've practically stopped playing him, yet when I do, I rely on this macro.. :)

checking

Posted: Sat Jun 19, 2004 4:34 pm
by Riven
well i think i applied the workaround correct , but it still wont fire any arrows. going back to double check my work.

Posted: Sat Jun 19, 2004 9:44 pm
by loadingpleasewait
MACRO UPDATED!

it now works with the latest (June 19th) zip.

ALSO ADDED AUTOASSIST!!
June 19, 2004 Fixxed to work with June 19th zip. Basically set all variables to 0 as it appears they no
longer default to 0. ADDED auto-assist toggle. I've had this in my own version for a while, I was just
to lazy to add it to the site. Basically, you target who you want to assist and start the macro. It MUST
be a Player Character, if it is not, then the macro will end. The macro will now auto assist when the assist's
Target is an NPC and within assistdistance, which is defaulted to 60. You may change the assistdistance at
any time using the /varset assistdistance ### command. (replace ### with the distance you want to use. duh!)
This will NOT follow your target, it will just let you stand, or sit, where you want and stand ya up when
your target is near and begin firing arrows, or meleeing if the target is in range. Enjoy! = )
The code has been updated in the first post! :)

thanks

Posted: Sun Jun 20, 2004 12:24 am
by Riven
I want to thank the author for the time i has placed into getting the mac working. It is one of the most used macs i have and i love it. I just wish i had more knowlege on the mq2 script and able to just write a mac from scratch. thanks for the up date. was wandering if u could put in the part to goto the target and follow it. kinda like the genbot does im going to work on that part. i have a hunter mac that i updated a while back that usees the what i talk about. once it kills the target it runs back to the anchor if i had it set, or it just moves on to the next kill. this then would make the ranger make almost complete i would think.

help

Posted: Sun Jun 20, 2004 4:14 pm
by Riven
well I have a revison of this mac. It is acting just like the other one did few zips back. It wont auto arch. I have the new zip up and that still didnt fix it. Please go threw it and tell me whats wrong with it. So might learn from my mistake.

Code: Select all

|**
arch.mac Auto-Archery
USAGE:
/mac arch <forage|snare|taunt|root|verbose|noarch> 
Use all, or none, in any order seperated by spaces to do specified action
**|

#include spellcast.inc
#turbo 40
#Event exp 		"#*#experience!#*#"
#Event haste 		"#*#The quickening spirit departs#*#"
#Event eagle 		"#*#The avian presence departs#*#"
#Event resist 		"#*#Your target resisted the tangling weeds spell#*#"
#Event resist 		"#*#Your Tangling weeds spell has worn off#*#"
#Event Snaresuccess 	"#*#movements slow as their feet are covered in tangling weeds#*#"
#Event Immune 		"#*#changes in its run speed#*#"
#Event reroot 		"#*#Your grasping Roots spell has worn off#*#"
#Event reroot 		"#*#Your target resisted the grasping Roots spell#*#"
#Event Casting 		"#*#You begin casting#*#"
#Event waitforage 	"#*#before you can forage#*#"
#Event nohold 		"#*#Your spell did not take hold#*#"
#Event thorns 		"#*#Your skin returns to normal.#*#"
#Event fist		"#*#your hand is extinguished#*#"

Sub Main
   /echo "Auto-Arch Macro has begun."
   /declare i int local
   /declare noarch outer 0
   /declare verbose outer 0
   /declare foragetoggle outer 0
   /declare waitforage outer 0
   /declare invset outer 0
   /declare notset outer 0
   /declare sitstatus outer 0
   /declare snaretoggle outer 0
   /declare taunttoggle outer 0
   /declare roottoggle outer 0
   /declare needsnare outer 0
   /declare immunetosnare outer 0
   /declare startexp outer 0
   /declare startaaxp outer 0
   /declare currentxp outer 0
   /declare xpgain outer 0
   /declare currentaa outer 0
   /declare aagain outer 0
   /declare targetarray[4] string outer 0
   /declare dottoggle outer 0
   /declare needdot outer 0
   /declare immunetodot outer 0


   /varset startexp ${Me.PctExp}
   /varset startaaxp ${Me.PctAAExp}

/for i 0 to 6
  /if (${Defined[Param${i}]}) {
     /if (${Param${i}.Equal[dot]}) {
         /echo "Auto-Dot enabled"
         /varset dottoggle 1
         /varset needdot 1
         /varset immunetodot 0
         }	
     /if (${Param${i}.Equal[snare]}) {
         /echo "Auto-Snare enabled"
         /varset snaretoggle 1
         /varset needsnare 1
         /varset immunetosnare 0
         }
      /if (${Param${i}.Equal[taunt]}) {
         /echo "Auto-Taunt enabled"
         /varset taunttoggle 1
         }
      /if (${Param${i}.Equal[forage]}) {
         /echo "Auto-Forage enabled"
         /varset foragetoggle 1
         /varset waitforage 0
         /varset sitstatus 0
         /varset notset -1
         }
      /if (${Param${i}.Equal[root]}) {
         /echo "Auto-ReRoot enabled"
         /varset roottoggle 1
         }
      /if (${Param${i}.Equal[verbose]}) {
         /echo "Group Anounce enabled"
         /varset verbose 1
         }
      /if (${Param${i}.Equal[noarch]}) {
         /echo "Auto-Arch macro will not Auto-Arch.. go figure?!?"
         /varset noarch 1
         }
   }
/next i

:mainloop
   /if (${Me.Combat} && ${Target.ID} && ${Target.CleanName.NotEqual[${Me.Name}]}) /call Archery
         /if (${foragetoggle}==1 && ${Me.AbilityReady[Forage]}) /call forage
	/if (${Me.AbilityReady[Tracking]}) /doability "tracking"
        /doevents
      /goto :mainloop
/return

Sub Archery
  /attack off
  /varset targetarray[1] ${Target.CleanName}
  /varset targetarray[2] ${Target.Level}
  /varset targetarray[3] ${Target.Name}
  /varset targetarray[4] ${Target.ID}
   
   /echo Fighting a ${targetarray[2]} ${targetarray[1]}
  /face nolook
  :CloserAF   
  	/if (${Me.Combat}) /attack off
	/if (${Target.Distance}>30 && ${Me.RangedReady} && ${noarch}!=1) /ranged
	/delay 2
        /if (${foragetoggle}==1 && ${Me.AbilityReady[Forage]}) /call forage
	/if (${Me.AbilityReady[Tracking]}) /doability "tracking"
	/if (${dottoggle}==1 && ${needdot}==1 && ${Target.PctHPs}<90 && ${Target.Distance}<150) {
         	/call Cast "Stinging Swarm" gem3
         	/varset needdot 0
         	/doevents
        /if (${verbose}==1 && ${immunetodot}==0 && ${needdot}==0) /gsay "%t has successfully been Dotted"
     		 }
    	/if (${dottoggle}==1 && ${needdot}==1 && ${Target.PctHPs}<90 && ${Target.Distance}>150) {
      		/popup "Too Far Away For Auto-Dot, GET CLOSER!!"
      		/delay 2
   		}
	/if (${snaretoggle}==1 && ${needsnare}==1 && ${Target.PctHPs}<70 && ${Target.Distance}<150) {
         	/call Cast "tangling weeds" gem1
         	/varset needsnare 0
         	/doevents
        /if (${verbose}==1 && ${immunetosnare}==0 && ${needsnare}==0) /gsay "%t has successfully been snared"
     		 }
    	/if (${snaretoggle}==1 && ${needsnare}==1 && ${Target.PctHPs}<70 && ${Target.Distance}>150) {
      		/popup "Too Far Away For Auto-Snare, GET CLOSER!!"
      		/delay 2
   		}
    /doevents
    	/if (${Target.Distance}<25) /call closecombat
    	/if (${Target.ID}!=${targetarray[4]}) /goto :EndAF
    /doevents
    	/if (!${Target.ID}) /goto :EndAF
     /doevents
    	/goto :CloserAF
:EndAF
    		/echo a ${targetarray[2]} ${targetarray[1]} is dead
    	/if (${snaretoggle}==1) {
      		/varset needsnare 1
      		/varset immunetosnare 0
   		}
    		/keypress Num_1
		/return

Sub closecombat
   /attack on
   :stillclose
	/if (${Me.AbilityReady[Tracking]}) /doability "tracking"	
        /if (${foragetoggle}==1 && ${Me.AbilityReady[Forage]}) {
               	/attack off
             	/delay 5
            	/call forage
            	/attack on
         	}
      	/if (${Target.Distance}<11 && ${Me.AbilityReady["Disarm"]}) /doability "Disarm"
      	/if (${Target.Distance}<11 && ${Me.AbilityReady["Kick"]}) /doability "Kick"
      	/if (${taunttoggle}==1 && ${Target.Distance}<11 && ${Me.AbilityReady["Taunt"]}) /doability "Taunt"
      /doevents
	/if (${dottoggle}==1 && ${needdot}==1 && ${Target.PctHPs}<90 && ${Target.Distance}<150) {
         	/call Cast "Stinging Swarm" gem3
         	/varset needdot 0
      /doevents
        /if (${verbose}==1 && ${immunetoDot}==0 && ${needDot}==0) /gsay "%t has successfully been Dotted"
      		}
    	/if (${dottoggle}==1 && ${needdot}==1 && ${Target.PctHPs}<90 && ${Target.Distance}>150) {
      		/popup "Too Far Away For Auto-dot, GET CLOSER!!"
      /delay 2
   		}
      /if (${snaretoggle}==1 && ${needsnare}==1 && ${Target.PctHPs}<70 && ${Target.Distance}<150) {
         /call Cast "tangling weeds" gem1
         /varset needsnare 0
         /doevents
         /if (${verbose}==1 && ${immunetosnare}==0 && ${needsnare}==0) /gsay "%t has successfully been snared"
      }
    /if (${snaretoggle}==1 && ${needsnare}==1 && ${Target.PctHPs}<70 && ${Target.Distance}>150) {
      /popup "Too Far Away For Auto-Snare, GET CLOSER!!"
      /delay 2
   }
    /if (${Target.Distance}<25 && ${Target.ID} && ${Target.ID}==${targetarray[4]} && ${Target.CleanName.NotEqual[${Me.Name}]}) /goto :stillclose
    /attack off
   /return

Sub Event_exp
   /varset currentxp ${Me.PctExp}
   /varset xpgain ${Math.Calc[${currentxp}-${startexp}]}
   /varset currentaa ${Me.PctAAExp}
   /varset aagain ${Math.Calc[${currentaa}-${startaaxp}]}
      /popup "Gain: ${xpgain}% xp - ${aagain}% aa ## Cur: ${Me.PctExp}% xp - ${Me.PctAAExp}% aa"
      /echo "Gain: ${xpgain}% xp - ${aagain}% aa ## Cur: ${Me.PctExp}% xp - ${Me.PctAAExp}% aa"
   /varset startexp ${Me.PctExp}
   /varset startaaxp ${Me.PctAAExp}
/return

Sub event_eagle
   /if (${Me.Sitting}) {
      /stand
      /varset sitstatus 1
   }
      /call Cast "hawk Eye" gem6
   /if (${sitstatus}==1) {
      /sit
      /varset sitstatus 0
   }
/return

Sub event_Fist
   /if (${Me.Sitting}) {
      /stand
      /varset sitstatus 1
   }
      /call Cast "FireFist" gem5
   /if (${sitstatus}==1) {
      /sit
      /varset sitstatus 0
   }
/return

Sub event_haste
   /if (${Me.Sitting}) {
      /stand
      /varset sitstatus 1
   }
      /call Cast "Eyepatch of Plunder" item
   /if (${sitstatus}==1) {
      /sit
      /varset sitstatus 0
   }
/return   

Sub event_reroot
      /if (${roottoggle}==1) {
         /target npc id ${targetarray[4]}
         /call Cast "grasping Roots" gem2
      }
/return

Sub event_nohold
     /if (${roottoggle}==1) {
         /target npc id ${targetarray[4]}
         /call Cast "grasping Roots" gem2
      }
/return

Sub Event_resist
/doevents
	/if (${dottoggle}==1 && ${immunetodot}==0) /varset needdot 1
   	/if (${snaretoggle}==1 && ${immunetosnare}==0) /varset needsnare 1
      	/return

Sub Event_Immune
	/if (${dottoggle}==1) {
     		/varset needdot 0
      		/varset immunetodot 1
      	/if (${verbose}==1) /gsay "Can't dot %t as it is immune"
   }
   	/if (${snaretoggle}==1) {
      		/varset needsnare 0
      		/varset immunetosnare 1
      		/if (${verbose}==1) /gsay "Can't snare %t as it is immune"
   }
/return

sub Event_Casting
   :checkcast
    /delay 1
    /if (${Me.Casting.ID}) /goto :checkcast
/return

sub forage
   /if (${Me.Sitting}) {
      /stand
      /varset sitstatus 1
   }
   /if (${Me.Ducking}) /stand
   /doability Forage
   /if (${sitstatus}==1) {
      /sit
      /varset sitstatus 0
   }
:waitforage
   /delay 3
   /doevents
   /if (!${Cursor.ID} && ${waitforage}==0 && ${Me.Skill["Forage"]}==200) /goto :waitforage
   /varset waitforage 0
   /call destroyornot
/return

sub Event_waitforage
   /if (${foragetoggle}==1) /varset waitforage 1
/return

Sub event_Thorns
   /if (${Me.Sitting}) {
      /stand
      /varset sitstatus 1
   }
      /call Cast "Barbcoat" gem7
   /if (${sitstatus}==1) {
      /sit
      /varset sitstatus 0
   }
/return

 sub destroyornot
   /varset invset ${Ini[ArchForage.ini,ForageList,${Cursor.Name},${notset}]}
   /delay 3
   /if (${invset}==${notset}) {
      /ini "ArchForage.ini" "ForageList" "${Cursor.Name}" "1"
      /varset invset 1
      }
   /if (${invset}==1) {
      /echo Found ${Math.Calc[${FindItemCount[${Cursor.Name}]}+1].Int} ${Cursor.Name}'s so far!
      /popup Found ${Math.Calc[${FindItemCount[${Cursor.Name}]}+1].Int} ${Cursor.Name}'s so far!
      :Keep
      /autoinv
      /delay 3
      /if (${Cursor.ID}) /goto :Keep
      } else {
      /popup "${Cursor.Name} Destroyed!"
      /destroy
      }
/return

fixed

Posted: Sun Jun 20, 2004 6:21 pm
by Riven
Well after carefull reading, I forgot to add 0's to the /declare statements. It works now. edited my post up above.

Posted: Tue Jun 29, 2004 4:42 pm
by student_01
First off let me say i realy appreciate the time spent on this great work.Secondly i have a rather noobish question , i made a new macro for the spell casting inc code.Now the macro will not run without that code i think i may have put it in the wrong spot.Do i just add it on to your script is it a plug in or did i do it right by making it a new macro and i am just doing something else wrong?

**edit** when i run the macro it says could not open include ( file path ) spellcast.inc , i have spellcast.inc set up as a macro in the macro folder.

hmm

Posted: Tue Jun 29, 2004 6:59 pm
by VirusX
It has to be a .inc file and you cannot use wordpad to edit it only notepad because wordpad formats it as .txt

Take an included .inc file from MQ2-Latest.zip do a copy and past rename it to spellcast.inc edit it with notepad and paste the newest spellcast.inc release code inside and save you should be good to go.

Posted: Tue Jun 29, 2004 7:21 pm
by student_01
Thank ya master slickness

Posted: Tue Jun 29, 2004 8:29 pm
by dont_know_at_all
http://macroquest2.com/phpBB2/viewtopic ... 6955#56955

Posted: Wed Jun 30, 2004 3:56 am
by student_01
virusx wrote:It has to be a .inc file and you cannot use wordpad to edit it only notepad because wordpad formats it as .txt

Take an included .inc file from MQ2-Latest.zip do a copy and past rename it to spellcast.inc edit it with notepad and paste the newest spellcast.inc release code inside and save you should be good to go.
Ok i am still getting the error saying that it could not open spllcast.inc.This is what i did , i was unable to find any .inc files in mq2 folder.However i did run a system search for any .inc files and did find some , then i used notepad to edit it with the spellcast.inc code.The type of file it is listed as is a "setup information" type file.Did i do this right?
**extra info**Also i don't think this matters but i use a bootleg winxp pro Os and i didnt have notpad.I do have notpad pro though not sure if anyone else uses it or what not it should work the same.
All times are UTC-05:00
Page 2 of 4
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/