From 50389f38081565dc3e8db35871bf4d7ca92e555d Mon Sep 17 00:00:00 2001
From: "Rachel Fae Fox (foxiepaws)" <fox@foxiepa.ws>
Date: Tue, 19 Oct 2021 15:52:14 -0400
Subject: [PATCH] added iron gods "always allowed" races, for sharing with
 playgroup

---
 .../Controller/RandomCharacter.pm             | 20 +++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/lib/PathfinderGen/Controller/RandomCharacter.pm b/lib/PathfinderGen/Controller/RandomCharacter.pm
index b7d088e..99b4727 100644
--- a/lib/PathfinderGen/Controller/RandomCharacter.pm
+++ b/lib/PathfinderGen/Controller/RandomCharacter.pm
@@ -54,6 +54,16 @@ my %pf_races = (
 		 Android => .25,
 	       );
 
+# allowed Races for my iron gods game
+my %ig_allowed = (
+		  Ratfolk => .5,
+		  Aasimar => .25,
+		  Tiefling => .25,
+		  Orc => .25,
+		  Changling => .25,
+		  Androids => .1,
+		  );
+
 my %dd_races = (
 		Dragonborn => 1,
 		Tiefling => 1,
@@ -216,6 +226,16 @@ sub pathfinder :Local {
     $c->stash({title => "random pathfinder character concept generator", game => "pathfinder", sources => $pfstatement, chars => \@characters, template => 'char.tt'});
 }
 
+sub irongods :Local {
+    my ( $self, $c ) = @_;
+
+    my %races = (%core_races, %ig_allowed);
+    my %classes = (%core_classes, %base_classes, %hybrid_classes);
+
+    my @characters = randomlist(10, \%races, \%classes);
+    $c->stash({title => "random pathfinder character concept generator", game => "pathfinder", sources => $pfstatement, chars => \@characters, template => 'char.tt'});
+}
+
 sub index :Path :Arg(0) {
     my ( $self, $c ) = @_;
     $c->stash({title => "random character concept generators", template => 'index.tt'});