hedgewars/uGears.pas
changeset 1254 3ffaf75572dd
parent 1253 79f47495b346
child 1255 7ffc2c9e7224
equal deleted inserted replaced
1253:79f47495b346 1254:3ffaf75572dd
   868 		HatVisible:= true;
   868 		HatVisible:= true;
   869 		end;
   869 		end;
   870 
   870 
   871 	if HatVisible then
   871 	if HatVisible then
   872 		if HatVisibility < 1.0 then
   872 		if HatVisibility < 1.0 then
   873 			HatVisibility:= HatVisibility + 0.1
   873 			HatVisibility:= HatVisibility + 0.2
   874 		else
   874 		else
   875 	else
   875 	else
   876 		if HatVisibility > 0.0 then
   876 		if HatVisibility > 0.0 then
   877 			HatVisibility:= HatVisibility - 0.1;
   877 			HatVisibility:= HatVisibility - 0.2;
   878 	
   878 	
   879 	if HatVisibility > 0 then
   879 	if HatVisibility > 0 then
   880 		DrawTextureF(HatTex,
   880 		DrawTextureF(HatTex,
   881 			HatVisibility,
   881 			HatVisibility,
   882 			hwRound(Gear^.X) + 1 + WorldDx,
   882 			hwRound(Gear^.X) + 1 + WorldDx,