Release stress test eqbcs (for developers) 2019-12-18

[Redbot]

eqmule provided this to help devs debug eqbcs and I thought it was neat.

| stress.mac
| start it on 6 chars in the same group
| after a while it will lag eqbcs out completely
#turbo 80


#bind CastingRadiantCure /CastingRadiantCure

Sub Main
/declare WhoCastingRcureList string outer
/declare notifyOtherCuring string outer FALSE

:MainLoop
	/delay ${Math.Rand[10]}
	/call cast_RadiantCure
/goto :MainLoop	
/return

Sub Bind_CastingRadiantCure(whoCasting, toggle)
    /if (${toggle.Equal[Y]}) {
      /varset WhoCastingRcureList ${WhoCastingRcureList}${whoCasting}|
    } else {
      /varset WhoCastingRcureList ${WhoCastingRcureList.Replace[${whoCasting}|,]}
      /varset notifyOtherCuring FALSE
    }
/return

Sub cast_RadiantCure
  /if (${Bool[${WhoCastingRcureList.Length}]}) {
    /if (!${notifyOtherCuring}) /echo ${WhoCastingRcureList.Replace[|,]} is casting Rcure
    /varset notifyOtherCuring TRUE
    /return
  }
  /bc [${Time}] RadiantCure inc... from ${Me.Name}
  /squelch /bcg //CastingRadiantCure ${Me.Name} Y
  /delay 3s
  /squelch /bcg //CastingRadiantCure ${Me.Name} N
/return

 

[Redbot]

Looks like this isn't working properly anymore, it's lagging without any eqbcs running. @eqmule any idea how to fix?