Simplesham do my bidding

[nyghteyes]

This macro currently:
will Slow,Q,Follow, and stop via tells
will patch heal at 65%
will Q after slow, and then re-Q on you once it wears off if your below 90%
will Keep Haste and Regen on tank
will keep a kei pot X on you "Comment out /call mana if your not using pots
will tell master if lom

Lots could be added to this or modified from here.

I pieced this together to box my 65 shm on my couch with my 15" crap lcd and nobody had a small working shm mac.

Code pieces Thanks to Redguide.com and its posters

| ****Nyghteyes's simplesham****Redguides.com****
|Useage: /mac NAMEOFTHISMAC NAMEOFTANK
|
|put name of your tank in multiple spots in the events 
|section "NAMEOFMASTER" and each event is pretty self explanitory.
|
|Gem1=Patch Heal
|Gem2=Quiescence
|Gem3=Replenishment
|Gem4=Turgurs
|Gem7=Swift like the wind
|Elixir of Clarity in Potionbelt slot 1
|


#turbo 10
#include spell_routines.inc 
#Chat tell 
#Chat chat
#event bitch "NAMEOFMASTER tells you#*#get this#*#"
#event haste "Your swift like the wind spell has worn off of NAMEOFMASTER#*#"
#event regen "Your Replenishment spell has worn off of NAMEOFMASTER#*#"
#event quien "Your Quiescence spell has worn off of NAMEOFMASTER#*#"
#event qui "NAMEOFMASTER tells you#*#Q me pls#*#"
#event stay "NAMEOFMASTER tells you#*#stay here#*#"
#event follow "NAMEOFMASTER tells you#*#follow me#*#"


Sub Main
 /deletevar Master 
 /declare Master string Global
 /varset Master ${Param0}
 /echo Starting Healer-Slower Assist Macro
 /echo Master Set to ${Master} 

:mainloop
/doevents 
/doevents chat 
/doevents tell 
/call health
/call mana
/goto :mainloop 
/return


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Health check 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub health 
 /target ${Master}
 /if (${Target.PctHPs} < 65) {
	/call cast "Tnarg`s Mending" gem1
        } 
 /return 

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Quiescence after slow and if it wears off
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_quien
 /target ${Master} 
 /if (${Target.PctHPs} < 90) {
        /call cast "Quiescence" gem2
	/echo HoT ${Master} now
	}
/return


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Quiescence on tell
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_qui
 /target ${Master} 
        /call cast "Quiescence" gem2
	/echo HoT ${Master} now
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Bitch slowing your shit 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_bitch
      :Slow_Loop
/assist ${Master}
/if (!${Target.ID}) /return
/call cast "Turgur's Insects" gem4
/if (${Macro.Return.Equal["CAST_INTERRUPTED"]}) {
/goto :Slow_Loop
/delay 1s
}
/if (${Macro.Return.Equal["CAST_RESISTED"]}) {
/goto :Slow_Loop
/tell ${Master} ${Target.ID} Still trying to slow 
/delay 3s
}
/if (${Macro.Return.Equal["CAST_FIZZLE"]}) {
/goto :Slow_Loop
/delay 1s
}
/if (${Macro.Return.Equal["CAST_IMMUNE"]}) {
/delay 1s
/tell ${Master} ${Target.ID} Immune to slow
}
	 /call event_quien
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Sub Follow the tank 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_follow

/target ${Master}
        /delay 1s
 	/stick 
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Regeneration
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_regen
/target ${Master}
	/delay 1s 	
        /call cast "Replenishment" gem3
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Checking Mana
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 

Sub mana
/if (${Me.PctMana}<15) /tell ${Master} LoM Need to Canni soon
/if (!${Me.Buff["Elixir of Clarity X"].ID}) /potionbelt Activate 1
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Stay put dammit...good dog
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_stay
    /stick off
    /keypress left
    /keypress right
    /echo Stopping here
/return

<------ If you like this mac cent me pls

 

[Warmonger]

Thanks for the macro! I was looking for something short and sweet.

 

[nyghteyes]

Updated

 

[mrtyler]

Maybe I am not doing something right but when I start the macro I type /macro sham tank (tank being the name of my tank) then it says:

starting healer-slower assist macro
master set to NAMEOFMASTER
subroutine manda wasnt found
sham.mac@43 (Main):/call mana
the current macro has ended.

| ****Nyghteyes's simplesham****Redguides.com****
|Useage: /mac NAMEOFTHISMAC NAMEOFTANK
|
|put name of your tank in multiple spots in the events 
|section "NAMEOFMASTER" and each event is pretty self explanitory.
|
|Gem1=Patch Heal
|Gem2=Quiescence
|Gem3=Replenishment
|Gem4=Turgurs
|Gem7=Swift like the wind
|Elixir of Clarity in Potionbelt slot 1
|


#turbo 10
#include spell_routines.inc 
#Chat tell 
#Chat chat
#event bitch "NAMEOFMASTER tells you#*#get this#*#"
#event haste "Your swift like the wind spell has worn off of NAMEOFMASTER#*#"
#event regen "Your Replenishment spell has worn off of NAMEOFMASTER#*#"
#event quien "Your Quiescence spell has worn off of NAMEOFMASTER#*#"
#event qui "NAMEOFMASTER tells you#*#Q me pls#*#"
#event stay "NAMEOFMASTER tells you#*#stay here#*#"
#event follow "NAMEOFMASTER tells you#*#follow me#*#"


