From 2b7010bb270d3149b41649982f80c479d644860f Mon Sep 17 00:00:00 2001 From: Alex Kerr Date: Tue, 10 Feb 2015 16:07:42 +0000 Subject: [PATCH] Added function to generate HP --- lib/OSRIC/Character.pm | 24 +++++++++++- lib/OSRIC/Class.pm | 3 ++ lib/OSRIC/Class/Assassin.pm | 3 ++ lib/OSRIC/Class/Cleric.pm | 3 ++ lib/OSRIC/Class/Druid.pm | 3 ++ lib/OSRIC/Class/Fighter.pm | 3 ++ lib/OSRIC/Class/Illusionist.pm | 3 ++ lib/OSRIC/Class/MagicUser.pm | 3 ++ lib/OSRIC/Class/Paladin.pm | 3 ++ lib/OSRIC/Class/Ranger.pm | 3 ++ lib/OSRIC/Class/Thief.pm | 3 ++ lib/OSRIC/Util.pm | 69 +++++++++++++++++++++++++++++++++- 12 files changed, 120 insertions(+), 3 deletions(-) diff --git a/lib/OSRIC/Character.pm b/lib/OSRIC/Character.pm index 78c01f3..d04713a 100644 --- a/lib/OSRIC/Character.pm +++ b/lib/OSRIC/Character.pm @@ -20,7 +20,8 @@ use OSRIC::Class::Paladin; use OSRIC::Class::Ranger; use OSRIC::Class::Thief; -use OSRIC::Util qw/d/; +use OSRIC::Util qw/d con_mod/; +use POSIX qw/ceil/; use JSON qw/to_json/; # These functions are ordered in this file in the order they are to be @@ -42,7 +43,7 @@ sub new xp => 0, hp => 0, ac => 0, - lvl => 0, + lvl => 1, age => 0, height => 0, weight => 0, @@ -218,6 +219,25 @@ sub generate_age $self->{personal}->{age} /= @{$self->{personal}->{classes}}; } +# Generates the player's HP. +sub generate_hp +{ + my $self = shift; + + # Loop over each class and generate an HP value: + for my $class(@{$self->{personal}->{classes}}) + { + $self->{personal}->{hp} += ("OSRIC::Class::$class"->get_hp + + con_mod($self->{stats}->{con}, $class)); + } + + # Divide by the number of classes: + $self->{personal}->{hp} /= @{$self->{personal}->{classes}}; + + # Round up if needed: + $self->{personal}->{hp} = ceil($self->{personal}->{hp}); +} + # Encodes the character to JSON: sub as_json { diff --git a/lib/OSRIC/Class.pm b/lib/OSRIC/Class.pm index 841fa34..b9aca46 100644 --- a/lib/OSRIC/Class.pm +++ b/lib/OSRIC/Class.pm @@ -9,6 +9,9 @@ my @CLASSES = qw/Assassin Cleric Druid Fighter Illusionist MagicUser Paladin sub max_starting_gold { 0 } sub get_gold { 0 } +# The starting HP of the class: +sub get_hp { 0 } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Assassin.pm b/lib/OSRIC/Class/Assassin.pm index 6e74832..26eb54c 100644 --- a/lib/OSRIC/Class/Assassin.pm +++ b/lib/OSRIC/Class/Assassin.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 120 } sub get_gold { (d(6, 2) * 10) } # 2d6 * 10 +# The starting HP of the class: +sub get_hp { d(6) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Cleric.pm b/lib/OSRIC/Class/Cleric.pm index a66dd8f..95e9447 100644 --- a/lib/OSRIC/Class/Cleric.pm +++ b/lib/OSRIC/Class/Cleric.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 180 } sub get_gold { (d(6, 3) * 10) } # 3d6 * 10 +# The starting HP of the class: +sub get_hp { d(8) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Druid.pm b/lib/OSRIC/Class/Druid.pm index 367a200..637fd30 100644 --- a/lib/OSRIC/Class/Druid.pm +++ b/lib/OSRIC/Class/Druid.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 180 } sub get_gold { (d(6, 3) * 10) } # 3d6 * 10 +# The starting HP of the class: +sub get_hp { d(8) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Fighter.pm b/lib/OSRIC/Class/Fighter.pm index 7559db7..085e6b2 100644 --- a/lib/OSRIC/Class/Fighter.pm +++ b/lib/OSRIC/Class/Fighter.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 200 } sub get_gold { ((d(6, 3) + 2) * 10) } # (3d6 + 2) * 10 +# The starting HP of the class: +sub get_hp { d(10) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Illusionist.pm b/lib/OSRIC/Class/Illusionist.pm index 0322f1d..c4899f5 100644 --- a/lib/OSRIC/Class/Illusionist.pm +++ b/lib/OSRIC/Class/Illusionist.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 80 } sub get_gold { (d(4, 2) * 10) } # 2d4 * 10 +# The starting HP of the class: +sub get_hp { d(4) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/MagicUser.pm b/lib/OSRIC/Class/MagicUser.pm index ddc2fb6..4aa87fa 100644 --- a/lib/OSRIC/Class/MagicUser.pm +++ b/lib/OSRIC/Class/MagicUser.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 80 } sub get_gold { (d(4, 2) * 10) } # 2d4 * 10 +# The starting HP of the class: +sub get_hp { d(4) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Paladin.pm b/lib/OSRIC/Class/Paladin.pm index b66d107..5598471 100644 --- a/lib/OSRIC/Class/Paladin.pm +++ b/lib/OSRIC/Class/Paladin.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 200 } sub get_gold { ((d(6, 3) + 2) * 10) } # (3d6 + 2) * 10 +# The starting HP of the class: +sub get_hp { d(10) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Ranger.pm b/lib/OSRIC/Class/Ranger.pm index 42130d2..6809175 100644 --- a/lib/OSRIC/Class/Ranger.pm +++ b/lib/OSRIC/Class/Ranger.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 200 } sub get_gold { ((d(6, 3) + 2) * 10) } # (3d6 + 2) * 10 +# The starting HP of the class: +sub get_hp { d(8) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Class/Thief.pm b/lib/OSRIC/Class/Thief.pm index bec0a19..d13d84e 100644 --- a/lib/OSRIC/Class/Thief.pm +++ b/lib/OSRIC/Class/Thief.pm @@ -7,6 +7,9 @@ use OSRIC::Util qw/d/; sub max_starting_gold { 120 } sub get_gold { (d(6, 2) * 10) } # 2d6 * 10 +# The starting HP of the class: +sub get_hp { d(6) } + # Minimum score requirements: sub minimum_scores { diff --git a/lib/OSRIC/Util.pm b/lib/OSRIC/Util.pm index 8a91095..dccb2cb 100644 --- a/lib/OSRIC/Util.pm +++ b/lib/OSRIC/Util.pm @@ -1,6 +1,6 @@ package OSRIC::Util; use Exporter qw/import/; -our @EXPORT = qw/d/; +our @EXPORT = qw/d con_mod/; # Rolls a dice of the specified number: sub d @@ -16,4 +16,71 @@ sub d return $i; } +# Returns the constitution hp modifier (at level 1): +sub con_mod +{ + my $con = shift; + my $class = shift; + + # Get the constitution modifier: + my $mod; + if($con <= 3) + { + $mod = -2; + } + elsif(($con > 3) && ($con <= 6)) + { + $mod = -1; + } + elsif(($con > 6) && ($con <= 14)) + { + $mod = 0; + } + elsif(($con > 14) && ($con <= 15)) + { + $mod = 1; + } + elsif(($con > 15) && ($con <= 16)) + { + $mod = 2; + } + elsif(($con > 16) && ($con <= 17)) + { + if(($class eq "Fighter") || ($class eq "Paladin") + || ($class eq "Ranger")) + { + $mod = 3; + } + else + { + $mod = 2; + } + } + elsif(($con > 17) && ($con <= 18)) + { + if(($class eq "Fighter") || ($class eq "Paladin") + || ($class eq "Ranger")) + { + $mod = 4; + } + else + { + $mod = 2; + } + } + elsif(($con > 18) && ($con <= 19)) + { + if(($class eq "Fighter") || ($class eq "Paladin") + || ($class eq "Ranger")) + { + $mod = 5; + } + else + { + $mod = 2; + } + } + return $mod; +} + 1;