Stealth Client Forum

iluha wrote:Program heal
begin
if (HP < MaxHP) then
uosay('.bandageself');
wait(4000);
End;
if (HP < 50) then // смысл этого в том, что бы пить поушен если нанесяно больше 50 повреждений
uosay('.drink greaterhealpotion');
wait(25000);
End;
if (HP < 60) then // смысл этого в том, что бы пить поушен если нанесяно больше 60 повреждений
uosay(',usetype 123123');
wait(20000);
End.

На практике полечается что, если чар получил дамаг, он хилится бинтами, и пьет поушен только при HP < 50.

Смысл в том что бы скрипт был постоянно в работе проверяя состояние чара, если снизились Хп, чарт лечился бинтами, а если получал 50 дамага и более пил поушен и юзал необходимый итем.
Все это в постоянном цикле.
На практике он не работает, что тут не так?

Program heal
begin
  while true do
  begin
    if (HP < MaxHP) then 
    begin
      uosay('.bandageself');     
      wait(4000);  
    End;

    if (HP < 50) then  // смысл этого в том, что бы пить поушен если нанесяно больше 50 повреждений
    begin
      uosay('.drink greaterhealpotion');         
      wait(25000); 
    End;

    if (HP < 60) then // смысл этого в том, что бы пить поушен если нанесяно больше 60 повреждений
    begin
      uosay(',usetype 123123');         
      wait(20000); 
    End;

  End;
End.

drabadan wrote:тело скрипта не взято в тег скрипт.

И реализовывать это или через свой обработчик или с помощью евентов.

iluha wrote:Macks , спасибо за помошь
Я так понял в этом скрипте будет использоваться если здоровье уподет ниже 50 Хп.

if (HP < 50) then // смысл этого в том, что бы пить поушен если нанесяно больше 50 повреждений
begin
uosay('.drink greaterhealpotion');
wait(25000);
End;
Как то можно сделать, что бы данное действие начиналось при потере этого кол-ва здоровья.
Вот пример, Чар с 250 Хп, в существующем скрипте при Хп ниже 50 будет использоваться вышеуказанное условие.
А как сделать условие, что бы при снижении на 50 Хп не зависимо от общего Объема жизни начиналось лечение?

iluha wrote:

drabadan wrote:тело скрипта не взято в тег скрипт.

И реализовывать это или через свой обработчик или с помощью евентов.

Извини, вообще ничего не понял:)

[ code ] Моноширинный текст или web код[ / code ]

iluha wrote:Я так понимаю что цикл этого скрипта будет не прирывный, но если будет чар убит, эти условия будут выполняться?
если сделать вот так "while Dead = false do"
скрипт будет игнорить хил? а то получается будет грузить клиент в состоянии Гост

while Not Dead do
begin
end;

iluha wrote:и паралельный вопрос, в процессе лечения .bandageself стоит задержка 4 сек. получается что в пределах 4 секунд если чар не отхилится будет накладываться новый бинт, но чар уже лечится бинтом.
Можно ли как то дополнить следующим условием if (InJournalBetweenTimes('You finish applying the bandages|You apply the bandages, but they barely help', ctimeq, Now)>= 0) then

Macks wrote:

iluha wrote:

drabadan wrote:тело скрипта не взято в тег скрипт.

И реализовывать это или через свой обработчик или с помощью евентов.

Извини, вообще ничего не понял:)

https://ru.wikipedia.org/wiki/BbCode

Code: Select all

[ code ] Моноширинный текст или web код[ / code ]

Макс ты мой кумир
Спасибо

iluha wrote:

Code: Select all

Макс ты мой кумир
Спасибо

Macks wrote:

iluha wrote:

Code: Select all

Макс ты мой кумир
Спасибо

Развитие цивилизации возможно только при обмене опытом и передаче его новым поколениям.

 
Program search;
const
FindDistance:=5

type
a=$1542
b=$1256
c=$1436

begin
if WaitTargetGround (a,b,c) then useobject ('eggs');
Wait (500);

iluha wrote:Максим подскажи следующее:

У меня есть 2а типа вещей, которые мне нужно искать в радиусе 5 тайлов, как только будет найден один из двух типов на него должен будет установиться таргет и выполниться условие (использовать на него предмет "яйцо" с задержкой в 500 мс, до тех пор пока в него не попадет "вы попали яйцом (надпись из журнала)" и скрипт останавливатся)
если предмет из радиуса поражения (5 тайлов) вышел, то поиск начинается с начала.

Code: Select all

 
Program search;
const
FindDistance:=5

type
a=$1542
b=$1256
c=$1436

begin
if WaitTargetGround (a,b,c) then useobject ('eggs');
Wait (500);

начало правильное или бредятина?

 
Program search;

const
MyFindDistance = 5
ItemType1 = $1542
ItemType2 = $1256
EggsType = $1436

begin
  FindDistance := MyFindDistance;
  while Not Dead do
  begin
    if FindType(ItemType1, Ground) > 0 or FindType(ItemType2, Ground) > 0 then
    begin
      while ((IsObjectExists(FindItem)) and (Dist(GetX(FindItem), GetY(FindItem), GetX(Self), GetY(Self)) <= MyFindDistance))  do
      begin
        if TargetPresent then CancelTarget;
        WaitTargetObject(FindItem);
        UseType(EggsType, $ffff);
        Wait (500);
      end;
    end;
    Wait (500);
  end;
end.