Как заставить работать одновремнно два действия

[TCH]

Привет. от нечего делать начал писать что-то типа лабиринта (игру, или типа того).
есть две части: первая отвечает за передвижения врага через промежуток времени, а вторая за передвижения игрока.
как сделать так, чтобы эти две части работали одновременно и не зависели друг от друга?
вот исходник

uses crt;
const t:array[0..11,0..11]of byte = ((1,1,1,1,1,1,1,1,1,1,1,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),     {это лабиринт, 1-стенка}
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,0,0,0,0,0,0,0,0,0,0,1),
                                     (1,1,1,1,1,1,1,1,1,1,1,1));
 
 
var
x,y,i,j,k,x1,y1,xe,ye,e:integer;
a,move:char;
b,c:boolean;
 
procedure reprint(x,y:integer);  {процедура вывода текущего состояния}
var q,w:integer;                     {(лабиринта, врага и игрока) на экран}
begin
clrscr;
for w:= 0 to 11 do
 begin
  for q:= 0 to 11 do
   begin
    if t[q,w]=1 then write(chr(177))         {стена}
     else
      if (q=xe)and(w=ye)then write('9')       {враг}
       else
        if (q=x)and(w=y) then write(chr(4))  {игрок}
         else
          if (q=x1)and(w=y1) then write(chr(79)) {выход из лабиринта}
           else
            if t[q,w]=0 then write(' ')  {пустая клетка}
   end;
   writeln;
 end;
end;
 
procedure proofend;  {проверка окончания игры(выигрыш)}
begin
if (x=x1) and (y=y1) then b:=true;
end;
 
function proofe:boolean; {проверка столкновения с врагом}
begin
if (x=xe) and (y=ye) then proofe:=true
 else proofe:=false;
end;
 
procedure movee; {передвижени врага, пока примитивно, но лишь бы работало}
begin
 case e of
  1 : dec(xe);
  2 : inc(ye);
  3 : inc(xe);
  0 : dec(ye);
 end;
 inc(e);
 e:=e mod 4;
end;
 
procedure ending; {конец игры, если наткнулись на врага.}
begin
writeln('You lose!!!');
readln;
exit;
end;
 
begin
clrscr;
x:=1;   {начальные координаты игрока}
y:=1;
xe:=8;  {начальные координаты врага}
ye:=8;
e:=1; {условие, по которому двигается враг(см процедуру)}
b:=false; {проверка выигрыша}
proofe;
read(x1,y1); {Координаты выхода из лабиринта}
reprint(x,y);
 
 repeat                   {это собсна, первая часть, отвечающая}
  delay(40000);        {за перемещения врага}
  movee;
  if proofe then
   begin
    writeln('You lose!!!');
    readln;
    exit;
   end;
  reprint(x,y);
 until keypressed;
 
repeat                   {это вторая часть}
 move:=readkey;
  case move of
  #72 : dec(y);
  #80 : inc(y);
  #75 : dec(x);
  #77 : inc(x);
 end;
 if x<1 then x:=1;
 if y<1 then y:=1;
 if x>10 then x:=10;
 if y>10 then y:=10;
 reprint(x,y);
 proofend;
 if proofe then ending;
until b=true;     
 
writeln('You win!!!');
readln;
end.

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

как заставить работать их вместе? подскажите, пожалуйста!

[TCH]

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

repeat
repeat                   {это собсна, первая часть, отвечающая}
  delay(40000);        {за перемещения врага}
  movee;
  if proofe then
   begin
    writeln('You lose!!!');
    readln;
    exit;
   end;
  reprint(x,y);
 until keypressed;
 
repeat                   {это вторая часть}
 move:=readkey;
  case move of
  #72 : dec(y);
  #80 : inc(y);
  #75 : dec(x);
  #77 : inc(x);
 end;
 if x<1 then x:=1;
 if y<1 then y:=1;
 if x>10 then x:=10;
 if y>10 then y:=10;
 reprint(x,y);
 proofend;
 if proofe then ending;
until x=x;
until b=true

игрок может двигаться не чаще, чем delay(40000)

[_-Re@l-_]

Установить Delphi и использовать многопоточность.В паскале, насколько мне известно, никак.

[TCH]

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

а в делфи как реализовать многопоточность?

[_-Re@l-_]

а в делфи как реализовать многопоточность?

Потоками(threat).

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

Я тоже видел - и сам делал, но ...многопоточности там нет. Там всё по порядку.

[TCH]

спасибо! посмотрю, что можно сделать)

[ROD]

как вариант - на каждом шаге проверяете факт нажатия клавиатуры (если нажата - клавиша - то вигаетесь, елси нажата нужная клавиша, если не нажата, то ничего не делаете), после чего уже просчитывается ход врага