/var CommaConst {,} {OnRes}
/var MinusOneConst {-1} {OnRes}

/alias {ConsumeOnResCommand} {/if {@Exists(OnResCommands)} {/var OnResCommandCommaPos {@StrStr($OnResCommands,$CommaConst)} {OnRes};/if {$OnResCommandCommaPos == $MinusOneConst} {$OnResCommands;/unvar OnResCommands;/unvar OnResCommandCommaPos} {@SubStr($OnResCommands,0,@Math($OnResCommandCommaPos - 1));/var OnResCommands {@SubStr($OnResCommands,@Math($OnResCommandCommaPos + 1),@Math(@Len($OnResCommands) - 1))} {OnRes};ConsumeOnResCommand}}} {OnRes}

/action {^You feel life return to your body; taking a deep breath, you sit up.} {ConsumeOnResCommand} {OnRes}

/alias {onres %0} {/var OnResCommands {$0} {OnRes};/if {@IsEmpty($0)} {/emotea will @AnsiBold()@ForeWhite()do nothing@ForeRed() on res} {/emotea will @AnsiBold()@ForeWhite()$0@ForeRed() on res}} {OnRes}
