DoEvents problem (1 Viewer)

[IamBigDaddy]

I have been working on a macro for all my toons to assist my tank. I did early testing in GH with a simple /g to announce in "Group chat" what was happening. Once simple heals, root and slows were done I ported everyone to Lavastorm to test the macros ability in combat.

Now no /doevents work at all...
At the beginning of each Sub I have a statement like:
/g Heal To let me know if it made it that far. I do not get any of the beginning Sub statements now.

If it looks like this mac should be responding, can someone send me a simple /doevents test macro.
Something that would just have a toon say "I just received a tell" would be great.

| this macro will Auto Assist ********


#Event Attack  "#*#Time to beat#*#"
#Event Heal  "#*#this be a time to heal our#*#"
#Event Root_Snare  "#*#We must restrict the movement#*#"
#Event Slow_Cripple  "#*#We must slow and weaken#*#"
#Event DoT  "#*#Start providing everlasting pain to#*#"
#Event Follow  "#*#It is time to#*#"
#Event Buff  "#*#Let us buff each other#*#"
#Event Stop_sit  "#*#This is a good place to rest for awhile#*#"
#Event Run  "#*#OMG It is time to leave...#*#"
#Event Aggro  "#*#Have patience while I piss off#*#"


#include spell_routines2.inc 



  
#turbo 40 

Sub Main 
 
 /declare TankName string local
 /echo main  
 /varset TankName *******
 /echo ${TankName} is main assist.
 /call loopme
    
Sub loopme
   
   
   /doevents

   /delay 1s
   /call loopme
   /endmacro
    
    
Sub Event_AssistNako

  /echo Assisting ******
  /Keypress F1
  /if (${Select[${Me.Class.ShortName},CLR]}) /Call Cleric
  /if (${Select[${Me.Class.ShortName},ENC]}) /Call Enchanter
  /if (${Select[${Me.Class.ShortName},SHM]}) /Call Shaman
  /if (${Select[${Me.Class.ShortName},PAL]}) /Call Paladin
  /if (${Select[${Me.Class.ShortName},DRU]}) /Call Druid
  /if (${Select[${Me.Class.ShortName},RNG]}) /Call Ranger
  /if (${Select[${Me.Class.ShortName},BST]}) /Call Beastlord
  /if (${Select[${Me.Class.ShortName},BRD]}) /Call Bard
  /if (${Select[${Me.Class.ShortName},MAG]}) /Call Mage

  /echo This macro can't assist with this class yet, ending macro
  /endmacro
  



|**************************************************************************************************

Sub Event_Attack

/echo Attack



/return

|**************************************************************************************************

Sub Event_Heal
   /declare gmember int local
   /declare pmember int local

   /g Heal

|BEASTLORD

   /if (${Select[${Me.Class.ShortName},BST]}) {
      /if (${Me.PctMana}<=20) /g LOM

      /for gmember 0 to ${Group.Members}
         /target id ${Group.Member[${gmember}].ID}
         /if (${Group.Member[${gmember}].PctHPs}<=60) {
            /call cast Chloroblast
            /g Healing %t
            /delay 4s
            }
         /g %t does not need my heal!
         /next gmember

     /for pmember 0 to ${Group.Members}
        /if (${Group.Member[${pmember}].Pet.ID}) {
           /target id ${Group.Member[${pmember}].Pet.ID}
           /if (${Group.Member[${pmember}].Pet.PctHPs}<=50) {
           /call cast Chloroblast
           /g Healing %t
           }
        /g %t Does not need my healing
        }
        /next pmember
   }


|Shaman

   /if (${Select[${Me.Class.ShortName},SHM]}) {
      /if (${Me.PctMana}<=20) /g LOM

      /for gmember 0 to ${Group.Members}
         /target id ${Group.Member[${gmember}].ID}
         /if (${Group.Member[${gmember}].PctHPs}<=50) {
            /call cast Yoppa's Mending
            /g Healing %t
            /delay 4s
            }
         /g %t does not need my heal!
         /next gmember

     /for pmember 0 to ${Group.Members}
        /if (${Group.Member[${pmember}].Pet.ID}) {
           /target id ${Group.Member[${pmember}].Pet.ID}
           /if (${Group.Member[${pmember}].Pet.PctHPs}<=50) {
           /call cast Yoppa's Mending
           /g Healing %t
           }
        /g %t Does not need my healing
        }
        /next pmember
   }

|Druid

   /if (${Select[${Me.Class.ShortName},DRU]}) {
      /if (${Me.PctMana}<=20) /g LOM

      /for gmember 0 to ${Group.Members}
         /target id ${Group.Member[${gmember}].ID}
         /if (${Group.Member[${gmember}].PctHPs}<=75) {
            /call cast Karana's Renewal
            /g Healing %t
            /delay 10s
            }
         /g %t does not need my heal!
         /next gmember

     /for pmember 0 to ${Group.Members}
        /if (${Group.Member[${pmember}].Pet.ID}) {
           /target id ${Group.Member[${pmember}].Pet.ID}
           /if (${Group.Member[${pmember}].Pet.PctHPs}<=70) {
           /call cast Clorotrope
           /g Healing %t
           }
        /g %t Does not need my healing
        }
        /next pmember
   }

