Mine

if fieldmedics then begin
				heal := 0;
				for i2 := 1 to 2 do if Medicstatus[i2] = i then begin
					heal := i2;
					break;
				end;
				
				if GetPlayerStat(i,'primary') = 255 then
				if heal <> 0 then begin
					GetPlayerXY(i,PlayerX,PlayerY);
					for i3 := 1 to 32 do begin
						if heal <> GetPlayerStat(i3,'team') then continue;
						if Distance(PlayerX,PlayerY,GetPlayerStat(i3,'x'),GetPlayerStat(i3,'y')) < 200 then begin
							health := GetPlayerStat(i3,'health');
							if health < 65 then begin
								DoDamage(i3,-1);
							end;
						end;
					end;
				end;
			
			end;