Лабиринт. Заставить 2 части приложения работать одновременно.

04.11.2010, 09:10. **Показов** 2094. **Ответов** 1

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
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.

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

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

04.11.2010, 10:59

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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)

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .