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。
源程序下载地址： http://www.cfan.com.cn/11PROGRAM/200312/0312yde.zip。
上一页 [1] [2] [3] |
