Top = 30; Image4-> Visible = true ; ((px/30 == 5) && (py/30 == 1)) fin = 1;
} (level == 5) {a [3] [2] = 'f'; -> Left = 60; Image4-> Top = 90; Image4-> Visible = true ; ((px/30 == 2) && (py/30 == 3)) fin = 1;
} ((l-> ochki> 0) && (fin == 1)) {(level == 5) {= 1; short (ExtractFilePath (Application-> ExeName) + В«ico 7.bmpВ»); -> Top = 0; -> Width = 511; -> Height = 326; -> Left = 0; -> Visible = true;
// res = MessageDlg (В«Congratulations! You are win! Start a New Game?В», mtInformation, TMsgDlgButtons () < Terminate ();} if (res == mrYes) p, Timer1, Timer5, Timer666, Image7, CheckBox1, Timer2, Timer4, Timer3, Image1, Label3h, Label4h, Label5h, a3, k, l);
}
} {-> Enabled = false; -> Enabled = false;
// if (lkl == 1) ShowMessage (В«Are you ready?В»); (lkl == 0) ShowMessage (В«Next levelВ»); -> Visible = false; level + +; -> Enabled = true; = true;
}
} -> Interval = 120;
}
// -
void EnemyA: MoveA (map * n, gg ob, TTimer * Timer2, TLabel * Label4)
{(n-> level == 1) {(int i = 0; i <10; i + +) (int j = 0; j <10; j + +) (n-> a [i] [j] == 3) {x1 = i; y1 = j;}
((y1 +1! = 6) && (x1 == 6)) {n-> a [x1] [y1] = 0; n-> a [x1 ] [y1 +1] = 3;}// вправоif ((x1-1! = 2) && (y1 == 5)) {n-> a [x1] [y1] = 0; n- > a [x1-1] [y1] = 3;}// вверхif (y1-1! = 0) {n-> a [x1] [y1] = 0; n-> a [x1] [ y1-1] = 3;}// влевоif ((x1 +1! = 7) && (y1 == 1)) {n-> a [x1] [y1] = 0; n-> a [x1 +1] [y1] = 3;}// вниз
// if ((ob.x/30 == y1) && (ob.y/30 == x1)) {Label4-> Visible = true; Timer2-> Enabled = true; n-> ochki-;}
}
(n-> level == 2) {
(int i = 0; i <10; i + +) (int j = 0; j <10; j + +)
{if (n-> a [i] [j] == 3) {x1 = i; y1 = j;} (n-> a [i] [j] == 7) {x3 = i; y3 = j;}
} ((n-> a [x1] [y1 +1]! = 1) && (x1 == 4)) {n-> a [x1] [y1 ] = 0; n-> a [x1] [y1 +1] = 3;}// вправоif ((n-> a [x1 +1] [y1]! = 1) && (y1 = = 5)) {n-> a [x1] [y1] = 0; n-> a [x1 +1] [y1] = 3;}// внізif (n-> a [x1] [y1 -1]! = 1) {n-> a [x1] [y1] = 0; n-> a [x1] [y1-1] = 3;}// влевоif ((n-> a [ x1-1] [y1]! = 1) && (y1 == 1)) {n-> a [x1] [y1] = 0; n-> a [x1-1] [y1] = 3;}// вгору ((n-> a [x3] [y3 +1]! = 1) && (aa == 0)) {n-> a [x3] [y3] = 0; n-> a [x3] [y3 +1] = 7;}// вправо (y3 == 8) aa = 1; ((n-> a [x3] [y3-1]! = 1 ) && (aa == 1)) {n-> a [x3] [y3] = 0; n-> a [x3] [y3-1] = 7;}// вліво (y3 = = 3) aa = 0;
}
(n->...
