hedgewars/uGears.pas
changeset 3230 6c8c1fe7c2b1
parent 3180 724e094a8912
child 3232 17d37ea2553c
equal deleted inserted replaced
3229:9e7ded374113 3230:6c8c1fe7c2b1
  1210         end
  1210         end
  1211     else
  1211     else
  1212 
  1212 
  1213     if ((Gear^.State and gstAnimation) <> 0) then
  1213     if ((Gear^.State and gstAnimation) <> 0) then
  1214         begin
  1214         begin
  1215         DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
  1215         if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then
  1216                 sx,
  1216             begin
  1217                 sy,
  1217             Gear^.State:= Gear^.State and not gstAnimation;
  1218                 Gear^.Pos,
  1218             end
  1219                 hwSign(Gear^.dX),
  1219         else
  1220                 0.0);
  1220             begin
  1221         defaultPos:= false
  1221             DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
       
  1222                     sx,
       
  1223                     sy,
       
  1224                     Gear^.Pos,
       
  1225                     hwSign(Gear^.dX),
       
  1226                     0.0);
       
  1227             defaultPos:= false
       
  1228             end
  1222         end
  1229         end
  1223     else
  1230     else
  1224     if ((Gear^.State and gstAttacked) = 0) then
  1231     if ((Gear^.State and gstAttacked) = 0) then
  1225         begin
  1232         begin
  1226         if HH^.Timer > 0 then
  1233         if HH^.Timer > 0 then