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 1108 c77267d982ee
parent 1106 f868b7307003
child 1109 87c44c14fdd4
equal deleted inserted replaced
1107:ee873ada9e86 1108:c77267d982ee 
   312     gtKamikaze: begin
 
   312     gtKamikaze: begin
 
   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:= 4096;
 
   318                 Result^.Radius:= 7;
 
   318                 Result^.Radius:= 7;
 
       
   319                 Result^.Pos:= 5;
 
   319                 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
 
   320                 end;
 
   321                 end;
 
   321      end;
 
   322      end;
 
   322 InsertGearToList(Result);
 
   323 InsertGearToList(Result);
 
   323 AddGear:= Result
 
   324 AddGear:= Result
 
  1032                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
 
  1033                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);
 
  1033                     end;
 
  1034                     end;
 
  1034         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);
 
  1035         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);
 
  1036           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));
 
  1037           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1037           gtCake: DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 32) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90);
 
  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)
 
       
  1040                   else
 
       
  1041                      DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Pos, hwSign(Gear^.dX), 0)
 
  1038               end;
 
  1042               end;
 
  1039       Gear:= Gear^.NextGear
 
  1043       Gear:= Gear^.NextGear
 
  1040       end;
 
  1044       end;
 
  1041 end;
 
  1045 end;
 
  1042 
  1046
hedgewars