hedgewars/uGears.pas
changeset 1034 05f003ad3caa
parent 1033 622c5de38d72
child 1045 ea195268734f
--- a/hedgewars/uGears.pas	Thu Jun 26 19:39:26 2008 +0000
+++ b/hedgewars/uGears.pas	Fri Jun 27 17:22:15 2008 +0000
@@ -656,7 +656,7 @@
 
 	if ((Gear^.State and gstAnimation) <> 0) then
 		begin
-		DrawRotatedF(TSprite(Gear^.Tag),
+		DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
 				hwRound(Gear^.X) + 1 + WorldDx,
 				hwRound(Gear^.Y) - 3 + WorldDy,
 				Gear^.Pos,