Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
Code: Select all
Program New;
const
pet = $0001C94A;
procedure waitpet;
begin
repeat
finddistance := 2;
findtype(pet,ground);
addtosystemjournal(inttostr(finditem));
until finditem > 0;
end;
begin
repeat
movexy(1206,1536,true,0,false);
waitpet
movexy(1207,1522,true,0,false);
waitpet
until dead;
end.
you cant directly Search for an ID. The possibilitys to look if the ID exist or is valid would be that you check "isObjectExist" and then check the Distance.mixers wrote:ok , i know ,
'GetDistance' can help me.
now i want know how to find item by id?
mixers wrote:ok , i know ,
'GetDistance' can help me.
now i want know how to find item by id?
Code: Select all
procedure FindSmthById(Id : Cardinal);
begin
IgnoreReset;
while FindType($FFFF, Ground) > 0 then
begin
if FindItem = Id then
begin
AddToSystemJournal('Found It!')
Break;
end
else
Ignore(FindItem);
end;
Check if Item is Exist, then check if Parent of Item is Backpack. there you gomixers wrote:i finded 2 same type item,if i need item in backpack, so unquip all armor and equip the item.
thanks.
or... you can use it directly without finding smth.Crome696 wrote:Check if Item is Exist, then check if Parent of Item is Backpack. there you gomixers wrote:i finded 2 same type item,if i need item in backpack, so unquip all armor and equip the item.
thanks.
!