task TPlayerLife{
    let objText = ObjText_Create();
    ObjText_SetText(objText, "Player");
    ObjText_SetFontType(objText, "THSpatial");
    ObjText_SetFontSize(objText, 11); //12
    ObjText_SetFontBold(objText, true);
    ObjText_SetFontColorTop(objText, 200, 100, 160); //200, 100, 160
    ObjText_SetFontColorBottom(objText, 155, 55, 155); //155, 55, 155
    Obj_SetRenderPriority(objText, 0.01);
    ObjRender_SetX(objText, 440); //428
    ObjRender_SetY(objText, 111); //107

    let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
    ObjPrim_SetTexture(obj, GetCurrentScriptDirectory~"img/Default_System.png");
    // ObjRender_SetBlendType(obj, BLEND_ADD_RGB);
    ObjRender_SetBlendType(obj, BLEND_ADD_ARGB);
    Obj_SetRenderPriority(obj, 0.1);
    ObjRender_SetY(obj, 122);

    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(5*(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); }
                else if(i>whole) { x=0;      ObjRender_SetAlpha(obj,128); }
                else             { x=pieces; ObjRender_SetAlpha(obj,128); }

                ObjRender_SetX(obj, 440 + i * 20);
                ObjSpriteList2D_SetSourceRect(obj, 2+x*16, 172, 2+(x+1)*16-1, 187);
                ObjSpriteList2D_SetDestRect(obj, 0, 0, 20, 20);
                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;
    }
}
task TPlayerSpell{
    let objText = ObjText_Create();
    ObjText_SetText(objText, "Spell");
    ObjText_SetFontType(objText, "THSpatial");
    ObjText_SetFontSize(objText, 11); //11
    ObjText_SetFontBold(objText, true);
    ObjText_SetFontColorTop(objText,   120, 150, 100);  //120, 150, 100
    ObjText_SetFontColorBottom(objText, 55, 128,  55);  // 55, 128,  55
    Obj_SetRenderPriority(objText, 0.01);
    ObjRender_SetX(objText, 440); //428
    ObjRender_SetY(objText, 143); //143

    let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
    ObjPrim_SetTexture(obj, GetCurrentScriptDirectory~"img/Default_System.png");
    // ObjRender_SetBlendType(obj, BLEND_ADD_RGB);
    ObjRender_SetBlendType(obj, BLEND_ADD_ARGB);
    Obj_SetRenderPriority(obj, 0.1);
    ObjRender_SetY(obj, 152);

    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(5*(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,128); }
                else             { x=pieces; ObjRender_SetAlpha(obj,128); }

                ObjRender_SetX(obj, 440 + i * 20);
                ObjSpriteList2D_SetSourceRect(obj, 2+x*16, 192, 2+(x+1)*16-1, 207);
                ObjSpriteList2D_SetDestRect(obj, 0, 0, 20, 20);
                ObjSpriteList2D_AddVertex(obj);
            }
        }
        case(false){}
        yield;
    }
}