小游戏，delphi 写的跳舞机，带源码发布！

S.F.

大家见笑，是一个简单的跳舞机游戏
下载地址是：
ftp://new:1234567new@61.129.70.192/datanew/2003092609021614396.rar

{**************************************************************

跳舞机 ver 1.0
作者：萧寒 (S.F.)
!QQ:410000
e-Mail:chinasf@hotmail.com

开发环境：Delphi 7.0 , DirectX 9.0 SDK

资源内容：源码+执行文件+资源文件
1.wav 背景声音，也是游戏的核心
L1.Lvl 文本文件，可编辑，是舞步脚本

(由于WAV文件格式太大，所以音乐文件只一个，并且很短，舞步脚本节拍
是随手输入的，调整 metronome 常量可以修改节拍器，我对音乐不了解，
所以我做不了这些事情，sorry.)

一个跳舞机游戏框架，类的独立性不强，因为程序不大；所以很多地方
是简化了与类的交互，但还是具有很强的扩展性。

已公布的源码有：欢乐五子棋（GDI 版和 C#-GDI+ 版本）

该源码的算法简单，只针对游戏编程爱好者和初学者，仅供参考，不得
用于商业用途，另外，图形资源原稿修改于vb所编写的跳舞机，作者是
s5851217@cc.hwh.edu.tw ，该作者vb的代码是GDI写的，用了内存绘图
机制，是个学习的好题材，本程序的舞步脚本格式就是参照他的，只做了
小小改动，thank!

跳舞机的舞步脚本格式如下：
标准 Windows 文本文件格式
行1，保存声音文件的路径和文件名，如： c:1.WAV
从行2开始的格式是 int,int,int,int NextTime(DWORD)
比如： 1001 100
前四位表示四个方向的按键图象，为0 则不现，为1 则显示，1001 表示显示Left 和 Right
100 这个值表示 秒/1000 ，一个时间值，可以用小写 x 表示，默认为2700 ,既 2.7 秒

到行尾则该关结束；

评判是否到下关，可以检查 MainForm 类的 DeadCount 整形
如：失误小于 10 个 ( if MainForm.DeadCount<10 then ContinueNextLevelGame; ）

程序花了两个下班的休息时间，最后祝大家学习愉快！望与爱好者交流探讨与研究。

**************************************************************}  [em3]

开心人

顶