Pohyb v menu

Kedže ako menu máme bitmabu budeme si sledovať kurzor a jeho umiestnenie na plátne a prípadné kliknutia na miestach kde je nápis High Score, Quit alebo úroveň hry.
Pri zdrojovom kóde možete nájsť aj vysvetlivky čo ktorý príkaz robí.
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (shift=[ssleft])then begin //kliknutie myšou //zistenie suradnic a ci hra bezi if (x>65) and(x<240)and(y>409)and(y<440)and (hra=false)and (sc=false) then begin uroven:=1;body:=5;//nastavenie urvone a bodov timer1.interval:=200;//rychlost pohybu hada novahra; end; if (x>340) and(x<490)and(y>409)and(y<440)and (hra=false)and (sc=false) then begin uroven:=2;//nastavenie urvone a bodov timer1.interval:=110; body:=8;//rychlost pohybu hada novahra; end; if (x>570) and(x<725)and(y>409)and(y<440) and (hra=false)and (sc=false) then begin uroven:=3;//nastavenie urvone a bodov timer1.interval:=80; body:=10;//rychlost pohybu hada novahra; end; //ukoncenie hry if (x>590) and(x<640)and(y>460)and(y<480)and (hra=false)and (sc=false) then close; //high score if (x>60) and(x<215)and(y>460)and(y<480)and (hra=false)and (sc=false) then begin i:=0;image1.Canvas.Draw(-1,-1,pozadie2);//nove pozadie //otvorenie suboru assignfile(highscore,'high score.txt');reset(highscore); //nastavenie fontu a farieb image1.canvas.Font.Height:=45;image1.Canvas.Font.Color:=rgb(23,54,93); image1.Canvas.Brush.Style:=bsClear; sc:=true; image1.canvas.TextOut(350,20,'TOP 10');//vypis textu for i:=1 to 10 do begin s:=''; readln(highscore,s);//nacitanie riadka image1.canvas.TextOut(20,40*i,copy(s,1,pos(' ',s)));//vypis riadka image1.canvas.TextOut(600,40*i,copy(s,pos(' ',s)+1,maxint)); end; closefile(highscore); image1.Canvas.TextOut(20,440,'MENU'); image1.Canvas.TextOut(600,440,'QUIT'); end; if (x>20) and(x<150)and(y>440)and(y<480)and (hra=false) and(sc) then begin image1.canvas.Draw(-1,-1,pozadie);sc:=false; end; if (x>600) and(x<680)and(y>440)and(y<480)and (hra=false) and(sc) then close; end; end;

Ovládanie Hada

Na to aby sme mohli ovládať hada budeme využívať premennú smer.
Smer 1 = Otočenie doľava
Smer 2 = Otočenie hore
Smer 3 = Otočenie doprava
Smer 4 = Otočenie dole
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case key of //pauza hry vk_space:begin //uspime alebo spustime casovac if (space) then begin timer1.enabled:=true; space:=false; end else if (space=false) then begin space:=true; timer1.enabled:=false;end; end; //odbocenie dolava had musi ist hore alebo dole vk_left:if (smer=2) or (smer=4) then smer:=1; //otovenie doprava a nastavenie smeru vk_right: if (smer=2) or (smer=4) then smer:=3; vk_up:if (smer=1) or (smer=3) then smer:=2; vk_down:if (smer=1) or (smer=3) then smer:=4; end; end;

Pohyb Hada a vykresľovanie prostredia

