hedgewars/uGearsRender.pas
changeset 5526 70a5ec7b1020
parent 5525 5fb06333314e
child 5528 c539e5c81870
equal deleted inserted replaced
5525:5fb06333314e 5526:70a5ec7b1020
   600                 amGasBomb: DrawRotated(sprHandCheese, hx, hy, sign, aangle);
   600                 amGasBomb: DrawRotated(sprHandCheese, hx, hy, sign, aangle);
   601                 amMine: DrawRotated(sprHandMine, hx, hy, sign, aangle);
   601                 amMine: DrawRotated(sprHandMine, hx, hy, sign, aangle);
   602                 amSMine: DrawRotated(sprHandSMine, hx, hy, sign, aangle);
   602                 amSMine: DrawRotated(sprHandSMine, hx, hy, sign, aangle);
   603                 amSeduction: begin
   603                 amSeduction: begin
   604                              DrawRotated(sprHandSeduction, hx, hy, sign, aangle);
   604                              DrawRotated(sprHandSeduction, hx, hy, sign, aangle);
   605                              DrawCircle(ox, oy, 240, 4, $FF, $00, $00, $AA); 
   605                              DrawCircle(ox, oy, 248, 4, $FF, $00, $00, $AA); 
   606                              end;
   606                              end;
   607                 amVampiric: DrawRotatedF(sprHandVamp, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
   607                 amVampiric: DrawRotatedF(sprHandVamp, hx, hy, (RealTicks div 125) mod 4, sign, aangle);
   608                 amRCPlane: begin
   608                 amRCPlane: begin
   609                     DrawRotated(sprHandPlane, hx, hy, sign, 0);
   609                     DrawRotated(sprHandPlane, hx, hy, sign, 0);
   610                     defaultPos:= false
   610                     defaultPos:= false