Code: Select all
Program New;
var
aa : TClilocRec;
bb : TClilocItemRec;
i,k : Integer;
begin
aa := GetToolTipRec(BackPack);
AddToSystemJournal('Total lines in Toolptip: ' + IntToStr(aa.Count));
if aa.count > 0 then
for i := 0 to aa.Count - 1 do
begin
AddToSystemJournal('Line ' + IntToStr(i) + ': ');
bb := aa.Items[i];
AddToSystemJournal('Cliloc: $' + IntToHex(bb.ClilocID,8));
AddToSystemJournal('Cliloc text: ' + GetClilocByID(bb.ClilocID));
for k := 0 to Length(bb.Params) - 1 do
AddToSystemJournal('Param-' + IntToStr(k) + ': "'
+ bb.Params[k] + '"');
end;
Code: Select all
12:26:00:865 [MAIN]: Cliloc text: recipe scroll
12:26:00:866 [MAIN]: Cliloc: $00105E94
12:26:00:867 [MAIN]: Cliloc text: Weight: ~1_WEIGHT~ stone
12:26:00:868 [MAIN]: Param-0: "1"
12:26:00:869 [MAIN]: Cliloc: $0010042C
12:26:00:886 [MAIN]: Cliloc text: [~1_stuff~]
12:26:00:887 [MAIN]: Param-0: "#1073388"
Вопрос: Как по этому коду(по этим циферкам #1073388) понять на что этот рецепт? ака получить название этого предмета как?
P.S.: аналогичная тема для примера с commodity deed. там тоже в качестве параметра будут циферки которые показывают что же там в этот дид свернуто.