Stealth Client Forum

frant wrote:Кто-нить подскажите как вытянуть инфу(айди, тип, цвет и т.п.) об объектах и занести ее в файл?
не из гампа, а допустим из сундука...

ignorereset;
while findtype($FFFF, containerID) > 0 do begin

  itemtype := gettype(finditem);
  itemcolor := getcolor(finditem);

  ignore(finditem);
end;

nepopus wrote:

frant wrote:Кто-нить подскажите как вытянуть инфу(айди, тип, цвет и т.п.) об объектах и занести ее в файл?
не из гампа, а допустим из сундука...

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

Code: Select all

ignorereset;
while findtype($FFFF, containerID) > 0 do begin

  itemtype := gettype(finditem);
  itemcolor := getcolor(finditem);

  ignore(finditem);
end;

http://stealth.od.ua/Doc:RU/Manual/Reference/Object

К сожалению с файлами в стелсе пока не работал - не подскажу.
П.С. если будешь брать имя предмета через getname, не забудь прежде кликнуть на предмет, в противном случе имя будет noname;

nepopus wrote:ну я тебе написал как вытянуть = ) findtype по типу $FFFF будет перебирать все предметы без исключения.
Осталось только с записью в файл тебе разобраться : )
И буду благодарен, если напишешь сюда конечный вариант с этой самой записью.

var
a, b, sum: integer;
f1,f2: text;
begin
assign (f1,'input.txt');
assign (f2,'res.txt');
reset(f1);
read(f1,a,b);
sum:=a+b;
rewrite(f2);
writeln(f2,'a','(',a,')','+','b','(',b,')','=',sum);
close(f1);
close(f2);

end.

CFA wrote:Если нужно только записывать файл (без дописывания и чтения) то проще воспользоваться TStringList.

Code: Select all

var st : TStringList;
...
st := TStringList.Create;
st.Add('line 1');
st.Add('line 2');
st.SaveToFile('filename.txt');
st.Free;

Вобщем чтение и дописывание тоже нетрудно сделать. Сначала st.LoadFromFile и дальше или добавлять или читать отдельные строки

CFA wrote:если ты формируешь строку типа IntToStr(GetType(findItem)) то они запишутся в десятичном виде, тебе я думаю их надо в шестнадцатеричном, в этом случае надо использовать IntToHex(GetType(findItem), 4) или IntToHex(findItem, 8 ).
Числа 4 и 8 определяют сколько цифр будет выведено.

nepopus wrote: П.С. если будешь брать имя предмета через getname, не забудь прежде кликнуть на предмет, в противном случе имя будет noname;

frant wrote:

nepopus wrote: П.С. если будешь брать имя предмета через getname, не забудь прежде кликнуть на предмет, в противном случе имя будет noname;

а мможно вот тут уточнить? потому что я сделал с прокликом и все-равно НоуНейм выводит

nepopus wrote:

frant wrote:

nepopus wrote: П.С. если будешь брать имя предмета через getname, не забудь прежде кликнуть на предмет, в противном случе имя будет noname;

а мможно вот тут уточнить? потому что я сделал с прокликом и все-равно НоуНейм выводит

Задержку поставил? Принцип такой, что после клика, над предметом должно пройти время для появления названия.
wait(100-200) хватит.
Ну и код кидай = )

clickonobject(finditem);
wait(500);
itemname:= getname(finditem);
ts.add(getname(finditem));

CFA wrote:Надежнее использовать CheckLag(2000), а не Wait.
Если используется клиент 4+, то надо использовать не GetName, а GetCliloc, для него вроде бы задержка и клик не нужны.

itemname:= getcliloc(finditem);
ts.add(getcliloc(finditem));