Подскажите пожалуйста как получить ID животного через стелс?

un.k · Post by **un.k** » 28.10.2010 14:36

Какую нужно использовать команду, если известен тип животного, а нужно получить ID животного.

Хочу сделать скрипт на таминг - животное появляется, чар его тамит, потом убивает и ждет пока животное реснится.

Vizit0r · Post by **Vizit0r** » 28.10.2010 14:48

findtype

un.k · Post by **un.k** » 28.10.2010 15:06

Code: Select all

rogram taming; 

var 
animal : cardinal; 
ctime : TDateTime; 

{$Include 'all.inc'} 

Const
animalType = $0027; 

Begin 
   While not Dead do 
	begin 
FindDistance := 2;
	if (findtype(animalType, Ground) = 0) then animal := finditem;
	if (inJournalBetweenTimes('You see: a mongbat', ctime, Now)<>-1) then
		begin
		SetWarMode(false);
		if TargetPresent then CancelTarget; 
		CheckTargetError(5,2);
	        CheckSave; 
		UseSkill('Animal Taming'); 
		WaitTargetGround(animalType);
		wait(5000);
		if (inJournalBetweenTimes('успешно', ctime, Now)<>-1) then 
		begin
		SetWarMode(true);
		attack(animal);
		end;
		end;
	end;
end.

вот скрипт, пишет
19:04:39 []: Attack error: Object not finded.

Savage · Post by **Savage** » 28.10.2010 15:24

un.k wrote:
Code: Select all
	if (findtype(animalType, Ground) = 0) then animal := finditem;
вот скрипт, пишет
19:04:39 []: Attack error: Object not finded.

Если ничего не нашёл то анималу присвоить неизвестно что?

Code: Select all

      WaitTargetGround(animalType);

а тут наверное должен быть анимал. Или зачем ты его вообще ищешь?

Vizit0r · Post by **Vizit0r** » 28.10.2010 15:25

1) if (findtype(animalType, Ground) = 0) then animal := finditem;
если ничего не нашли - то пусть animal как раз и будет это самое ничего.
надо ставить одну большую проверку на всё -
if findtype(animalType, Ground) > 0 then
if (inJournalBetweenTimes('You see: a mongbat', ctime, Now)<>-1) then
begin
....

потому что если животное не найдено, то и таймить нечего.

un.k · Post by **un.k** » 28.10.2010 15:42

спасибо!!! )

un.k · Post by **un.k** » 28.10.2010 16:13

теперь другая проблема, недождавжись пока затамит, начинает атачить.
Т.е. 1 раз пробует тамить, потом атачит, потом опять пробует тамить.
Что я сделал неправильно?

Code: Select all

program taming; 

var 
animal : cardinal; 
ctime : TDateTime; 

{$Include 'all.inc'} 

Const
animalType = $0027; 


Begin 
if (findtype(animalType, Ground) > 0 ) then animal := finditem;
if (inJournalBetweenTimes('You see: a mongbat', ctime, Now)<>-1) then 

   While not Dead do 


	begin


FindDistance := 2;
	begin
		
		SetWarMode(false);
		if TargetPresent then CancelTarget; 
		CheckTargetError(5,2);
	        CheckSave; 
	        repeat
		UseSkill('Animal Taming'); 
		WaitTargetGround(animalType);
		wait(10000);
		until (inJournalBetweenTimes('Âû óñïåøíî ïðèðó÷èëè mongbat', ctime, Now)<>-1)
	
		if (inJournalBetweenTimes('pretty', ctime, Now)<>-1) then 
		
		attack(animal);
		wait(10000);
	        
		end;
	end;
end.

Vizit0r · Post by **Vizit0r** » 28.10.2010 16:35

until (inJournalBetweenTimes('Âû óñïåøíî ïðèðó÷èëè mongbat', ctime, Now)<>-1)
это отлично, ты проверяешь на наличие строки с момента ctime до настоящего момента.
но...где же установка ctime?
а должна
ctime := Now;
стоять прямо перед строкой
UseSkill('Animal Taming');

и ненадо ловить полную строку. 1-2 уникальных для данной фразы слов будет вполне достаточно.

это то, что в глаза бросилось.

un.k · Post by **un.k** » 28.10.2010 16:47

спасибо. ушел тестить