Ano. I když se to někomu může zdát hodně divné, právě čtete článek o tvorbě her v DELPHI. Ano, i v Delphi jdou programovat hry. Jestli lepší, či horší než v ostatních jazycích nevim, ale rozhodně to není zas až tak složité.
Co k tomu tedy potřebujete ? Jak jistě každý asi uhodne, tak Delphi a ještě navíc komponenty DelphiX, pomocí kterých můžete programovat v DirectX (a samozřejmě musíte mít nainstalované DirectX). Kromě toho ještě kupu fantazie, trochu grafiky a hlavně hodně trpělivosti. Připraveni ? Tak začneme:

Ti, kteří si mysleli, že naprogramují Quake 5 nebo něco podobného musím hned na začátku zklamat. Pokud si ale přečtete a pochopíte všechny články o tvorbě her, měli byste být schopni sami naprogramovat hru podobnou hře ufo ( ufo.zip 0.5 Mb).
Na začátek bych napsal jednu radu, která se právě při tvorbě her hodí nejvíc - pokud děláte hru, a uděláte v ní výraznou změnu, hned ji uložte do nového adresáře ( např. hra v. 1.5 ). V případě, že ve hře poté uděláte chybu, na kterou nebudete moci příjít, máte možnost se vrátit k verzi předchozí.

První program v DelphiX...

Nechme už ale povídání, a pusťme se do tvorby. Náš první projekt nebude umět nic jiného, než zobrazit na pozici obrázek. To ještě samozřejmě není hra, ale musíme začít něčím jednoduchým. 

Nejprve tedy spusťte Delphi a  vytvořte nový projekt. Z palety komponent DelphiX vložte na formulář komponenty DXDraw (), DXTimer () a DXImageList (). Princip programu bude jednoduchý - DXTimer se bude starat o to, aby se na DXDraw vykresloval obrázek z DXImageList. U komponenty DXImageList nastavíme vlastnost DXDraw na DXDraw1 a klinutím na Items vlastnost se nám otevře seznam nahraných obrázků. Zatím je prázdný, a proto tlačítkem Add New přidáme novou položku. Klineme na ni a vlastnost Name nastavime např. na obrazek. Nyní klikneme na vlastnost Picture a nahrajeme již samotný obrázek (tlačítkem Load), např. obrázek ufa.
Pokud chceme, aby byl obrázek průhledný, nastavíme vlastnost Transparent na true, vlastnost TransparentColor pak určuje průhlednou barvu. Položky DXimageListu nyní zavřeme, jelikož vše potřebné již máme hotové, a přesuneme se ke komponentě DXTimer. Ta, obdobně jako standartní komponenta Timer provádí proceduru OnTimer každých x milisekund, které určuje vlastnost Interval. Pokud v komponentě DXTimer nastavíme Interval na 0, bude se komponenta snažit provádět proceduru OnTimer co nejvíckrát to půjde. Počet snímků za sekundu, nebo-li FPS (frames per second) je ve vlastnosti DXTimer.FrameRate. Komponenta DXTimer má navíc ještě vlastnost ActiveOnly typu boolean, která určuje, má-li být timer neaktivní, i když je okno neaktivní. K tomu náleží i dvě procedury OnActive a OnDeactive. Těmi se ale teď nebudeme zabývat, a přistoupíme k proceduře třetí, a to OnTimer. Poklepáme myší na prázdné políčko a můžeme již psát kód. Zde je na čase popsat proceduru, pomocí které budeme vykreslovat obrázek na povrch DXDraw:

procedura DXImageList1.Items[x].Draw(Dest, x, y, patternIndex)

Tato procedura prostě nakreslí obrázek x komponenty DXImageList1 na povrch Dest (v našem případě DXDraw1.surface) na pozici x, a y. PatternIndex určuje vzorek, ten zatím necháme na nule. A to je vše. Jak prosté. Zde je výpis celé procedury:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
// pokud z jakéhokoliv důvodu nemůžeme na
// povrch DXDraw kreslit, rovnou z procedury vyskočíme
if not DXDraw1.CanDraw then exit;

