hedgewars/uGears.pas
changeset 1242 4aca5f7b2504
parent 1221 51e3f3cfdca5
child 1251 1f545d9a10ca
equal deleted inserted replaced
1241:9a2def515c98 1242:4aca5f7b2504
   850 		hwRound(Gear^.X) + 1 + WorldDx,
   850 		hwRound(Gear^.X) + 1 + WorldDx,
   851 		hwRound(Gear^.Y) - 3 + WorldDy,
   851 		hwRound(Gear^.Y) - 3 + WorldDy,
   852 		(RealTicks div 128 + Gear^.Pos) mod 19,
   852 		(RealTicks div 128 + Gear^.Pos) mod 19,
   853 		hwSign(Gear^.dX),
   853 		hwSign(Gear^.dX),
   854 		0);
   854 		0);
   855 	DrawRotatedF(sprHat,
   855 	DrawTextureF(PHedgehog(Gear^.Hedgehog)^.HatTex,
   856 		hwRound(Gear^.X) + 1 + WorldDx,
   856 		hwRound(Gear^.X) + 1 + WorldDx,
   857 		hwRound(Gear^.Y) - 8 + WorldDy,
   857 		hwRound(Gear^.Y) - 8 + WorldDy,
   858 		(RealTicks div 128 + Gear^.Pos) mod 19,
   858 		(RealTicks div 128 + Gear^.Pos) mod 19,
   859 		hwSign(Gear^.dX),
   859 		hwSign(Gear^.dX),
   860 		0);
   860 		32);
   861 	end;
   861 	end;
   862 
   862 
   863 with PHedgehog(Gear^.Hedgehog)^ do
   863 with PHedgehog(Gear^.Hedgehog)^ do
   864 	begin
   864 	begin
   865 	if ((Gear^.State and not gstWinner) = 0)
   865 	if ((Gear^.State and not gstWinner) = 0)