procedure AppOnIdle(Ticks: integer);
begin //Automatically reheal wounds
Time := Time - 1;
if Time = 0 then begin
	for a := 1 to 32 do
	if GetPlayerStat( a, 'Active' ) = true then
	if GetPlayerStat( a, 'Health' ) < 150 - HealFreq then begin
		DoDamage(a, -HealFreq);
		Time := TimeD;
		end;
	end;
end;