Stealth Client Forum

Posted: **31.12.2013 21:49**

просто нужно чтобы кидало на животное (Кол.) еды

Program HungryMob;


Const 
Enemy = $00049B59;	// ИД животного
HungryTime=10000;	// интервал времни кормки
Meat=$09F1;		// тип еды


{$Include 'all.inc'}


Begin
SetARStatus(true);
clearjournal;
while true do
begin
if Connected then
begin
while true do
begin
CheckSave;
MoveItem(findtype(Meat,backpack),1,Enemy,0,0,0);
AddToSystemJournal('Осталось мясо ' + IntToStr(FindFullQuantity));
Wait(HungryTime);
end;
end;
end;
End.

постоянно пишет (System: Some inspecific error when moving item!)

подскажите в чем трабл ?

Posted: **31.12.2013 22:10**

pannir wrote:просто нужно чтобы кидало на животное (Кол.) еды

Твой скрипт
Code: Select all
Program HungryMob;


Const 
Enemy = $00049B59;	// ИД животного
HungryTime=10000;	// интервал времни кормки
Meat=$09F1;		// тип еды


{$Include 'all.inc'}


Begin
SetARStatus(true);
clearjournal;
while true do
begin
if Connected then
begin
while true do
begin
CheckSave;
MoveItem(findtype(Meat,backpack),1,Enemy,0,0,0);
AddToSystemJournal('Осталось мясо ' + IntToStr(FindFullQuantity));
Wait(HungryTime);
end;
end;
end;
End.
постоянно пишет (System: Some inspecific error when moving item!)

подскажите в чем трабл ?

вероятно Enemy - не контейнер...

Code: Select all

function DropHere(ItemID : Cardinal) : Boolean

Posted: **31.12.2013 23:14**

или далеко. например, на дистанции 4.
или на другом этаже.
или еда залочена.

или еще что-то.

Posted: **03.01.2014 19:40**

Code: Select all

findtype(Meat,backpack);
DragItem(finditem,2);
wait(1000);
DropHere(Enemy);

пишет You cannot pick up this item(cannot lift item), ID: $00023C99

Posted: **03.01.2014 20:48**

pannir wrote:
Code: Select all
findtype(Meat,backpack);
DragItem(finditem,2);
wait(1000);
DropHere(Enemy);
пишет You cannot pick up this item(cannot lift item), ID: $00023C99

даже хрен знает... попробуй не на енеми, а просто на землю бросить. Может дело в конячке...

Code: Select all

function DropItem(MoveIntoID : Cardinal; X,Y,Z : Integer) : Boolean

Posted: **04.01.2014 4:46**

пробовал и dropitem... даже xyz вписывал...
pol95.. если нужно дам сервер...
Животное рядом в дистанции 1 клетка

Posted: **10.01.2014 2:20**

можно это как то обойти ??

я так понимаю не работает из за того что он не контейнер, нужно чтоб он просто на него кидал еду

Posted: **16.01.2014 0:27**

вот на injection сделал "работает"

точти экрана вычислил с помощью (uopilot)
UO.Drag(905,379, 417,259, 1)

Code: Select all

sub main()
UO.Set('finddistance','2')
UO.Set('distance','2')
While UO.WEIGHT < 30000
UO.Say("all follow me")
UO.Drag(905,379, 417,259, 1)
wait(3600000)
wend
wend

можно ли чтото подобное на стелсе реализовать ?

Posted: **16.01.2014 7:51**

pannir wrote:pol95..
пробовал и dropitem... даже xyz вписывал...

Попробуй в moveitem в качестве координат куда бросать указать координаты животного. Когда то на pol095 на животных можно было брость итем только так.

Posted: **16.01.2014 10:25**

что так
MoveItem(findtype($09F1,backpack),1,findtype($006F,ground),2275,1199,0);
что так
MoveItem(findtype($09F1,backpack),1,$IDDDDD,2275,1199,0);

все равно пишет System: Some inspecific error when moving item! (

Posted: **16.01.2014 14:50**

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

Posted: **18.01.2014 13:14**

проблема решена..
сорри сам затупил, так как пользуюсь в основном стелсом 3+, в 6+ все работает

Stealth Client Forum

Кормление животного

Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного

Re: Кормление животного