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.