设为首页收藏本站

cnCalc计算器论坛

 找回密码
 注册
搜索
cnCalc计算器论坛»论坛 › 图形编程计算器讨论区 › 其他图形编程计算器 › 我宣布 - Elatha Lab即将开工
12下一页
返回列表 发新帖
查看: 7465|回复: 29

我宣布 - Elatha Lab即将开工

[复制链接]
Cichol
发表于 2010-8-4 22:53:24 | 显示全部楼层 |阅读模式
Elatha Lab即将开工
计划制作一个RPG游戏
目前正在筹划中
有志青年也可以和我合作
宣布

相关帖子
回复

使用道具 举报

Cichol
 楼主| 发表于 2010-8-4 23:12:57 | 显示全部楼层
TI RPG汉化进行中
回复 支持 反对

使用道具 举报

[Boeing 617]
发表于 2010-8-4 23:18:47 | 显示全部楼层
只用nspire的内置编程功能？没有图像界面啊
我加入~
回复 支持 反对

使用道具 举报

zhj
发表于 2010-8-5 10:51:56 | 显示全部楼层
我可以帮助测试。
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-5 11:07:29 | 显示全部楼层
我加入RPG计划。
最重要一点：程序一定！一定！要分块！！！
Monopoly 1.2会发布的，分Player VS Player Player VS Computer两个版本
AI提升
修复bug…………
当初Monopoly没有分块，导致无数bug很难解决……

点评

imath
我就不分块  发表于 2013-5-1 22:37
回复 支持 反对

使用道具 举报

[Boeing 617]
发表于 2010-8-5 13:04:54 | 显示全部楼层
现在的monopoly的AI已经有点无敌了。我狂买房子都敌不过他
回复 支持 反对

使用道具 举报

Cichol
 楼主| 发表于 2010-8-5 13:54:59 | 显示全部楼层
。。Monopoly的诀窍是要电脑买房子
弄得他没钱再伺机整死他
回复 支持 反对

使用道具 举报

Nero
发表于 2010-8-5 13:56:29 | 显示全部楼层
当我在一座房子上的时候，多次运行buy()出现了很有趣的东西
回复 支持 反对

使用道具 举报

[Boeing 617]
发表于 2010-8-5 14:25:42 | 显示全部楼层
7# Elatha 他接着狂黑你的钱把你整死。。
回复 支持 反对

使用道具 举报

[Boeing 617]
发表于 2010-8-5 14:26:15 | 显示全部楼层
当我在一座房子上的时候，多次运行buy()出现了很有趣的东西
991es82es 发表于 2010-8-5 13:56
版本有些早。。现在的版本没有buy函数了
回复 支持 反对

使用道具 举报

Cichol
 楼主| 发表于 2010-8-5 14:28:10 | 显示全部楼层
5# 朔雪X忆

分块会大大影响速度的。。
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-5 18:42:31 | 显示全部楼层
不会的……说到翻译…看看TI RPG2的town.talk……需要很高翻译水平……另外syst.*的程序超大…最大一个五百多行…不过很整洁……
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-5 18:56:12 | 显示全部楼层
AI我已经设定购买后如果goldy<1000不买，当goldy<500卖房【很多人都忘了sell()吧…………】
回复 支持 反对

使用道具 举报

Ulysses
发表于 2010-8-5 21:10:15 | 显示全部楼层
我比较喜欢翻译的活儿……但是我没有ns……谁给我一个。。。
回复 支持 反对

使用道具 举报

Cichol
 楼主| 发表于 2010-8-5 21:37:44 | 显示全部楼层
摸你器。。

硕雪 这样的话AI难度大大减低
这样不出意外 电脑早晚被整死

点评

