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 1109 87c44c14fdd4
parent 1108 c77267d982ee
child 1110 3660bbfc1cba
equal deleted inserted replaced
1108:c77267d982ee 1109:87c44c14fdd4 
   314                 Result^.Radius:= 20
 
   314                 Result^.Radius:= 20
 
   315                 end;
 
   315                 end;
 
   316         gtCake: begin
 
   316         gtCake: begin
 
   317                 Result^.Health:= 4096;
 
   317                 Result^.Health:= 4096;
 
   318                 Result^.Radius:= 7;
 
   318                 Result^.Radius:= 7;
 
   319                 Result^.Pos:= 5;
 
   319                 Result^.Z:= cOnHHZ;
 
   320                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
 
   320                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
 
   321                 end;
 
   321                 end;
 
   322      end;
 
   322      end;
 
   323 InsertGearToList(Result);
 
   323 InsertGearToList(Result);
 
   324 AddGear:= Result
 
   324 AddGear:= Result
 
  1036           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
 
  1036           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
 
  1037           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1037           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1038           gtCake: if Gear^.Pos = 6 then
 
  1038           gtCake: if Gear^.Pos = 6 then
 
  1039                      DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90)
 
  1039                      DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90)
 
  1040                   else
 
  1040                   else
 
  1041                      DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0)
 
  1041                      DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 5 - Gear^.Pos, hwSign(Gear^.dX), 0)
 
  1042               end;
 
  1042               end;
 
  1043       Gear:= Gear^.NextGear
 
  1043       Gear:= Gear^.NextGear
 
  1044       end;
 
  1044       end;
 
  1045 end;
 
  1045 end;
 
  1046 
  1046
hedgewars