запись непроходимых тайлов в файл. и атозагрузка их

[KOLBASOID]

сорри вот скрин. при наведении мышки выходит инфа.

гет толтип дает
14:23:16:425 [Warrior]: double axe|crafted by Charon|exceptional|(Imbued)|<b>Insured</b>|Weight: 8 stones|hit stamina leech 44%|hit mana leech 71%|hit lower defense 44%|repond slayer|damage increase 45%|physical damage 100%|weapon damage 15 - 18|weapon speed 3.25s|strength requirement 45|two-handed weapon|skill required: swordsmanship|durability 109 / 119



во разабрался. спасибо

Code: Select all

var
i:integer;
s:String;
c:string;

function durability(id: Cardinal):integer;
begin
  s:=gettooltip(id);
  c:='durability';
  i:=Pos(c,s);
  s:=Copy(s,i+11,3);
  s:=Trim(s);
  Result := strtoint(s);
end;



Begin
durability($42D5EC81);
  AddToSystemJournal('дурабилити вещи '+inttostr(durability($42D5EC81)));

END.


Вывод
15:03:16:891 [Warrior]: Compiling
15:03:16:897 [Warrior]: Compiled succesfully
15:03:16:899 [Warrior]: дурабилити вещи 74
15:03:16:900 [Warrior]: Succesfully executed
15:03:16:901 [Warrior]: Script Getlayer.sc stopped successfuly

последнее конвертирование делал для проверки типов данных.

[Vizit0r]

ну вот и молодец, радует что разобался.