Author Topic: Treatment without repair vest and repair vest  (Read 571 times)

0 Members and 1 Guest are viewing this topic.

Offline dominikkk26

  • Camper
  • ***
  • Posts: 404
    • PMGsite
Treatment without repair vest and repair vest
« on: November 16, 2013, 12:15:10 pm »
You may have guessed that this is a treatment by the physician.
How to do that during of this treatment when a player has a vest, not healed him less and do not repair the vest?
And how repair vest, not curing the player?
If setplayerstat this acted I would not the problem, but that does not work?
Code: [Select]
procedure Heal(Team: byte);
var
  HP: integer;
  i: byte;
begin
  for i:= 1 to 32 do if GetPlayerStat(i,'Active') = true then if GetPlayerStat(i,'Alive') = true then if GetPlayerStat(i,'Health') < MaxHP then
   if Team = GetPlayerStat(i,'Team') then if
    Distance(GetPlayerStat(Medic[Team],'X'),GetPlayerStat(Medic[Team],'Y'),GetPlayerStat(i,'X'),GetPlayerStat(i,'Y')) <= HealDistance then begin

    if GetPlayerStat(i,'Health') <= (MaxHP-HpHealed) then HP:= 5 else HP:= MaxHP-GetPlayerStat(i,'Health');
    DoDamage(i,-HP);
    if Medic[Team] <> i then begin
      inc(Healed[Team],HP);
      if Healed[Team] > HealForPoint then begin
        WriteConsole(Medic[Team],'You got 1 point for healing.',Color);
        SetScore(Medic[Team],GetPlayerStat(Medic[Team],'Kills')+1);
        Healed[Team]:= 0;
      end;
    end;
  end;
end;

DarkCrusade

  • Guest
Re: Treatment without repair vest and repair vest
« Reply #1 on: November 16, 2013, 01:16:12 pm »
Google Translate. It's like cancer, just on the internet.

Offline dominikkk26

  • Camper
  • ***
  • Posts: 404
    • PMGsite
Re: Treatment without repair vest and repair vest
« Reply #2 on: November 16, 2013, 04:27:16 pm »
How to heal a player of vest, by means of DoDamage, not repairing vest. And not to waste treatment values by vest.