Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 1103 1ff3db3c12af
parent 1089 24e9e1ca0394
child 1106 f868b7307003
equal deleted inserted replaced
1102:87f083365e44 1103:1ff3db3c12af 
   313                 Result^.Health:= 2048;
 
   313                 Result^.Health:= 2048;
 
   314                 Result^.Radius:= 20
 
   314                 Result^.Radius:= 20
 
   315                 end;
 
   315                 end;
 
   316         gtCake: begin
 
   316         gtCake: begin
 
   317                 Result^.Health:= 3072;
 
   317                 Result^.Health:= 3072;
 
   318                 Result^.Radius:= 5;
 
   318                 Result^.Radius:= 7;
 
   319                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
 
   319                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
 
   320                 end;
 
   320                 end;
 
   321      end;
 
   321      end;
 
   322 InsertGearToList(Result);
 
   322 InsertGearToList(Result);
 
   323 AddGear:= Result
 
   323 AddGear:= Result
 
  1032                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
 
  1032                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
 
  1033                     end;
 
  1033                     end;
 
  1034         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);
 
  1034         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);
 
  1035           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
 
  1035           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
 
  1036           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1036           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1037           gtCake: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
 
  1037           gtCake: DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90);
 
  1038               end;
 
  1038               end;
 
  1039       Gear:= Gear^.NextGear
 
  1039       Gear:= Gear^.NextGear
 
  1040       end;
 
  1040       end;
 
  1041 end;
 
  1041 end;
 
  1042 
  1042
hedgewars