Igrica u Delphi-ju

[ vasilije03 @ 26.05.2007. 11:14 ] @

Ovde ima puno tema i nisam stigao sve da pogledam.Mozda vec postoji slicna tema.
Potrebna mi je neka igrica(ali da ne bude mnogo komplikovana) u Delphy-ju.Hitno

[ Srki_82 @ 26.05.2007. 11:16 ] @

Imas ovde X-O

http://www.elitesecurity.org/t...l-Pravljenje-igara-Pascal-moze

[ vasilije03 @ 26.05.2007. 12:57 ] @

El ima mozda neko zmijicu.

[ Srki_82 @ 26.05.2007. 13:03 ] @

Ne rece nam zasto ti treba ta igra? Da li ti treba samo izvrsni fajl ili i kod programa? Da li program treba da radi u konzoli ili u prozoru? Da li treba da koristi neki API za crtanje, zvuk, mrezu...?

[ vasilije03 @ 26.05.2007. 13:28 ] @

Ma treba da uradim seminarski iz informatike,znaci treba mi kod.Ne mora igrica.

[ jovica016 @ 26.05.2007. 20:54 ] @

Ne radi se tako seminarski :)

[ vasilije03 @ 26.05.2007. 21:05 ] @

Nego kako!!!Pomagajte

[ Bojan Kopanja @ 26.05.2007. 22:26 ] @

Tako sto uzmes literaturu, odradis kod, pa ovde pitas ako ti nesto nije jasno... Samo tako ces nesto nauciti, a ovako ces sam sebe da varas da znas nesto, a u stvari si truba :)!

[ Srki_82 @ 26.05.2007. 22:37 ] @

Evo, izaci cu ti u susret iako to niko nece odobriti. Ovo je vrlo jednostavan program. Dozvoljava ti da ucitas Quake 3 mapu i mozes slobodno da se kreces kroz nju. Nema komplikovanih stvari kao sto je detekcija sudara pa mozes da prodjes kroz zid, ali nema veze.

Code:
program IrrTest;

{$I irrlicht.inc}

uses
  IrrTypes, Irrlicht, IrrDevice, IrrVideoDriver, IrrVector3D, IrrSceneManager,
  IrrSceneNode, SysUtils, IrrAnimatedMesh;

var
  Device: IIrrDevice;
  Driver: IIrrVideoDriver;
  SMgr: IIrrSceneManager;

  Mesh: IIrrAnimatedMesh = nil;
  Node: IIrrSceneNode = nil;

  driverType: E_DRIVER_TYPE;
  i: Char;

  lastFPS: Integer = -1;
  fps: Integer;
  str: WideString;
