myshambot.mac - My first

Tangeleno · Post by **Tangeleno** » Fri Apr 23, 2004 12:54 am

As stated in the topic this is my first macro. It might not be the most versatile/efficient out there but it gets the job done. Made it for my monk/shaman duo But I'm sure it can be changed for other combo's and what not. Any comments and suggestions would be great.

Code: Select all

|My Sham Macro!
|By Tangeleno
|Lotsa Help from lordgiddion
#turbo
#Event MemBuff "load buffs"
#Event BuffMe "buff me"
#Event XPspells "load xp"
#Event Haste "haste"
#Event Regen "need regen"
#Event Slow "slow"

Sub Main 
/tell "Soandso" Shambot started! here we go!
/afk Send tells to Soandso
:MainLoop 
  
  /doevents
  /call HealCheck
  /call CanniCheck 
  /goto :MainLoop
  
/return



Sub Event_MemBuff
	/loadspells Buffs
/return

Sub Event_BuffMe


	/newif (${Me.State.Equal[STAND]}) { 
	/goto :Buff 
		} Else {
	/stand
	/goto :Buff
		}
		
		:Buff

	/tell "Soandso" buffing now
	   /target "Soandso"
		/cast "Infusion of Spirit"
			/delay 14s
		/cast "Dexterity"
			/delay 9s
		/cast "Stamina"
			/delay 9s
		/cast "Talisman of Altuna"
			/delay 12s
		/cast "Agility"
			/delay 9s
		/cast "Chloroplast"
			/delay 10s
		/cast "Alacrity" 
			/delay 8s
		/sit
/return

Sub Event_XPspells
	
/loadspells XPspells

/return

Sub Event_Haste
	
	/newif (${Me.State.Equal[STAND]}) { 
	/goto :Haste
		}Else {
	/stand
	/goto :Haste
		}

	:Haste
	/target "Soandso"
		/delay 5
	/cast "Alacrity"
		/delay 8s
	/sit
		/delay 5
/return

Sub Event_Regen

	

	/newif (${Me.State.Equal[STAND]}) { 
	/goto :Regen 
          } Else {
	/stand
	/goto :Regen
		}

		:Regen
	/target "Soandso"	
		/delay 5
	/cast "Chloroplast"
		/delay 10s
	/sit
		/delay 5

/return

Sub Event_Slow


	/newif (${Me.State.Equal[STAND]}) { 
	/goto :Slow
		}Else{
	/stand
	/goto :Slow
		}

		:Slow
	/assist Soandso
		/delay 5
	/cast "Turgur's Insects"
		/delay 8s
	/cast "Envenomed Bolt"
		/delay 10s
	/sit
		/delay 5
/return

Sub CanniCheck

/newif (${Me.PctMana}<=90) {
	/newif (${Me.PctHPs}>=50) { 
      /goto :Canni 
   }
	 else { 
      /goto :HOT 
   }  
}
   /return

    :Canni 

   /stand 
       /delay 10
	/tell "Soandso" trin to canni 
   /cast "Cannibalize II" 
      /delay 19 
   /sit 
      /delay 3s 
   /return

   :HOT 
   /stand
   /target "myself" 
   /cast "Stoicism" 
      /delay 9s 
   /sit 
      /delay 24s 

/return

Sub HealCheck

/newif (${Group[1].PctHPs}<70) {
	/newif (${Me.State.Equal[STAND]}) { 
	/goto :Heal
		}Else
		{
	/stand
	/goto :Heal
		}
		}
/return

         :Heal

	/target Soandso
	/tell "Soandso" Heal is comming Soandso!
	/cast "Superior Healing"
	/delay 5s
	/sit
	/delay 25
/return

Stix · Post by **Stix** » Fri Apr 23, 2004 1:05 am

Take your charcter names out of the macro!

Tangeleno · Post by **Tangeleno** » Fri Apr 23, 2004 1:14 am

Well Soandso isn't a name of any of my characters... it's the name you're given when you are going though the EQ tutorial... So and so when you add the spaces

If any one is named so and so I'm sorry and send me a PM or somthin and I'll change it

grissam · Post by **grissam** » Fri Apr 23, 2004 3:58 am

Would it be any chance to get this macro including path to Advpath.inc
and spellcast.inc so you get the followfunction etc ?

Looks good btw

Tangeleno · Post by **Tangeleno** » Fri Apr 23, 2004 4:16 am

To tell you the truth I don't know if there's different things I would have to do to add those inc's in or if I would just add #include spellcast.inc and such before the Main sub for them to work... Was really thinking about the spellcast.inc but wasn't sure how to go about it.

s16z · Post by **s16z** » Fri Apr 23, 2004 3:43 pm

So what happens when a random person walks by and says "buff me"?

Tangeleno · Post by **Tangeleno** » Fri Apr 23, 2004 6:21 pm

well it would buff the person you wrote into the macro... I had it set to tells but edited those out when I posted it here