Code: Select all
Program report;
type toreinfo = record
name: string;
oreColor: word;
ingotColor: word;
ingotType: word;
end;
type tloginfo = record
name: string;
color: word;
end;
var
i, q: integer;
oreInfo: array of toreinfo;
logInfo: array of tloginfo;
oreType: array of word;
logType: word;
procedure initlogsoreingots;
begin
setlength(oreInfo, 30);
oreInfo[0].name := 'Iron ';
oreInfo[0].oreColor := $0000;
oreInfo[0].ingotColor := $0000;
oreInfo[0].ingotType := $1BEF;
////////////
oreInfo[1].name := 'Rusty ';
oreInfo[1].oreColor := $0750;
oreInfo[1].ingotColor := $0750;
oreInfo[1].ingotType := $1BEF;
////////////
oreInfo[2].name := 'Old Copper ';
oreInfo[2].oreColor := $0590;
oreInfo[2].ingotColor := $0590;
oreInfo[2].ingotType := $1BEF;
////////////
oreInfo[3].name := 'Dull Copper';
oreInfo[3].oreColor := $060A;
oreInfo[3].ingotColor := $060A;
oreInfo[3].ingotType := $1BEF;
////////////
oreInfo[4].name := 'Copper ';
oreInfo[4].oreColor := $0088;
oreInfo[4].ingotColor := $0000;
oreInfo[4].ingotType := $1BE3;
////////////
oreInfo[5].name := 'Bronze ';
oreInfo[5].oreColor := $0488;
oreInfo[5].ingotColor := $0488;
oreInfo[5].ingotType := $1BEF;
////////////
oreInfo[6].name := 'Silver ';
oreInfo[6].oreColor := $0482;
oreInfo[6].ingotColor := $0000;
oreInfo[6].ingotType := $1BF5;
////////////
oreInfo[7].name := 'Gold ';
oreInfo[7].oreColor := $0032;
oreInfo[7].ingotColor := $0000;
oreInfo[7].ingotType := $1BE9;
////////////
oreInfo[8].name := 'Shadow ';
oreInfo[8].oreColor := $096B;
oreInfo[8].ingotColor := $096B;
oreInfo[8].ingotType := $1BEF;
////////////
oreInfo[9].name := 'Rose ';
oreInfo[9].oreColor := $0014;
oreInfo[9].ingotColor := $0014;
oreInfo[9].ingotType := $1BEF;
////////////
oreInfo[10].name := 'Agapite ';
oreInfo[10].oreColor := $0193;
oreInfo[10].ingotColor := $0193;
oreInfo[10].ingotType := $1BEF;
////////////
oreInfo[11].name := 'Blood rock ';
oreInfo[11].oreColor := $04C2;
oreInfo[11].ingotColor := $04C2;
oreInfo[11].ingotType := $1BEF;
////////////
oreInfo[12].name := 'Verite ';
oreInfo[12].oreColor := $07D5;
oreInfo[12].ingotColor := $07D5;
oreInfo[12].ingotType := $1BEF;
////////////
oreInfo[13].name := 'Valorite ';
oreInfo[13].oreColor := $00CE;
oreInfo[13].ingotColor := $00CE;
oreInfo[13].ingotType := $1BEF;
////////////
oreInfo[14].name := 'Mitheril ';
oreInfo[14].oreColor := $052D;
oreInfo[14].ingotColor := $052D;
oreInfo[14].ingotType := $1BEF;
////////////
oreInfo[15].name := 'Black Rock ';
oreInfo[15].oreColor := $0455;
oreInfo[15].ingotColor := $0455;
oreInfo[15].ingotType := $1BEF;
////////////
oreInfo[16].name := 'Obsidian ';
oreInfo[16].oreColor := $0028;
oreInfo[16].ingotColor := $0028;
oreInfo[16].ingotType := $1BEF;
////////////
oreInfo[17].name := 'Plutonium ';
oreInfo[17].oreColor := $08AF;
oreInfo[17].ingotColor := $08AF;
oreInfo[17].ingotType := $1BEF;
////////////
oreInfo[18].name := 'Dragon ';
oreInfo[18].oreColor := $0085;
oreInfo[18].ingotColor := $0085;
oreInfo[18].ingotType := $1BEF;
////////////
oreInfo[19].name := 'Crystaline ';
oreInfo[19].oreColor := $09A4;
oreInfo[19].ingotColor := $09A4;
oreInfo[19].ingotType := $1BEF;
////////////
oreInfo[20].name := 'Krynite ';
oreInfo[20].oreColor := $010F;
oreInfo[20].ingotColor := $010F;
oreInfo[20].ingotType := $1BEF;
////////////
oreInfo[21].name := 'Vulcan ';
oreInfo[21].oreColor := $09DA;
oreInfo[21].ingotColor := $09DA;
oreInfo[21].ingotType := $1BEF;
////////////
oreInfo[22].name := 'Sand Rock ';
oreInfo[22].oreColor := $008F;
oreInfo[22].ingotColor := $008F;
oreInfo[22].ingotType := $1BEF;
////////////
oreInfo[23].name := 'Blood Crest';
oreInfo[23].oreColor := $09EC;
oreInfo[23].ingotColor := $09EC;
oreInfo[23].ingotType := $1BEF;
////////////
oreInfo[24].name := 'Steel ';
oreInfo[24].oreColor := $09D3;
oreInfo[24].ingotColor := $09D3;
oreInfo[24].ingotType := $1BEF;
////////////
oreInfo[25].name := 'Elvin ';
oreInfo[25].oreColor := $09E6;
oreInfo[25].ingotColor := $09E6;
oreInfo[25].ingotType := $1BEF;
////////////
oreInfo[26].name := 'Gorgan ';
oreInfo[26].oreColor := $09F0;
oreInfo[26].ingotColor := $09F0;
oreInfo[26].ingotType := $1BEF;
////////////
oreInfo[27].name := 'Acid ';
oreInfo[27].oreColor := $09B9;
oreInfo[27].ingotColor := $09B9;
oreInfo[27].ingotType := $1BEF;
////////////
oreInfo[28].name := 'Aqua ';
oreInfo[28].oreColor := $0060;
oreInfo[28].ingotColor := $0060;
oreInfo[28].ingotType := $1BEF;
////////////
oreInfo[29].name := 'Eldar ';
oreInfo[29].oreColor := $0BA7;
oreInfo[29].ingotColor := $0BA7;
oreInfo[29].ingotType := $1BEF;
setlength(oreType, 4);
oreType[0] := $19B7; //Руда 1шт.
oreType[1] := $19BA; //Руда 2шт.
oreType[2] := $19B8; //Руда 3шт.
oreType[3] := $19B9; //Руда 4шт.
setlength(logInfo, 21);
logInfo[0].name := 'Logs ';
logInfo[0].color := $0000;
////////////
logInfo[1].name := 'Oak ';
logInfo[1].color := $047C;
////////////
logInfo[2].name := 'Red Tree ';
logInfo[2].color := $0279;
////////////
logInfo[3].name := 'Dark Tree ';
logInfo[3].color := $096B;
////////////
logInfo[4].name := 'Swamp ';
logInfo[4].color := $0237;
////////////
logInfo[5].name := 'Silver Leaf ';
logInfo[5].color := $0482;
////////////
logInfo[6].name := 'Keranit ';
logInfo[6].color := $010F;
////////////
logInfo[7].name := 'Perit ';
logInfo[7].color := $0014;
////////////
logInfo[8].name := 'Petrified ';
logInfo[8].color := $03C1;
////////////
logInfo[9].name := 'Dragon Tree ';
logInfo[9].color := $0085;
////////////
logInfo[10].name := 'Vampire Tree ';
logInfo[10].color := $04C2;
////////////
logInfo[11].name := 'Eridan ';
logInfo[11].color := $0033;
////////////
logInfo[12].name := 'Hellios ';
logInfo[12].color := $002B;
////////////
logInfo[13].name := 'Illusions Tree';
logInfo[13].color := $0071;
////////////
logInfo[14].name := 'Crystal ';
logInfo[14].color := $09A4;
////////////
logInfo[15].name := 'Dead Tree ';
logInfo[15].color := $0B82;
////////////
logInfo[16].name := 'Paradise ';
logInfo[16].color := $00BE ;
////////////
logInfo[17].name := 'Titan Tree ';
logInfo[17].color := $0035;
////////////
logInfo[18].name := 'Avalon ';
logInfo[18].color := $0BB6;
////////////
logInfo[19].name := 'Elven ';
logInfo[19].color := $0487;
////////////
logInfo[20].name := 'Asterxylon ';
logInfo[20].color := $0498;
logType := $1BDD;
end;
begin
initlogsoreingots;
//Репорт руды.
addtosystemjournal('Репорт руды:');
for i := 0 to high(oreInfo) do
for q := 0 to high(oreType) do
if findtypeex(oreType[q], oreInfo[i].oreColor, lastcontainer, false) > 0 then
addtosystemjournal(oreInfo[i].name + ' - ' + inttostr(findfullquantity));
addtosystemjournal('');
//Репорт ингов.
addtosystemjournal('Репорт ингов:');
for i := 0 to high(oreInfo) do
if findtypeex(oreInfo[i].ingotType, oreInfo[i].ingotColor, lastcontainer, false) > 0 then
addtosystemjournal(oreInfo[i].name + ' - ' + inttostr(findfullquantity));
addtosystemjournal('');
//Репорт логов.
addtosystemjournal('Репорт логов:');
for i := 0 to high(logInfo) do
if findtypeex(logType, logInfo[i].color, lastcontainer, false) > 0 then
addtosystemjournal(logInfo[i].name + ' - ' + inttostr(findfullquantity));
end.