悲剧

史上最大的悲剧

什么时候我们写的程序能够离开DOS时代啊。。呵呵。。

荣誉堂： IAM LEGEND（ 人品值：0，总场次：333）的荣誉战绩：

经验值： 3775

等级： 4

金钱： 670094

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

单场玩家数目 二人 比率 三人 比率 四人 比率 五人 比率 总比率

输了 26 31% 30 47% 25 50% 60 44% 42%

单对 26 31% 19 30% 15 30% 37 27% 29%

两对 14 17% 7 11% 3 6% 20 15% 13%

三条 8 10% 6 9% 5 10% 9 7% 8%

顺子 2 2% - - 1 2% 1 1% 1%

同花 3 4% 1 2% 1 2% 5 4% 3%

葫芦 5 6% 1 2% - - 2 1% 2%

四条 - - -| - - -| 1 1% 0%

同花顺 - - -| - - -| - - -|

至尊宝 - - -| - - -| - - -|

胜利比率 69% 53% 50% 56% 58%

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

快要通了

囧

10000000000+ 啊……

你是不是改存档了？话说怎么编码的我也忘了……要研究需要看源程序。个人认为改出自己想要的数值是不可能的……但是可以改很大很大…… 没往那方面多考虑

• -写过10000+行xiao游戏...
  ...QB时代...

orz楼上

好强

不过出了一个bug?

我钱10000000000+

怎么回事

解决一下

荣誉堂： IAM LEGEND（ 人品值：40，总场次：203）的荣誉战绩：

经验值： 2201

等级： 2

金钱： 422999

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

单场玩家数目 二人 比率 三人 比率 四人 比率 五人 比率 总比率

输了 17 37% 13 46% 17 55% 40 41% 43%

单对 12 26% 10 36% 7 23% 33 34% 31%

两对 7 15% 1 4% 1 3% 12 12% 10%

三条 4 9% 3 11% 4 13% 7 7% 9%

顺子 1 2% - - 1 3% 1 1% 1%

同花 2 4% - - 1 3% 4 4% 3%

葫芦 3 7% 1 4% - - 1 1% 2%

四条 - - -| - - -| - - -|

同花顺 - - -| - - -| - - -|

至尊宝 - - -| - - -| - - -|

胜利比率 63% 54% 45% 59% 57%

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

发个目前我玩的最强的战报~发现存款老是亏……利率明明设置的-10~10，每次出来都亏钱=。=

现在 \(简三锤\) 拥有的牌面为

2 6 9 A Q

\(简三锤\) 输了 赔率为10

现在 \(张九龄\) 拥有的牌面为

J 8 K 10 7

\(张九龄\) 输了 赔率为10

IAM LEGEND 携带的金钱为100759本局终了收益62400 金钱变为163159

\(楚留香\) 携带的金钱为11531本局终了收益-20800 金钱变为-9269

\(简三锤\) 携带的金钱为12827本局终了收益-20800 金钱变为-7973

\(张九龄\) 携带的金钱为10969本局终了收益-20800 金钱变为-9831

\(楚留香\)由于无法支付巨额赌债被追债人塞入了赌局后的窨井里死掉了

\(简三锤\)由于无法支付巨额赌债被追债人塞入了赌局后的窨井里死掉了

\(张九龄\)由于无法支付巨额赌债被追债人塞入了赌局后的窨井里死掉了

\(简三锤\) 拥有的牌面为

山长青水长流天下没有不散的宴席 IAM LEGEND我们就此别过了

^F2 ^F6

由于击败本桌所有对手您获得了赌局税收的20%12120作为奖励

现在您拥有的金钱为175279

通过这次赌局您额外获得了很多的经验值121

通过这次赌局您的经验增加144

通过这次赌局您的金钱增加89093

好像复制的时候有点错乱…… 这是个同花直接抽了5张换牌0。

帮助里面应该有说吧rp值初始100摁死一个-5摁死老板-8这样就能知道还剩多少个对手啦。

至于真正意义上抽牌的rp……本人浅薄编不了……膜拜腾讯小游戏里编好人品道具的牛们……呵呵呵 所以rp和人品没啥关系啦

是为了增加难度来着~~~

看了下lz的源程，只是。。

