equal
deleted
inserted
replaced
14 * You should have received a copy of the GNU General Public License |
14 * You should have received a copy of the GNU General Public License |
15 * along with this program; if not, write to the Free Software |
15 * along with this program; if not, write to the Free Software |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
|
19 {$INCLUDE "options.inc"} |
|
20 |
19 unit uAmmos; |
21 unit uAmmos; |
20 interface |
22 interface |
21 uses uConsts, uTeams; |
23 uses uConsts, uTeams; |
22 {$INCLUDE "options.inc"} |
|
23 |
24 |
24 procedure AddAmmoStore(s: shortstring); |
25 procedure AddAmmoStore(s: shortstring); |
25 procedure AssignStores; |
26 procedure AssignStores; |
26 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
27 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
27 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
28 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |