战机小游戏（作者：海鱼~）

海鱼

找了一个控件和帮助文档，然后写了一个简单的战机游戏，欢迎大家下载。dd64001
运行后，按“enter”键就可以开始玩游戏了。

海鱼

我是基于directx7，用delphi写出来的，感觉在自己的电脑运行还很正常。dd56001

//绘制我机撞毁火焰
  if(deadflamestatus<>0)then
  begin
    rect.Left :=deadflamepos.X;
    rect.top:=deadflamepos.Y;
    rect.Right :=rect.left+66;
    rect.Bottom :=rect.top+66;
    srect.Left :=(deadflamestatus-1)*66;
    srect.top:=0;
    srect.Right :=srect.left+66;
    srect.Bottom :=srect.top+66;
    //绘制火焰
    rval:=FDDSBack.Blt(@rect, FDDSDead, @srect, DDBLT_WAIT or DDBLT_KEYSRC , nil);
    if(rval = DDERR_SURFACELOST) then
      FDDSBack._Restore;
    tempint:=gettickcount;
    if(tempint-oldtime3>200)then
    begin
      oldtime3:=GetTickCount;
      deadflamestatus:=deadflamestatus+1;//更新火焰状态
      if (deadflamestatus=9 ) then
        deadflamestatus:=0;//火焰完毕
    end;
  end;

[ 本帖最后由 海鱼 于 2008-11-16 19:35 编辑 ]

adminaco

玩电脑游戏好象已经是十年前的事了，支持一下。

当然

拿分。。。

圆又芳

海鱼，有空教我做一个。

海鱼

原帖由 圆又芳 于 2008-11-16 19:55 发表
海鱼，有空教我做一个。

有编程基础，就很容易就上手的，说难不难。

格格

本来不喜欢玩游戏的，基于是海鱼的作品，支持一下，玩了，很好玩。继续加油！！

海鱼

原帖由 格格 于 2008-11-16 20:06 发表
本来不喜欢玩游戏的，基于是海鱼的作品，支持一下，玩了，很好玩。继续加油！！

多谢支持~~dd53001

牛牛

下载，试玩了一下，不错

海燕

支持下，为了顶贴