Требуется помощь со скриптом на сбор льна.
Персонаж стоит и собирает лён на расстоянии 2-х тайлов.
Когда тыкаешь на лён он начинает его сборку сообщением:
System: You start harvesting...
System: You put the crops in your pack
и продолжает собирать пока оно не кончится, заканчивает сообщением:
System: You harvested all you can.
System: Harvest again to destroy the plant.
во время сбора могут быть фейлы с такими сообщениями
System: You fail to harvest.
Суть в том, что скрипт тыкает одно растение постоянно и не переключается на другое, я обыскал кучу скриптов чтобы достать из них что нибудь полезное, но ничего не получается, скриптование трудно даётся, поэтому прошу помощи.
Всё вышеуказанное я пытался делать на основе этого скрипта
Code: Select all
program sbor;
Begin
while (true) do
begin
SetARStatus(true);
canceltarget;
FindDistance := 1;
WaitTargetobject(findtype($1A99,ground));
AddToSystemJournal(IntToStr(FindCount)+' растений');
AddToSystemJournal(IntToStr(CountEx($0DF8,$0000,backpack))+' льна');
UseObject(findtype($1A9C,backpack));
wait(5000);
end;
end.
я пытался вставить сообщения из журнала, чтобы при сообщении об уничтожении растения он переключился на другое.
проблема в том что растение уничтожается, но из вида не пропадает и тип не меняет, со временем с него снова можно получить добычу.
Помогите пожалуйста.
сервер pol 95