GoTeek.mac - Send your toons to get a quest and come back home :D (1 Viewer) 2022-06-20

[rogue601]

goteek.mac
While I was coding this I was pretty nervous about drawing attention to myself. I setup the debugon variable so that it would run through the motions, but not actually "/say" anything. After several hour of testing I finally issued a "/bcaa /mac goteek 40" and I just laughed my arse off as one by one with a delayed start my little minions ran off to get a quest and they all came back. Enjoy!

Please Note: that the variable debugOn is set to True, This macro only runs to Franklin Teek and back if you don't change it to FALSE
Also, the randomDelayedStart is set to 600 which is 0-60 seconds. It worked great for me, you may not like that.
Set returnHome to FALSE if you don't want them to come back

    | ----------------------------------------------------------------------------
    | Customizable Variables
    | ----------------------------------------------------------------------------    
    /declare debugOn bool outer True
    /declare returnHome bool outer True
    /declare randomDelayedStart int outer ${Math.Rand[600]}

Requirements:
MQ2Nav and Mesh of POK

Description:
This macro will allow you to send your bots to Franklin Teek to get a quest.
It randomizes Franklin's location so you aren't standing on top of him and goto a different location each time.
It has a randomized delay start so you can use EQBC "/bcaa //mac goteek 80" to send your bot army without looking like a swarm
It will only accept valid numbers 20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95

Usage:
/mac goteek level#
Example: /mac goteek 40

Updates:
v1.0 - Works as intended nothing on the TODO list atm.

| goTeek.mac by Rogue601  v1.0
| 
| Simple macro that sends you to Franklin Teek for a Quest Level you provide
|
| Requires MQ2Nav and Mesh
|    
|
| Customizable Variables
| randomDelayedStart - Set this to a large number if you are using EQBC to broadcast
| returnHome - Set this to TRUE if you want the bot to comeback after getting Quest.
| debugON - Extra text. PLEASE NOTE: Macro does not "/say Level ##" when debug is on.
|        it only does the movements.  I did this to not look stupid while I tested :D


| -------------------------------------------------------------------------------------
| Sub Main
| -------------------------------------------------------------------------------------
Sub Main
    
    | COMMENT : Check for POK zone or exit.
    /if (!${Zone.ShortName.Equal[PoKnowledge]}) {
        /echo "This macro only works in the Plane of Knowledge"
        /endmac    
    }



    | ----------------------------------------------------------------------------
    | Customizable Variables
    | ----------------------------------------------------------------------------    
    /declare debugOn bool outer True
    /declare returnHome bool outer True
    /declare randomDelayedStart int outer ${Math.Rand[600]}
    
    
    | Fixed Variables
    /declare myX float outer ${Me.X}
    /declare myY float outer ${Me.Y}
    /declare myZ float outer ${Me.Z}
    /declare targetName string outer "Franklin Teek"
    /declare targetID int outer ${NearestSpawn[npc targetable radius 10000 "${targetName}"].ID}    
    /declare qLevel int outer 0
    /declare haveQuest bool outer False

    | COMMENT : Randomized Teek Location
    /declare navToX float outer ${Math.Calc[${Spawn[${targetID}].X}+${Math.Rand[25]}]}
    /declare navToY float outer ${Math.Calc[${Spawn[${targetID}].Y}+${Math.Rand[25]}]}
    /declare navToZ float outer ${Spawn[${targetID}].Z}
    
    
    | ----------------------------------------------------------------------------
    | Require Parameters - Param1 = Level, Param2 = Class
    | ----------------------------------------------------------------------------    
    /if (${Macro.Params}==0) {
        
        /echo GOTEEK ERROR!
        /echo 
        /echo Example : /mac goteek 80
        /endmac
        
    } else {
    
        /varset myX ${Me.X}
        /varset myY ${Me.Y}                
        /varset qLevel ${Param0}
        
        | COMMENT : To prevent embarassment we will check the level you sent
        | to prevent /say Level 12 or /say Level I'm running a macro
        
        /if (${qLevel}==20 || ${qLevel}==25 || ${qLevel}==30 || ${qLevel}==35 || ${qLevel}==40 || ${qLevel}==45 || ${qLevel}==50 || ${qLevel}==55 || ${qLevel}==60 || ${qLevel}==65 || ${qLevel}==70 || ${qLevel}==75 || ${qLevel}==80 || ${qLevel}==85 || ${qLevel}==90 || ${qLevel}==95) {
            /if (${debugOn}) /echo DEBUG: Main: qLevel ${qLevel} Accepted    

        } else {
                     
             /echo 
                 /echo Do you really want me to say "Level ${qLevel}" to Franklin Teek?
                /echo
                 /echo Accepted values are:
                 /echo 20,25,30,35,40,45,50,55,60,65,70,75,80,85,90,95
            /endmac
        }
        
        
    }
    
    /if (${debugOn}) /echo GoTeek Starting in ${randomDelayedStart}    
    /nav reload
    
    | ----------------------------------------------------------------------------
    | RandonDelayStart - Lets wait here a random time to prevent a swarm
    | ----------------------------------------------------------------------------    
    /if (${randomDelayedStart} > 0) /echo randomStartDelay is active. Waiting ${randomDelayedStart} 
    /delay ${randomDelayedStart}
    
    
    :mainloop
    /if (${debugOn}) /echo DEBUG: Mainloop: haveQuest : ${haveQuest}, Distance: ${Spawn[${teekID}].Distance}    





    | ----------------------------------------------------------------------------
    | navToTeek - Goto Teek if I don't have a quest
    | ----------------------------------------------------------------------------    
    /if (${Spawn[${targetID}].Distance} > 30 && !${haveQuest}) {
        /if (${debugOn}) /echo DEBUG: Mainloop: Call NavToTeek
        /call NavToTeek
        
        
    | ----------------------------------------------------------------------------
    | BeginGetQuest - At Teek, Get Quest
    | ----------------------------------------------------------------------------            
    } else /if (!${haveQuest}) {
        /if (${debugOn}) /echo DEBUG: Mainloop: Call BeginGetQuest
        /call BeginGetQuest
    

    | ----------------------------------------------------------------------------
    | ReturnHome - At Teek, Get Quest and gohome
    | ----------------------------------------------------------------------------            
    } else /if (${returnHome}) {
        /if (${debugOn}) /echo DEBUG: Mainloop: Nav Home
        /squelch /nav locxyz ${myX} ${myY} ${myZ}
        /squelch /target clear
        /endmac
        
    } else {
        /if (${debugOn}) /echo DEBUG: Mainloop: Macro Ending Else
        /endmac
    }

    /delay 10
    /goto :mainloop
    /if (${debugOn}) /echo DEBUG: Main: Ending Mainloop
    
    :mainend
    
