#alias cast_attempt {
    cast $current_spell;
    #delay {cast_attempt} {cast_failed} {10}
  };

  #alias cast_done {
    #undelay cast_attempt;
    #var {current_spell} {};
    cast_next_spell
  };

  #alias cast_reset {
    #undelay cast_attempt;
    #var {current_spell} {};
    #list {spell_queue} {create};
  };

  #alias cast_failed {
    #undelay cast_attempt;
    #regex {$current_spell} {'%%%1' %%%2} {
      #if {"&2" != "" && "&2" != "$char_name"} {
        tell &2 &1: FAILED
      } {
        tell group '&1: FAILED
      }
    } {
      #showme CAST-FAILED STUCK! $current_spell
    };
    ca