Select Code to Download

# Ships - surely there is a better way to do this
my %p1ships = (
...
    car  => { hp => 3, size => 5, ap => 2, loc => '', sym => '@', mc =
+> 0 },
    subm => { hp => 1, size => 2, ap => 3, loc => '', sym => '~', mc =
+> 0 },
    );

# Ships
sub ships_init {
...

my %p1ships = ships_init ();
my %p2ships = ships_init ();