="justify"> (east * 20, south * 20, east * 20 + 20, south * 20 + 20) ;; 1://колір змії-gt;Canvas-gt;Pen-gt;Color=clGreen;-gt;Canvas-gt;Brush-gt;Color=clGreen;-gt;Canvas-gt;Rectangle
(east * 20, south * 20, east * 20 + 20, south * 20 + 20) ;; 2://колір їжі-gt;Canvas-gt;Pen-gt;Color=clRed;-gt;Canvas-gt;Brush-gt;Color=clRed;-gt;Canvas-gt;Ellipse
(east * 20, south * 20, east * 20 + 20, south * 20 + 20) ;; 3://колір отрави-gt;Canvas-gt;Pen-gt;Color=clGray;-gt;Canvas-gt;Brush-gt;Color=clGray;-gt;Canvas-gt;Rectangle
(east * 20, south * 20, east * 20 + 20, south * 20 + 20) ;;
}
}
}
} clearAll (void) {// очищення поля (east=0; east lt; maxSize; east ++) {(south=0; south lt; maxSize; south ++) {[east] [south]=false ;
}
} (int i=0; i lt; 650; i ++) {[i]=- 1; [i]=- 1;
} ();
} gameOver (void) {// Кінець гри - gt; Timer1- gt; Enabled=false; - gt; MediaPlayer1- gt; Stop (); - gt; Button1- gt; Caption= Нова гра raquo ;; ( F: Labs My Game go. wav raquo ;, NULL, SND_ASYNC); ( Гра закінчена. Розмір змії: + IntToStr (snakeLength));=0;
} makeRandomFood (void) {// розстановка їжі (int i=0; i lt; 20 + w; i ++) {[random (25)] [random (25)]=2;
}
} makeRandomPoison (void) {// розстановка стін (int i=0; i lt; 20; i ++) {[random (25)] [random (25)]=3;
}
} Exit (void) {// Вихід Із програми gt; Terminate ();
} Win (void) {// Віграш- gt; Timer1- gt; Enabled=false; - gt; MediaPlayer1- gt; Stop (); - gt; Button1- gt; Caption= Новий рівень raquo ;; ( F: Labs My Game win. wav raquo ;, NULL, SND_ASYNC); ( Поздравляем !!! Ви пройшли + IntToStr (w) + рівень! Натисніть новий рівень, щоб перейти на новий рівень. );
} makeRandomSnake (void) {// установка змійкі ();
//розпочато з направлення вгору чі вниз=1; flip=random (2); (flip) {0:=0 ;; 1:=2 ;;
}
//розпочато з віпадкової позіції голови=1 + random (15);=1 + random (23);
//встановлення розміру змійкі=3;
//розташуваті змійку горизонтально (int span=0; span lt; snakeLength; span ++) {[snakeHeadE + span] [snakeHeadS]=true; [span]=snakeHeadE + span; [span]= snakeHeadS;
}=snakeHeadE + snakeLength - 1;=snakeHeadS; - gt; Timer1- gt; Enabled=true;
} step (void) {
//куди буде переміщатіся змійка (direction) {0://вгору -; (snakeHeadS lt; 0) snakeHeadS=24 ;; 1://вправо ++; (snakeHeadE gt; 24) snakeHeadE=0 ;; 2://вниз ++; (snakeHeadS gt; 24) snakeHeadS=0 ;; 3://вліво -; (snakeHeadE lt; 0) snakeHeadE=24 ;;
}
//если з'їсти отрута або собі, то гра закінчується (world [snakeHeadE] [snakeHeadS] == 3) gameOver (); (world [snakeHeadE] [snakeHeadS] == 1) gameOver ();
//если з'їсти їжу, змійка збільшується (world [snakeHeadE] [snakeHeadS] == 2) ateFood=true; [snakeHeadE] [snakeHeadS]=true;
//размещения шкірного сегменту змійкі. (segment=snakeLength + 1; segment gt; 0; segment - -) {[segment]=snakeE [segment - 1]; [segment]=snakeS [segment- 1];
}
//. и ее голови [segment]=snakeHeadE; [segment]=snakeHeadS;
//ВИДАЛИТИ Последний сегмент змії, если їжа НЕ булу з їдена (! ateFood) {// Якщо не з їсти їжу=snakeE [snakeLength];=snakeS [snakeLength];
} (ateFood) {// если з'їсти їжу ++;// Розмір збільшіться=false;// Їжа знікне з поля ( F: Labs My Game eat. Wav raquo ;, NULL, SND_ASYNC);
}=direction;// Переміщення змійкі [snakeTailE] [snakeTailS]=false; ();
//рахування Набрань очків, окуляри відповідають розміру змійкі, тобто початкова Кількість очків - 3- gt; EditLength- gt; Text=snakeLength; (snakeLength gt; 21 + w) {w=w + 1; Win (); }
} __ fastcall TForm1 :: Button1Click (TObject * Sender)
{( F: Labs My Game start. wav raquo ;, NULL, SND_ASYNC); (); - gt; Timer1- gt; Enabled=true; (); (); (); (); (); gt; SetFocus ();
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button2Click (TObject * Sender)
{();
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N3Click (TObject * Sender)
