rouren 发表于 2010-6-16 19:44:37

赌博游戏

"============="

"=== GAMBLER ==="

"=   ROU-REN      ="

"============="

输出


cls

"left money":5000->n输出

while n>0

LBI A

Cls

"MONEY"?->A

If A>N Or A≤0 Or Frac(a)≠0

Then

Goto A

IfEnd

RanInt#(1.6)->C

If C=1 Or C=3 Or C=5

Then

Cls

Locate 5,2,输出

"LEFT MONEY":2A+N->N输出

IfEnd

If C=2 Or C=4 Or C=6

Then

Cls

Locate 5,2,""输出

"LEFT MONEY":N-A->N输出

IfEnd

WhileEND

Cls

"OUT OF MONEY!"

"YOU ARE NC!"输出

ClrMemory

Stop

疯不狂 发表于 2010-6-16 19:55:03

感谢分享！

imath 发表于 2010-6-16 20:22:13

没必要把代码写上吧?
提示:用code函数代码更好看

kexuestudy 发表于 2010-7-23 14:27:47

真的很无聊啊~

Ulysses 发表于 2010-8-16 21:27:21

还是不要打击别人吧，你也做个更好的给我们看看啊。
（我本不想回复老帖）

zhuloupu4 发表于 2010-8-17 12:41:44

真是好啊，好的不得了啊，好的我不想玩了

rowe123456 发表于 2014-12-20 17:29:44

什么。。。。
页: [1]
查看完整版本: 赌博游戏