Привет еще раз. Пишу игру Охотник на мышек=) Столкнулся с проблемой: как выполнять две процедуры одновременно? Ответ: никак =) Есть процедура, которая генерит вывод мышей на экран. Еще есть процедура, которая рисует охотника в центре экрана, которым нужно управлять. Но как управлять охотником, если уже выполняется процедура вывода мышей на экран? ReadKey не помогает, он останавливает программу в ожидании нажатия клавиши. Второй вопрос, но тоже по теме. Чтобы убить мышку, нужно направить ружьё охотника на неё и нажать клавишу "Пробел". Как это можно реализовать в моём коде?
"(Показать/Скрыть)
Uses Graph,Crt; Const m=24; n=28; Left = #75; Right = #77; Type MouseData=Record Data: Array[1..m,1..n] Of Integer; x,y: Integer; Visible: Boolean; End; Var Mouse: ^MouseData; Mas: Array[1..15] Of ^MouseData; GD,GM: Integer; x0, y0, x1, y1, r : Integer; c : Char; t : Real; Procedure ReadMouseData(Path: String); Var FT: File Of MouseData; Begin Assign(FT,Path); ReSet(FT); New(Mouse); Read(FT,Mouse^); Close(FT); End; Function RandCoord(Coord: Char): Integer; Var z,j: Integer; Flag: Boolean; Begin If Coord='x' Then Begin Repeat Flag:=True; z:=Random(620); For j:=1 To 15 Do If (ABS(z-Mas[j]^.x))<26 Then Begin Flag:=False; Break End; Until (z>13) AND (z<620) AND Flag AND ((z<309) Or (z>331)); End; If Coord='y' Then Begin Repeat Flag:=True; z:=Random(460); For j:=1 To 15 Do If (ABS(z-Mas[j]^.y))<20 Then Begin Flag:=False; Break End; Until (z>15) AND (z<460) AND Flag AND ((z<229) Or (z>251)); End; RandCoord:=z; End; Procedure DrawHunter(KC: Char);