// TMW2 script
// Author: Jesusalva <jesusalva@tmw2.org>
//
// Magic Script: -
//
// mpgen to make mana from HP

function	script	SK_mpregen	{
    // Convert HP to mana (20% HP - 1) (To prevent 5 casts from killing)
    .@basehp=(MaxHp/5)-1;
    // How much MP is that worth?
    // Well, 400HP:120MP so base formula is 4:1
    // Let's have a 50% penalty, so, 6:1
    .@lv=getskilllv(TMW2_MPREGEN);
    .@ratio=max(40, 60-.@lv);
    .@mpheal=.@basehp*.@ratio/100;
    heal -.@basehp, .@mpheal;
    return;
}

/*
-	script	sk#mpgen	32767,{
    end;

OnCall:
    // Must have magic
    if (!MAGIC_LVL)
        end;

    unitskilluseid(getcharid(3), TMW2_MPREGEN, 1, getcharid(3));
    end;

OnInit:
    bindatcmd "sk-mpgen", "sk#mpgen::OnCall", 0, 100, 0;
    end;
}
*/