除了一开始给rp赋值为100之外，其余的都是dec..

难道这游戏里人品也遵守熵增？》

额，这么高的贴 话说我们班同学用c++ 编了开心农场......

1.开心农场不是网络化的应用吗。。。。

2.他那些素材那里来的=。=？一个个用PS抠的=。=？本来和一群人想把农场写成DZ的插件。但是那些素材太难搞了。。。后来放弃了。。。。。。

3.顺便ORZ上面的各位牛。

ls的那谁谁谁我帮你报输给刘谦的仇了

# # # # # # # # #

4 # # 10 # # 2 # # 8 # # K #

########### ########### ########### ########### ###########

litianren 同花 赔率为116

现在 \(刘谦\) 拥有的牌面为

6 K Q J 9

\(刘谦\) 输了 赔率为10

litianren 携带的金钱为64007本局终了收益12800 金钱变为76807

\(刘谦\) 携带的金钱为6816本局终了收益-12800 金钱变为-5984

\(刘谦\)由于无法支付巨额赌债被追债人塞入了赌局后的窨井里死掉了

山长青水长流天下没有不散的宴席 litianren我们就此别过了

由于击败本桌所有对手您获得了赌局税收的20%4100作为奖励

现在您拥有的金钱为80907

通过这次赌局您额外获得了很多的经验值41

额，这么高的贴

话说我们班同学用c++

编了开心农场......

感谢ccw、感谢管理员，Orz ccw……、Orz楼上各大牛。 感谢ccav=。=

再发个最终版本，在银行里加了+-*/计算器。

除了再加入新模块外，程序的所有模块都已写完测试，消灭了任何明显的和稍稍不明显的bug。

11月1日21:47链接：

http://www.brsbox.com/filebox/down/fc/cba88aabea4ded78e6cc64cd7c7fdaa3

向大家推荐这个网盘，蛮好用的，是我在百度随手搜的。

明天开始刷题，所以将不再对这个游戏进行任何更新。

有任何bug，想法，心得的话——游戏源代码随程序发放……请自己修改……虽然我写的代码比较烂……

一个小秘密，获取扑克牌的模块是getcard可以用ctrl+f找到，稍稍修改，就能拿到自己想要的牌啦。谨慎修改，请仅作测试程序时用。

不知道在linux下如何跑。本人xp系统。

银行帮助可以看了，具体在银行中输入0。里面有利息的计算方法，具体是，每次赌桌算一天。+

C看不懂，noip完再学，哈哈。

无聊ing...

发个钢琴

#include

#include

#include

#include

int main( )

{

char ch;

printf("Please play the piano! 121314151617111\n");

while((ch=getche())!='q')

{switch(ch)

{

case '1': Beep(262,300);break;

case '2': Beep(294,300);break;

case '3': Beep(330,300);break;

case '4': Beep(349,300);break;

case '5': Beep(392,300);break;

case '6': Beep(440,300);break;

case '7': Beep(494,300);break;

default:break;

}

}

system("pause");

return 0;

}

C的

音调八成不准，各位调音师帮帮忙

"vijos..."

...= of game

哇哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈

。

咳咳、、这里是vijos ..o.o

lss!如果用库的话。。。

用graph吧，这样顺眼点

lz在了...

ls的问题原因是默认的是437英文，改成936中文就行了

然后再给个建议。

清屏的话。

可以直接USES CRT;

然后将 for i:=1 to 40 do writeln;

改成 CLRSCR;

不过有个问题是。。。为啥我改了一次之后。。。无论如何（删掉也没用），用FPC KINGCARD.PAS都显示不了中文了。。。。（擦汗

ORZ CCW。

建议开留言板或者网站吧。。。（掩面

ls，我发给你了，是848563427@qq.com这个吗？

是IE啊 不知道为什么 能不能请你发到我邮箱里啊..?

能在linux下跑吗？

你是什么浏览器？IE吗？IE可以的

打开网页后什么也不显示啊?..

orz宋牛

orz

RT

【顶一下下】

RT

利息怎么算？我没注意

对了顺便告诉lz花色在txt文档里会显示

这倒是真的

只有在程序运行窗口才会被分析为花色

http://www.brsbox.com/filebox/down/fc/2c2572d55314f398c6190d2b03ea3b9a

