From 223e1f9ef146825a9136bf43a9ac028af3f1e624 Mon Sep 17 00:00:00 2001
From: ElTata <eltata@firemail.cc>
Date: Thu, 11 Jun 2020 12:13:51 +0200
Subject: [PATCH] Classes improveme,t

more level gap between classes,
and last ones may require condition on 1 stat
rather than 2
---
 Irpg/Classes/Barbarian.pm        | 2 +-
 Irpg/Classes/Bargainer.pm        | 2 +-
 Irpg/Classes/Cunning.pm          | 2 +-
 Irpg/Classes/Elite_Warrior.pm    | 2 +-
 Irpg/Classes/Enchanter.pm        | 2 +-
 Irpg/Classes/Enlightened.pm      | 2 +-
 Irpg/Classes/Fighter.pm          | 2 +-
 Irpg/Classes/Godfather.pm        | 2 +-
 Irpg/Classes/High_Mage.pm        | 2 +-
 Irpg/Classes/Mage.pm             | 2 +-
 Irpg/Classes/Master_Enchanter.pm | 2 +-
 Irpg/Classes/Merchant.pm         | 2 +-
 Irpg/Classes/Officer.pm          | 2 +-
 Irpg/Classes/Old_Wizard.pm       | 2 +-
 Irpg/Classes/Shadow.pm           | 2 +-
 Irpg/Classes/Soldier.pm          | 2 +-
 Irpg/Classes/Swindler.pm         | 2 +-
 Irpg/Classes/Thief.pm            | 2 +-
 Irpg/Classes/Tribe_Chief.pm      | 2 +-
 Irpg/Classes/Warrior.pm          | 2 +-
 Irpg/Classes/Wizard.pm           | 2 +-
 21 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/Irpg/Classes/Barbarian.pm b/Irpg/Classes/Barbarian.pm
index 8d07317..872bf69 100644
--- a/Irpg/Classes/Barbarian.pm
+++ b/Irpg/Classes/Barbarian.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 11) {
+	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Bargainer.pm b/Irpg/Classes/Bargainer.pm
index db2f96f..5f6c9e8 100644
--- a/Irpg/Classes/Bargainer.pm
+++ b/Irpg/Classes/Bargainer.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 11) {
+	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Cunning.pm b/Irpg/Classes/Cunning.pm
index 0364943..d0d6686 100644
--- a/Irpg/Classes/Cunning.pm
+++ b/Irpg/Classes/Cunning.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 9) {
+	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 10) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Elite_Warrior.pm b/Irpg/Classes/Elite_Warrior.pm
index 775ead7..480c688 100644
--- a/Irpg/Classes/Elite_Warrior.pm
+++ b/Irpg/Classes/Elite_Warrior.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 13) {
+	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 15) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Enchanter.pm b/Irpg/Classes/Enchanter.pm
index f40c598..f2eeac2 100644
--- a/Irpg/Classes/Enchanter.pm
+++ b/Irpg/Classes/Enchanter.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 11) {
+	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Enlightened.pm b/Irpg/Classes/Enlightened.pm
index bfdc56a..6fdb760 100644
--- a/Irpg/Classes/Enlightened.pm
+++ b/Irpg/Classes/Enlightened.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 9) {
+	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 10) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Fighter.pm b/Irpg/Classes/Fighter.pm
index 262d040..2d721a1 100644
--- a/Irpg/Classes/Fighter.pm
+++ b/Irpg/Classes/Fighter.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 9) {
+	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 10) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Godfather.pm b/Irpg/Classes/Godfather.pm
index b991bbd..dc055ef 100644
--- a/Irpg/Classes/Godfather.pm
+++ b/Irpg/Classes/Godfather.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 13) {
+	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 15) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/High_Mage.pm b/Irpg/Classes/High_Mage.pm
index 93b94fb..3f7107d 100644
--- a/Irpg/Classes/High_Mage.pm
+++ b/Irpg/Classes/High_Mage.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 13) {
+	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 15) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Mage.pm b/Irpg/Classes/Mage.pm
index 57c8dae..2255110 100644
--- a/Irpg/Classes/Mage.pm
+++ b/Irpg/Classes/Mage.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 11) {
+	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Master_Enchanter.pm b/Irpg/Classes/Master_Enchanter.pm
index 000d7fb..0a6b5ff 100644
--- a/Irpg/Classes/Master_Enchanter.pm
+++ b/Irpg/Classes/Master_Enchanter.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 13) {
+	if ($pl_stats->{'wis'} < 16) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Merchant.pm b/Irpg/Classes/Merchant.pm
index d30b8c2..c63ed95 100644
--- a/Irpg/Classes/Merchant.pm
+++ b/Irpg/Classes/Merchant.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 13) {
+	if ($pl_stats->{'cha'} < 16) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Officer.pm b/Irpg/Classes/Officer.pm
index 9318c1d..1f1e039 100644
--- a/Irpg/Classes/Officer.pm
+++ b/Irpg/Classes/Officer.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 13) {
+	if ($pl_stats->{'con'} < 16) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Old_Wizard.pm b/Irpg/Classes/Old_Wizard.pm
index 5d85a61..0f81501 100644
--- a/Irpg/Classes/Old_Wizard.pm
+++ b/Irpg/Classes/Old_Wizard.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 13) {
+	if ($pl_stats->{'int'} < 16) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Shadow.pm b/Irpg/Classes/Shadow.pm
index 9a85b4c..4b2a3dc 100644
--- a/Irpg/Classes/Shadow.pm
+++ b/Irpg/Classes/Shadow.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 13) {
+	if ($pl_stats->{'dex'} < 16) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Soldier.pm b/Irpg/Classes/Soldier.pm
index 8efd012..9b32b7b 100644
--- a/Irpg/Classes/Soldier.pm
+++ b/Irpg/Classes/Soldier.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 11) {
+	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Swindler.pm b/Irpg/Classes/Swindler.pm
index 670b2ef..8b5fa8e 100644
--- a/Irpg/Classes/Swindler.pm
+++ b/Irpg/Classes/Swindler.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 11) {
+	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Thief.pm b/Irpg/Classes/Thief.pm
index 233876e..cc5d2af 100644
--- a/Irpg/Classes/Thief.pm
+++ b/Irpg/Classes/Thief.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 11) {
+	if ($pl_stats->{'cha'} + $pl_stats->{'dex'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Tribe_Chief.pm b/Irpg/Classes/Tribe_Chief.pm
index ae34a68..af674d0 100644
--- a/Irpg/Classes/Tribe_Chief.pm
+++ b/Irpg/Classes/Tribe_Chief.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 13) {
+	if ($pl_stats->{'str'} < 16) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Warrior.pm b/Irpg/Classes/Warrior.pm
index 5c004c8..3ab9210 100644
--- a/Irpg/Classes/Warrior.pm
+++ b/Irpg/Classes/Warrior.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 11) {
+	if ($pl_stats->{'str'} + $pl_stats->{'con'} < 12) {
 		return undef;
 	}
 
diff --git a/Irpg/Classes/Wizard.pm b/Irpg/Classes/Wizard.pm
index a0cd2ab..4b6e3bc 100644
--- a/Irpg/Classes/Wizard.pm
+++ b/Irpg/Classes/Wizard.pm
@@ -9,7 +9,7 @@ sub new {
 	my ($class, $pl_stats) = @_;
 
 	# condition to enter the class
-	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 11) {
+	if ($pl_stats->{'int'} + $pl_stats->{'wis'} < 12) {
 		return undef;
 	}
 
-- 
GitLab