pra vc

//task da vida
task TPlayerLife{
    let objText = ObjText_Create();
    ObjText_SetText(objText, "Life");
    ObjText_SetFontType(objText, "Revue BT");//instale a fonte/ mude
    ObjText_SetFontSize(objText, 20); //12
    ObjText_SetFontBold(objText, true);
    ObjText_SetFontColorTop(objText, 255, 255, 255); //200, 100, 160
    ObjText_SetFontColorBottom(objText, 171, 0, 74); //155, 55, 155
    Obj_SetRenderPriority(objText, 0.01);
	ObjText_SetFontBorderType(objText, BORDER_FULL);
    ObjText_SetFontBorderColor(objText, 0, 0, 0);
    ObjText_SetFontBorderWidth(objText, 1);
    ObjRender_SetX(objText, 428); //428
    ObjRender_SetY(objText, 107); //107

    let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
    ObjPrim_SetTexture(obj, GetCurrentScriptDirectory~"img/lifespell.png");//path da img
    // ObjRender_SetBlendType(obj, BLEND_ADD_RGB);
    ObjRender_SetBlendType(obj, BLEND_ALPHA);
    Obj_SetRenderPriority(obj, 0.1);
    ObjRender_SetY(obj, 110);

    let total=-1; let whole; let pieces;
    let x; let n;
    let prev; let incrcounter=0;

    while(true) {
        prev = total;
        total = min(GetPlayerLife(),9);

        //don't redraw the sprites EVERY FRAME unlike the default
        alternative(prev!=total)
        case(true){
            whole  = trunc(total);
            pieces = round(4*(total%1));

            ObjSpriteList2D_ClearVertexCount(obj);
            ascent(i in 0..9){
                // n = i-whole; //this is just sign(i-whole)
                // alternative( floor(n/((|n|)+1)) - floor(-n/((|-n|)+1)) )
                // case(-1){ x = 5;      ObjRender_SetAlpha(obj,255); }
                // case( 0){ x = pieces; ObjRender_SetAlpha(obj,96);  }
                // case( 1){ x = 0;      ObjRender_SetAlpha(obj,96);  }
                if(i<whole)      { x=5;      ObjRender_SetAlpha(obj,255); }//life whole
                else if(i>whole) { x=0;      ObjRender_SetAlpha(obj,255); }//life none
                else             { x=pieces; ObjRender_SetAlpha(obj,255); }//life piece

                ObjRender_SetX(obj, 490 + i * 15);
                ObjSpriteList2D_SetSourceRect(obj, 9+x*32, 2, 42+x*32, 34);//32=tamanho horizontal
                ObjSpriteList2D_SetDestRect(obj, 0, 0,17, 17);
                ObjSpriteList2D_AddVertex(obj);
            }

            if(whole > floor(prev)){
                //if(incrcounter > 1){ SE_Play(se_extend,100); }
                incrcounter++; //stops it from playing when initializing
            }
            // if(whole==-1){ TGameOver(); }
        }
        case(false){}
        yield;
    }
}

// mesmo esquema na spell

task TPlayerSpell{
    let objText = ObjText_Create();
    ObjText_SetText(objText, "Spell");
    ObjText_SetFontType(objText, "Revue BT");
    ObjText_SetFontSize(objText, 20); //12
    ObjText_SetFontBold(objText, true);
    ObjText_SetFontColorTop(objText, 255, 255, 255); //200, 100, 160
    ObjText_SetFontColorBottom(objText, 0, 158, 45); //155, 55, 155
    Obj_SetRenderPriority(objText, 0.01);
	ObjText_SetFontBorderType(objText, BORDER_FULL);
    ObjText_SetFontBorderColor(objText, 0, 0, 0);
    ObjText_SetFontBorderWidth(objText, 1);
    ObjRender_SetX(objText, 428); //428
    ObjRender_SetY(objText, 127); //107

    let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
    ObjPrim_SetTexture(obj, GetCurrentScriptDirectory~"img/lifespell.png");
    // ObjRender_SetBlendType(obj, BLEND_ADD_RGB);
    ObjRender_SetBlendType(obj, BLEND_ALPHA);
    Obj_SetRenderPriority(obj, 0.1);
    ObjRender_SetY(obj, 130);

    let total=-1; let whole; let pieces;
    let x; let n;
    let prev;

    while(true) {
        prev = total;
        total = min(GetPlayerSpell(),9);

        //don't redraw the sprites EVERY FRAME unlike the default
        alternative(prev!=total)
        case(true){
            whole  = trunc(total);
            pieces = round(4*(total%1));

            ObjSpriteList2D_ClearVertexCount(obj);
            ascent(i in 0..9){
                // n = i-whole; //this is just sign(i-whole)
                // alternative( floor(n/((|n|)+1)) - floor(-n/((|-n|)+1)) )
                // case(-1){ x = 5; }
                // case( 0){ x = pieces; }
                // case( 1){ x = 0; }
                if(i<whole)      { x=5;      ObjRender_SetAlpha(obj,255); }
                else if(i>whole) { x=0;      ObjRender_SetAlpha(obj,255); }
                else             { x=pieces; ObjRender_SetAlpha(obj,255); }

                ObjRender_SetX(obj, 490 + i * 15);
                ObjSpriteList2D_SetSourceRect(obj, 9+x*32, 43, 42+x*32, 75);
                ObjSpriteList2D_SetDestRect(obj, 0, 0, 17, 17);
                ObjSpriteList2D_AddVertex(obj);
            }
        }
        case(false){}
        yield;
    }
}