Aura Code

task aura(obj,R,G,B,size,prims,id){
    let objS = [];
    let test = CreateRenderTarget("Thing");
    let scale = [];
    let q = 0;
    RenderToTextureB1("Thing",obj,true);
    let objPrims = prims;
    let sizep = (size-1)/prims;

    ascent(i in 0..objPrims){
        objS = objS ~ [ObjPrim_Create(OBJ_SPRITE_2D)];
        ObjPrim_SetTexture(objS[i],"Thing");
        ObjSprite2D_SetSourceRect(objS[i],ObjMove_GetX(obj)-64,ObjMove_GetY(obj)-64,ObjMove_GetX(obj)+64,ObjMove_GetY(obj)+64);
        Obj_SetRenderPriorityI(objS[i],31);
        ObjRender_SetColor(objS[i],R,G,B);
        ObjRender_SetAlpha(objS[i],255/(objPrims*1.5));
        ObjRender_SetBlendType(objS[i],BLEND_ALPHA);
        scale = scale ~ [(size/objPrims)*i];
    }
    let shader = ObjShader_Create;
    ObjShader_SetShaderF(shader, GetCurrentScriptDirectory~"./hsls.txt");
    ObjShader_SetTechnique(shader,"Technique1");

    while(!Obj_IsDeleted(obj)){
        q++;
        ascent(i in 0..objPrims){
            ObjSprite2D_SetDestCenter(objS[i]);
            ObjSprite2D_SetSourceRect(objS[i],ObjMove_GetX(obj)-64,ObjMove_GetY(obj)-64,ObjMove_GetX(obj)+64,ObjMove_GetY(obj)+64);
            ObjRender_SetScaleXYZ(objS[i],scale[i],scale[i],scale[i]);
            ObjRender_SetPosition(objS[i],ObjMove_GetX(obj),ObjMove_GetY(obj),1);
            if(scale[i]>size){scale[i] = 1;}
            else{scale[i]=scale[i]+sizep}
        }
        if(id == 1){ObjShader_SetShaderO(obj, shader);}
        RenderToTextureB1("Thing",obj,true);
        ObjShader_ResetShader(obj);
        yield;
    }
}