// povrch DXDraw1 vyplníme černou barvou
// == vymažeme předchozí kresby
DXDraw1.Surface.Fill(0);

// na pozici 0,0 nakreslíme obrázek
// 0 z DXImageListu
DXImageList1.items[0].Draw(DXDraw1.surface,0,0,0);

// nakonec procedura flip,
// abychom to také viděli
DXDraw1.Flip;
end;

Jak vidíte, v proceduře se nám vyskytly ještě další procedury, které jsou popsány dále. Začněme tedy prvním řádkem. Vlastnost DXDraw1.CanDraw určuje, zda můžeme na povrch kreslit. Pokud tomu tak není, první řádek se postará o to, aby nedošlo k chybě a rovnou z procedury vyskočí. Procedurou Fill vyplníme povrch DXDraw danou barvou (0 = černá), čímž všechny předchozí kresby z obrázku vymažeme. Pomocí proc. Draw nakreslíme obrázek na pozici 0,0 a nakonec skrytý povrch zobrazíme proc. Flip. Nyní můžeme projekt přeložit a spustit klávesou F9, a pokud se Vám opravdu zobrazuje obrázek v levém horním rohu, udělali jste program správně a můžete všem říkat, že jste udělali program v DirectX :) Tím to ale samozřejmě nekončí, to je teprve začátek...

Program druhý - trocha pohybu neuškodí...

 Tedy myslím pohybu obrázku, jelikož dívat se, jak se obrázek zobrazuje pořád na stejné pozici je po chvíli...nudné. Jako základ nám může posloužit program předchozí, do kterého pouze doplníme trochu kódu. Ten se postará o to, aby se obrázek při každém volání proc. OnTimer zobrazil na jiném místě (pozn. - pokud jste měli vlastnost DXTimer.Interval nastavenou na 0, nebo jiné malé číslo, je dobré jej trochu zvětšit, aby se Vám potom nedělali mžitky před očima). pro tvorbu náhodného čísla použijeme procedury Random(x), která vytvoří náhodné celé číslo od 0 do X. V sekci public tedy definujeme dvě proměnné x a y typu integer a mezi procedury Fill a Draw tedy vložíme následující kód:

// nastavení náhodné pozice obrázku
x:=Random(DXDraw1.SurfaceWidth-DXImageList1.Items[0].Width);
y:=Random(DXDraw1.SurfaceHeight-DXImageList1.Items[0].Height);

a proceduru Draw změníme na: 

// na pozici x a y nakreslíme obrázek
// 0 z DXImageListu
DXImageList1.items[0].Draw(DXDraw1.surface,x,y,0);

Jak sami vidíte, x a y obrázku bude nanejvýš takové, aby se zobrazil těsně u kraje okna a tedy abychom ho vždy viděli. Program můžeme zase přeložit a spustit klávesou F9 a pokud je vše v pořádku, bude se objevovat obrázek na náhodných místech. Obrázek se již hýbe, ale jak udělat, aby létal po obrazovce a odrážel se od stěn ?

Program třetí - létání a odrážení od stěn...

A konečně program třetí, a pro dnešek již poslední. V tomto programu si ukážeme, jak naprogramovat, aby sprite létal sem a tam a odrážel se od krajů okna. Pro pohyb budeme používat trochu jiné techniky, než ve článku o animaci spritu v Delphi a která nám dovolí, aby sprite nelétal pouze pod úhly 45°. Princip je ale stejně jednoduchý - kromě prom. x a y si defunujeme ještě IncX a IncY a při každém volání proc. OnTimer k x přičteme IncX a k Y přičteme IncY. Teď si ale řeknete - to je sice hezké, ale v tom případě poletí sprite pouze dolů a doprava. Tak to ale není. Pokud se sprite dostane ke kraji okna, změní se IncX nebo IncY (podle toho, ke kterému kraji okna) na záporné číslo. A jelikož + a - je mínus, bude se sprite pohybovat na druhou stranu ! A pokud se dostane ke kraji doleva nebo nahoru, je to přesně naopak. Navíc k IncX a IncY přiřazujeme náhodně číslo (samozřejmě kladné, nebo záporné) o kolik se má sprite pohnout, a proto letí pod různými úhly. Vyzkoušet si to můžete ostatně sami.Do sekce public přidejte proměnné IncX a IncY typu integer. Zde je kód procedury OnTimer:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
// pokud z jakéhokoliv důvodu nemůžeme na
// povrch DXDraw kreslit, rovnou z procedury vyskočíme
if not DXDraw1.CanDraw then exit;

