Poďme na to!

Na začiatok si vytvoríme prazdny projekt:



V ďalšom kroku si do projektu vložíme TTimer, TImage a vytvoríme hlavičky funkcií ktoré budeme používať.
Hlavičky funkcií vytvoríme dvojkliknutím na daný objekt teda dvojklikneme na Timer, Formulár.
V inšpektorovi objektov klikneme na Form->Udalosti a dvojklikneme na možnosť FormKeyDown týmto krokom sme vytovrili ďalšiu hlavičku.
A posednú hlavičku vytvoríme tak že v inšpektorovi objektov klikneme na Image->Udalosti a dvojklikneme na možnosť Image1MouseDown
Po týchto úpravách by mal náš projekt vyzerať následovne:



V zdrojovom kóde skontrolujte či halvičky sedia s obrázkom nižšie.

Globálne premenné

Do zdrojového kódu pridáme globálne premenné medzi var a implementation
hodnoty:array[1..100] of integer; meno:array [1..100] of string; highscore:Textfile; hrap,pozadie,apple,hviezda,pozadie2:Tbitmap; score,i,x,y,dlzka,smer,apx,apy,cas,koryst,uroven,body,a,pocet,pom,j:integer; hadX:array[1..1000] of integer ; hadY:array[1..1000] of integer ; jedlo,hvizda,space,hra,sc:boolean; s,m:string;

Herné obrázky

Na vytvorenie prostredia hry použijeme klasické bitmapy.
Budeme potrebovať Menu, pozadie hry, pozadie pre High Score, 2xjedlo pre hada.
Obrázky si možete vytvoriť sami prípadne použite moje zobrazené nižšie.

Inicializácia obrázkov

Do funkcie FormCreate vložíme nasledujúci kód.
Pri niektorých riadkoch možete nájsť vysvetlivky čo dané príkazy znamenajú.
procedure TForm1.FormCreate(Sender: TObject); begin randomize; //inicializacia nahodnych cisel hra:=false; //hra nebezi sc:=false; apple:=tbitmap.create;apple.loadfromfile('apple.bmp'); //inicializacia obrazkov apple.TransparentColor:=clgreen;apple.Transparent:=true; //nastavenie priesvitnosti hviezda:=tbitmap.create;hviezda.loadfromfile('hviezda.bmp'); hviezda.TransparentColor:=clred;hviezda.Transparent:=true; hrap:=tbitmap.Create;hrap.LoadFromFile('hrapozadie.bmp'); pozadie:=tbitmap.Create;pozadie.LoadFromFile('pozadie.bmp'); image1.canvas.Draw(-1,-1,pozadie); pozadie2:=tbitmap.Create;pozadie2.LoadFromFile('pozadie2.bmp'); end;

Nastavenie formulára

V inšpektorovy objektov kliknite na Form1: TForm1 a vykonajte nasledujúce úpravy.

Left = 144

Top = 184

Caption = 'HADA'

Height = 500

Width = 800

Color = clBtnFace

BorderStyle = bsNone

V inšpektorovy objektov kliknite na Image1: TImage a vykonajte nasledujúce úpravy.

Left = 0

Top = 0

Width = 800

Height = 500

V inšpektorovy objektov kliknite na Timer1: TTimer a vykonajte nasledujúce úpravy.

Enabled = False

Interval = 200

Left = 16

Top = 8

Záver

Ak sa pokúsite spustiť projekt mali by ste dostať naše úvodné menu ktoré sa zatial vypína kliknutím do zdrojového kódu a stlačením kláves Ctrl+F2 :-).V ďalšom diely si predstavíme funckie ktoré budú pracovať s Hadom ukážeme si ako zapisovať do súboru a zverejním vzorové riešenie.