cnCalc计算器论坛

 找回密码
 注册
搜索
查看: 3785|回复: 2

[fx-9860/9750系列] 【.G1M】【CRPG】三国杀简版,只支持杀,闪,桃

[复制链接]
发表于 2010-9-18 11:23:51 | 显示全部楼层 |阅读模式
计算器程序
程序名称: 【CRPG】三国杀简版
平台: fx-9860GII fx-9860G & Slim fx-9750GII fx-9750G系列  fx-7400G Plus 
系统/软件要求:
版本号: I
类型: 游戏 
作者: GWHBOB_大吉猪共荣圈
大小(K): 2100
更新日期: 2010-09-18
描述: 【.G1M】【CRPG】三国杀简版,只支持杀,闪,桃
已知缺陷: 不清楚,不过源码乱七八糟。
源代码: 开源/部分开源
空虚的时候玩玩吧!

CRPG.rar

1.21 KB, 下载次数: 91, 下载积分: 金钱 -1

 楼主| 发表于 2010-9-18 11:27:31 | 显示全部楼层
源码贴上来:(没有去除乱码)
  1. Filename:CRPG
  2. {2,3}鉊im Mat C?
  3. {2,3}鉊im Mat E?
  4. 5鉓at C[2,1]?
  5. 5鉓at E[2,1]?
  6. For 1鉞 To 4?
  7. @7F871,3)鉟?
  8. Mat C[1,Y]+1鉓at C[1,Y]?
  9. @7F871,3)鉟?
  10. Mat E[1,Y]+1鉓at E[1,Y]?
  11. Next?
  12. While 1?
  13. "Your Turn"?
  14. 1鉑?
  15. "You got 2 CARDS"?
  16. @7F871,3)鉟?
  17. Mat C[1,Y]+1鉓at C[1,Y]?
  18. @7F871,3)鉟?
  19. Mat C[1,Y]+1鉓at C[1,Y]?
  20. Lbl 0?
  21. Prog "罝ISPLAY"?
  22. @F79E"END?","No",1,"Yes",2?
  23. Lbl 1?
  24. Prog "罶CARD"?
  25. Prog "罸CARD"?
  26. Goto 0?
  27. Lbl 2?
  28. 0鉟?
  29. For 1鉞 To 3?
  30. Y+Mat C[1,X]鉟?
  31. Next?
  32. If Y>Mat C[2,1]?
  33. Then ?
  34. "Opps,You should throwsome CARDS"?
  35. Prog "罶CARD"?
  36. C=0譍oto 2?
  37. If (Mat C[1,C]>0)?
  38. Then ?
  39. Mat C[1,C]-1鉓at C[1,C]?
  40. IfEnd?
  41. IfEnd?
  42. 0鉟?
  43. For 1鉞 To 3?
  44. Y+Mat C[1,X]鉟?
  45. Next?
  46. Y>Mat C[2,1]譍oto 2?
  47. ?
  48. ?
  49. ?
  50. ?
  51. "ZZM's Turn"?
  52. "ZZM got 2 CARDS"?
  53. @7F871,3)鉟?
  54. Mat E[1,Y]+1鉓at E[1,Y]?
  55. @7F871,3)鉟?
  56. Mat E[1,Y]+1鉓at E[1,Y]?
  57. If (Mat E[1,1]>0) And (@7F871,2)=1)?
  58. Then ?
  59. "ZZM used a KILL"?
  60. Mat E[1,1]-1鉓at E[1,1]?
  61. If Mat C[1,2]>0?
  62. Then "You used a MISS"?
  63. Mat C[1,2]-1鉓at C[1,2]?
  64. Else Prog "罜HURT"?
  65. IfEnd?
  66. IfEnd?
  67. Lbl 3?
  68. 0鉟?
  69. For 1鉞 To 3?
  70. Y+Mat E[1,X]鉟?
  71. Next?
  72. If Y>Mat E[2,1]?
  73. Then ?
  74. For 1鉠 To 3?
  75. If (Mat E[1,Z]>0) And (@7F871,2)=1)?
  76. Then ?
  77. Mat E[1,Z]-1鉓at E[1,Z]?
  78. "ZZM threw a CARD"?
  79. Goto 3?
  80. IfEnd?
  81. Next?
  82. IfEnd?
  83. 0鉟?
  84. For 1鉞 To 3?
  85. Y+Mat E[1,X]鉟?
  86. Next?
  87. Y>Mat E[2,1]譍oto 3?
  88. WhileEnd