begin
  WriteLn('Please select the driver you want for this example:');
  WriteLn(' (a) Direct3D 9.0c'#10' (b) Direct3D 8.1'#10' (c) OpenGL 1.5');
  WriteLn(' (d) Software Renderer'#10' (e) Burning''s Software Renderer');
  WriteLn(' (f) NullDevice'#10' (otherKey) exit'#10);

  ReadLn(i);

  case i of
    'a': driverType := EDT_DIRECT3D9;
    'b': driverType := EDT_DIRECT3D8;
    'c': driverType := EDT_OPENGL;
    'd': driverType := EDT_SOFTWARE;
    'e': driverType := EDT_BURNINGSVIDEO;
    'f': driverType := EDT_NULL;
  else
    Halt(1);
  end;

  Device := createDevice(driverType, 640, 480);

  if Device = nil then
    Halt(1);

  Driver := Device.getVideoDriver;
  SMgr := Device.getSceneManager;

  Device.getFileSystem.addZipFileArchive('../../media/map-20kdm2.pk3');

  Mesh := SMgr.getMesh('20kdm2.bsp');

  if Mesh <> nil then
    Node := SMgr.addOctTreeSceneNode(Mesh.getMesh(0), nil, -1, 128);

  if Node <> nil then
    Node.setPosition(TIrrVector3DF.Create(-1300,-144,-1249));

  SMgr.addCameraSceneNodeFPS;

  Device.getCursorControl.setVisible(False);

  while Device.run do
    if Device.isWindowActive then
    begin
      Driver.beginScene(True, True, 0, 200, 200, 200);
      SMgr.drawAll;
      Driver.endScene;

      fps := Driver.getFPS;

      if lastFPS <> fps then
      begin
        str := 'Irrlicht Engine - Quake 3 Map example [' +
          Driver.getName +
          '] FPS:' +
          IntToStr(fps);

        Device.setWindowCaption(str);
        lastFPS := fps;
      end;
    end;

  Device.Drop;
end.

Evo i screenshot da vidis kako to izgleda.

Nema potrebe da se zahvaljujes... nadam se da me niko nece kritikovati sto sam ti dao gotov kod umesto da te teram da citas knjigu.

[ vasilije03 @ 27.05.2007. 09:58 ] @

Ma ne brini se ti za kritikovanje.Nego,ovo ti je mnogo komplikovano-ja treba da objasnim kod.Daj teku laksu igricu.

[ Srki_82 @ 27.05.2007. 12:00 ] @

X-O je komplikovaniji od ovog. Ne znam sta bi jednostavnije mogao da napises? Jedino da pogadjas broj od 1 do 10. Sve ostalo ce da bude jos komplikovanije od ovog.

[ vladaboy93 @ 27.05.2007. 12:11 ] @

vasilije, vasilije no no!!!

salim se covece za kad ti to treba?
ja sam pravio neku igricu za takmicenje iz informatike, dao bi ti je ali jbg.... ima 80 strana koda

tako da mozes okaciti macku o rep,...

u koju ti skolu ides?

valda znas delphi dovoljno dobro da napravis recimo multiplayer igricu sa dva tenkica i da jedan na drugog pucaju i ko koga prvi upuca pobedio je!!!

prosto ko pasulj, zar ne?

[ vasilije03 @ 27.05.2007. 12:23 ] @

Ma znam,ali nemam vremena!!!Ako imas kod posalji mi,bilo sta!!!El znas mozda kako se zove ona igrica kada imas sa leve i desne strane po jedan klizac i lopticu, i cilj je da das gol protivniku!

[ vladaboy93 @ 27.05.2007. 12:42 ] @

Kako nemas vremena pa to mozes za 2-3 sata da sklepas ako ti trteba neka pomoc oko toga pitaj me pravio sam mnooogo takvih igrica evo ti jedna da vidsh kako to izgleda samo dodash josh jednog takvog tenka i napravish da kada metak pipne jednog da on nestane. jednostavno!!!

OK?

evo ti kod!!!

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    gt1: TImage;
    gt2: TImage;
    gt3: TImage;
    gt4: TImage;
    Tgtright: TTimer;
    Tgtup: TTimer;
    Tgtdown: TTimer;
    Tgtleft: TTimer;
    Tbgt1: TTimer;
    Tbgt2: TTimer;
    Tbgt3: TTimer;
    Tbgt4: TTimer;
    gbull: TImage;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
//    procedure TgtrightTimer(Sender: TObject);
//    procedure TgtupTimer(Sender: TObject);
//    procedure TgtdownTimer(Sender: TObject);
//    procedure TgtleftTimer(Sender: TObject);
    procedure Tbgt1Timer(Sender: TObject);
    procedure Tbgt3Timer(Sender: TObject);
    procedure Tbgt2Timer(Sender: TObject);
    procedure Tbgt4Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
  gtup:boolean;
  gtdown:boolean;
  gtleft:boolean;
  gtright:boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
gt2.Left:=gt1.Left;
gt2.top:=gt1.top;

gt3.Left:=gt1.Left;
gt3.top:=gt1.top;

gt4.Left:=gt1.Left;
gt4.top:=gt1.top;

if key=VK_SPACE then
begin
if gt1.visible=true then
begin
gbull.left:=gt1.left+12;
gbull.top:=gt1.top;
Tbgt1.enabled:=true;
Tbgt2.enabled:=false;
Tbgt3.enabled:=false;
Tbgt4.enabled:=false;
end;

if gt2.visible=true then
begin
gbull.left:=gt1.left+25;
gbull.top:=gt1.top+12;
Tbgt2.enabled:=true;
Tbgt1.enabled:=false;
Tbgt3.enabled:=false;
Tbgt4.enabled:=false;
end;

if gt3.visible=true then
begin
gbull.left:=gt1.left+12;
gbull.top:=gt1.top+25;
Tbgt3.enabled:=true;
Tbgt2.enabled:=false;
Tbgt1.enabled:=false;
Tbgt4.enabled:=false;
end;

if gt4.visible=true then
begin
gbull.left:=gt1.left;
gbull.top:=gt1.top+12;
Tbgt4.enabled:=true;
Tbgt3.enabled:=false;
Tbgt2.enabled:=false;
Tbgt1.enabled:=false;
end;
end;

if key=VK_UP then
begin
gt1.top:=gt1.Top-4;
gtup:=true;
gtdown:=false;
gtleft:=false;
gtright:=false;
end;
if key=VK_DOWN then
begin
gt1.Top:=gt1.top+4;
gtup:=false;
gtdown:=true;
gtleft:=false;
gtright:=false;
end;
if key=VK_LEFT then
  begin
  gt1.left:=gt1.left-4;
    gtup:=false;
gtdown:=false;
gtleft:=true;
gtright:=false;
  end;
if key=VK_RIGHT then
  begin
  gt1.left:=gt1.left+4;
gtup:=false;
gtdown:=false;
gtleft:=false;
gtright:=true;
  end;
////////////////////////////////////////////////////////////////////////////////
if gtup=true then
begin
gt1.Visible:=true;
gt2.Visible:=false;
gt3.Visible:=false;
gt4.Visible:=false;

end;

if gtleft=true then
begin
gt1.Visible:=false;
gt2.Visible:=false;
gt3.Visible:=false;
gt4.Visible:=true;

end;

if gtdown=true then
begin
gt1.Visible:=false;
gt2.Visible:=false;
gt3.Visible:=true;
gt4.Visible:=false;

end;

if gtright=true then
begin
gt1.Visible:=false;
gt2.Visible:=true;
gt3.Visible:=false;
gt4.Visible:=false;

end;
end;

procedure TForm1.Tbgt1Timer(Sender: TObject);
begin
gbull.top:=gbull.top-6;
gbull.Visible:=true;
end;

procedure TForm1.Tbgt3Timer(Sender: TObject);
begin
gbull.top:=gbull.top+6;
gbull.Visible:=true;
end;

procedure TForm1.Tbgt2Timer(Sender: TObject);
begin
gbull.left:=gbull.left+6;
gbull.Visible:=true;
end;

procedure TForm1.Tbgt4Timer(Sender: TObject);
begin
gbull.left:=gbull.left-6;
gbull.Visible:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
gt1.visible:=true;
gt2.visible:=false;
gt3.visible:=false;
gt4.visible:=false;
gbull.Visible:=false;
end;

end.

jednostavnije od ovoga ne moze biti zar ne?

samo napravish jos jedan takav tenk promenish mu boju i napravish da se krece na W,A,S,D koristis ASCII cod

nemoj da te mrzi to je jako brzo mozes za 2-3 sata da uradish ako zapne posalji mi pp pa da vidim da li mogu da ti pomognem

_{[Ovu poruku je menjao vladaboy93 dana 27.05.2007. u 13:52 GMT+1]}

[ vasilije03 @ 27.05.2007. 15:05 ] @

Hvala ti!!Radicu ovo sledece nedelje,pa ako mi zatreba pomoc javicu ti se!!!Ako nadjes jos neku "prostu" igricu,napisi!!!

[ vladaboy93 @ 27.05.2007. 15:14 ] @

Ovaj gore kod sam ja pisao za tenkice kada sam pocinjo tu igru da pravim evo ti exe da vidish kako to izgleda!!!

Sto se tice pomoci slobodno pitaj

nesto nece exe da mi posalje daj mi tvoju E-mail adresu pa cu ti poslati

Ja nazaost sledece nedelje necu biti tu sada mi se skola zavrsava pa sledece nedelje idem u petnicu ali mislim da i oni imaju internet tako da nadam se da cu moci da ti pomognem

pozdrav

_{[Ovu poruku je menjao vladaboy93 dana 27.05.2007. u 16:24 GMT+1]}

[ vladaboy93 @ 27.05.2007. 15:27 ] @

Za kada to tebi tacno treba?

Mozda nagrabim malo slobodnog vremena da ti sklepam nesto?

Ali nemoj racunati na to ne znam dal cu stici

U koju ti skolu ides?

[ vasilije03 @ 27.05.2007. 15:54 ] @

[email protected]!!!Udem mu gimnaziju,sto pitas?

[ vladaboy93 @ 27.05.2007. 16:19 ] @

Pitam zato sto ja idem u osnovnu pa sam razmisljo sta da upisem.

koja si godina?

nisi mi odgovorio kada taj rad treba da predash?

kazem ti ako je za jednu ipo dve nedelje verovatno cu stici nesto da ti sklepam. nemoj me drzati za rec.

[ vladaboy93 @ 27.05.2007. 16:26 ] @

poslao sam ti E-mail

[ vasilije03 @ 27.05.2007. 16:27 ] @

Treca sam godina.Treba da predam za 7 do 10 dana!Sta plairas da mi uradis,koju igricu?

[ vladaboy93 @ 27.05.2007. 17:20 ] @

mozda ono sa 2 tenka ne znam ako stignem jesi li dobijo mail?

[ vasilije03 @ 31.05.2007. 18:19 ] @

Nije mi stiglo nista!!Sta je trebalo da stigne?El ces da mi uradis nesto-treba mi za ovaj vikend?

[ vladaboy93 @ 31.05.2007. 20:05 ] @

Sve ocene su mi zakljucene mislim da cu stici sutra prekosutra to da ti uradim!

Jer imas Gmail acount?

ako nemas napravi ga bice lakse da ti prebacim!

_{[Ovu poruku je menjao vladaboy93 dana 31.05.2007. u 21:35 GMT+1]}

[ bojan21 @ 31.05.2007. 21:33 ] @

I ja sam pre neki dan predao seminarski i dosta njih iz razreda je pravilo igrice (jadne, al shta da se radi)! Jedan je napravio Snake (ko na nokiji), drugi je pravio ping-pong, treci neke vanzemaljce...a jedan lik je skinuo Srkijev kod za igru memorije (pravljeno i GLScene-u) i odneo (ej, nabio je program do 180MB)...Htedoh reci da mozes ovako nesto da napravis! Sve je lako, uradi se za dan-dva!

[ Srki_82 @ 31.05.2007. 21:39 ] @

@bojan21
Je l' me taj lik ubacio u Credits ili naveo autora teme kad je nabrajao literaturu? :)

[ vasilije03 @ 01.06.2007. 09:46 ] @

nemam.Probaj ponovo da mi [email protected]

[ vasilije03 @ 01.06.2007. 09:47 ] @

@bojan21
Ajd nabavi igrice od tih drugara pa posalji!!!

[ bojan21 @ 03.06.2007. 11:43 ] @

@Srki: Stavio te je u autore naknadno, jer sam mu zapretio da je gotow kad profesor sazna cije je! :D
@vasilije: Tesko da mogu sad da nabavim, ali to je prosto naprawiti, do sad si mogao vec pet puta da zavrsis! Ajde videcu da ti naprawim iks-oks ovo posle podne, moze?

edit: nesto mi se poremetilo vreme na kompu, pa nisam video da ima novih poruka u ovoj temi!
edit2: evo okacio sam ti neku igricu koju ni ne znam kad sam pravio (12.12.2006 davno); igrica je oajna al sta ces, to mi je bilo samo za probu; cilj igre je da klikces na onu lopticu - svakim klikom dobijes po jedan poen! Dao sam ti source da bi mogao da izmenis info o autoru ako budes koristio! Pozdrav

_{[Ovu poruku je menjao bojan21 dana 03.06.2007. u 12:59 GMT+1]}

[ vasilije03 @ 03.06.2007. 15:30 ] @

hvala

[ bojan21 @ 04.06.2007. 14:20 ] @

Ako ti treba jos neka, samo javi, pa cu ti poslati! ;)