/return 



| -------------------------------------------------------------------------------------
| Sub NavToTeek - Navigate using MQ2Nav 
| -------------------------------------------------------------------------------------
Sub NavToTeek
    /if (${debugOn}) /echo DEBUG: NavToTeek: Navto: ${navToX} ${navToY} ${navToZ}
    
    /squelch /nav locxyz ${navToX} ${navToY} ${navToZ}
    

    
/return    


| -------------------------------------------------------------------------------------
| Sub BeginGetQuest - Get Quest and Accept it.
| -------------------------------------------------------------------------------------
Sub BeginGetQuest

    /if (${debugOn}) /echo DEBUG: BeginGetQuest: Start

    /target ${targetName}
    /if (${Target.ID} && ${Target.Type.Equal[NPC]}) {
        
        /delay 10
        /if (!${debugOn}) /say Level ${qLevel}
        /delay 20
        /notify TaskSelectWnd TSEL_AcceptButton leftmouseup 
        /delay 10
        /keypress esc 
        /varset haveQuest True
    }


    
/return    




| -------------------------------------------------------------------------------------
| OnExit - Things it does when you type /endmac
| -------------------------------------------------------------------------------------
:OnExit
    /end

- - - Updated - - -

I would have been nice if I knew how to clean this up. In C I would just have made an array and used indexof. Not sure how to do that in MQ2 script.

        /if (${qLevel}==20 || ${qLevel}==25 || ${qLevel}==30 || ${qLevel}==35 || ${qLevel}==40 || ${qLevel}==45 || ${qLevel}==50 || ${qLevel}==55 || ${qLevel}==60 || ${qLevel}==65 || ${qLevel}==70 || ${qLevel}==75 || ${qLevel}==80 || ${qLevel}==85 || ${qLevel}==90 || ${qLevel}==95) {

 

[ChatWithThisName]

Sub Main
    /declare qLevel int outer ${Param0}
    /call CreateOptionsArray
    /call checkParam
    /if (${Macro.Return.Equal[TRUE]}) {
        /echo qLevel matched one of the options
    } else {
        /echo \arqLevel did not match one of the options. 
    }
/return 


Sub checkParam
    /declare i int local
    /for i 1 to 16
        /echo ${qLevel} == ${qOption[${i}]}
        /if (${qLevel} == ${qOption[${i}]}) {
            /echo \arqLevel matched qOption at index ${i}; Returning True.
            /return TRUE
        }
    /next i
/return FALSE


Sub CreateOptionsArray
    /declare qOption[16] int outer -1
    /declare i int local
    /declare levelRange int local 20
    /for i 1 to 16
        /varset qOption[${i}] ${levelRange}
        /echo \ayqOption at index ${i} is ${levelRange}
        /varcalc levelRange ${levelRange}+5
    /next i
/return

Not exactly more elegant to do it this way either lol.

You might instead try not using an Array and use a String as a list of options.

/declare qOption string outer 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95
    /if (${qOption.Find[${qLevel}]}) {
        /echo \ayqLevel as a valid option2.
    } else {
        /echo \arqLevel was not a valid option2.
    }

below is both options in a macro if you'd like to test it.

Sub Main
	/declare qLevel int outer ${Param0}
	/call CreateOptionsArray
	/call checkParam
	/if (${Macro.Return.Equal[TRUE]}) {
		/echo qLevel matched one of the options
	} else {
		/echo \arqLevel did not match one of the options. 
	}
	
	/declare qOption2 string outer 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95
	/if (${qOption2.Find[${qLevel}]}) {
		/echo \ayqLevel as a valid option2.
	} else {
		/echo \arqLevel was not a valid option2.
	}
	
/return 


Sub checkParam
	/declare i int local
	/for i 1 to 16
		/if (${qLevel} == ${qOption[${i}]}) {
			/echo \arqLevel matched qOption at index ${i}; Returning True.
			/return TRUE
		}
	/next i
/return FALSE


Sub CreateOptionsArray
	/declare qOption[16] int outer -1
	/declare i int local
	/declare levelRange int local 20
	/for i 1 to 16
		/varset qOption[${i}] ${levelRange}
		/varcalc levelRange ${levelRange}+5
	/next i
/return

 

[rogue601]

Thanks,
I was going to use a string like you show, but I didn't know the syntax.

I tried to read the MQ2 manual, but the white on black and lack of tabs etc makes it very hard to read through so I just did a hack job.

I'm just gonna leave it as is, but I did want to know what my options where.