复制代码
  1. Filename:罜HURT
  2. "You lost a HP"?
  3. Mat C[2,1]-1鉓at C[2,1]?
  4. If Mat C[2,1]??
  5. Then ?
  6. If Mat C[1,3]>0?
  7. Then ?
  8. Mat C[1,3]-1鉓at C[1,3]?
  9. Mat C[2,1]+1鉓at C[2,1]?
  10. "You used a HEAL"?
  11. Else ?
  12. "You LOST???"?
  13. Stop?
  14. IfEnd?
  15. IfEnd
复制代码
  1. Filename:罝ISPLAY
  2. ClrText?
  3. "+Kill of 3 Kingdoms=+#E6D7Your HP:           #E6D7#E6D7ZZM's HP:          #E6D7+===================+"?
  4. Locate 10,2,Mat C[2,1]?
  5. Locate 11,3,Mat E[2,1]?
  6. ""?
复制代码
  1. Filename:罞HURT
  2. "ZZM lost a HP"?
  3. Mat E[2,1]-1鉓at E[2,1]?
  4. If Mat E[2,1]??
  5. Then ?
  6. If Mat E[1,3]>0?
  7. Then ?
  8. Mat E[1,3]-1鉓at E[1,3]?
  9. Mat E[2,1]+1鉓at E[2,1]?
  10. "ZZM used a HEAL"?
  11. Else ?
  12. "You W.I.N!"?
  13. Stop?
  14. IfEnd?
  15. IfEnd
复制代码
  1. Filename:罶CARD
  2. Lbl 0?
  3. 0鉉?
  4. "Kill?+@F936"0123456789",Mat C[1,1]+1,1)鉆F93F1?
  5. "Miss?+@F936"0123456789",Mat C[1,2]+1,1)鉆F93F2?
  6. "Heal?+@F936"0123456789",Mat C[1,3]+1,1)鉆F93F3?
  7. @F79E"Select Your Card",@F93F1,1,@F93F2,2,@F93F3,3,"Return",9?
  8. Lbl 1?
  9. 1鉉?
  10. Goto 9?
  11. Lbl 2?
  12. 2鉉?
  13. Goto 9?
  14. Lbl 3?
  15. 3鉉?
  16. Goto 9?
  17. Lbl 9?
  18. C=0識eturn?
  19. Mat C[1,C]?譍oto 0?
  20. C
复制代码
  1. Filename:罸CARD
  2. C=1譍oto 1?
  3. C=2譍oto 2?
  4. C=3譍oto 3?
  5. Return?
  6. Lbl 1?
  7. Mat C[1,1]<1識eturn?
  8. 'KILL?
  9. If K=0?
  10. Then ?
  11. "You can't kill again"?
  12. Return?
  13. IfEnd?
  14. "You used a KILL"?
  15. Mat C[1,1]-1鉓at C[1,1]?
  16. 0鉑?
  17. If Mat E[1,2]>0?
  18. Then "ZZM used a MISS"?
  19. Mat E[1,2]-1鉓at E[1,2]?
  20. Else Prog "罞HURT"?
  21. IfEnd?
  22. Return?
  23. Lbl 2?
  24. Mat C[1,2]<1識eturn?
  25. 'MISS?
  26. Return?
  27. Return?
  28. Lbl 3?
  29. Mat C[1,3]<1識eturn?
  30. If Mat C[2,1]??
  31. Then ?
  32. "Your HP is full"?
  33. Return?
  34. IfEnd?
  35. 'HEAL?
  36. "You used a HEAL"?
  37. "You get a HP"?
  38. Mat C[1,3]-1鉓at C[1,3]?
  39. Mat C[2,1]+1鉓at C[2,1]?
  40. Return
复制代码



好吧,好多乱码。。。
发表于 2010-9-18 14:28:49 | 显示全部楼层
LZ寂寞了。
杀闪桃。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|cnCalc计算器论坛

GMT+8, 2024-6-17 15:13 , Processed in 0.074713 second(s), 28 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表