#!/usr/bin/perl
# Stars! check racial habs

use StarsHabCalc;

use warnings;
use strict;

use Switch;

sub usage {
  print "This script takes two csv files as parameters:\n";
  print " - A race hab file - this consists of four lines of data from the RW and game:\n";
  print "   - Low, High, Terraforming ability for each of\n";
  print "   - Grav, Temp, Rad\n";
  print "   - Followed by a racename\n";
  print " - A planet data file - consisting of a line per planet:\n";
  print "   - Name, Grav, Temp, Rad (Any other fields are ignored, but retained)\n";
  print "\n";
}

# CODE START:
my ($racefile, $planetfile) = @ARGV;
&StarsHabCalc::LoadRacial ($racefile);

open PLANETS, $planetfile or die $!;
while (my $line = <PLANETS>) {
  chomp $line;
  my @line = split(',', $line);
  my $planet = shift @line;
  my $grav = shift @line;
  my $temp = shift @line;
  my $rad = shift @line;
  my @clicks = (&StarsHabCalc::GravToClicks($grav),
                &StarsHabCalc::TempToClicks($temp),
                &StarsHabCalc::RadToClicks($rad)   );
  print join(',', $planet, &StarsHabCalc::HabFromClicks(@clicks), $grav, $temp, $rad, @line) . "\n";
}
close PLANETS;

#!/usr/bin/perl
# Stars! Hab calculator...
# Version 0.1

# Credit particularly due to m.a@stars on the SAH forums:
#  http://starsautohost.org/sahforum2/index.php?t=msg&th=2299

package StarsHabCalc;
require Exporter;

use warnings;
use strict;

use Switch;

# Functions to take the value of parameter and convert to clicks:
sub RadToClicks {
  my $rad = shift;
  return $rad;
}
sub TempToClicks {
  my $temp = shift;
  return ($temp+200)/4;
}
sub GravToClicks {
  # Early grav clicks are ambiguous: .12,.12,.13,.13,.14,.14,.15,.15,.16,.17,(.17)
  # (.17) - The last ambiguous point and the lowest possible hab centre (wacky choice).
  # We always assume the worst (i.e. the lower clicks), appropriate for planet values.
  # For hab the click width is ALWAYS even, so we should be able to deduce hab properly
  # in the appropriate function (not here though)
  my $grav = shift;
  my $result;

  $grav *= 100;
  my $lowerHalf = 1;
  if ($grav < 100) {
    $grav = int(10000/$grav);   #integer truncation
    $lowerHalf = -1;
  }
  if ($grav < 200) {
    $result = ($grav /4) - 25; # NO integer truncation
  } else {
    $result = ($grav +400) / 24;
  }
  $result = int(50.9 + $lowerHalf * $result);
  #one less ambiguity since planets can never be zero clicks
  $result = 1 if ($result < 1);
  return $result;
}

# Define racial paramters. All arrays are in order "grav, temp, rad"
our $racename;
our @centre;
our @radius;
our @terra;

sub LoadRacial {
  my $file = $_[0];
  open (RACE, $file) or die $!;
  my @lines = <RACE>;
  close (RACE);
  chomp @lines;
  for (my $i=0; $i<3; $i++) { #i.e. grav/temp/rad
    my ($lower, $higher, $terra) = split(/,/, $lines[$i]);
        if ($lower ne 'immune') {
          switch ($i) {
            case 0 { $lower = &GravToClicks($lower);
                                 $higher = &GravToClicks($higher);
                                 $lower = 0 if ($lower == 1); # Correct for the planet assumption above
                                 $lower++ if (($higher - $lower) % 2 == 1);} #Width must always be even
                                               # This can he

          $radius[$i] = ($higher - $lower) / 2;
          $centre[$i] = $higher - $radius[$i];
          $terra[$i] = $terra;

Diff	Planet	Perl	Stars!	Grav	Temp	Rad	Gclicks	Tclicks	Rclicks	Race	RGrav	RTemp	RRad	Gwidth	Twidth	Rwidth
-4	H&M	54	58%	0.15	136	33	6	84	33	M9	22	78	31	22	22	23
-3	Cepheus	97	100%	0.17	-160	10	9	10	10	M8	10	10	10	10	10	10
-3	Dwarte	43	46%	0.15	148	24	6	87	24	M9	22	78	31	22	22	23
-3	Tattoo	32	35%	0.15	64	42	6	66	42	M9	22	78	31	22	22	23
-2	98053	41	43%	0.17	172	26	9	93	26	M9	22	78	31	22	22	23
-2	Accord	16	18%	0.17	56	51	9	64	51	M9	22	78	31	22	22	23
-2	Accord	48	50%	0.17	56	51	9	64	51	M5	50	50	50	50	50	50
-2	New	29	31%	0.15	120	12	6	80	12	M9	22	78	31	22	22	23
-2	W..ight	54	56%	0.17	-8	48	9	48	48	M5	50	50	50	50	50	50

    theHabValue = planetValueCalc(grav, parseInt(temp)/4+50, parseInt(rad));
    if (theHabValue!=ReportHab) {	// report mismatch?
      if (grav<11) {
	grav++;	//kludge. Not all hab combos need it :-?
	theHabValue = planetValueCalc(grav, parseInt(temp)/4+50, parseInt(rad));
      }