V nasledujúcej funkci prebehia celá hra háďa. Môžete tam nájsť výpis dĺžky hada počet bodov..prípadne či had narazil do steny alebo do seba, vykreslovanie hernej plochy a potravy pre hada.
Kód vložte do hlavičky funkcie ktorú sme si vytvorili v minulom diely.
procedure TForm1.Timer1Timer(Sender: TObject); begin image1.Canvas.Draw(-1,-1,hrap);//kreslenie obrazku form1.Image1.Canvas.pen.Width:=4;//sirka pera image1.Canvas.Pen.color:=clblack;//farba image1.Canvas.Brush.Color:=rgb(29,142,235);//vypln farba image1.Canvas.Rectangle(50,50,750,450); image1.Canvas.Brush.Color:=rgb(40,40,40); while (jedlo=false) do begin //nahodne suradnice pre jablko apx:=random(34);apy:=random(19);a:=0; for i:=1 to dlzka do if (apx*20+60=hadx[i]) and (apy*20+60=hady[i]) then inc(a); if a=0 then begin inc(koryst); jedlo:=true; end; end; //ak had zjedol uz 4. jablko dostane hviezku za viac bodov if ((koryst) mod 5 =0) then begin Image1.canvas.Draw(apx*20+60,apy*20+60,hviezda) ; hvizda:=true; end //vykreslenie jablka else Image1.canvas.Draw(apx*20+60,apy*20+60,apple); //velkost pisma Image1.Canvas.Font.Height:=15; image1.canvas.Font.Color:=cllime; //ak narazil na hviezdu dostane viac bodov podla jeho casu if hvizda=true then begin dec(cas,timer1.Interval); image1.canvas.TextOut(570,481,'Rychlo uz len '+inttostr(cas div 1000)+ ' sekund' ); end; //ak nestihol chytit hviezdu dostane zase jablko if (cas<timer1.Interval) and (hvizda) then begin jedlo:=false; inc(koryst); hvizda:=false;cas:=10000; end ; //vypis score a dlzka hada image1.canvas.TextOut(570,450,'Tvoje score je '+inttostr(score)); image1.canvas.TextOut(570,465,'Dlzka '+inttostr(dlzka)); case uroven of 1:image1.canvas.TextOut(630,465,'Uroven UZOVKA '); 2:image1.canvas.TextOut(630,465,'Uroven KOBRA'); 3:image1.canvas.TextOut(630,465,'Uroven PYTON');end; if (kontrola) then begin timer1.enabled:=false; gameover; end; case smer of 1:begin telo;had; end; 2:begin telo;had; end; 3:begin telo;had; end; 4:begin telo;had; end; end; //ak narazil gameover if (hadx[1]<60) or (hadx[1]>720) or (hady[1]<60) or (hady[1]>420) then begin timer1.enabled:=false; gameover; end; if ((hadx[1]=apx*20+60)and(hady[1]=apy*20+60)) then begin if hvizda then begin hvizda:=false; inc(score,cas div 100); cas:=10000;jedlo:=false; inc(dlzka); end else begin inc(dlzka);inc(score,body); jedlo:=false; end; end; end;

Vloženie hlavných funkcií

