Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Помогите Зациклить Новичку

тут можно задать вопрос по скриптингу
Post Reply
m0nya
Neophyte
Neophyte
Posts: 37
Joined: 08.02.2008 11:15
Contact:

Помогите Зациклить Новичку

Post by m0nya »

Code: Select all

program gen;

{$Include 'all.inc'}


begin
Wait(1000);
UseSkill('Meditation');
Wait(1000);
hungry(1, ground);

if Dead then
begin
 SetWarMode(true);
end;



End.

Как сделать чтобы после смерти макрос не вырубался а начинал заного фунциклировать
Scripts Writer
Novice
Novice
Posts: 130
Joined: 06.05.2008 18:03

Post by Scripts Writer »

По поводу фунциклировать незнаю как, а зациклить можно проверкой на условие "мёртвости" персонажа. Смотри в других скриптах как это делается
scf
Neophyte
Neophyte
Posts: 20
Joined: 06.02.2008 11:56

Post by scf »

или:

Code: Select all

 while true do
 begin
 ....
  end;
m0nya
Neophyte
Neophyte
Posts: 37
Joined: 08.02.2008 11:15
Contact:

Post by m0nya »

Ребята, нечего не выходит, видимо я с синтаксисом чтото не так делаю ...

Цель скрипта когда живой замедетировать
когда мёртвый встать в вар.

Помогите пожалуйста реализовать ...

я вот все что мог сделал но он сволочь когда стоиш мертвый и врубаеш скрипт он становиться в вар ресаеться но не медетирует, а когда чара очередной рас убивают макрос выключаеться. :( help please
Scripts Writer
Novice
Novice
Posts: 130
Joined: 06.05.2008 18:03

Post by Scripts Writer »

Результат трудов своих покажи
-=JoKeR=-
Novice
Novice
Posts: 153
Joined: 10.02.2008 11:19
Location: [Forest Wars] Ode$$a

Post by -=JoKeR=- »

Code: Select all

program gen; 

{$Include 'all.inc'} 


Begin
while Connected do
  begin 
    If not Dead then
      begin 
        UseSkill('Meditation'); 
        Wait(1000); 
        hungry(1, ground); 
      end
    Else
      begin 
        SetWarMode(true); 
        wait(500);
      end; 
  end;
End.
Scripts Writer
Novice
Novice
Posts: 130
Joined: 06.05.2008 18:03

Post by Scripts Writer »

-=JoKeR=- wrote:

Code: Select all

program gen; 

{$Include 'all.inc'} 


Begin
while Connected do
  begin 
    If not Dead then
      begin 
        UseSkill('Meditation'); 
        Wait(1000); 
        hungry(1, ground); 
      end
    Else
      begin 
        SetWarMode(true); 
        wait(500);
      end; 
  end;
End.
Завтра он спросит ещё что-то примитивнее, а послезавтра ещё- не проще было бы немного помогать человеку в освоении, а не делать всё за него?
-=JoKeR=-
Novice
Novice
Posts: 153
Joined: 10.02.2008 11:19
Location: [Forest Wars] Ode$$a

Post by -=JoKeR=- »

Ну примитивней уже некуда.
Пусть на наглядном примере учится, мне было проще именно на наглядных примерах учиться имхо.
Scripts Writer
Novice
Novice
Posts: 130
Joined: 06.05.2008 18:03

Post by Scripts Writer »

Пока сам не сделаешь 10 ошибок, не научится. Тем более самому надо и скрипты большие разбирать, и видеть там всевозможные конструкции. А когда копи/паст- это без пользы
Post Reply