Stealth Client Forum

Posted: **17.08.2009 16:29**

Zdrasvujte,

Kak proverit' esli predmet "A" nahodetca v rukah ?

Posted: **17.08.2009 17:12**

Ardno wrote:Zdrasvujte,

Kak proverit' esli predmet "A" nahodetca v rukah ?


function GetLayer(Obj : Cardinal) : Byte

Возвращает слой (layer), в котором находится обьект

Posted: **17.08.2009 18:41**

Macks wrote:
Ardno wrote:Zdrasvujte,

Kak proverit' esli predmet "A" nahodetca v rukah ?
Code: Select all
function GetLayer(Obj : Cardinal) : Byte

Возвращает слой (layer), в котором находится обьект

и для верности можно еще проверить Parent - должен быть равен Self, чтобы случайно не зацепить айтемы на слоях чужих чаров

Posted: **18.08.2009 0:31**

Vizit0r wrote:
Macks wrote:
Ardno wrote:Zdrasvujte,

Kak proverit' esli predmet "A" nahodetca v rukah ?
Code: Select all
function GetLayer(Obj : Cardinal) : Byte

Возвращает слой (layer), в котором находится обьект
и для верности можно еще проверить Parent - должен быть равен Self, чтобы случайно не зацепить айтемы на слоях чужих чаров

Sposibo vam oboim za vashi otveti i pomosh, no esli vam neslozhno nemoglibi prevesti mne ekzemplar po ispolzovaniju etih funkcij ?

Posted: **18.08.2009 8:36**

Code: Select all

if GetLayer(ID) <> 0 then
  begin
     IF GetParent(ID) <> Self then
        AddToSystemJournal('Айтем одет на чаре или в руках, но это не наш чар :)')
     else 
        AddToSystemJournal('Айтем одет на чаре или в руках');
  end
else
  AddToSystemJournal('Айтем не одет на чаре и не в руках');

писал тут, поэтому могут быть ошибки

Posted: **18.08.2009 19:33**

Vizit0r wrote:

Code: Select all

if GetLayer(ID) <> 0 then
  begin
     IF GetParent(ID) <> Self then
        AddToSystemJournal('Айтем одет на чаре или в руках, но это не наш чар :)')
     else 
        AddToSystemJournal('Айтем одет на чаре или в руках');
  end
else
  AddToSystemJournal('Айтем не одет на чаре и не в руках');

писал тут, поэтому могут быть ошибки

Sposibo Vizit0r za premer

, u menja esho vopros, v 4em razdnitca tem ekzemplarom i ?

Code: Select all

FindType(ID, Self);

Posted: **18.08.2009 19:36**

правильный вопрос. это и есть второй вариант

поискать, а потом взять слой найденного и сравнитьс нужным

Posted: **18.08.2009 22:04**

Vizit0r wrote:правильный вопрос. это и есть второй вариант
поискать, а потом взять слой найденного и сравнитьс нужным

U menja esho 1 vopros, nadejus' vi ne ustali otve4at' na moi tupie voprosi

Kak ja ponimaju GetLayer ishet objekt v vseh Layers kotorij vklu4aet v sebja

Code: Select all

function BpackLayer: Byte; // 0x15 - Сумка персонажа - Backpack

no v mojom slu4ie po4emuta v backpacke UOSC ne smog najti tam predmet

Posted: **18.08.2009 23:57**

В паке искать надо через FindType, но он не ищет в подсумках, для поиска в подсумках надо юзать FindTypeEx, перед этим на подсумок(мешок,ящик,и.т.п) нужно обязательно сделать UseObject(ObjID) - тоесть открыть( если он еще никогда не открывался), иначе Стелс незнает что в нем есть.

Code: Select all

если предмет в подсумке то

UseObject(ID_OF_SUMKA)

ID:=FindType(Item,LastContainer);
либо
ID:=FindTypeEx(item,ItemColor,Backpack,true);

если у тебя есть ID предмета, дальше с ним можно сваять такое:

Code: Select all

if WearItem(RhandLayer, ID) then > предмет в правой руке
if ObjAtLayer(RhandLayer)=ID then  > предмет в правой руке
if GetLayer(ID)=RhandLayer then  > предмет в правой руке

Posted: **19.08.2009 0:42**

Ardno wrote: Kak ja ponimaju GetLayer ishet objekt v vseh Layers kotorij vklu4aet v sebja
Code: Select all
function BpackLayer: Byte; // 0x15 - Сумка персонажа - Backpack 
no v mojom slu4ie po4emuta v backpacke UOSC ne smog najti tam predmet

неправильно понимаешь. он возвращает слой вещи, а не ищет ее.

Posted: **19.08.2009 2:06**

Sposibo Vizit0r i WladL za vashu pomosh i vashi otveti

,

Ja na4erikal podobnij script kotorij v polne podhodet mne

Code: Select all

Program OnChar;

Const 
	ObjType = $1716;	// Straw Tall Hat
	
Begin
FindTypeEx(ObjType,$FFFF,Self,true);
IF FindItem <> 0 then
	Begin
	if GetLayer(FindItem) <> 0 then
			Begin
				Addtosystemjournal('Found on Layer, UnEquipting.....');
				UnEquip(GetLayer(FindItem));
			End
		else
			Addtosystemjournal('Found in container, using.....');
			UseObject(FindItem);
	End
	else
	Addtosystemjournal('Nothing Found');
End.

On rabotaet kak nado no vidajet 1 oshibku kotoroju ja nemogu ponat' otkuda ona berjotca i tam esho 4 gramati4eskih oshibki kazis' ,

"Compiled succesfully" -> *Compiled successfully*
"finded" -> *found*
"Succesfully executed" -> *Successfully executed*
"successfuly" -> *successfully*

Code: Select all

23:54:01 [UOSCT]: Compiling
23:54:01 [UOSCT]: Compiled succesfully
23:54:01 [UOSCT]: Found on Layer, UnEquipting.....
23:54:02 [UOSCT]: UseObject error: Object not finded.
23:54:02 [UOSCT]: Succesfully executed
23:54:02 [UOSCT]: Script tests.sc stopped successfuly

Posted: **19.08.2009 15:58**

канеша неправильно.

if GetLayer(FindItem) <> 0 then
Begin
Addtosystemjournal('Found on Layer, UnEquipting.....');
UnEquip(GetLayer(FindItem));
End
else
Addtosystemjournal('Found in container, using.....');
UseObject(FindItem);

в случае else выполняется только одна строка

if GetLayer(FindItem) <> 0 then
Begin
Addtosystemjournal('Found on Layer, UnEquipting.....');
UnEquip(GetLayer(FindItem));
End
else
Begin
Addtosystemjournal('Found in container, using.....');
UseObject(FindItem);
End

так правильнее будет

Posted: **19.08.2009 21:58**

так наверное лучше будет

Code: Select all

Program OnChar; 

Const 
   ObjType = $1716;   // Straw Tall Hat 
    
Begin 
if GetType(ObjAtLayer(RhandLayer))=ObjType then Begin 
            Addtosystemjournal('Found on Layer, UnEquipting.....'); 
            UnEquip(RhandLayer); 
end 
else if FindTypeEx(ObjType,$FFFF,backpack,true)>0 then begin
                  Addtosystemjournal('Found in container, using.....'); 
                  UseObject(FindItem); 
end 
else Addtosystemjournal('Nothing Found'); 
End.

Stealth Client Forum

Proverka predmeta na chare

Proverka predmeta na chare

Re: Proverka predmeta na chare

Re: Proverka predmeta na chare

Re: Proverka predmeta na chare