Na začiatok kódu do časti uses vložte tieto graficke knižnice LCLIntf, LCLType;
Medzi Implementation a FormCreate vložíme nasledujúce funckie.
//kontrola nárazu hada do seba function kontrola:boolean; var a:integer; begin result:=false;a:=0; case smer of 1: begin for i:=2 to dlzka do if (hadx[1]-20=hadx[i]) and (hady[1]=hady[i]) then inc(a); end; 2:begin for i:=2 to dlzka do if (hadx[1]=hadx[i]) and (hady[1]-20=hady[i]) then inc(a); end; 3:begin for i:=2 to dlzka do if (hadx[1]+20=hadx[i]) and (hady[1]=hady[i]) then inc(a); end; 4:begin for i:=2 to dlzka do if (hadx[1]=hadx[i])and (hady[1]+20=hady[i]) then inc(a); end; end; if a>0 then result:=true; end; procedure start; begin i:=0;form1.Image1.Canvas.Font.name:='arial'; form1.Image1.Canvas.Font.Height:=230;form1.Image1.Canvas.Font.color:=clblack; form1.image1.Canvas.Brush.Color:=RGB(29,142,235); //odstartovanie hry 3 2 1 go if i=0 then begin form1.Image1.Canvas.textout(300,60,'3'); inc(i);application.ProcessMessages;sleep(1000); form1.image1.Canvas.Draw(-1,-1,hrap); form1.image1.Canvas.Rectangle(50,50,750,450); end; if i=1 then begin form1.Image1.Canvas.textout(300,60,'2'); inc(i);application.ProcessMessages;sleep(1000); form1.image1.Canvas.Draw(-1,-1,hrap); form1.image1.Canvas.Rectangle(50,50,750,450); end; if i=2 then begin form1.Image1.Canvas.textout(300,60,'1'); inc(i);application.ProcessMessages;sleep(1000); form1.image1.Canvas.Draw(-1,-1,hrap); form1.image1.Canvas.Rectangle(50,50,750,450); end; if i=3 then begin form1.Image1.Canvas.textout(100,60,'GO!'); inc(i);application.ProcessMessages;sleep(1000); form1.image1.Canvas.Draw(-1,-1,hrap); form1.image1.Canvas.Rectangle(50,50,750,450); end; end; procedure telo; //nastavovanie suradnic hada var x,y,a,b:integer; begin a:=hadx[1];b:=hady[1]; case smer of 1:dec(hadx[1],20); 2:dec(hady[1],20); 3:inc(hadx[1],20); 4:inc(hady[1],20); end; for i:= 2 to dlzka do begin x:=hadx[i];y:=hady[i]; hadx[i]:=a;hady[i]:=b; a:=x;b:=y; end; end; procedure had; begin //vykreslovanie hada if hra then begin form1.image1.Canvas.pen.Color:=rgb(29,142,235); form1.Image1.Canvas.Brush.Color:=clblack; form1.Image1.Canvas.pen.Width:=0; for i:=1 to dlzka do form1.Image1.canvas.Rectangle(hadx[i],hady[i],hadx[i]+20,hady[i]+20); end; end; procedure novahra; begin //inicializacia hadx[1]:=620;hady[1]:=300; hadx[2]:=640;hady[2]:=300;hadx[3]:=660;hady[3]:=300; form1.image1.Canvas.Draw(-1,-1,hrap);form1.Image1.Canvas.pen.Width:=4; form1.image1.Canvas.Pen.color:=clblack; form1.image1.Canvas.Brush.Color:=rgb(29,142,235); form1.image1.Canvas.Rectangle(50,50,750,450); start; score:=0;dlzka:=3; smer:=1; space:=false; cas:=10000; koryst:=0; hvizda:=false;jedlo:=false; form1.timer1.Enabled:=true; hra:=true; end; procedure gameover; begin showmessage('GAME OVER!') ; assignfile(highscore,'High_Score.txt'); reset(highscore); pocet:=0; while not eof(highscore) do begin inc(pocet);s:=''; readln(highscore,s); meno[pocet]:=(copy(s,3,pos(' ',s)-3)); hodnoty[pocet]:=strtoint(copy(s,pos(' ',s)+1,maxint)); end; meno[pocet+1]:=InputBox('Zadaj svoje meno','meno hraca','HRAC'); hodnoty[pocet+1]:=score; for j:= pocet downto 1 do for i:= 1 to j do if hodnoty[i]<hodnoty[i+1] then begin pom:=hodnoty[i+1]; hodnoty[i+1]:=hodnoty[i]; hodnoty[i]:=pom; m:=meno[i+1]; meno[i+1]:=meno[i]; meno[i]:=m; end; rewrite(highscore); for i:= 1 to pocet+1 do writeln(highscore,inttostr(i)+'.'+meno[i]+' '+inttostr(hodnoty[i])); closefile(highscore);hra:=false; form1.image1.canvas.Draw(-1,-1,pozadie); end;

Záver

Snáď sa vám hra páči nabudúce si ukážeme ako na piškvorky.
Na záver už len pár screenov z hry a sĺúbený funkčný projekt.snake.tar.gz