我宣布 - Elatha Lab即将开工

Cichol

Elatha Lab即将开工
计划制作一个RPG游戏
目前正在筹划中
有志青年也可以和我合作

Cichol

TI RPG汉化进行中

[Boeing 617]

只用nspire的内置编程功能？没有图像界面啊
我加入~

zhj

我可以帮助测试。

朔雪X忆

我加入RPG计划。
最重要一点：程序一定！一定！要分块！！！
Monopoly 1.2会发布的，分Player VS Player Player VS Computer两个版本
AI提升
修复bug…………
当初Monopoly没有分块，导致无数bug很难解决……

[Boeing 617]

现在的monopoly的AI已经有点无敌了。我狂买房子都敌不过他

Cichol

。。Monopoly的诀窍是要电脑买房子
弄得他没钱再伺机整死他

Nero

当我在一座房子上的时候，多次运行buy()出现了很有趣的东西

[Boeing 617]

7# Elatha 他接着狂黑你的钱把你整死。。

[Boeing 617]

当我在一座房子上的时候，多次运行buy()出现了很有趣的东西
991es82es 发表于 2010-8-5 13:56

版本有些早。。现在的版本没有buy函数了

Cichol

5# 朔雪X忆

分块会大大影响速度的。。

朔雪X忆

不会的……说到翻译…看看TI RPG2的town.talk……需要很高翻译水平……另外syst.*的程序超大…最大一个五百多行…不过很整洁……

朔雪X忆

AI我已经设定购买后如果goldy<1000不买，当goldy<500卖房【很多人都忘了sell()吧…………】

Ulysses

我比较喜欢翻译的活儿……但是我没有ns……谁给我一个。。。

Cichol

摸你器。。

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

朔雪X忆

AI难度怎么会减低？<1000不买本身就有，<500卖才是我加的
另外出售价格为原价的1/8 ~ 8倍【随机生成】
还有Elatha编写freedice的ai没有考虑走到玩家地盘的情况，我加上了。
另外callchsi这个东西终于顺利运行了…………

朔雪X忆

还有Ulysses要不我把要翻译的东西给你……或者装模拟器……

朔雪X忆

贴出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忆

有些格式没了……

[Boeing 617]

AI难度怎么会减低？
朔雪X忆 发表于 2010-8-6 08:36

原来是这样.....我也小于1000不买小于500卖试试...