hedgewars/uGearsRender.pas
changeset 14552 05b929808585
parent 14395 f39d34d78028
child 14553 5ae97eab70eb
equal deleted inserted replaced
14551:1c623169a44d 14552:05b929808585
   277 
   277 
   278     if ((Gear^.State and gstHHDriven) <> 0) and (CurAmmoGear <> nil) then
   278     if ((Gear^.State and gstHHDriven) <> 0) and (CurAmmoGear <> nil) then
   279         begin
   279         begin
   280         case CurAmmoGear^.Kind of
   280         case CurAmmoGear^.Kind of
   281             gtJetpack:      begin
   281             gtJetpack:      begin
       
   282                             // render jetpack contour if underwater
       
   283                             if (((not SuddenDeathDmg) and (WaterOpacity > 179)) or (SuddenDeathDmg and (SDWaterOpacity > 179))) and
       
   284                                     ((cWaterLine < (hwRound(Gear^.Y) + Gear^.Radius - 16)) or
       
   285                                     ((WorldEdge = weSea) and ((hwRound(Gear^.X) < LeftX) or (hwRound(Gear^.X) > RightX)))) then
       
   286                                 DrawSprite(sprJetpack, sx-32, sy-32, 4);
   282                             if CurAmmoGear^.Tex <> nil then
   287                             if CurAmmoGear^.Tex <> nil then
   283                                 DrawTextureCentered(sx, sy - 40, CurAmmoGear^.Tex);
   288                                 DrawTextureCentered(sx, sy - 40, CurAmmoGear^.Tex);
   284                             DrawAltWeapon(Gear, sx, sy);
   289                             DrawAltWeapon(Gear, sx, sy);
   285                             end;
   290                             end;
   286             gtRope:         DrawAltWeapon(Gear, sx, sy);
   291             gtRope:         DrawAltWeapon(Gear, sx, sy);