W0LF/DayZ-Epoch
1
0
Fork 0
mirror of https://github.com/EpochModTeam/DayZ-Epoch.git synced 2025-12-14 04:02:37 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Added Missing Categories

Browse Source
This commit is contained in:
Florian Kinder
2014-02-04 22:40:41 +01:00
parent cbc99945b6
commit a7c5ffce40
64 changed files with 3397 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
Tools/TraderMigration/serverTraders2cfg.pl
View File

@@ -86,7 +86,11 @@ foreach my $traderhuman (keys $traderHumanity) {
$catName =~ s~ |-|/~~g;
$cfg .= "\t\t{\"".$cat->[0]."\",\"".$catName."\"}\n";
$traderCategories->{$catName} = $cat->[1];
if (!defined($traderCategories->{$catName})) {
$traderCategories->{$catName} = [$cat->[1]]
} else {
push(@{$traderCategories->{$catName}}, $cat->[1]);
}
}
$cfg .= "\t};\n";
$cfg .= "};\n"
@@ -100,39 +104,40 @@ foreach my $traderhuman (keys $traderHumanity) {
foreach my $traderCategory (keys $traderCategories) {
my $cfg = '';
$cfg .= "class Category_".$traderCategories->{$traderCategory}." {\n";
#$cfg .= "\ttid = ".$traderCategories->{$traderCategory}.";\n";
my $sth = $MySQL->prepare(q~
SELECT
item AS Item
,buy AS Buy
,sell AS Sell
,afile AS aFile
FROM
traders_data
WHERE
tid = ?
~);
$sth->execute($traderCategories->{$traderCategory});
while (my $row = $sth->fetchrow_hashref()) {
if ($row->{Item} =~ /^\["([^"]+)",\d+\]$/) {
$row->{Item} = $1;
foreach my $categoryId (@{$traderCategories->{$traderCategory}}) {
$cfg .= "class Category_".$categoryId." {\n";
#$cfg .= "\ttid = ".$traderCategories->{$traderCategory}.";\n";
my $sth = $MySQL->prepare(q~
SELECT
item AS Item
,buy AS Buy
,sell AS Sell
,afile AS aFile
FROM
traders_data
WHERE
tid = ?
~);
$sth->execute($categoryId);
while (my $row = $sth->fetchrow_hashref()) {
if ($row->{Item} =~ /^\["([^"]+)",\d+\]$/) {
$row->{Item} = $1;
}
else {next;}
if ($row->{Buy} =~ s/^\[(\d+),"([^"]+)",(\d+)\]$/{$1,"$2"}/) {}
else {next;}
if ($row->{Sell} =~ s/^\[(\d+),"([^"]+)",(\d+)\]$/{$1,"$2"}/) {}
else {next;}
$cfg .= "\tclass ".$row->{Item}." {\n";
$cfg .= "\t\ttype = \"".$row->{aFile}."\";\n";
$cfg .= "\t\tbuy[] = ".$row->{Buy}.";\n";
$cfg .= "\t\tsell[] = ".$row->{Sell}.";\n";
$cfg .= "\t};\n";
}
else {next;}
if ($row->{Buy} =~ s/^\[(\d+),"([^"]+)",(\d+)\]$/{$1,"$2"}/) {}
else {next;}
if ($row->{Sell} =~ s/^\[(\d+),"([^"]+)",(\d+)\]$/{$1,"$2"}/) {}
else {next;}
$cfg .= "\tclass ".$row->{Item}." {\n";
$cfg .= "\t\ttype = \"".$row->{aFile}."\";\n";
$cfg .= "\t\tbuy[] = ".$row->{Buy}.";\n";
$cfg .= "\t\tsell[] = ".$row->{Sell}.";\n";
$cfg .= "\t};\n";
$sth->finish();
$cfg .= "};\n";
}
$sth->finish();
$cfg .= "};\n";
open(CFG, '>', $pathServerTraderCategoriesCfg.$traderCategory.'.hpp') or die $!;
print CFG $cfg;
close(CFG);