src/debug.pl

   1 #!/usr/local/bin/perl -w
   2 ##########################################################################
   3 #
   4 #   Copyright (c) 2003 Aymargeddon Development Team
   5 #
   6 #   This file is part of "Last days of Aymargeddon"
   7 #
   8 #   Aymargeddon is free software; you can redistribute it and/or modify it
   9 #   under the terms of the GNU General Public License as published by the Free
  10 #   Software Foundation; either version 2 of the License, or (at your option)
  11 #   any later version.
  12 #
  13 #   Aymargeddon is distributed in the hope that it will be useful, but WITHOUT
  14 #   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  15 #   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  16 #   more details.
  17 #   You should have received a copy of the GNU General Public License along
  18 #   with this program; if not, write to the Free Software Foundation, Inc., 675
  19 #   Mass Ave, Cambridge, MA 02139, USA.
  20 #
  21 ###########################################################################
  22 #
  23
  24 #
  25 #
  26 # creates the world to destroy
  27 #
  28 # usage: ./create.pl [number of eartlings]
  29 #
  30 #
  31
  32 # TODO: use FROGS/DataBase.pm instead of DBI.pm
  33
  34 use strict;
  35
  36 use DBI;
  37 use Data::Dumper;
  38 use POSIX qw(floor ceil);
  39 use Term::ReadLine;
  40
  41 use FROGS::HexTorus;
  42
  43 my $n = 16;
  44 my $map = new HexTorus($n);
  45 my $out = "\n";
  46 for my $y (0..($n - 1)){
  47   for my $x ( 0 .. ($n*2-1)){
  48
  49     my $d =
  50       $map->distance(Location->new(5,0),
  51                            Location->new($x,$y));
  52     $d = "0$d" if $d < 10;
  53     $out .= "$d ";
  54   }
  55   $out .= "\n" . (' ' x ($y +1));
  56 }
  57 $out .= "\n";
  58
  59 print $out;