hedgewars/uGearsRender.pas
changeset 6453 11c578d30bd3
parent 6328 d14adf1c7721
child 6490 531bf083e8db
equal deleted inserted replaced
6452:7c6f9b6672dc 6453:11c578d30bd3
   195     CurWeapon: PAmmo;
   195     CurWeapon: PAmmo;
   196 begin
   196 begin
   197     HH:= Gear^.Hedgehog;
   197     HH:= Gear^.Hedgehog;
   198     if HH^.Unplaced then exit;
   198     if HH^.Unplaced then exit;
   199     m:= 1;
   199     m:= 1;
   200     if ((Gear^.State and gstHHHJump) <> 0) and not cArtillery then m:= -1;
   200     if ((Gear^.State and gstHHHJump) <> 0) and (not cArtillery) then m:= -1;
   201     sx:= ox + 1; // this offset is very common
   201     sx:= ox + 1; // this offset is very common
   202     sy:= oy - 3;
   202     sy:= oy - 3;
   203     sign:= hwSign(Gear^.dX);
   203     sign:= hwSign(Gear^.dX);
   204 
   204 
   205     if (Gear^.State and gstHHDeath) <> 0 then
   205     if (Gear^.State and gstHHDeath) <> 0 then
   540 
   540 
   541         if ((Gear^.State and gstAnimation) <> 0) then
   541         if ((Gear^.State and gstAnimation) <> 0) then
   542             begin
   542             begin
   543             if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then
   543             if (TWave(Gear^.Tag) < Low(TWave)) or (TWave(Gear^.Tag) > High(TWave)) then
   544                 begin
   544                 begin
   545                 Gear^.State:= Gear^.State and not gstAnimation;
   545                 Gear^.State:= Gear^.State and (not gstAnimation);
   546                 end
   546                 end
   547             else
   547             else
   548                 begin
   548                 begin
   549                 DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
   549                 DrawRotatedF(Wavez[TWave(Gear^.Tag)].Sprite,
   550                         sx,
   550                         sx,
   803             end
   803             end
   804         end;
   804         end;
   805 
   805 
   806     with HH^ do
   806     with HH^ do
   807         begin
   807         begin
   808         if ((Gear^.State and not gstWinner) = 0)
   808         if ((Gear^.State and (not gstWinner)) = 0)
   809             or ((Gear^.State = gstWait) and (Gear^.dY.QWordValue = 0))
   809             or ((Gear^.State = gstWait) and (Gear^.dY.QWordValue = 0))
   810             or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
   810             or (bShowFinger and ((Gear^.State and gstHHDriven) <> 0)) then
   811             begin
   811             begin
   812             t:= sy - cHHRadius - 9;
   812             t:= sy - cHHRadius - 9;
   813             if (cTagsMask and htTransparent) <> 0 then
   813             if (cTagsMask and htTransparent) <> 0 then