// povrch DXDraw1 vyplníme černou barvou
// == vymažeme předchozí kresby
DXDraw1.Surface.Fill(0);

// vypočítáme novou pozici obrázku
x:=x+IncX;
y:=y+IncY;
if x >= DXDraw1.Surfacewidth-DXimageList1.Items[0].Width
then IncX:=-(Random(5)+1);
if x <= 0 then IncX:=Random(5)+1;
if y >= DXDraw1.Surfaceheight-DXImageList1.Items[0].height
then IncY:=-(Random(5)+1);
if y <= 0 then Incy:=(Random(5)+1);

// na pozici x,y nakreslíme obrázek
// 0 z DXImageListu
DXImageList1.items[0].Draw(DXDraw1.surface,x,y,0);

// nakonec procedura flip,
// abychom to také viděli
DXDraw1.Flip;
end;

Nakonec ještě přidejte proceduru Form1.OnCreate do které přidejte následující:

x:=Random(DXDraw1.SurfaceWidth-DXImageList1.Items[0].Width);
y:=Random(DXDraw1.SurfaceHeight-DXImageList1.Items[0].Height);
IncX:=Random(5)+1;
IncY:=Random(5)+1;

To zajistí, aby se při startu programu sprite objevil na náhodném místě a pohybovat se náhodou rychlostí náhodným směrem.

