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

Code: Select all
 while true do
 begin
 ....
  end;

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