//! textmacro RTS takes NAMEWORD, TYPEWORD
scope RTS_$NAMEWORD$
    globals
        private $TYPEWORD$ array v
        private integer n=-1
    endglobals

    private function RTS_$NAMEWORD$_loop takes nothing returns nothing
        local integer i
            set i=0
            loop
                exitwhen i==n
                if RTS_$NAMEWORD$_step(v[i]) then
                    set i=i+1
                else
                    set n=n-1
                    set v[i]=v[n]
                endif
            endloop
        endif
    endfunction

    public function RTS_$NAMEWORD$_add takes $TYPEWORD$ o returns nothing
        if n=-1 then
            set n=0
            call TimerStart(CreateTimer(),0.04,true,function RTS_$NAMEWORD$_loop)
        endif
        set v[n]=o
        set n=n+1
    endfunction
endscope
//! endtextmacro

struct Rocket   //for example
    real x
    real y
    string model
endstruct

function RTS_Rock_step takes Rocket o returns boolean
    //do something with argument
//    if don't need it anymore then
//        call o.destroy() //if it is a struct (can be any type)
//        return false
//    else //let it be
//        return true
//    endif
endfunction
//! runtextmacro RTS("Rock","Rocket")

function Trig_RTSmacro_Actions takes nothing returns nothing
    local Rocket r=Rocket.create()
    set r.x=0
    set r.y=0
    set r.model=""
    call RTS_Rock_add(r)
endfunction