Komentáře k článku Sir End 04.01.17:49 Nefunkční program mak 11.07.17:54 RE: Nefunkční program hnvisxbf 06.10.9:06 hnvisxbf zocor 07.09.13:39 zocor generic effexor 07.09.19:33 generic effexor Jackxl 24.10.14:43 DirectX a DLL Jackxl 21.10.22:07 Problem s bodem 1 Jackxl 21.10.22:13 RE: Problem s bodem 1 Gregi 02.04.0:08 error Jesrei 12.09.22:16 RE: error Risk 28.03.15:19 DELPHI X PRO DELPHI 6 synonym 26.11.17:49 serte na directX & delphiX Jifik 07.06.19:54 OpenGL vs DirectX egg 14.10.18:45 RE: OpenGL vs DirectX jjhsdasdgdfhs 18.05.19:48 Borland Delphi jjhsdasdgdfhs 18.05.19:47 Borland Delphi sdsd 17.05.21:17 Delphi Pamposek 09.01.16:34 Pomale pixely Rift 20.02.16:47 RE: Pomale pixely vita 28.10.8:21 kji Msoft 03.11.9:31 RE: kji Slavo 14.10.20:58 NOVY TEAM Muerte 06.10.17:10 Kde seženu DelphiX pro Delphi6 ? MIRA 1 20.09.13:17 Co musím udělat, abych vytvářel hry Rift 21.02.17:10 RE: Co musím udělat, abych vytvářel hry MIRA 1 20.09.13:14 k Miso* 17.02.14:05 DelphiX pre Delphi 6 Pavel Vondruška 25.11.16:04 DelphiX pro DELPHI7 Tomáš Blažek 21.06.12:19 RE: DelphiX pro DELPHI7 Integrál 24.10.11:04 RE: RE: DelphiX pro DELPHI7 MSoft 03.11.9:34 RE: RE: RE: DelphiX pro DELPHI7 Hlina 23.02.15:25 RE: RE: RE: DelphiX pro DELPHI7 - jak nainstalovat Alex 12.06.10:26 RE: RE: RE: RE: DelphiX pro DELPHI7 - jak nainstalovat Gnaag 30.10.12:45 RE: RE: RE: RE: RE: DelphiX pro DELPHI7 - jak nainstalovat Michal Machovic 23.10.14:19 DESIGN STUDIOS Miro-SK 30.09.9:37 Aj ja by som sa rad pridal do tymu Jakub Mareš 17.06.14:38 Mam Delphi 6.Je na něj Delphi X??Prosím pomožte!! PMan 07.07.0:20 RE: Mam Delphi 6.Je na něj Delphi X??Prosím pomožte!! Bobík 24.08.20:06 RE: RE: Mam Delphi 6.Je na něj Delphi X??Prosím pomožte!! Martin Daucik 17.05.14:56 DELPHI ---> C++ mirek* 26.10.10:57 Joystik* gaspoda 17.10.20:02 alternativní 3d engine Martin 17.05.14:48 RE: alternativní 3d engine Slavo 04.10.2:09 DelphiX Robowlf 09.07.10:44 Kde najdem komponenty pre Direct X Autor 27.08.17:39 RE: Kde najdem komponenty pre Direct X Jaromír KRPEC 23.01.13:13 Chceme založit nový tým na vývoj PC Her. 3Dthief 29.01.14:04 RE: Chceme založit nový tým na vývoj PC Her. Jakub Mareš 17.06.14:33 RE: RE: Chceme založit nový tým na vývoj PC Her. Filip 14.04.9:24 RE: Chceme založit nový tým na vývoj PC Her. Timothy 04.05.19:35 RE: RE: Chceme založit nový tým na vývoj PC Her. Magiksoft 11.08.19:39 Magiksoft RE: Chceme založit nový tým na vývoj PC Her. Frank Toman 11.10.10:47 RE: Chceme založit nový tým na vývoj PC Her. Jan žitník 12.02.14:05 RE: Chceme založit nový tým na vývoj PC Her. Miso-SK 17.12.20:16 hry v delphiX vitek 28.11.20:25 grafika Michal Svoboda 06.11.14:11 Co se takhle pridat k tymu, co existuje? Zdenek Susky 03.01.23:06 RE: Co se takhle pridat k tymu, co existuje? David 20.10.21:35 O TEN TYM BY SOM MAL ZAUJEM ALE IBA ZACINAM Kamil F 21.10.18:34 RE: O TEN TYM BY SOM MAL ZAUJEM ALE IBA ZACINAM Tomáš Koloušek 09.10.11:28 Spousteni se starsi verzi Dx HaT 05.10.1:12 Kde sehnat DelphiX Václav Krejčí 05.10.17:11 RE: Kde sehnat DelphiX Iso 09.10.21:29 Help DelphiXu Zemla 27.08.13:17 RE: RE: Kde sehnat DelphiX Honza 28.09.17:41 DirectX v C++ Builder Mirek Scholze jr. 06.10.21:34 RE: DirectX v C++ Builder David Majda 25.09.20:28 A co Direct3D? Jmm 02.10.16:44 Tvorba her Kamil F. 15.10.19:23 RE: Tvorba her Václav Krejčí 17.10.16:51 Co takhle založit nový tým.... Kamil F. 21.10.18:33 RE: Co takhle založit nový tým.... Martin Polak 03.11.14:38 RE: RE: Co takhle založit nový tým.... Pavel Aubrecht 10.11.13:12 RE: Co takhle založit nový tým.... Zdenek Susky 03.01.23:17 RE: RE: RE: Co takhle založit nový tým.... Martas 24.01.19:28 RE: RE: RE: RE: Co takhle založit nový tým.... Betonak 02.02.15:24 RE: RE: RE: RE: Co takhle založit nový tým.... Wirg 29.04.22:41 RE: Založíme? Timothy 04.05.19:34 RE: Co takhle založit nový tým.... Martin 17.05.14:52 DELPHI ---> C++ Vojta 20.03.20:13 ja chci taky do tyymu!!! Nitramus 13.11.22:06 RE: Tvorba her Tum0r 08.04.13:17 RE: RE: Tvorba her petr 21.05.16:44 RE: A co Direct3D? eax 27.07.19:23 RE: RE: A co Direct3D? Já 09.10.17:39 Odpověď na: "Serte na všechno" g.freeman 02.05.16:18 RE: Odpověď na: