[Request] How to increase a Single ammount of health?

[squiddy]

I basically want to increase a player's health in a single ammount..

Like..

IncreaseHealth(1,0.23);
/\ Would increase player 1's health in 0.23.

I've tried DoDamage(), but it's an Integer value, not a Single.

Help, please!

[DarkCrusade]

Could you state what you want a bit better? Because "Would increase player 1's health in 0.23" makes no sense at all :3

[Serial K!ller]

 DoDamage() is with an Integer value because soldat handles the health as an integer so you can only increase it with 1.

[croat1gamer]

I think he means it as a percentage.
Not sure tho.

[tk]

If he means percentage:

player[1].hp_percent := 123;

function OnPlayerDamage(victim, shooter: byte; dmg: integer): integer;
begin
 Result := dmg * 100 div player[victim].hp_percent;
end;

[squiddy]

God.

I'm only saying that if I want to increase a Single ammount, not an Integer one, how would I do it?

It's not percentage. I'm sorry if I couldn't explain myself very well.

What I want is basically to increase a Single ammount, not-related to percentage.
It's basically that. Just adding health with Single values.

@Serial K!ller, thanks a lot. I just kind of hope you are wrong

[Falcon`]

I didn't check if this compile, treat it as pseudo-code.

Code: (pascal) [Select]

type
tPlayer = record
Health, MaxhHalth: single;
ScriptHandleHealth: boolean;
end;

var
Player: array [1..32] of tPlayer;
MaxHealth: byte;


procedure SetSpecialHealth(ID: byte; maxhealth: single); //maxhealth = 100 is "Normal Health"
begin
Player[ID].ScriptHandleHealth := true;
Player[ID].maxhealth := maxhealth;
end;

procedure SampleChangeHealth(ID: byte; health: single);
begin
Player[ID].health := health;
DoDamage(ID, 1); //apply changes
end;

procedure SampleIncreaseHealth(ID: byte; health: single); //health can be negative
begin
Player[ID].health := Player[ID].health + health;
DoDamage(ID, 1); //apply changes
end;

procedure ActivateServer();
begin
if Command('/realistic') then MaxHealth := 65
else MaxHealth := 150;
end;

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
Result := Damage;
if Player[Victim].ScriptHandleHealth then begin
Player[Victim].Health := Player[Victim].Health - Damage*100/MaxHealth;
Result := round(GetPlayerStat(Victim, 'health') - Player[Victim].Health*MaxHealth/Player[Victim].MaxHealth);
end;
end;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: byte);
begin
Player[Victim].ScripHandleHealth := false;
Player[Victim].MaxHealth := 100;
end;

about this "Apply changes": if you won't do this, nothing special happen, script will still work properly. They just cause that your changes that your changes are sent to soldat so players can see them