hedgewars/uVisualGears.pas
changeset 1729 a9f2d8564128
parent 1642 177b440773de
child 1753 2ccba26f1aa4
equal deleted inserted replaced
1727:bddbb2400c30 1729:a9f2d8564128
    54 uses uWorld, uMisc, uStore;
    54 uses uWorld, uMisc, uStore;
    55 const cExplFrameTicks = 110;
    55 const cExplFrameTicks = 110;
    56 
    56 
    57 procedure AddDamageTag(X, Y, Damage, Color: LongWord);
    57 procedure AddDamageTag(X, Y, Damage, Color: LongWord);
    58 var s: shortstring;
    58 var s: shortstring;
       
    59 	Gear: PVisualGear;
    59 begin
    60 begin
    60 if cAltDamage then
    61 if cAltDamage then
    61 	with AddVisualGear(X, Y, vgtSmallDamageTag)^ do
    62 	begin
    62 		begin
    63 	Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
    63 		str(Damage, s);
    64 	if Gear <> nil then
    64 		Tex:= RenderStringTex(s, Color, fntSmall);
    65 		with Gear^ do
    65 		end;
    66 			begin
       
    67 			str(Damage, s);
       
    68 			Tex:= RenderStringTex(s, Color, fntSmall);
       
    69 			end
       
    70 	end
    66 end;
    71 end;
    67 
    72 
    68 
    73 
    69 // ==================================================================
    74 // ==================================================================
    70 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
    75 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);