怎么会下不了？我下好了

网页点开了下不了? 怎么回事..?

lz，编软件可不是半个月的事情，软件就是要不断更新的，不可能有完美的软件

我是几个程序不断改

非常抱歉的再发一个修正版，看来我的确还没有编软件的实力，游戏公司这么发修正就被人骂死了……

修正开局必须还钱的致命bug，导致错误的原因是两个变量写反了。

旧版本的存档读取后最好先进入一次银行更新储蓄信息再进行游戏！

链接：

http://www.brsbox.com/filebox/down/fc/2c2572d55314f398c6190d2b03ea3b9a

发一个第一局rp爆发的战绩

荣誉堂： IAM LEGEND（ 人品值：100，总场次：21）的荣誉战绩：

经验值： 1126

等级： 1

金钱： 90594

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

单场玩家数目 二人 比率 三人 比率 四人 比率 五人 比率 总比率

输了 - - -| - - -| 4 19% 19%

单对 - - -| - - -| 11 52% 52%

两对 - - -| - - -| 3 14% 14%

三条 - - -| - - -| 1 5% 5%

顺子 - - -| - - -| - - -|

同花 - - -| - - -| 2 10% 10%

葫芦 - - -| - - -| - - -|

四条 - - -| - - -| - - -|

同花顺 - - -| - - -| - - -|

至尊宝 - - -| - - -| - - -|

胜利比率 - - -| 81% 81%

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

至尊宝我打出来了!

感谢管理员没冻这个帖子

关于本游戏最后的修改也已完成，增加了银行贷款功能，另外修正了死的AI不是同一个AI的问题……

也许还会有很小的显示性bug，但应该不会再做集体的更新了！

另外大家可以把比较强大的-sahi存下的战绩发出共享，更有竞技性！

谢谢大家……~肉牛满面=。=

期待看到第一个至尊宝的诞生！

最终版下载链接：

http://www.brsbox.com/filebox/down/fc/4326db23465e726181a61e71566e81ec

orz

LZ是牛人

顶

原版花色挺好的呀，小牌用的就是#3#4#5#6，同样无法解决全屏的显示问题。

另我记得以前没这么难的，难道1个月没看AI悄悄提升了智力…也许是用银行…暂时上传一个最新debug的版本吧，处理了昨晚我玩时候遇到的显示性等小问题。另外修正了银行可以无限刷经验的bug……。有兴趣的朋友可以去原版体验一下。 我正在做银行的贷款功能，可能会降低一部分游戏难度，下午再发更新版。~

谢谢大家支持！

http://www.brsbox.com/filebox/down/fc/228274855f4e8294a6059dde8227c6c3

。。。

太难了，对了lz那个花色改了吗？

玩到40w后 被刘谦（=。=）一个同花顺KO 感觉很神奇。

荣誉堂： IAM LEgend（ 人品值：-64，总场次：284）的荣誉战绩：

经验值： 2272

等级： 2

金钱： 113552

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

单场玩家数目 二人 比率 三人 比率 四人 比率 五人 比率 总比率

输了 24 31% 25 39% 30 54% 45 52% 44%

单对 34 44% 26 41% 15 27% 20 23% 33%

两对 13 17% 7 11% 9 16% 14 16% 15%

三条 5 6% 4 6% 1 2% 3 3% 5%

顺子 - - -| - 1 2% 3 3% 1%

同花 - - 1 2% - - 1 1% 1%

葫芦 1 1% - - -| - - -| 0%

四条 1 1% 1 2% - - -| - 1%

同花顺 - - -| - - -| - - -|

至尊宝 - - -| - - -| - - -|

胜利比率 69% 61% 46% 48% 56%

***|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|\**|*

哎 玩了一晚上 这个号又给挂了 太难了……

orz天下神牛

50楼我来也

屠就是赌，一屠勇就是一赌勇

单对只有JQKA才能获得奖励！不要以为是bug……

自己写的贪吃蛇，不过有bug...

program tcs;

uses

crt;

label 1;

type

map=array[0..31,0..31] of char;

tshe=^tshen;

tshen=record

x,y:integer;

ml:string;

link:tshe;

end;

var

a:map;she:tshe;b:boolean;i:integer;

