Page 1 of 2
Сбор реагента
Posted: 10.02.2013 15:49
by 45vvv
Господа, подсобите незнающему.
нужен скрипт на сбор определенного реагента в хайде и перекладыванием в после сбора в сумку на земле.
дано:
В различное время на пеньке появляется реагент, который собирается двойным кликом(падает в бекпак)
решение:
чар стоит в хайде, как только появляется реагент, он двойным кликом собирает и после перекладывает в сумку на земле.
спасибо.
Re: Сбор реагента
Posted: 13.02.2013 17:52
by 45vvv
Re: Сбор реагента
Posted: 13.02.2013 18:08
by Vizit0r
а что за проблема-то?
двойной клик - UseObject
переложить - MoveItem
поиск - FindType
хайд - UseSkill('Hiding')
по кругу ищешь, не нашел - пауза, нашел - юз+перенос, и дальше ждать
Re: Сбор реагента
Posted: 13.02.2013 20:47
by 45vvv
да вся проблема в том, что я не могу с нуля написать.
могу только править методом тыка и то, в инжекте если.
а тут так вообще лес темный, процедуры, бегины-фигины. беда.
Re: Сбор реагента
Posted: 13.02.2013 20:58
by Vizit0r
все, что могу сказать - в разделе форума "Помощь по скриптам" вверху есть несколько топиков для начинающих.
Это если есть желание научиться.
Если нет - увы.
Re: Сбор реагента
Posted: 13.02.2013 21:23
by 45vvv
я предполагал, что так и будет.
топ создал чтобы себя потом мыслями не терзать об упущенной выгоде по сбору, ибо руками собирать возможность бывает реже. Ну, при условии, если кто-то помог бы.
так что все нормально. Спасибо.
Re: Сбор реагента
Posted: 13.02.2013 22:08
by admir
набери в поиске "сбор реагента"
я уверен найдешь что-то.
А дальше уже если в чем не разберешься то пиши.
С нуля тут писать для тебя банальный скрипт никто не будет.
Re: Сбор реагента
Posted: 14.02.2013 11:33
by shinma
за синтаксисом не слежу пишу с коленки.
Code: Select all
Program blablabla;
const
reagent=$AAAA;
begin
while not dead do
begin
checklag(60000);
FindType(reagent,ground);
if FindQuantity>0 then
UseObject(FindItem )
else
if (not Hidden) then
begin
UseSkill('Hiding');
wait(5000);
end;
end;
end;
Re: Сбор реагента
Posted: 15.02.2013 19:33
by 45vvv
о, как! спасибо.
сейчас буду пробовать
Re: Сбор реагента
Posted: 15.02.2013 21:40
by 45vvv
работает:)) спасибо.
а в чем может быть причина длительного отключения скрипта?
т.е. нажимаю стоп и скрипт отключается секунд через 10 после нажатия кнопки? (подвисает программа как будто бы)
Re: Сбор реагента
Posted: 15.02.2013 22:21
by Vizit0r
думаю, что где-то тут - checklag(60000);
Re: Сбор реагента
Posted: 16.02.2013 7:03
by 45vvv
отредактированный скрипт удалил, что-то он постоянно пытался сорвать не созревший реагент.
кручу-верчу
Re: Сбор реагента
Posted: 16.02.2013 8:59
by Vizit0r
в условии про какое-то созревание небыло ни слова.
и нечего крутить, надо посмотреть чем созревший отличается от неспелого, и поставить одну проверку на это. все.
Re: Сбор реагента
Posted: 16.02.2013 9:03
by 45vvv
перепробовал кучу вариантов и вот что вышло:
Code: Select all
Program SborReg;
const
reagent=$1A92; //rostok
reagent2=$1A93; //reagent
FlCon=$4055F97E; //sumka dla reagenta
begin
while not dead do
begin
If Not Hidden then
begin
UseSkill('Hiding');
Wait(5000);
end;
If FindType(reagent,ground)>0 then
UseObject(FindItem );
If FindType(reagent2,backpack)>0 then
begin
MoveItem(finditem,0,FlCon,0,0,0);
Wait(1000);
AddToSystemJournal('Собрали и переложили!');
Wait(6000); // no Dos
end;
end;
end.
сориентируйте, что не так может быть?
Re: Сбор реагента
Posted: 16.02.2013 9:06
by 45vvv
Vizit0r wrote:в условии про какое-то созревание небыло ни слова.
и нечего крутить, надо посмотреть чем созревший отличается от неспелого, и поставить одну проверку на это. все.
а он там есть или его нет, скрипт вроде пашет (выложил выше)
