用Delphi + DirectX开发简单RPG游戏_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用Delphi + DirectX开发简单RPG游戏

作者：闵涛文章来源：闵涛的学习笔记点击数：2655 更新时间：2009/4/23 18:36:45

1, 1);{设定背景显示样式为1×1}
    Image := ImageList.Items.Find(''''background''''); {载入背景图片}
    Z := -2;  {设定背景层次}
    Tile := True; {设定背景填充样式为平铺}
  end;

  PlayerSprite := TPlayerSprite.Create(DXSpriteEngine.Engine);
  with TPlayerSprite(PlayerSprite) do
  begin
    Image := ImageList.Items.Find(''''player'''');
    Z := 2;
    Width := Image.Width;
    Height := Image.Height;
  end;
  {载入游戏人物}
end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  {如果按了Esc，则退出}
  if Key=VK_ESCAPE then
    Close;

  {全屏模式和窗口模式的切换}
  if (ssAlt in Shift) and (Key=VK_RETURN) then
  begin
    DXDraw.Finalize;

    if doFullScreen in DXDraw.Options then
    begin
      RestoreWindow;

      DXDraw.Cursor := crNone;
      BorderStyle := bsSizeable;
      DXDraw.Options := DXDraw.Options - [doFullScreen];
    end else
    begin
      StoreWindow;

      DXDraw.Cursor := crNone;
      BorderStyle := bsNone;
      DXDraw.Options := DXDraw.Options + [doFullScreen];
    end;

    DXDraw.Initialize;
  end;
end;

procedure TMainForm.DXDrawMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  AnchorX := x + Trunc(PlayerSprite.x)-320;
  AnchorY := y + Trunc(PlayerSprite.y)-240;
  {将鼠标在屏幕上点击的位置转换到游戏世界中}
  PlayerSprite.CanMove:=True;
  {此参数允许鼠标拖动}
end;

procedure TMainForm.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if PlayerSprite.CanMove then
  begin
    AnchorX := x + Trunc(PlayerSprite.x)-320;
    AnchorY := y + Trunc(PlayerSprite.y)-240;
    {在鼠标拖动过程中将鼠标在屏幕上点击的位置转换到游戏世界中}
  end;

  MouseX:=X;
  MouseY:=Y;
  {鼠标当前位置}
end;

procedure TMainForm.DXDrawMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PlayerSprite.CanMove:=False;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DXSpriteEngine.Free;
end;

procedure TPlayerSprite.MoveTo(MoveCount: Integer; Direction: TDirection);
begin
  {控制精灵往各个方向移动}
  case Direction of
  DrUp:
    begin
      Y := Y-(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+20+1;
      {当前动画中播放的图片序号}
      if steps>4*speed-2 then steps:=0;
    end;
  DrDown:
    begin
      Y := Y+(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+1;
      if steps> 4*speed-2 then steps:=0;
    end;
  DrLeft:
    begin
      X := X-(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+10+1;
      if steps>4*speed-2 then steps:=0;
    end;
  DrRight:
    begin
      X := X+(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+30+1;
      if steps>4*speed-2 then steps:=0;
    end;
  DrUpLeft:
    begin
      X := X-(150/1000)*MoveCount;
      Y := Y-(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+15+1;
      if steps>4*speed-2 then steps:=0;
    end;
  DrUpRight:
    begin
      X := X+(150/1000)*MoveCount;
      Y := Y-(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+25+1;
      if steps>4*speed-2 then steps:=0;
    end;
  DrDownLeft:
    begin
      X := X-(150/1000)*MoveCount;
      Y := Y+(150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+5+1;
      if steps>4*speed-2 then steps:=0;
    end;
  DrDownRight:
    begin
      X := X + (150/1000)*MoveCount;
      Y := Y + (150/1000)*MoveCount;
      Inc(steps);
      AnimPos:=steps div speed+35+1;
      if steps>4*speed-2 then steps:=0;
    end;
  end;
end;

end.

后记
　　通过以上的讲解和例子，相信大家已经对 Delphi 下的 DirectX 游戏开发有了初步的概念。国内讲解开发 DirectX 游戏的权威资料很少，如果这篇讲解可以起到抛砖引玉的效果的话，我将再高兴不过了。本文部分内容借鉴了国外一些游戏开发网站的技术文档，在此一并致谢。如果各位有什么问题需要和我交流，请发信至eagle_california@yahoo.com。
　　源程序下载地址：