procedure insert(var n:tshe;c:char);

var

p:tshe;s:string;

begin

p:=n;

s:='';

while p^.linknil do begin

p:=p^.link;

end;

s:=p^.ml;

new(p^.link);

s:=c+s;

p^.link^.ml:=s;

p^.link^.x:=p^.x;

p^.link^.y:=p^.y;

p^.link^.link:=nil;

with p^.link^ do

case c of

'd':dec(y);

's':dec(x);

'a':inc(y);

'w':inc(x);

end;

a[p^.x,p^.y]:='0';

end;

procedure init;

var

i,j:integer;

begin

clrscr;

new(she);

she^.link:=nil;

she^.x:=5;

she^.y:=5;

she^.ml:='';

fillchar(a,sizeof(a),' ');

a[5,5]:='0';

for i:=0 to 31 do

begin

a:='X';

a:='X';

a[0,i]:='X';

a[31,i]:='X';

end;

for i:=0 to 31 do

begin

a[0,i]:='X';

a[31,i]:='X';

end;

for i:=0 to 31 do write(a[0,i]);

writeln;

for i:=1 to 30 do

writeln(a,a:31);

for i:=0 to 31 do write(a[31,i]);

end;

procedure print;

var

p:tshe;var i:integer;

begin

clrscr;

for i:=0 to 31 do write(a[0,i]);

writeln;

for i:=1 to 30 do

writeln(a,a:31);

for i:=0 to 31 do write(a[31,i]);

p:=she;

while pnil do

begin

gotoxy(p^.y+1,p^.x+1);

write('0');

p:=p^.link;

end;

end;

procedure move(l:char);

var

s:string;p:tshe;c:char;

begin

s:=l;

if she^.link=nil then

begin

a[she^.x,she^.y]:=' ';

gotoxy(she^.y+1,she^.x+1);

write(' ');

end;

with she^ do

case l of

'd':inc(y);

's':inc(x);

'a':dec(y);

'w':dec(x);

end;

if not (a[she^.x,she^.y] in [' ','a']) then begin

clrscr;

writeln('gameover ',i);

readln;

halt;

end;

if a[she^.x,she^.y]='a' then begin

b:=false;

case l of

'd':insert(she,'a');

's':insert(she,'w');

'a':insert(she,'d');

'w':insert(she,'s');

end;

end;

a[she^.x,she^.y]:='0';

gotoxy(she^.y+1,she^.x+1);

write('0');

if she^.link=nil then exit;

p:=she^.link;

while p^.linknil do

begin

p^.ml:=p^.ml+l;

with p^ do

case ml[1] of

'd':inc(y);

's':inc(x);

'a':dec(y);

'w':dec(x);

end;

delete(p^.ml,1,1);

p:=p^.link;

end;

s:=s+l;

a[p^.x,p^.y]:=' ';

gotoxy(p^.y+1,p^.x+1);

write(' ');

p^.ml:=p^.ml+l;

with p^ do

case ml[1] of

'd':inc(y);

's':inc(x);

'a':dec(y);

'w':dec(x);

end;

delete(p^.ml,1,1);

end;

function bb(c:char):char;

begin

case c of

'w':bb:='s';

'd':bb:='a';

's':bb:='w';

'a':bb:='d';

end;

end;

var c,cc,c2:char;x,y:integer;

begin

1:clrscr;

writeln('Are you ready?');

while not keypressed do ;

clrscr;

init;

insert(she,'d');

c:='s';

i:=-1;

print;

b:=false;

while true do

begin

while not keypressed do

begin

delay(100);

if not b then begin

inc(i);

x:=random(20)+1;

y:=random(20)+1;

a[x,y]:='a';

gotoxy(y+1,x+1);

write('a');

b:=true;

end

else

begin

a[x,y]:='a';

gotoxy(y+1,x+1);

write('a');

end;

if c in['w','a','s','d'] then

if bb(c)cc then

move(c)

else move(cc);

end;

a[x,y]:='a';

c2:=readkey;

if c2c then

begin

cc:=c;

c:=c2;

end;

end;

end.

Edogawa Conan=矮冬瓜哇~柯南

orz~~~~~~~~~~~~~~~~~~~~~~~~

orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`orz~`

牛人啊。。。