VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 25036|回复: 56

[原创] 暗棋大师2008(象棋游戏,代码7000行左右)[开源][已更新附件]

[复制链接]
 楼主| 发表于 2008-12-19 20:42:19 | 显示全部楼层 |阅读模式
暗棋大师2008(象棋游戏)[开源]


这个程序模仿了台湾的《暗棋大师2000》(那个程序因为是早期发行的,在XP下没法正常运行,但可以在98下运行。)
程序中使用的声音文件、图像文件等文件版权归原版权人所有。
代码行数:大概7000行。
里面的模块CBitmap.bas和LoadPCX.cls来自PSC,实现读取显示PCX格式的图像文件.

在写这个程序之前,还要以前我曾经就写过两个版本,但没有成功,都半途而废。这个版本虽然不算完全成功,但是已经可以使用了,主要局域网 人 VS 人对战(理论上Internet网上也可以对战,但我没有测试过)或本机 人 VS 人对战。人 VS 电脑模式,这部分我只写了少量代码,基本不能使用,差不多只算是开了个头而已,这个涉及到AI,我当时因为没时间、编写难度较大等等缘故就没写下去,还有电脑-电脑模式我也没实现。

这个程序也花了我不少时间,虽然可能还有少许Bug,但程序已经可以正常使用,但是还不够完善,我希望更多的人看到这个贴子,期待论坛有高手来完善它。人多力量大嘛。要是修改完的话,能发给我一份就最好了。

程序比较大,下面的介绍也不是太详细。

如果测试运行发现有问题,请回复告诉我。


介绍

暗棋,这个好像是台湾的叫法,我们那边一般叫扳棋,也有叫翻棋的,是中国象棋的除了将军棋外的另一种比较简单的下法。这是我最爱的棋类游戏!

中国暗棋的棋盘
横向8个格,纵向4个格,共32个格


Voice.txt
保存的是18个电脑角色的对话
每个角色6句话,各不相同,符合其身份,非常的幽默搞笑。你看看就知道了。
1 对方被你吃掉一个棋子
2 你被对方吃掉一个棋子
3 轮到你下的时候,太长时间没走棋,对方骂
4 你下输了
5 对方输了
6 和局


增修网络语音对话:

F1:大爷饶命!!
F2:快一点,快一点!
F3:还跑,我吃定你了。
F4:怎么会这样?
F5:随便下下都赢你。
F6:你有种!!!
F7:有种再来一盘?
F8:我走先!!
F9:何方妖孽,划下名来。

特殊功能
为了避免意志坚强的玩家,明知大势已去却仍抵死不放弃,徒然浪费时间。特别设计了长捉禁手、空步判和等功能,以避免一场棋玩了半天还结束不了的窘境。

长捉禁手:玩家(对手)将不能追击对方(玩家)同一颗棋子连续10次,以避免一场棋玩了很久还结束不了的僵局。

空步判和:双方连续50步(一个玩家25步)没有吃或翻棋动作,将被判定和局结束。



[游戏规则]

   1. 除了常规的暗棋下法外,就是不允许长捉,4格内最多连续追击3次,越过3次就禁手。还有如果双方50步内没有吃棋的动作,就判和局。
   2. 当主机的人为先手,先翻子来确认双方颜色。

  暗棋大师可以让你一边下棋,一边聊天,不过用在打字的时间可能比下棋还多,所以   
   这个功能可以让你简少打字的时间,直接将一些常用的话记录下来,连线时就可
   以直接叫出来了,使用的方法是直接修改Chat.txt即可。


虽然系统有判和局的功能,但是也许提供 请求对方 和局,认输 功能可以节约一定的时间,因为系统判和比较慢嘛,要走50步。
还有就是记录IP地址和名称,同时记录分数。

_______________________________________________________________

完成源代码包括运行所需的附带文件一起打包共5M

希望大家踊跃回复,觉得好就给我评点分吧,多谢!


[ 本帖最后由 新林 于 2009-1-20 20:58 编辑 ]

程序文件列表

程序文件列表

程序抓图

程序抓图

暗棋大师2008Source.rar

78.68 KB, 下载次数: 1214

源代码(不包括附带文件),适合查看代码,但不能直接运行

暗棋大师2008.part1.rar

2 MB, 下载次数: 1815

完整源码(包含附件)

暗棋大师2008.part2.rar

2 MB, 下载次数: 1803

完整源码(包含附件)

暗棋大师2008.part3.rar

980.17 KB, 下载次数: 1478

完整源码(包含附件)

评分

参与人数 8威望 +44 人气 +8 收起 理由
孟坤软件 + 5 + 1 赞一个
bbadsl + 13 + 2 这个看着挺好玩的
yzx714 + 2 顶啊顶!!!
ewqs + 5 + 2 5M不算大啊,用RAR分割成3个压缩包就可 ...
261001126 + 1 + 1 楼主口袋里是无底洞
slore + 2 + 2 开源
bshkl + 3 楼主疯了
daixinhou + 13 发布源码

查看全部评分

本帖被以下淘专辑推荐:

发表于 2008-12-19 20:44:00 | 显示全部楼层
楼主疯了?
我也疯---疯狂加分!
回复 支持 反对

使用道具 举报

发表于 2008-12-19 20:46:24 | 显示全部楼层
剩下半截 估计是明天传吧,(*^__^*) 嘻嘻……,
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-19 20:51:36 | 显示全部楼层
不是明天传,实在是传不上去。还是传到FoxMail文件中转站吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-12-19 20:55:51 | 显示全部楼层
原帖由 daixinhou 于 2008-12-19 20:44 发表
楼主疯了?
我也疯---疯狂加分!


独乐不如众乐!
回复 支持 反对

使用道具 举报

发表于 2008-12-19 22:02:25 | 显示全部楼层
楼主是 辽宁省 开源 市的吧~
呵呵~
回复 支持 反对

使用道具 举报

发表于 2008-12-19 22:07:16 | 显示全部楼层
疯了大家都疯了!
哈哈!开源的精神就是好啊!
回复 支持 反对

使用道具 举报

发表于 2008-12-19 22:32:49 | 显示全部楼层
人机得时候下标越界
回复 支持 反对

使用道具 举报

发表于 2008-12-20 16:37:19 | 显示全部楼层
回复下载,

我想开源没作品~~
回复 支持 反对

使用道具 举报

发表于 2008-12-20 17:36:57 | 显示全部楼层
太牛X了!
不过怎么好像不能人机对战的?而且才翻了几个棋子就下标越界了
而且通过 http://www.ip138.com 来查公网IP的方法失效了,ip138 网站似乎把查询结果放在了另一个页面上:

  1.     <td align="center"><div align="center">
  2.       <p>在下面输入框中输入您要查询的IP地址或者域名,点击查询按钮即可查询该IP所属的区域。</p>
  3.       <p>IP地址或者域名:<input type="text" name="ip" size="16"> <input type="submit" value="查询"><INPUT TYPE="hidden" name="action" value="2"></p>
  4.     </div></td>

复制代码

[ 本帖最后由 VBProFan 于 2008-12-20 17:47 编辑 ]
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-7-23 06:22

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表