Оптимизация алгоритма, Помогите устранить тормоза в игре! Опции

[pashist]

Привет еще раз. Пишу игру Охотник на мышек=) Столкнулся с проблемой: как выполнять две процедуры одновременно? Ответ: никак =) Есть процедура, которая генерит вывод мышей на экран. Еще есть процедура, которая рисует охотника в центре экрана, которым нужно управлять. Но как управлять охотником, если уже выполняется процедура вывода мышей на экран? 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);

Begin
     Case KC Of
      Left:  t := t - 0.1;
      Right: t := t + 0.1;
     End;
     If (t >= 2 * Pi) Or (t <= -2 * Pi) Then t := 0;
     SetColor(Black);
     Line(x0, y0, x1, y1);
     x1 := Round(r * cos(t)) + x0;
     y1 := Round(r * sin(t)) + y0;
     SetColor(White);
     Line(x0, y0, x1, y1);
     SetColor(Blue);
     SetFillStyle(1, Blue);
     PieSlice(320, 240, 0, 360, 10);
     SetColor(Green);
     SetFillStyle(1, Green);
     PieSlice(320, 240, 0, 360, 6);
End;
Procedure MouseVis(Var MTV: MouseData);
Var i,j,x,y,xT,yT: Integer;
Begin
     {–Ґ­ва®ўЄ  ¬лиЁ}
     x:=MTV.x-12;
     y:=MTV.y-14;
     xT:=x;
     yT:=y;
     For i:=1 To m Do
         Begin
              For j:=1 To n Do
                  Begin
                       If MTV.Visible Then
                          {If MTV.Data[i,j]>0 Then} PutPixel(xT,yT,0)
                       Else
                           If MTV.Data[i,j]>0 Then
                              PutPixel(xT,yT,MTV.Data[i,j]);
                       xT:=xT+1;
                  End;
              yT:=yT+1;
              xT:=x;
         End;
        MTV.Visible:=Not MTV.Visible;
        If Not MTV.Visible Then
           Begin
             MTV.x:=RandCoord('x');
             MTV.y:=RandCoord('y');
           End;
End;
Procedure Animation(D: LongInt);
Var i,j :Integer; Flag: Boolean;
Begin
     For i:=1 To 15 Do
         Begin
              New(Mas[i]);
              Mas[i]^:=Mouse^;
              Mas[i]^.x:=RandCoord('x');
              Mas[i]^.y:=RandCoord('y');
         End;
     Repeat
           Repeat
                 i:=Random(15);
           Until i>0;
           c:=ReadKey;
           If (c=Left) Or (c=Right) Then DrawHunter©;
           MouseVis(Mas[i]^);
           Delay(D);
     Until c=#27;
End;
Begin
     x0 := 320;
     y0 := 240;
     r  := 20;
     x1 := r + x0;
     y1 := y0;
     t  := 0;
     GD:=Detect;
     InitGraph(GD,GM,'');
     Randomize;
     ReadMouseData('Mouse.Dat');
     Animation(65535);
End.

[pashist]

Поменяй в этом цикле

     For i:=1 To n Do
       Begin
         For j:=1 To m Do
             Begin
                  Read(T,Str);
                  Val(Str,vStr,Err);
                  Mouse[i,j]:=vStr;
                  Write(vStr);
             End;
             ReadLn(T);
             WriteLn
       End;

m и n местами-и ничего не произойдет-изображение все равно придется переворачивать. Я так и не разобрался, почему. Тормозов больше в игре нет, я же писал.

Сообщение отредактировано: volvo - 2.11.2006 13:46