赌博游戏

rouren

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

"=== GAMBLER ==="

"=     ROU-REN      ="

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

输出

1. 
   
2. cls
   
3. 
   
4. "left money":5000->n输出
   
5. 
   
6. while n>0
   
7. 
   
8. LBI A
   
9. 
   
10. Cls
    
11. 
    
12. "MONEY"?->A
    
13. 
    
14. If A>N Or A≤0 Or Frac(a)≠0
    
15. 
    
16. Then
    
17. 
    
18. Goto A
    
19. 
    
20. IfEnd
    
21. 
    
22. RanInt#(1.6)->C
    
23. 
    
24. If C=1 Or C=3 Or C=5
    
25. 
    
26. Then
    
27. 
    
28. Cls
    
29. 
    
30. Locate 5,2,[YOU WIN]输出
    
31. 
    
32. "LEFT MONEY":2A+N->N输出
    
33. 
    
34. IfEnd
    
35. 
    
36. If C=2 Or C=4 Or C=6
    
37. 
    
38. Then
    
39. 
    
40. Cls
    
41. 
    
42. Locate 5,2,"[YOU LOSE]"输出
    
43. 
    
44. "LEFT MONEY":N-A->N输出
    
45. 
    
46. IfEnd
    
47. 
    
48. WhileEND
    
49. 
    
50. Cls
    
51. 
    
52. "OUT OF MONEY!"
    
53. 
    
54. "YOU ARE NC!"输出
    
55. 
    
56. ClrMemory
    
57. 
    
58. Stop
    
59. 
    

复制代码

疯不狂

感谢分享！

imath

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

kexuestudy

真的很无聊啊~

Ulysses

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

zhuloupu4

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

rowe123456

什么。。。。