下载《仙剑》金曲

樊一鹏
1997-01-01

#3　　你知道游戏《仙剑奇侠传》共有多少金曲吗？——８６首！现在，你终于可以一次性拥有这８６首金曲的特辑了！这就是要送给大家的——《仙剑》音乐下载小程序。
　　源程序名：ＰＡＬ－ＭＩＤＩＣ
　　编译环境：ＴＵＲＢＯ　Ｃ或ＢＯＲＬＡＮＤ　Ｃ＋＋；有波表卡，效果将更好。
　　＃ｉｎｃｌｕｄｅ　＜ｓｔｄｉｏｈ＞
　　＃ｉｎｃｌｕｄｅ　＜ｓｔｄｌｉｂｈ＞
　　＃ｉｎｃｌｕｄｅ　＜ｃｏｎｉｏｈ＞
　　ｃｈａｒ　ＴａｒｇｅｔＦｉｌｅＮａｍｅ［３２］＝＂ＭＵＳＩＣ－００ＭＩＤ＂；／＊目标文件名＊／
　　ｖｏｉｄ　ｍａｉｎ（ｖｏｉｄ）
　　｛　
　　ＦＩＬＥ　＊ＳｏｕｒｃｅＦｉｌｅ，＊ＴａｒｇｅｔＦｉｌｅ；／＊文件指针＊／　
　　ｌｏｎｇ　Ｓｔａｒｔ，Ｅｎｄ，Ｌｅｎ；
　　ｉｎｔ　ｉ，ｊ，ｋ，ｆｉｌｅ；
　　ｆｉｌｅ＝０；
　　ｃｌｒｓｃｒ（）；
　　ｇｏｔｏｘｙ（１８，１０）；
　　ｐｒｉｎｔｆ（＂《仙剑奇侠传》音乐文件生成器　作者：樊一鹏＂）；
　　／＊打开源文件＊／
　　ｉｆ（（ＳｏｕｒｃｅＦｉｌｅ＝ｆｏｐｅｎ（＂ＭＩＤＩ．ＭＫＦ＂，＂ｒｂ＂））＝＝ＮＵＬＬ）
　　／＊打开源文件失败＊／
　　ｇｏｔｏｘｙ（２１，１３）；
　　ｐｒｉｎｔｆ（＂错误：当前目录下找不到ＭＩＤＩＭＫＦ文件！＼ｎ＂）；
　　ｅｘｉｔ（１）；
　　｝
　　／＊主循环＊／
　　ｆｏｒ（ｉ＝１；ｉ＜＝８７；ｉ＋＋）
　　／＊读指针定位＊／
　　ｆｓｅｅｋ（ＳｏｕｒｃｅＦｉｌｅ，ｉ＊４，ＳＥＥＫ－ＳＥＴ）；
　　ｆｒｅａｄ（＆Ｓｔａｒｔ，１，４，ＳｏｕｒｃｅＦｉｌｅ）；
　　ｆｒｅａｄ（＆Ｅｎｄ，１，４，ＳｏｕｒｃｅＦｉｌｅ）；
　　ｆｓｅｅｋ（ＳｏｕｒｃｅＦｉｌｅ，Ｓｔａｒｔ，ＳＥＥＫ－ＳＥＴ）；
　　／＊计算音乐文件长度＊／
　　Ｌｅｎ＝Ｅｎｄ－Ｓｔａｒｔ；
　　／＊音乐文件是否存在＊／
　　ｉｆ（Ｌｅｎ＞０）
　　｛　
　　／＊音乐文件存在，开始处理＊／
　　＋＋ｆｉｌｅ；
　　ＴａｒｇｅｔＦｉｌｅＮａｍｅ［６］＝（ｆｉｌｅ／１０）＋＇０＇；
　　ＴａｒｇｅｔＦｉｌｅＮａｍｅ［７］＝（ｆｉｌｅ％１０）＋＇０＇；
　　／＊打开目标文件＊／
　　ＴａｒｇｅｔＦｉｌｅ＝ｆｏｐｅｎ（ＴａｒｇｅｔＦｉｌｅＮａｍｅ，＂ｗｂ＂）；
　　／＊生成目标文件＊／
　　ｇｏｔｏｘｙ（２３，１３）；
　　ｐｒｉｎｔｆ（＂正在生成第［％ｄ］首音乐：％ｓ＂，ｆｉｌｅ，ＴａｒｇｅｔＦｉｌｅＮａｍｅ）；
　　ｆｏｒ（ｊ＝０；ｊ＜Ｌｅｎ；ｊ＋＋）
　　｛　　　　
　　ｋ＝ｆｇｅｔｃ（ＳｏｕｒｃｅＦｉｌｅ）；　　　　
　　ｆｐｕｔｃ（ｋ，ＴａｒｇｅｔＦｉｌｅ）；　　　
　　｝
　　／＊关闭目标文件＊／
　　ｆｃｌｏｓｅ（ＴａｒｇｅｔＦｉｌｅ）；
　　｝
　　｝
　　／＊关闭源文件＊／
　　ｆｃｌｏｓｅ（ＳｏｕｒｃｅＦｉｌｅ）；
　　ｇｏｔｏｘｙ（２９，１５）；
　　ｐｒｉｎｔｆ（＂音乐文件全部生成完毕！＼ｎ＂）；
　　｝
　　以上程序可在ＴＵＲＢＯ　Ｃ或ＢＯＲＬＡＮＤ　Ｃ＋＋集成环境下输入、编译（ｃｏｍｐｉｌｅ）、链接（ｌｉｎｋ）形成可执行文件ＰＡＬ－ＭＩＤＩ．ＥＸＥ，把它拷入《仙剑》所在子目录下运行，就会用ＭＩＤＩ格式生成八十六个音乐文件，从ＭＵＳＩＣ－０１．ＭＩＤ到ＭＵＳＩＣ－８６．ＭＩＤ。如果用户的机器上没有Ｃ语言或不懂得编译过程，可寄１０元钱到本报编辑部拷贝源代码和执行文件。

 