imath
什么摸你器  发表于 2013-5-1 22:38
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-6 08:36:32 | 显示全部楼层
AI难度怎么会减低？<1000不买本身就有，<500卖才是我加的
另外出售价格为原价的1/8 ~ 8倍【随机生成】
还有Elatha编写freedice的ai没有考虑走到玩家地盘的情况，我加上了。
另外callchsi这个东西终于顺利运行了…………
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-6 08:36:54 | 显示全部楼层
还有Ulysses要不我把要翻译的东西给你……或者装模拟器……
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-6 08:44:41 | 显示全部楼层
贴出town.talk的完整代码【希望不涉嫌侵权…………】
Ulysses试试看哦~

  1. Define town.talk()=
  2. Prgm
  3. : randInt(1,31)→person
  4. :    If person=1 Then
  5. :      If day<98 Then
  6. :        Disp """The world ends in",99-day,"days!"""
  7. :      Else
  8. :        Disp """The world ends tomorrow!"""
  9. :      EndIf
  10. :    ElseIf person=2 Then
  11. :      Disp """All your base are belong to us!"""
  12. :    ElseIf person=3 Then
  13. :      Disp """It's dangerous to go alone. Take this!""
  14. You got the Narpas Sword!
  15. You are unable to equip it"
  16. :    ElseIf person=4 Then
  17. :      1→hp
  18. :      Disp """IMMA FIRIN MAH LAZER!!!!"""
  19. :      Disp "The enemy hit you with its lazer!     ",hp,"/",hpmax
  20. :      Disp "The enemy escaped from battle"
  21. :    ElseIf person=5 Then
  22. :      Disp """But soft!""
  23. ""What light through yonder window breaks?"""
  24. :    ElseIf person=6 Then
  25. :      Disp """I AM ERROR"""
  26. :    ElseIf person=7 Then
  27. :      Disp """I... HAVE... FURY!!!"""
  28. :    ElseIf person=8 Then
  29. :      Disp """Hast thou slain the Jabberwock?"""
  30. :    ElseIf person=9 Then
  31. :      Disp """What has it got in its pocketses, Precious?"""
  32. :    ElseIf person=10 Then
  33. :      Disp """Its a trap!"""
  34. :    ElseIf person=11 Then
  35. :      Disp """I can has cheezburger?"""
  36. :    ElseIf person=12 Then
  37. :      Disp """My roflcopter goes soi soi soi soi."""
  38. :    ElseIf person=13 Then
  39. :      Disp "A black knight attacks!
  40. Good hit!                                  0
  41. ""Aw, its just a scratch.""
  42. ""Come on, you pansy!""
  43. You escaped from battle."
  44. :    ElseIf person=14 Then
  45. :      Disp """Kupo!"""
  46. :    ElseIf person=15 Then
  47. :      Disp "A dark Cheddar Monk attacks!
  48. ""I find your lack of faith disturbing."""
  49. :      Disp "The enemy choked you!                  1/",hpmax
  50. :      Disp "The enemy escaped!"
  51. :    ElseIf person=16 Then
  52. :      Disp """Throw me the idol!""
  53. You throw him the idol.
  54. He throws you a ten-foot pole.
  55. You have no use for it."
  56. :    ElseIf person=17 Then
  57. :      Disp """Spare change...?"""
  58. :      If gold>0 Then
  59. :        Disp "You give the hobo",gold,"gold"
  60. :        Disp """Yippie kie yay!"""
  61. :      Else
  62. :        Disp "You attack the hobo.
  63. Good hit!                     0
  64. There was nothing in his pockets"
  65. :      EndIf
  66. :    ElseIf person=18 Then
  67. :      0→mp
  68. :      Disp "A wild flamosaur attacks!"
  69. :      Disp "You used Water Wave!                Mp-0/",mpmax
  70. :      Disp "Its super-effective!                                 0
  71. The wild flamosaur fainted, so you can't attack it."
  72. :    ElseIf person=19 Then
  73. :      Disp """OMG! ur a advntrr""
  74. ""rofl ur mi bff""
  75. ""o ur a n00b lol""
  76. You have been booted from chat."
  77. :    ElseIf person=20 Then
  78. :      Disp """Do a barrel roll!""
  79. ""Do a barrel roll!""
  80. ""Do a barrel roll!""
  81. ""Do a barrel roll!"""
  82. :    ElseIf person=21 Then
  83. :      Disp """This.. is... SPARTAAAA!!!"""
  84. :    ElseIf person=22 Then
  85. :      Disp """I found a map! To Candy Mountain!"""
  86. :    ElseIf person=23 Then
  87. :      Disp """Moose and Squirrel??!!"""
  88. :    ElseIf person=24 Then
  89. :      Disp """Wazaaaaaaaaaap?"""
  90. :    ElseIf person=25 Then
  91. :      Disp """OH YEAH!"""
  92. :    ElseIf person=26 Then
  93. :      Disp "You got Rick Rolled!
  94. ""Never gonna give you up,
  95. ""never gonna let you down,""
  96. ""never gonna run around and desert you..."
  97. :    ElseIf person=27 Then
  98. :      Disp """Blam this piece of crap!"""
  99. :    ElseIf person=28 Then
  100. :      Disp "A problem has been detected and TI-nspire OS 1.7.2741 has been shut down to prevent damage to your device.
  101. The problem seems to be caused by the following file: TI RPG 2.tns"
  102. :    ElseIf person=29 Then
  103. :      Disp """Wow! a real warrior!""
  104. ""Have you killed any monsters?"""
  105. :    ElseIf person=30 Then
  106. :      Disp """Hear Ye! Hear Ye! The king has decreed a 10000 gold reward to the warrior who can defeat the Demonic Beast of Argonath! Report to the castle for your prize!"""
  107. :    ElseIf person=31 Then
  108. :      Disp """It's over 9000!!!!!"""
  109. :    EndIf
  110. :    DelVar person
  111. :"town.talk"→action
  112. :    syst.defineall()
  113. :    DelVar action
  114. :EndPrgm
复制代码
回复 支持 反对

使用道具 举报

朔雪X忆
发表于 2010-8-6 10:53:13 | 显示全部楼层
有些格式没了……
回复 支持 反对

使用道具 举报

[Boeing 617]
发表于 2010-8-6 15:30:42 | 显示全部楼层
AI难度怎么会减低？
朔雪X忆 发表于 2010-8-6 08:36
原来是这样.....我也小于1000不买小于500卖试试...
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 22:35 , Processed in 0.059514 second(s), 24 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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