ARCHIV

Lazarus-Snake(2)

V minulom diely sme skončili vo fáze "hotové herné prostredie"..teda dnes nám stačí vysvetliť si na akom princípe funguje hra a čo robia naše funkcie.
Tak ako som sľúbil na konci článku máte vypracovaný projekt ktorý možete obmieňať vylepšovať podľa seba prípadne si len schuti zahrať.

13.5.2010 00:00 | Sebastián Kunec | Články autora | přečteno 8178×

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

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

Verze pro tisk


DISKUZE Nejsou žádné diskuzní příspěvky u dané položky. Příspívat do diskuze mohou pouze registrovaní uživatelé.

Vyhledávání software

Vyhledávání článků

Rozšířené vyhledávání

Linux News

28.11.2018 23:56 /František Kučera
Prosincový sraz spolku OpenAlt se koná ve středu 5.12.2018 od 16:00 na adrese Zikova 1903/4, Praha 6. Tentokrát navštívíme organizaci CESNET. Na programu jsou dvě přednášky: Distribuované úložiště Ceph (Michal Strnad) a Plně šifrovaný disk na moderním systému (Ondřej Caletka). Následně se přesuneme do některé z nedalekých restaurací, kde budeme pokračovat v diskusi.
Komentářů: 1

12.11.2018 21:28 /Redakce Linuxsoft.cz
22. listopadu 2018 se koná v Praze na Karlově náměstí již pátý ročník konference s tématem Datová centra pro business, která nabídne odpovědi na aktuální a často řešené otázky: Jaké jsou aktuální trendy v oblasti datových center a jak je optimálně využít pro vlastní prospěch? Jak si zajistit odpovídající služby datových center? Podle jakých kritérií vybírat dodavatele služeb? Jak volit vhodné součásti infrastruktury při budování či rozšiřování vlastního datového centra? Jak efektivně datové centrum spravovat? Jak co nejlépe eliminovat možná rizika? apod. Příznivci LinuxSoftu mohou při registraci uplatnit kód LIN350, který jim přinese zvýhodněné vstupné s 50% slevou.
Přidat komentář

6.11.2018 2:04 /František Kučera
Říjnový pražský sraz spolku OpenAlt se koná v listopadu – již tento čtvrtek – 8. 11. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma umění a technologie, IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

4.10.2018 21:30 /Ondřej Čečák
LinuxDays 2018 již tento víkend, registrace je otevřená.
Přidat komentář

18.9.2018 23:30 /František Kučera
Zářijový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 20. 9. 2018 od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5). Tentokrát bez oficiální přednášky, ale zato s dobrým jídlem a pivem – volná diskuse na téma IoT, CNC, svobodný software, hardware a další hračky.
Přidat komentář

9.9.2018 14:15 /Redakce Linuxsoft.cz
20.9.2018 proběhne v pražském Kongresovém centru Vavruška konference Mobilní řešení pro business. Návštěvníci si vyslechnou mimo jiné přednášky na témata: Nejdůležitější aktuální trendy v oblasti mobilních technologií, správa a zabezpečení mobilních zařízení ve firmách, jak mobilně přistupovat k informačnímu systému firmy, kdy se vyplatí používat odolná mobilní zařízení nebo jak zabezpečit mobilní komunikaci.
Přidat komentář

12.8.2018 16:58 /František Kučera
Srpnový pražský sraz spolku OpenAlt se koná ve čtvrtek – 16. 8. 2018 od 19:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát jsou tématem srazu databáze prezentaci svého projektu si pro nás připravil Standa Dzik. Dále bude prostor, abychom probrali nápady na využití IoT a sítě The Things Network, případně další témata.
Přidat komentář

16.7.2018 1:05 /František Kučera
Červencový pražský sraz spolku OpenAlt se koná již tento čtvrtek – 19. 7. 2018 od 18:00 v Kavárně Ideál (Sázavská 30, Praha), kde máme rezervovaný salonek. Tentokrát bude přednáška na téma: automatizační nástroj Ansible, kterou si připravil Martin Vicián.
Přidat komentář

Více ... Přidat zprávičku

Poslední diskuze

31.7.2023 14:13 / Linda Graham
iPhone Services

30.11.2022 9:32 / Kyle McDermott
Hosting download unavailable

13.12.2018 10:57 / Jan Mareš
Re: zavináč

2.12.2018 23:56 / František Kučera
Sraz

5.10.2018 17:12 / Jakub Kuljovsky
Re: Jaký kurz a software by jste doporučili pro začínajcího kodéra?

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2024) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze