我宣布 - Elatha Lab即将开工
Elatha Lab即将开工计划制作一个RPG游戏
目前正在筹划中
有志青年也可以和我合作 TI RPG汉化进行中 只用nspire的内置编程功能？没有图像界面啊
我加入~ 我可以帮助测试。 我加入RPG计划。
最重要一点：程序一定！一定！要分块！！！
Monopoly 1.2会发布的，分Player VS Player Player VS Computer两个版本
AI提升
修复bug…………
当初Monopoly没有分块，导致无数bug很难解决…… 现在的monopoly的AI已经有点无敌了。我狂买房子都敌不过他 。。Monopoly的诀窍是要电脑买房子
弄得他没钱再伺机整死他 当我在一座房子上的时候，多次运行buy()出现了很有趣的东西 7# Elatha 他接着狂黑你的钱把你整死。。 当我在一座房子上的时候，多次运行buy()出现了很有趣的东西
991es82es 发表于 2010-8-5 13:56 http://www.cncalc.org/images/common/back.gif版本有些早。。现在的版本没有buy函数了 5# 朔雪X忆
分块会大大影响速度的。。 不会的……说到翻译…看看TI RPG2的town.talk……需要很高翻译水平……另外syst.*的程序超大…最大一个五百多行…不过很整洁…… AI我已经设定购买后如果goldy<1000不买，当goldy<500卖房【很多人都忘了sell()吧…………】 我比较喜欢翻译的活儿……但是我没有ns……谁给我一个。。。 摸你器。。
硕雪 这样的话AI难度大大减低
这样不出意外 电脑早晚被整死 AI难度怎么会减低？<1000不买本身就有，<500卖才是我加的
另外出售价格为原价的1/8 ~ 8倍【随机生成】
还有Elatha编写freedice的ai没有考虑走到玩家地盘的情况，我加上了。
另外callchsi这个东西终于顺利运行了………… 还有Ulysses要不我把要翻译的东西给你……或者装模拟器…… 贴出town.talk的完整代码【希望不涉嫌侵权…………】
Ulysses试试看哦~
Define town.talk()=
Prgm
: randInt(1,31)→person
: If person=1 Then
: If day<98 Then
: Disp """The world ends in",99-day,"days!"""
: Else
: Disp """The world ends tomorrow!"""
: EndIf
: ElseIf person=2 Then
: Disp """All your base are belong to us!"""
: ElseIf person=3 Then
: Disp """It's dangerous to go alone. Take this!""
You got the Narpas Sword!
You are unable to equip it"
: ElseIf person=4 Then
: 1→hp
: Disp """IMMA FIRIN MAH LAZER!!!!"""
: Disp "The enemy hit you with its lazer! ",hp,"/",hpmax
: Disp "The enemy escaped from battle"
: ElseIf person=5 Then
: Disp """But soft!""
""What light through yonder window breaks?"""
: ElseIf person=6 Then
: Disp """I AM ERROR"""
: ElseIf person=7 Then
: Disp """I... HAVE... FURY!!!"""
: ElseIf person=8 Then
: Disp """Hast thou slain the Jabberwock?"""
: ElseIf person=9 Then
: Disp """What has it got in its pocketses, Precious?"""
: ElseIf person=10 Then
: Disp """Its a trap!"""
: ElseIf person=11 Then
: Disp """I can has cheezburger?"""
: ElseIf person=12 Then
: Disp """My roflcopter goes soi soi soi soi."""
: ElseIf person=13 Then
: Disp "A black knight attacks!
Good hit! 0
""Aw, its just a scratch.""
""Come on, you pansy!""
You escaped from battle."
: ElseIf person=14 Then
: Disp """Kupo!"""
: ElseIf person=15 Then
: Disp "A dark Cheddar Monk attacks!
""I find your lack of faith disturbing."""
: Disp "The enemy choked you! 1/",hpmax
: Disp "The enemy escaped!"
: ElseIf person=16 Then
: Disp """Throw me the idol!""
You throw him the idol.
He throws you a ten-foot pole.
You have no use for it."
: ElseIf person=17 Then
: Disp """Spare change...?"""
: If gold>0 Then
: Disp "You give the hobo",gold,"gold"
: Disp """Yippie kie yay!"""
: Else
: Disp "You attack the hobo.
Good hit! 0
There was nothing in his pockets"
: EndIf
: ElseIf person=18 Then
: 0→mp
: Disp "A wild flamosaur attacks!"
: Disp "You used Water Wave! Mp-0/",mpmax
: Disp "Its super-effective! 0
The wild flamosaur fainted, so you can't attack it."
: ElseIf person=19 Then
: Disp """OMG! ur a advntrr""
""rofl ur mi bff""
""o ur a n00b lol""
You have been booted from chat."
: ElseIf person=20 Then
: Disp """Do a barrel roll!""
""Do a barrel roll!""
""Do a barrel roll!""
""Do a barrel roll!"""
: ElseIf person=21 Then
: Disp """This.. is... SPARTAAAA!!!"""
: ElseIf person=22 Then
: Disp """I found a map! To Candy Mountain!"""
: ElseIf person=23 Then
: Disp """Moose and Squirrel??!!"""
: ElseIf person=24 Then
: Disp """Wazaaaaaaaaaap?"""
: ElseIf person=25 Then
: Disp """OH YEAH!"""
: ElseIf person=26 Then
: Disp "You got Rick Rolled!
""Never gonna give you up,
""never gonna let you down,""
""never gonna run around and desert you..."
: ElseIf person=27 Then
: Disp """Blam this piece of crap!"""
: ElseIf person=28 Then
: Disp "A problem has been detected and TI-nspire OS 1.7.2741 has been shut down to prevent damage to your device.
The problem seems to be caused by the following file: TI RPG 2.tns"
: ElseIf person=29 Then
: Disp """Wow! a real warrior!""
""Have you killed any monsters?"""
: ElseIf person=30 Then
: 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!"""
: ElseIf person=31 Then
: Disp """It's over 9000!!!!!"""
: EndIf
: DelVar person
:"town.talk"→action
: syst.defineall()
: DelVar action
:EndPrgm 有些格式没了…… AI难度怎么会减低？
朔雪X忆 发表于 2010-8-6 08:36 http://www.cncalc.org/images/common/back.gif原来是这样.....我也小于1000不买小于500卖试试...
页:
[1]
2