VBGood网站全文搜索
搜索VBGood全站网页(全文搜索)
Email 记住密码
密码 登录
安全验证
0) {$('ls_a wer').style.di lay='';$('ls_a wer').focus();} else {$('ls_a wer').style.di lay='none';}">
安全提问(未设置请忽略)
母亲的名字
爷爷的名字
父亲出生的城市
你其中一位老师的名字
你个人计算机的型号
你最喜欢的餐馆名称
驾驶执照最后四位数字
搜索本版
暗棋大师2008(象棋游戏，代码7000行左右)[开源][已更新附 ...
当前离线
在线时间
727 小时 威望
1448 金钱
5502 人气
620 最后登录
2011-7-24 注册时间
2006-3-29 帖子 精华
12458 阅读权限
200 UID
76641 擂点
620 威望
1448 注册时间
2006-3-29 精华
5 帖子 发表于 2008-12-19 20:42
暗棋大师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 对方输了
增修网络语音对话：
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 编辑
才可以下载或查看附件。没有帐号？
这个看着挺好玩的 威望 + 13
人气 + 2
顶啊顶！！！ 威望 + 2
5M不算大啊,用RAR分割成3个压缩包就可 ... 威望 + 5
人气 + 2
楼主口袋里是无底洞 威望 + 1
人气 + 1
开源 威望 + 2
人气 + 2
楼主疯了 威望 + 3
发布源码 威望 + 13
努力!!!奋斗!!!
生命不息，战斗不止！自强不息！！
当前离线
在线时间
484 小时 威望
117 金钱
600 人气
12 最后登录
2011-5-26 注册时间
2005-10-18 帖子 精华
5314 阅读权限
29110 系统分析员
, 积分 5314, 距离下一级还需 2686 积分
12 威望
117 注册时间
2005-10-18 精华
0 帖子 发表于 2008-12-19 20:44
楼主疯了？
我也疯---疯狂加分！
当前在线
在线时间
1860 小时 威望
161 金钱
690 人气
96 最后登录
2011-7-26 注册时间
2007-3-1 帖子 精华
19198 阅读权限
200 UID
100168 网络设计师
, 积分 19198, 距离下一级还需 12802 积分
96 威望
161 注册时间
2007-3-1 精华
0 帖子 发表于 2008-12-19 20:46
剩下半截 估计是明天传吧,(*^__^*) 嘻嘻……,
当前离线
在线时间
727 小时 威望
1448 金钱
5502 人气
620 最后登录
2011-7-24 注册时间
2006-3-29 帖子 精华
12458 阅读权限
200 UID
76641 擂点
620 威望
1448 注册时间
2006-3-29 精华
5 帖子 发表于 2008-12-19 20:51
不是明天传，实在是传不上去。还是传到FoxMail文件中转站吧
努力!!!奋斗!!!
生命不息，战斗不止！自强不息！！
当前离线
在线时间
727 小时 威望
1448 金钱
5502 人气
620 最后登录
2011-7-24 注册时间
2006-3-29 帖子 精华
12458 阅读权限
200 UID
76641 擂点
620 威望
1448 注册时间
2006-3-29 精华
5 帖子 发表于 2008-12-19 20:55
daixinhou
于 2008-12-19 20:44 发表
楼主疯了？
我也疯---疯狂加分！
独乐不如众乐！
努力!!!奋斗!!!
生命不息，战斗不止！自强不息！！
当前离线
在线时间
265 小时 威望
36 金钱
858 人气
130 最后登录
2011-4-14 注册时间
2008-12-16 帖子 精华
3075 阅读权限
159327 高级程序员
, 积分 3075, 距离下一级还需 925 积分
130 威望
36 注册时间
2008-12-16 精华
0 帖子 发表于 2008-12-19 22:02
楼主是 辽宁省 开源 市的吧~
当前离线
在线时间
64 小时 威望
77 人气
2 最后登录
2010-2-4 注册时间
2008-10-20 帖子 精华
718 阅读权限
153459 中级程序员
, 积分 718, 距离下一级还需 1282 积分
2 注册时间
2008-10-20 精华
0 帖子 发表于 2008-12-19 22:07
疯了大家都疯了!
哈哈！开源的精神就是好啊！
当前离线
在线时间
392 小时 威望
141 金钱
854 人气
11 最后登录
2011-1-18 注册时间
2006-1-7 帖子 精华
4544 阅读权限
62079 系统分析员
, 积分 4544, 距离下一级还需 3456 积分
11 威望
141 注册时间
2006-1-7 精华
1 帖子 发表于 2008-12-19 22:32
人机得时候下标越界
当前离线
在线时间
147 小时 威望
250 金钱
519 人气
86 最后登录
2011-1-26 注册时间
2007-1-13 帖子 精华
2178 阅读权限
98052 高级程序员
, 积分 2178, 距离下一级还需 1822 积分
86 威望
250 注册时间
2007-1-13 精华
0 帖子 发表于 2008-12-20 16:37
回复下载，
我想开源没作品～～
当前在线
在线时间
2731 小时 威望
2984 金钱
17875 人气
911 最后登录
2011-7-26 注册时间
2006-6-14 帖子 精华
40506 阅读权限
200 UID
85054 擂点
911 威望
2984 注册时间
2006-6-14 精华
8 帖子 发表于 2008-12-20 17:36
太牛X了！
不过怎么好像不能人机对战的？而且才翻了几个棋子就下标越界了
而且通过
来查公网IP的方法失效了，ip138 网站似乎把查询结果放在了另一个页面上： td align=centerdiv align=center lt gt;在下面输入框中输入您要查询的IP地址或者域名，点击查询按钮即可查询该IP所属的区域。/ gt; lt gt;IP地址或者域名：i ut type=text name=i quot; size=16 i ut type=" ubmit value=查询INPUT TYPE=hidde quot; name=actio quot; value=2/ gt; /div/td
复制代码
本帖最后由 VBProFan 于 2008-12-20 17:47 编辑
人类社会发展有很多问题，但归根到底只有三个——长相问题、纯洁问题和人品问题。任何不解的事情，包括《十万个为什么》里面找不到***的，都可以在这三大问题中找到***。
你需要登录后才可以回帖
发表回复
回帖后跳转到最后一页
DiscuzX
GMT+8, 2011-7-26 17:09
2000-2011
积分 0, 距离下一级还需已解决问题
回答采纳率:13.9%
2009-06-21 00:14
Copyright 1998 – 2011 Tencent. All Rights Reserved.
在上方输入您感兴趣的知识，点击搜索***后，下方将出现您感兴趣的问题列表。
进入任一您感兴趣的问题查看，点选其满意***处的4个评价按钮之一，即可完成对该满意***的评价。已解决问题
回答采纳率:20.0%
2008-08-28 18:39
Copyright 1998 – 2011 Tencent. All Rights Reserved.
在上方输入您感兴趣的知识，点击搜索***后，下方将出现您感兴趣的问题列表。
进入任一您感兴趣的问题查看，点选其满意***处的4个评价按钮之一，即可完成对该满意***的评价。