Сбор реагента

[45vvv]

Господа, подсобите незнающему.

нужен скрипт на сбор определенного реагента в хайде и перекладыванием в после сбора в сумку на земле.

дано:
В различное время на пеньке появляется реагент, который собирается двойным кликом(падает в бекпак)

решение:
чар стоит в хайде, как только появляется реагент, он двойным кликом собирает и после перекладывает в сумку на земле.

спасибо.

[45vvv]

[Vizit0r]

а что за проблема-то?
двойной клик - UseObject
переложить - MoveItem

поиск - FindType

хайд - UseSkill('Hiding')

по кругу ищешь, не нашел - пауза, нашел - юз+перенос, и дальше ждать

[45vvv]

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

[Vizit0r]

все, что могу сказать - в разделе форума "Помощь по скриптам" вверху есть несколько топиков для начинающих.
Это если есть желание научиться.

Если нет - увы.

[45vvv]

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

так что все нормально. Спасибо.

[admir]

набери в поиске "сбор реагента"
я уверен найдешь что-то.
А дальше уже если в чем не разберешься то пиши.
С нуля тут писать для тебя банальный скрипт никто не будет.

[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;

так красивее. синтаксис не проверял (c) Vizit0r

[45vvv]

о, как! спасибо.

сейчас буду пробовать

[45vvv]

работает:)) спасибо.

а в чем может быть причина длительного отключения скрипта?
т.е. нажимаю стоп и скрипт отключается секунд через 10 после нажатия кнопки? (подвисает программа как будто бы)

[Vizit0r]

думаю, что где-то тут - checklag(60000);

[45vvv]

отредактированный скрипт удалил, что-то он постоянно пытался сорвать не созревший реагент.


кручу-верчу

[Vizit0r]

в условии про какое-то созревание небыло ни слова.
и нечего крутить, надо посмотреть чем созревший отличается от неспелого, и поставить одну проверку на это. все.

[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.

сориентируйте, что не так может быть?

[45vvv]

в условии про какое-то созревание небыло ни слова.
и нечего крутить, надо посмотреть чем созревший отличается от неспелого, и поставить одну проверку на это. все.

а он там есть или его нет, скрипт вроде пашет (выложил выше)