{{notification.text}}

MirGames

lans

Тверь
Зарегистрирован 15.10.06 23:20
Последний раз был в сети 24.09.10 03:33
*,х
03.11.06 01:14
как *,х формат использовать с дельфиксом покажите или объясните на примерах
Я наверное .......
02.11.06 16:52
Короче говоря не лень скачайте и прокомпилируйте и увидите с если все патроны летят в одну сторону то всё окей если же вразный стороны то "бред сивой кобылы" подскажите как исправить
я взависемости от рисунка танчика(главного объекта) создаю другой объект и хочу что бы он летел в зависемости от рисунка танчика для этого я по нажатию прбела вввожу переменную i:integer;
а так как переменная меняется при каждом выстреле вдругом направление то и все патроны летят в другом направление
где скачать Opengl
02.11.06 00:00
Цитата(NightSnyper @ 1.11.2006 - 19:54) [snapback]40163[/snapback]

Ты скачал модуль, где содержаться апи функции взаимодействия с OpenGL.
Все, что нужно сделать, это присоединить в Uses модуль, который ты скачал.

1) а в программу добавлять opengl
2)а если названиепас файла dglOpenGL.pas
то мне его переименовать или в юзесах писать dglOpenGL
3)выложи свои примеры или то по каким электронным книгам ты обучался
где скачать Opengl
01.11.06 23:49
ну я скачал а как нибудь всёравно ведь надо его зарегистрировать в дельфи.
НО как?
где скачать Opengl
01.11.06 23:44
так тогда начнём с начала в опенджиэль есть компоненты
или такая же '"фигня" как и в DIRECTX
вввопросссссс
01.11.06 23:34
Цитата(NightSnyper @ 1.11.2006 - 19:26) [snapback]40153[/snapback]

lans
Опять хрено код разибираем... Смотри как нужно делать в первом посте. Пытался разобраться - не получилось...

P.S. Мой тебе совет, забей на DelphiX, бери Омегу(Omega). Этот движок в разы быстрее DelphiX и ничуть не сложнее... К тому же там найдется кому помочь. DelphiX - гиблое дело.

плиз выложи омегу
вввопросссссс
01.11.06 22:43
1) a := x;
b := y;

if isbutton1 in form1.DXInput1.States then
begin
with tpat.Create(aparent) do
begin
image := form1.DXImageList1.Items.Find('p');
width := image.Width;
height := image.Height;
x := a + 3;
y := b + 3;
z := 1;
pixelcheck := true;
end;
end;
какие значения мне присвоить х и у (выделенный жирным шрифтом) что бы патрон вылетал из обЪекта
2)procedure tpat.domove(movecount: integer);
begin
x := x + 7;
if x <= 0 then dead;
if x >= 950 then dead;
if y >= 720 then dead;
if y <= 0 then dead;
end;
как мне написать здесь так что бы в зависемости откартинки создателя пули пуля литела в разных направлениях
где скачать Opengl
01.11.06 13:39
Цитата(petyakurochkin @ 1.11.2006 - 09:17) [snapback]40044[/snapback]

http://www.delphigl.com/
Поищи там, прямую ссылку дать не могу...
Заголовки dglOpenGl...

1) уменя стандартный дельфи7 в котором не было ничего кроме стандртных компоннентов
так что мне приходится скачивать
спасибо 2 petyakurochkin пробую ссылку
вввопросссссс
01.11.06 13:27
1)как мне сделать так что бы герой которым я управляю принажатие на isbutton1(пробел по умолчанию
)создавал патрон который в зависемости от картинки которую он создавал двигался в каком либо напраление это я указываю в проседуре думув у пули
2)//X := Self.X+Self.Width +1;
//Y := Self.Y+Self.Height +1;
пишу по нажатию кнопки пробела
но как то странно пуля создаётся через какоето растояние
полный код приложения:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXDraws, DXClass, DXInput, DXSprite, StdCtrls;

