forked from Jaysyn/PRC8
31 lines
802 B
Plaintext
31 lines
802 B
Plaintext
%store = '.\prc_merchant.utm' or die $!;
|
|
meta dir=> '..\..\Craft2das' or die $!;
|
|
$name = 'prc_recipe';
|
|
$i = 0;
|
|
$max = 776;
|
|
$x = 0;
|
|
$y = 0;
|
|
|
|
add Name => /StoreList/[2]/ItemList, Type=>gffList;
|
|
/ResRef = $name;
|
|
/LocName = $name;
|
|
/Tag = $name;
|
|
|
|
|
|
for($i=0; $i<=$max; $i++)
|
|
{
|
|
$resref = lookup 'item_to_ireq', $i, 'RECIPE_TAG';
|
|
add /StoreList/[2]/ItemList/InventoryRes, $resref, gffResRef;
|
|
add /StoreList/[2]/ItemList/[_]/Infinite, 1, gffByte;
|
|
add /StoreList/[2]/ItemList/[_]/Repos_PosX, $x, gffByte;
|
|
add /StoreList/[2]/ItemList/[_]/Repos_Posy, $y, gffByte;
|
|
$x++;
|
|
if($x>9)
|
|
{
|
|
$x = 0;
|
|
$y++;
|
|
}
|
|
print "$resref $x $y /StoreList/[2]/ItemList/InventoryRes /StoreList/[2]/ItemList/[_]/Infinite /StoreList/[2]/ItemList/[_]/Repos_PosX /StoreList/[2]/ItemList/[_]/Repos_Posy \n";
|
|
}
|
|
|
|
%store = ">$name.utm"; |