hedgewars/uGearsRender.pas
changeset 13333 2489c36c61b7
parent 13287 b13071610c07
child 13404 3d6aae2ae698
equal deleted inserted replaced
13332:817e1890ee66 13333:2489c36c61b7
  1248 
  1248 
  1249                  // Portal ball trace effects
  1249                  // Portal ball trace effects
  1250                  if ((Gear^.Tag and 1) = 0) and ((GameTicks mod 4) = 0) and (not isPaused) then
  1250                  if ((Gear^.Tag and 1) = 0) and ((GameTicks mod 4) = 0) and (not isPaused) then
  1251                      begin
  1251                      begin
  1252                      vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1);
  1252                      vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1);
  1253                      if Gear^.Tag = 0 then
  1253                      if vg <> nil then
  1254                          vg^.Tint:= $fab02ab0
  1254                          if Gear^.Tag = 0 then
  1255                      else if Gear^.Tag = 2 then
  1255                              vg^.Tint:= $fab02ab0
  1256                          vg^.Tint:= $364df7b0;
  1256                          else if Gear^.Tag = 2 then
       
  1257                              vg^.Tint:= $364df7b0;
  1257                      end;
  1258                      end;
  1258                  end;
  1259                  end;
  1259 
  1260 
  1260            gtDrill: if (Gear^.State and gsttmpFlag) <> 0 then
  1261            gtDrill: if (Gear^.State and gsttmpFlag) <> 0 then
  1261                         DrawSpriteRotated(sprAirDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX))
  1262                         DrawSpriteRotated(sprAirDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX))