hedgewars/uGears.pas
changeset 1034 05f003ad3caa
parent 1033 622c5de38d72
child 1045 ea195268734f
equal deleted inserted replaced
1033:622c5de38d72 1034:05f003ad3caa
   654 		end
   654 		end
   655 	else
   655 	else
   656 
   656 
   657 	if ((Gear^.State and gstAnimation) <> 0) then
   657 	if ((Gear^.State and gstAnimation) <> 0) then
   658 		begin
   658 		begin
   659 		DrawRotatedF(TSprite(Gear^.Tag),
   659 		DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
   660 				hwRound(Gear^.X) + 1 + WorldDx,
   660 				hwRound(Gear^.X) + 1 + WorldDx,
   661 				hwRound(Gear^.Y) - 3 + WorldDy,
   661 				hwRound(Gear^.Y) - 3 + WorldDy,
   662 				Gear^.Pos,
   662 				Gear^.Pos,
   663 				hwSign(Gear^.dX),
   663 				hwSign(Gear^.dX),
   664 				0.0);
   664 				0.0);