Macro Request - CH Chain

[Yoda007]

Requesting a WORKING macro where I can bot afew clerics on one PC in a chain.

Able to determin chain positions and delay is good.

There is afew on MQ2 Vip boards, but I think they are broken now.

 

[JimJohnson]

give this a fast try its a butchered up version of the CCH inc used in mycleric.mac

| /CCHMode <Tank1> <Tank2> <My Number> <Number Before Me> <Two Numbers Before Me> <Delay> 
| Remember that delay is in 10ths so 40 = 4 seconds
#include spell_routines.inc

#event OneBefore "#*#|${beforeMe}${beforeMe}${beforeMe}|#*#" 
#event TwoBefore "#*#|${twoBefore}${twoBefore}${twoBefore}|#*#" 
#event CCH "[MQ2] CCH Mode Activated -- #1# #2# #3# #4# #5# #6#" 
#event EndCCH "[MQ2] Ending Chain CH" 
#event EndCCH "You have been slain by#*#" 

Sub CCHPreReqs 
/declare DoCCH    timer  outer 
/declare CHEnd    timer  outer 0 
/declare Rampage  bool   outer FALSE 
/declare EndCCH   bool   outer FALSE 
/declare Delay    int    outer 
/declare FastHeal string outer YourFastHeal
/declare CompHeal string outer Complete Healing

:LoadAliases 
/squelch /alias /CCHMode /echo CCH Mode Activated -- 
/squelch /alias /CCHEnd /echo Ending Chain CH 
:SkipAliases 
    
/return 

Sub event_CCH(Line,TankOne,TankTwo,MyNum,beforeMe,twoBefore,int delay) 
/stick off 
/delay 5 !${Me.Moving} 
/varset Delay ${delay} 
/varset DoCCH 200000 
/varset EndCCH FALSE 
  :Loop 
   /if (${Me.Casting.ID}) { 
      /doevents OneBefore 
      /doevents TwoBefore 
      /goto :Loop 
   } 
   /if (${Bool[${Spawn[pc ${TankOne}]}]}) { 
      /target pc ${TankOne} 
   } else { 
      /varset TankOne ${TankTwo} 
   } 
   /doevents OneBefore 
   /doevents TwoBefore 
   /doevents EndCCH 
   /doevents Died 
   /if (${EndCCH}) /return 
   /if (${DoCCH}==0) { 
      /varset DoCCH 200000 
     :CCHLoop 
      /if (${Target.Distance}<115) { 
         /call cast "${CompHeal}" gem1 5s
         /delay 5 ${Me.Casting.ID} 
         /if (!${Me.Casting.ID}) /goto :CCHLoop 
         /varset CHEnd 100 
         /rsay <${MyNum}${MyNum}${MyNum}> [ %t ] 
         /delay 1
 

          
      } else /if (${Target.Distance}<230) { 
         /echo Tank was out of Range for that cycle!! Waiting 7.5 Seconds and Casting Fast Heal.. 
         /varset CHEnd 100 
         /rsay <${MyNum}${MyNum}${MyNum}> [ %t ] 
         /delay 75 
         /call cast "${FastHeal}" gem3 5s
      } 
   } 
   /goto :Loop 
/return 

Sub event_EndCCH 
   /varset EndCCH TRUE 
/return 

Sub event_TwoBefore 
   /if (${CHEnd}<${Math.Calc[${Delay}*1.8].Int}) /varset DoCCH ${Math.Calc[${Delay}*1.7].Int} 
/return 

Sub Event_OneBefore 
   /if (${CHEnd}<${Math.Calc[${Delay}*1.1].Int}) /varset DoCCH ${Delay} 
/return