type
  TForm1 = class(TdxForm)
    DXImageList1: TDXImageList;
    DXDraw1: TDXDraw;
    DXInput1: TDXInput;
    DXTimer1: TDXTimer;
    DXSpriteEngine1: TDXSpriteEngine;
    DXSpriteEngine2: TDXSpriteEngine;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  tpl = class(timagesprite)
  public
    constructor create(aparent: tsprite); override;
  protected
    procedure domove(movecount: integer); override;
  end;
type
  tpat = class(timagesprite)
  protected
    procedure domove(movecount: integer); override;
  end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_ESCAPE then application.Terminate;
end;

constructor tpl.create(aparent: Tsprite);
var
  a, b: integer;
begin
  inherited create(aparent);
  for a := 1 to 100 do
  begin
    for b := 1 to 100 do
    begin
      image := form1.DXImageList1.Items.Find('t6');
      x := x + 100;
    end;
    x := 0;
    y := y + 100;
  end;
  height := image.Height;
  width := image.Width;
  x := form1.DXDraw1.Height div 2;
  y := form1.DXDraw1.width div 2;
  z := 0;
  pixelcheck := false;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  if dxdraw1.CanDraw = false then application.Terminate;
  DXInput1.Update;
  DXSpriteEngine1.Move(LagCount);
  DXSpriteEngine1.Dead;

  DXDraw1.Surface.Fill(10);
  DXSpriteEngine1.Draw;

  DXDraw1.Flip;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  tpl.create(dxspriteengine1.Engine);
  tpat.Create(dxspriteengine1.Engine);
  align := alclient;
end;

procedure tpl.domove(movecount: integer);
var
  a, b: double;
  aparent: tsprite;
begin
  inherited domove(movecount);

  a := x;
  b := y;

  if isright in form1.DXInput1.States then
  begin
    x := x + 5;
    image := form1.DXImageList1.Items.Find('t6');
  end;
  if isleft in form1.DXInput1.States then
  begin
    x := x - 5;
    image := form1.DXImageList1.Items.Find('t4');
  end;
  if isdown in form1.DXInput1.States then
  begin
    y := y + 5;
    image := form1.DXImageList1.Items.Find('t2');
  end;
  if isup in form1.DXInput1.States then
  begin
    y := y - 5;
    image := form1.DXImageList1.Items.Find('t8');
  end;

  a := x;
  b := y;

  if isbutton1 in form1.DXInput1.States then
  begin
    with tpat.Create(aparent) do
    begin
      image := form1.DXImageList1.Items.Find('p');
      width := image.Width;
      height := image.Height;
      x := a + 3;
      y := b + 3;
      //X := Self.X+Self.Width  +1;
      //Y := Self.Y+Self.Height +1;
      z := 1;
      pixelcheck := true;
    end;
  end;
end;

procedure tpat.domove(movecount: integer);
begin
  x := x + 7;
  if x <= 0 then dead;
  if x >= 950 then dead;
  if y >= 720 then dead;
  if y <= 0 then dead;
end;

end.


Lans Привыкай писать примерно в таком стиле. В жизни пригодиться. Daddy.
Также внёс кое-какие коррективы от себя. В итоге получился почти правильно оформленный код :) MeF Dei Corvi
где скачать Opengl
01.11.06 12:06
где его можно скачать бесплатно дайти ссылку на сам арчив плиз
3d
29.10.06 22:17
1КАК мне реализовать 3D в дельфиксе
2как мне МУВИК ИЗ 3D MAX 8 КОНВЕРТНУТЬ ТАК ЧТО БЫ МОЖНО БЫЛО ИСПОЛЬЗАВАТЬ ЕГО ДЕЛЬФИКСОМ
P.S. извените если такая тема была
как мне создать карту
18.10.06 01:46
как мне создать карту
вы дайте ссылку и напишите что да как
и как по карте сделать перемещение
P.S. то что через массив я знаяю но как