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

| 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