[es] - Igrica u Delphi-ju

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

^{26.05.2007. u 22:37 - pre 205 meseci}

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.

Play Store

Prikačeni fajlovi

Slika.JPG - 30.78k

Odgovor na temu

vladaboy93
Vladimir Makaric
Novi Sad

Član broj: 137777
Poruke: 376
*.80.eunet.yu.

Sajt: vladimirmakaric.110mb.com

Profil

Re: Igrica u Delphi-ju

^{27.05.2007. u 12:42 - pre 205 meseci}

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]}

Odgovor na temu