请你先 登录 注册
当前位置:首页帖子内页:战机小游戏(作者:海鱼~)
海鱼  楼主
发表于 2008年11月16日 17:54   来自PC

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

共14条回帖只看楼主
海鱼  楼主  只看TA的回复
发表于 2008年11月16日 18:11   来自PC
我是基于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  只看TA的回复
发表于 2008年11月16日 18:46   来自PC
玩电脑游戏好象已经是十年前的事了,支持一下。
当然  只看TA的回复
发表于 2008年11月16日 19:11   来自PC
拿分。。。
圆又芳  只看TA的回复
发表于 2008年11月16日 19:55   来自PC
海鱼,有空教我做一个。
海鱼  楼主  只看TA的回复
发表于 2008年11月16日 19:58   来自PC
原帖由 圆又芳 于 2008-11-16 19:55 发表

海鱼,有空教我做一个。


有编程基础,就很容易就上手的,说难不难。
格格  只看TA的回复
发表于 2008年11月16日 20:06   来自PC
本来不喜欢玩游戏的,基于是海鱼的作品,支持一下,玩了,很好玩。继续加油!!
海鱼  楼主  只看TA的回复
发表于 2008年11月16日 20:21   来自PC
原帖由 格格 于 2008-11-16 20:06 发表

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


多谢支持~~dd53001
牛牛  只看TA的回复
发表于 2008年11月16日 20:38   来自PC
下载,试玩了一下,不错
海燕  只看TA的回复
发表于 2008年11月17日 08:59   来自PC
支持下,为了顶贴
黑豆  只看TA的回复
发表于 2008年11月18日 15:18   来自PC
海鱼是编程高手啊!:handshake
布衣  只看TA的回复
发表于 2008年11月18日 15:25   来自PC
的确好玩。:lol
周晶晶  只看TA的回复
发表于 2008年11月18日 15:40   来自PC
:loveliness: wo b u you xi d
海鱼  楼主  只看TA的回复
发表于 2008年11月18日 17:22   来自PC
原帖由 周晶晶 于 2008-11-18 15:40 发表

:loveliness: wo b u you xi d


神秘的亚特兰底斯文字?dd65001
holly  只看TA的回复
发表于 2008年11月18日 17:38   来自PC
不会玩,海鱼教教!tzm581
  • 0
  • 14
  • 加收藏
  • 粤ICP备14018191号© 2020 清远休闲网