Work in progress Expidition aquireing mac

Need help with a macro you are writing? Ask here!

Moderator: MacroQuest Developers

judeman
decaying skeleton
decaying skeleton
Posts: 6
Joined: Fri Sep 17, 2004 1:20 pm

Work in progress Expidition aquireing mac

Post by judeman » Fri Mar 04, 2005 2:34 pm

This is my first real mac I have put together . Since MQ2 isnt up I cant test it out and don't really want to play untill MQ2 is back up. This macro, I am hoping will get a expidition. This is a simple macro but usefull. I 'm a fan of keep it simple stupid.

When started it should look for that damn spawn beside the expidition guy and either kill it or move on to the expidition guy to get another expidition. Then move back to Firepit entrance and tell other toons using genbot to zone in and then the main zone in. Also, I am not sure if the genbot command " /tell yourtoon door" will zone you into the expidition. Please take a look at this macro you code gurus and see if I have made any errors.

Once I know it works I will post it under the working macros.

I am in my late 30s and before December the last time I had wrote code was with a commadore 64 when they were NEW so I am learning. hehe

Hopefully this will be my first contribution.



Thanks all,
Judeman

Code: Select all

|Usage /mac newexpidition 
|Macro for aquiring new adventure for the Firepit expidition.
|Start macro by firepit expidition stones zone in or somewhere |close.
|It will target mob beside the adventure guy and kill it. It then will |cycle through expiditions untill Firepit is selected. 
| It then will tell other bots using genbot  to zone in.
| This is mainly for when you zone out of firepit.
|
|If you want to use this you will need to make your own paths |where |stated in the macro.
|------------------------------------------------------
| **little mac I use to make paths**
|
|usage pathmaker
|
|#INCLUDE advpath.inc
|sub main
|/call initAPFVars 1 15 20
|:Ploop
|/call ADvPathPoll
|/doevents
|/delay 1
|/goto :Ploop
|return
|
|To record path use /echo record yourpathname
| To stop recording use /echo stop
|If you need more help refer to advpath inc
|------------------------------------------------------
|
|WORK IN PROGRESS.
|I am not sure if
|the genbot commands will tell bots on genbot to zone in yet.
|
|
|
|
|
|
|





#turbo
#include advpath.inc
#include skill_routines.inc
#include spell_routines.inc
#include spellcast.inc
#Event waterhole    "#*#waterhole#*#"
#Event murkgliders  "#*#murkgliders#*#"
#Event firepit           "#*#firepit#*#"
#Event slain             "#*#You have been slain#*#"



|---Calls if waterhole
Sub Event_waterhole
    /call waterhole
/return

|---Calls if Murkgliders
Sub Event_murkgliders
    /call murkgliders
/return

|---Calls if firepit is given
Sub Event_firpit
    /call Firepit
/return

|---If somehow you die you will /q out---|
Sub Event_slain
    /g Dead
    :deathloop
    /delay 5s
    /q
    /delay 5s
    /doevents
    /goto :deathloop
/return


|-----------------------------------------
| Sub Main
|-----------------------------------------
Sub Main
     /call InitAPFVars 1 15 20
|delay to wait for bots to zone out
     /delay 2m

:1 
|targets spawn by adventure guy or gets adven
     /target ${Spawn[loc 417.92 -1572.89 npc radius 5]}
     /if (!${Target.ID}) /call Adventureguy
     /if (${Target.ID}) /call Mob1	

|---------------------------------------------
|Begining of subs
|---------------------------------------------


|Targets mob and heads toward its loc and cast spell and kills the fucker
Sub Mob1
    /doevents
    /target ${Spawn[loc 417.92 1572.89 npc radius 5]}
    /delay 2s
    /call PlayFunction "tonastymobpath 1 cf nopp noz"
    /call WaitTilThere
    /call Cast "festering darkness" gem5 20s
    /attack on
    /face fast
    /stick 30%
    /call cast "festering darkness" gem2 20s
    /return




|Targets adventure guy
Sub Adventureguy
    /doevents
|adventure guys loc
    /target ${Spawn[loc 429.91 -1567.77 npc radius 5]}
|calls path to him
    /call PLayFunction "toadventureguypath 1 cf nopp noz"
    /call WaitTilThere
    /delay 4s
|Normal face where others don't notice
    /face
    /target ${Spawn[loc 429.91 -1567.77 npc radius 5]}
    /say Caves
    /doevents
/return


|When given firepit will go to firepit entrance
Sub Firepit
    /doevents
|Clears adventure screen and anything thats targeted
    /keypress escape
    /keypress escape
    /call PLayFunction "backtoentrancepath 1 cf nopp noz"
    /call WaitTilThere
    /delay 2s
    /tell yourcleric getbehind yourmain
    /delay 2s
    /tell yourcleric face 
    /delay 2s
    /tell yourcleric door
    /delay 2s
    /tell yournecro getbehind yourmain
    /delay 2s
    /tell yournecro face 
    /delay 2s
    /tell yournecro door
    /delay 2s
    /tell yourchanter getbehind yourmain
    /delay 2s
    /tell yourchanter face
    /delay 2s
    /tell yourchanter door
|Keypress "u" should zone you in if facing the stones at firepit zone in.
    /keypress U
/return



Sub waterhole
    /doevents
    /delay 2s
    /tell yourcleric dzquit
    /delay 2s
    /tell yourchanter dzquit
    /delay 2s
    /tell yournecro dzquit
    /delay 2s
    /dzquit
    /delay 10s
    /call Adventureguy
/return


Sub murkgliders
    /doevents
    /delay 2s
    /tell yourcleric dzquit
    /delay 2s
    /tell yourchanter dzquit
    /delay 2s
    /tell yournecro dzquit
    /delay 2s
    /dzquit
    /delay 10s
    /call Adventureguy
/return


|-----------------------------------------------|
|Sub for pathing aspects                        |
|-----------------------------------------------|

Sub WaitTilThere
    :LoopTilThere
    /if (${PathingFlag}==1) {
    /call AdvPathPoll
    /delay 0
    /goto :LoopTilThere
    }
/return