Изучаем DelphiX (2 стр)

Автор: hex

Часть 1: Первая игра.

«Как много игр то хороших,
Да только сегодня не до них»
Автор.

Теперь мы создадим первую, и надеюсь не последнюю игрушку, смысл у нас будет такой: Мы - маленький космический корабль, нам надо уничтожить большой статичный космический корабль (прим. автора: "Этот пример научит мыслить по DelphiX`ски").

Итак, запускаем Delphi (Для тех, кто в танке, у кого 6-ая, ищите на этом же сайте статью "DelphiX для Delphi6"). Вы, надеюсь, предварительно установили DelphiX, тогда ищем в панели с компонентами раздел DelphiX:

Кидаем на форму следующие компоненты:

{$R *.DFM} type TPlayerSprite = class(TImageSprite) //Класс игрока protected procedure DoMove(MoveCount: Integer); override; // Движение end; TBoSS = class(TImageSprite) // Класс босса Protected // Столкновение procedure DoCollision(Sprite: TSprite; var Done: Boolean); override; procedure DoMove(MoveCount: Integer); override; public constructor Create(AParent: TSprite); override; //при создании destructor Destroy; override; // при смерти end; TPlayerFa = class(TImageSprite) protected procedure DoCollision(Sprite: TSprite; var Done: Boolean); override; procedure DoMove(MoveCount: Integer); override; public constructor Create(AParent: TSprite); override; destructor Destroy; override; end;

Procedure TPlayerFa.DoMove(MoveCount: Integer); Begin inherited DoMove(MoveCount); end; constructor TPlayerFa.Create(AParent: TSprite); begin end; destructor TPlayerFa.Destroy; begin inherited Destroy; // Обязательно end; procedure TPlayerFa.DoCollision(Sprite: TSprite; var Done: Boolean); begin end;

if not DXDraw1.CanDraw then exit; // Если нет DirectX выходим DXInput1.Update; DXSpriteEngine1.Move(LagCount); DXSpriteEngine1.Dead; DXDraw1.Surface.Fill(0); DXSpriteEngine1.Draw; DXDraw1.Flip;

with TBOSS.Create(Dxspriteengine1.Engine) do begin PixelCheck := True; // для столкновения просчитывает каждую точку Image := form1.dxImageList1.Items.Find('BOSS'); //ищем спрайт в ImageList`е x:=350; // x координаты y:=10; // y координаты Width := Image.Width; //ширина равна ширине спрайта Height := Image.Height; //высота равна высоте спрайта end; with TPlayerSprite.Create(Dxspriteengine1.Engine) do begin PixelCheck := True; Image := form1.dxImageList1.Items.Find('Pla'); x:=350; y:=500; Width := Image.Width; Height := Image.Height; end;

Procedure TBoSS.DoMove(MoveCount: Integer); begin inherited DoMove(MoveCount); if x>= 700 then I:= true; // когда X>= то туда >>> if x<= 0 then I:= false; // когда X<= то туда <<< if i= true then X := X+10; if i= false then X := X-10; Collision; end; constructor TBOSS.Create(AParent: TSprite); //Здесь всё понятно begin inherited Create(AParent); Image := form1.DXImageList1.Items.Find('BOSS'); Width := Image.Width; Height := Image.Height; end; destructor TBOSS.Destroy; //тут тоже begin inherited Destroy; end; procedure TBoss.DoCollision(Sprite: TSprite; var Done: Boolean); begin // если спрайт сталкивается с Tplayerfa, то умирает if Sprite is Tplayerfa then dead; Collision; // Включаем столкновение end;

Procedure TPlayerSprite.DoMove(MoveCount: Integer); begin inherited DoMove(MoveCount); // при нажатии двигаем объект влево if isLeft in Form1.DXInput1.States then x:=x-5; // при нажатии двигаем объект вправо if isRight in Form1.DXInput1.States then x:=x+5; // при нажатие вверх создаётся наша пулька if isup in Form1.DXInput1.States then begin with TPlayerFa.Create(Engine) do begin PixelCheck := True; Image := form1.dxImageList1.Items.Find('Pula'); //Чтобы пуля создавалась около нашего объекта X := Self.X+Self.Width -40; //Чтобы пуля создавалась около нашего объекта Y := Self.Y+Self.Height -80; Width := Image.Width; Height := Image.Height; end; end; if y >= form1.DXDraw1.SurfaceHeight-image.Height then //не пускаем y := form1.DXDraw1.SurfaceHeight-image.Height; //объект if x >= form1.DXDraw1.SurfaceWidth -image.Width then //за границы x := form1.DXDraw1.SurfaceWidth -image.Width; //формы if y <= 0 then y := 1; if x <= 0 then x:=1; end;

Procedure TPlayerFa.DoMove(MoveCount: Integer); begin inherited DoMove(MoveCount); y:=y-3; //проще некуда, неправда ли? end; procedure TPlayerFa.DoCollision(Sprite: TSprite; var Done: Boolean); begin if Sprite is TBoss then dead; Collision; end;