597 if CurAmmoGear <> nil then |
597 if CurAmmoGear <> nil then |
598 begin |
598 begin |
599 case CurAmmoGear^.Kind of |
599 case CurAmmoGear^.Kind of |
600 gtJetpack: begin |
600 gtJetpack: begin |
601 DrawSprite(sprJetpack, sx-32, sy-32, 0); |
601 DrawSprite(sprJetpack, sx-32, sy-32, 0); |
602 if (CurAmmoGear^.MsgParam and gmUp) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 1); |
602 if cWaterLine > hwRound(Gear^.Y) + Gear^.Radius then |
603 if (CurAmmoGear^.MsgParam and gmLeft) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 2); |
603 begin |
604 if (CurAmmoGear^.MsgParam and gmRight) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 3); |
604 if (CurAmmoGear^.MsgParam and gmUp) <> 0 then DrawSprite(sprJetpack, sx-32, sy-28, 1); |
|
605 if (CurAmmoGear^.MsgParam and gmLeft) <> 0 then DrawSprite(sprJetpack, sx-28, sy-28, 2); |
|
606 if (CurAmmoGear^.MsgParam and gmRight) <> 0 then DrawSprite(sprJetpack, sx-36, sy-28, 3) |
|
607 end; |
605 if CurAmmoGear^.Tex <> nil then DrawCentered(sx, sy - 40, CurAmmoGear^.Tex); |
608 if CurAmmoGear^.Tex <> nil then DrawCentered(sx, sy - 40, CurAmmoGear^.Tex); |
606 DrawAltWeapon(Gear, sx, sy) |
609 DrawAltWeapon(Gear, sx, sy) |
607 end; |
610 end; |
608 end; |
611 end; |
609 end |
612 end |