|Ranger

   /if (${Select[${Me.Class.ShortName},RNG]}) /return

|Bard

   /if (${Select[${Me.Class.ShortName},BRD]}) /return

|Paladin

   /if (${Select[${Me.Class.ShortName},PAL]}) /return

|Enchanter

   /if (${Select[${Me.Class.ShortName},ENC]}) /return

|Cleric

   /if (${Select[${Me.Class.ShortName},CLR]}) /return


   /return


|**************************************************************************************************

Sub Event_Root_Snare

   /g Root_Snare

|BEASTLORD

   /if (${Select[${Me.Class.ShortName},BST]}) /return
      
|Shaman

   /if (${Select[${Me.Class.ShortName},SHM]}) /return

|Druid

   /if (${Select[${Me.Class.ShortName},DRU]}) {
      /keypress f2
      /delay 10
      /assist
      /delay 10
      /call cast Earthen Roots
      /g Attempting to Root %t
      /delay 3s
      /call cast Bonds of Tunare
      /g Attempting to Snare %t
      }
      /return

|Ranger

   /if (${Select[${Me.Class.ShortName},RNG]}) {
      /keypress f2
      /delay 10
      /assist
      /delay 10
      /call cast Earthen Roots
      /delay 3s
      /call cast Ensnare
      }
      /return

|Bard

   /if (${Select[${Me.Class.ShortName},BRD]}) /return

|Paladin

   /if (${Select[${Me.Class.ShortName},PAL]}) /return

|Enchanter

   /if (${Select[${Me.Class.ShortName},ENC]}) /return

|Cleric

   /if (${Select[${Me.Class.ShortName},CLR]}) /return


   /return

|**************************************************************************************************

Sub Event_Slow_Cripple

/echo Slow_Cripple

|BEASTLORD

   /if (${Select[${Me.Class.ShortName},BST]}) {
      /keypress f2
      /delay 10
      /assist
      /delay 10
      /call cast Sha's Revenge
      /g Slowing %t
      /delay 2s
      /call cast Incapacitate
      /g Crippling %t
      }
      /return    




/return
      
|Shaman

   /if (${Select[${Me.Class.ShortName},SHM]}) {
      /keypress f2
      /delay 10
      /assist
      /delay 10
      /call cast Crippling Spasm
      /g Crippling %t
      /delay 4s
      /call cast Cloud of Grummus
      /g Slowing %t
      }
      /return

|Druid

   /if (${Select[${Me.Class.ShortName},DRU]}) /return

|Ranger

   /if (${Select[${Me.Class.ShortName},RNG]}) /return

|Bard

   /if (${Select[${Me.Class.ShortName},BRD]}) /return

|Paladin

   /if (${Select[${Me.Class.ShortName},PAL]}) /return

|Enchanter

   /if (${Select[${Me.Class.ShortName},ENC]}) /return

|Cleric

   /if (${Select[${Me.Class.ShortName},CLR]}) /return


   /return

|**************************************************************************************************

Sub Event_DoT

/echo DoT



/return

|**************************************************************************************************

Sub Event_Follow

/echo Follow



/return
|**************************************************************************************************

Sub Event_Buff

/echo Buff



/return

|**************************************************************************************************

Sub Event_Stop_Sit

/echo Stop_Sit



/return
|**************************************************************************************************

Sub Event_Run

/echo Run

/return

|**************************************************************************************************

Sub Event_Aggro

/echo Aggro

/return

The strangest part is I really did have this working and then it just died...

Edit-- My tank has hotkeys created to send the /g messages that are set to be events. All the other toons do receive the /gmessages

If I add a /g I am looping at the beginning of the loop it shops the loop is working.

 

[IamBigDaddy]

Tried EventTest.mac from standard compile and events work.
restarted computer, loaded Cade's compile and my macro still not seeing events...

 

[armysoldier]

Sub Event_AssistNako is never called .. you have it as an event but no event linked to it

change

 /call loopme
    
Sub loopme
   
   
   /doevents

   /delay 1s
   /call loopme
   /endmacro

to

:start
   /doevents

   /delay 1s
/goto :start
/return

 

[armysoldier]

another suggestion is take out all the fancy /g tells and use simple ones to get it working.. then you can makethem fancy ..

ie
#Event Root "#*#Root#*#"
instead of
#Event Root_Snare "#*#We must restrict the movement#*#"

will have to look at it more tomorrow .. sorry

 

[IamBigDaddy]

Thx Army but that did not help. The Sub_Event AssistNako is a leftover from a first attempt. That Sub is not used and I will delete now.

This seems to have something to do with the formatting of this statement:

#Event Heal "#*#this be a time to heal our#*#"

or

Sub Event_Heal



I am using Notepad to write my macro.

 

[IamBigDaddy]

OMFG... I found the problem

I added dividers to Subs

|*****************************************

That killed it!

Can someone tell me why or a better way to organize and seperate?

 

[armysoldier]

don't use spaces

ie

|********** ************


is bad i think



I use

|~~~~~~~~~~~~~~~~~~~
|Sub XyZ
|~~~~~~~~~~~~~~~~~~~

 

[codecaster]

nm. lol

-CodeCaster