Sub Main
 /deletevar Master
 /declare Master string Global
 /varset Master ${Param0}
 /echo Starting Healer-Slower Assist Macro
 /echo Master Set to ${Master} 

:mainloop
/delay 1s
/doevents 
/doevents chat 
/doevents tell 
/call health
/call mana
/doevents flush
/goto :mainloop 
/return


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Health check 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub health 
 /target ${Master}
 /if (${Target.PctHPs} < 65) {
	/call cast "Tnarg's Mending" gem1
        } 
 /return 

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Quiescence after slow and if it wears off
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_quien
 /target ${Master} 
 /if (${Target.PctHPs} < 90) {
        /call cast "Quiescence" gem2
	/echo HoT ${Master} now
	}
/return


|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Quiescence on tell
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_qui
 /target ${Master} 
        /call cast "Quiescence" gem2
	/echo HoT ${Master} now
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Bitch slowing your shit 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_bitch
      :Slow_Loop
         /assist ${Master}
         /if (!${Target.ID}) /return
         /delay 1s
	 /call cast "Turgur's Insects" gem4
         /if (${Macro.Return.Equal["CAST_INTERRUPTED"]}) /goto :Slow_Loop
         /if (${Macro.Return.Equal["CAST_RESISTED"]}) /goto :Slow_Loop   
         /if (${Macro.Return.Equal["CAST_FIZZLE"]}) /goto :Slow_Loop
	 /delay 1s
	 /call event_quien
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Sub Follow the tank 
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_follow

/target ${Master}
        /delay 1s
 	/stick 
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Regeneration
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_regen
/target ${Master}
	/delay 1s 	
        /call cast "Replenishment" gem3
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Checking Mana
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_mana
/if (${Me.PctMana}<25) /tell ${Master} LoM Need to Canni soon
/if (${Me.Buff[Kodiacs Endless Intellect].Duration}>5) /return
/if (${Me.Buff[Voice of Clarivoyance].Duration}>5) /return
/if (${Me.Buff[Elixir of Clarity X].Duration}<5) /call cast "Distillate of Clarity X" PB1
/return

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|Stay put dammit...good dog
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Sub event_stay
    /stick off
    /keypress left
    /keypress right
    /echo Stopping here
/return

 

[nyghteyes]

Sorry my mistake, fixed in first post. just change

Sub event_mana

to

Sub mana

 

[spartusnecro]

Everything is working great for me except Tnarg's Mending in gem1.

Spell: "Tnarg's Mending" was not found in your book.

and I'm too unfamiliar to figure this out.....

 

[everdead]

Do you have the level 62 spell Tnarg's Mending?

 

[nyghteyes]

yes but I cannot get any macro Ive tried to cast it reguardless if its "Tnarg's Mending" or without quotes ended up just putting /cast 1

I even tried declaring that spell before the main sub but still doesnt recognize the spell. will work on this macro tonight with everdead see if we can get it straightened out , also working on getting the macro to recognized slow resist returns or not. that sub doesnt seem to work as intended after extensive testing this last week.

 

[Redemption Denied]

Tnarg`s Mending uses ````````````````` not '''''''''''''''''''''''''''

`````` is the button left of 1 on a american keyboard.
'''''''''''' is the button left of return on a american keyboard.

 

[spartusnecro]

Thanks for the info R.D.
Much appreciated!

 

[zippy42167]

I like this macro. It's simple, and I have since altered it a little bit to include group Might, Haste, and Champion. It works great and all, but I'm wondering if anyone could help me with 1 more alteration to it.

I'm looking to have it cast RGC, or even use the Blackflame Sphere (clicky RGC item) on 2 members of a group, plus the sham itself, whenever a curse lands.

If this is possible without making major additions, any help would be appreciated. Thank you in advance, to anyone who takes time to assist.

 

[nyghteyes]

Best way I can see doing it for this is yet another tell event# if you get cursed target tell sender and cast not sure what syntax would be for targeting upon a tell. I'll look around.

Also I left it simple because all the tell events can be modified easily along with adding your own by just copy paste and change a couple words to what you want.

If anyone has questions on modifiying it to suit you pls ask.

 

[mrmath]

If you want to do it via tells it'd be something like:

Sub Event_Chat(string ChatType,string ChatSender,string ChatText) 

      /if (!${ChatType.Equal[GROUP]} && !${ChatType.Equal[TELL]}) /return 


      /if (${ChatText.Equal[I'm cursed]} { 
      	/target pc ${ChatSender} 
      	/if (${Target.Type.Equal[PC]} && ${Target.Distance}<=100) {
        	/call cast "Remove Greater Curse" 5s
		|Comment above and uncomment below for clicky
		|/call cast "Blackflame Sphere" item 7.5s
	}
      }

}

The person who needs the cure would have the following in their code somewhere that's checked semi-often:

/if (${Me.Buff[Name of Curse Here].ID}) /tell shambot I'm Cursed

And of course the shaman does:

/if (${Me.Buff[Name of Curse Here].ID}) {
      /target myself 
      /call cast /call cast "Remove Greater Curse" 5s
}

 

[zippy42167]

thanks!