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

Updated Categories

Browse Source
This commit is contained in:
Florian Kinder
2014-02-04 15:00:44 +01:00
parent 96bf638f28
commit f372af8547
84 changed files with 3554 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Tools/TraderMigration/serverTraders2cfg.pl
View File

@@ -102,6 +102,35 @@ foreach my $traderCategory (keys $traderCategories) {
$cfg .= "class ".$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;
}
else {next;}
if ($row->{Buy} =~ s/^\[(\d+),"([^"]+)",(\d+)\]$/{$1,"$2",$3}/) {}
else {next;}
if ($row->{Sell} =~ s/^\[(\d+),"([^"]+)",(\d+)\]$/{$1,"$2",$3}/) {}
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";
open(CFG, '>', $pathServerTraderCategoriesCfg.$traderCategory.'.hpp') or die $!;