Prep for gamestat implementation

* Move artifacts to separate files
+ Implement db seed with artifacts
+ Add gamedata_seed.pl script to seed artifacts to db

lib/BotLib/Archeologist.pm

@@ -6,72 +6,53 @@ use warnings;
 use utf8;
 use open qw (:std :utf8);
 use English qw ( -no_match_vars );
+use DBI;
+use Log::Any qw ($log);
 use Math::Random::Secure qw (irand);
 
+use BotLib::Conf qw (LoadConf);
+
 use version; our $VERSION = qw (1.0);
 use Exporter qw (import);
 our @EXPORT_OK = qw (Dig);
 
+my $c = LoadConf ();
+my $gamestatdir = $c->{gamestat}->{gamestatdir};
+my $dbfile = sprintf '%s/gamestat.sqlite', $gamestatdir;
+
+
+sub getRandomArtifact {
+	my $dbh;
+	$dbh = DBI->connect ("dbi:SQLite:$dbfile", '', '') or do {
+		$log->error (sprintf '[ERROR] Unable to get random artifact, sqlite error: %s', $dbh->errstr);
+		return undef;
+	};
+
+	$dbh->{sqlite_unicode} = 1;
+
+	my $rows_affected = $dbh->do ('PRAGMA foreign_keys=ON') or do {
+		$log->error (sprintf '[ERROR] Unable to get random artifact, sqlite error: %s', $dbh->errstr);
+		return undef;
+	};
+
+	$rows_affected = $dbh->do ('PRAGMA journal_mode=WAL') or do {
+		$log->error (sprintf '[ERROR] Unable to get random artifact, sqlite error: %s', $dbh->errstr);
+		return undef;
+	};
+
+	my $ary_ref = $dbh->selectall_arrayref ('SELECT name FROM artifacts WHERE id > 0 AND id < 10000') or do {
+		$log->error (sprintf '[ERROR] Unable to get random artifact, sqlite error: %s', $dbh->errstr);
+		return undef;
+	};
+
+	$dbh->disconnect or $log->warn (sprintf '[WARN] Unable to close gamestat db, sqlite error: %s', $dbh->errstr);
+
+	return $ary_ref->[irand ($#{ $ary_ref } + 1)]->[0];
+}
+
 sub Dig {
 	my $name = shift;
 
-	my @artifact = (
-		'амулет Мерлина',
-		'библиотеку Ивана Грозного',
-		'деревянную плошку',
-		'диплока',
-		'доски Ноева Ковчега',
-		'древний презерватив из бараньей кишки',
-		'икону',
-		'инсталятор Windows 3.11',
-		'истлевший гроб',
-		'каменный топор',
-		'клад со златом-серебром',
-		'кривой нож',
-		'ледяную глыбу',
-		'лунный грунт',
-		'мамонта',
-		'мамонтёнка',
-		'метеорит',
-		'мумию фараона Тутанхамона',
-		'носки прапорщика (поставит в угол)',
-		'обломки грузинской керамики',
-		'птеродактиля',
-		'рубль с Лениным',
-		'рыцарские доспехи',
-		'синий мох',
-		'скелет',
-		'скелет собаки по кличке Беня',
-		'тиранозавтра',
-		'тотем индейцев',
-		'трубу с туркменским газом',
-		'скорбь еврейского народа',
-		'залежи активированного угля',
-		'не очень новый завет',
-		'мать леннарта поттеринга',
-		'руководство "начинающему археологу"',
-		'слово о полку игореве и дело о полку игореве, вместе с игорем',
-		'телепрограмму канала A-one',
-		'могилу искателя могил',
-		'заплесневевший кусок хлеба',
-		'преемник радиоприемника',
-		'глушитель от ВАЗ-2106',
-		'чувство удовлетворения',
-		'крота',
-		'воспоминания о былой любви',
-		'грязистор',
-		'египетское мумиё',
-		'окаменелый камень',
-		'кладку яиц рептилоида',
-		'яму',
-		'чеснок и стрелы',
-		'доллар по 30',
-		'несмазанные скрижали',
-		'четырелобита',
-		'чучело тролля',
-		'целое ничего',
-	);
-
 	my @location = (
 		'в архивах',
 		'в гималаях',
@@ -110,11 +91,12 @@ sub Dig {
 
 	my $phrase = sprintf "Вы начали раскопки %s и усиленно роете лопатами, экскаватором...\n", $location[irand ($#location + 1)];
 	$phrase .= "Вам кажется что ваш совочек ударился обо что-то твердое. Может, это клад?!\n\n";
+	my $artifact = getRandomArtifact();
 
 	if ($success_probability <= 25) {
-		$phrase .= sprintf '%s стал лучшим археологом, выкопав %s! возраст артефакта - %s лет!', $name, $artifact[irand ($#artifact + 1)], $artifact_age;
+		$phrase .= sprintf '%s стал лучшим археологом, выкопав %s! возраст артефакта - %s лет!', $name, $artifact, $artifact_age;
 	} else {
-		$phrase .= sprintf "Поздравляю, %s! Вы только что выкопали %s, возраст - %s лет!\n", $name, $artifact[irand ($#artifact + 1)], $artifact_age;
+		$phrase .= sprintf "Поздравляю, %s! Вы только что выкопали %s, возраст - %s лет!\n", $name, $artifact, $artifact_age;
 		$phrase .= sprintf 'Извини, %s, но на артефакт это не тянет! Однако, попытка хорошая!', $name;
 	}