正在阅读：用Delphi + DirectX开发简单RPG游戏用Delphi + DirectX开发简单RPG游戏

2004-02-14 09:34 出处：电脑爱好者作者：郭磊责任编辑：linjixiong

{鼠标点击的位置经转换后在游戏世界中的坐标}
textout(100,200,'Sprit x:'+IntToStr(Trunc(PlayerSprite.x))+'Y: ' +IntToStr(Trunc(PlayerSprite.y)));
{精灵在游戏世界中的坐标}
textout(100,300,'Relative x:'+IntToStr(AnchorX-Trunc(PlayerSprite.x))+'Y: ' +IntToStr(AnchorY-Trunc (PlayerSprite.y)));
{精灵当前位置与目的地之间的绝对距离}
textout(200,100,'Mouse x:'+IntToStr(MainForm.MouseX)+'Y: ' +IntToStr(MainForm.MouseY));
{鼠标当前位置，相对于窗口左上角，未转换为游戏世界坐标}
Release;
end;
{在字母上输出相应参数，用于程序调试}
DXDraw.Flip;
{将内存中的后台表面翻转到当前并且显示}
end;

procedure TMainForm.DXDrawFinalize(Sender: TObject);
begin
DXTimer.Enabled := False;
{关闭定时器}
end;

procedure TMainForm.DXDrawInitialize(Sender: TObject);
begin
DXTimer.Enabled := True;
{启动定时器}
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
Steps:=0;
AnchorX:=0;
AnchorY:=0;

MouseX:=320;
MouseY:=240;
{默认使鼠标处于屏幕的中央}

ImageList.Items.MakeColorTable;

DXDraw.ColorTable := ImageList.Items.ColorTable;
DXDraw.DefColorTable := ImageList.Items.ColorTable;
DXDraw.UpdatePalette;
{更新系统调色板}

察看评论详细内容我要发表评论