VB6+TV3D 同屏幕实现1000架飞机效率不低

游戏之家

这个是还没完全显示出的画面，现在用的是500架，其实屏幕上有几百架就要把屏幕塞满的，
这个是有判断的运行画面。

游戏之家

也是为下一个游戏预告：

wangh

FPS才37

我上次发的DEMO
“飞机数量200
子弹数量2000
塞扬D3.0  ATI9550   FPS60流畅运行，CPU占用低于30%”

游戏之家

不好意思， 我的电脑是 AMD 1.2G / GF2-MX400/32M，要是你的机跑100 FPS，
你没看我37 FPS是有个大的爆炸画面，还有个大飞机模型，大飞机不是背景，
全部有判断，自己和敌人是否中弹。
我放2000架飞机随便，还是VB6的， 不过你看的只是测试画面，
真正的游戏怎么可能有100架飞机在屏幕上，飞机没地方飞，一飞就撞了。

wangh

晕，难道我的就没有判断

真正的游戏用上几百个图象很正常的，除了飞机，还有爆炸烟雾之类的效果。。。

游戏之家

ATI9550   FPS60 ? 是不是差了点?

游戏之家

所有的碰撞处理都有，包括我炮弹击中任何一架小飞机，还有我自己撞上小飞机，
我的检测方法不消耗CPU资源， 判断1000架飞机用一句就可以了，我在19401里面就
是这么做的。

大树懒

游戏之家: Re:VB6+TV3D 同屏幕实现1000架飞机效率不低

所有的碰撞处理都有，包括我炮弹击中任何一架小飞机，还有我自己撞上小飞机，
我的检测方法不消耗CPU资源， 判断1000架飞机用一句就可以了，我在19401里面就
是这么做的。

好厉害,,不用消耗CPU资源的呀?!
能告诉我你是怎么做到的吗?我也正在写飞机游戏,呵呵,谢了;)

wangh

估计可能是调用了TV3D一个函数，所以只有一句

至于背后执行了多少东西那就不清楚了Orz

游戏之家

不是呀！我1940I 的写法，程序还是自己写的， 调用的只是画图函数，
35是敌机尺寸。

If Int(PositionX) > .PositionX And Int(PositionX) < .PositionX + 35 And Int(PositionY) > .PositionY And Int(PositionY) < .PositionY + 35 Then
'中弹显示
End If