Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ztrumpet

Pages: 1 ... 365 366 [367] 368 369 ... 385
5491
Pokémon Purple / Re: Pokemon Purple
« on: December 15, 2009, 07:24:01 pm »
:) I'll work on that for you tomorrow and have it up for you on Thursday.

5492
Other Calc-Related Projects and Ideas / Re: Anti-RPG RPG
« on: December 15, 2009, 07:20:27 pm »
Okay, lets say you have this:

:Repeat X=17 and Y=9 and not(XY
:Stuff 1
:getKey->K
:Stuff 2
:If X=/17 and Y=/9 and XY
:Then
:Stuff 3
:End
:End

You are running thru that conditional twice.  What if you did:

:0->K
:Repeat X=17 and Y=9 and not(XY
:If K
:Then
:Stuff 3
:End
:Stuff 1
:getKey->K
:Stuff 2
:End

I think that explained it well enough. :)

As for running everything else, it appears L4 needs to be there.  I don't know what to put in L4, so I can't patch it.  Can you upload a typical L4?

5493
Pokémon Purple / Re: Pokemon Purple
« on: December 15, 2009, 05:15:18 pm »
Cool. Do you want any little help with anything? (I know you probably don't, but I thought I'd ask)

5494
Other Calc-Related Projects and Ideas / Re: Anti-RPG RPG
« on: December 15, 2009, 04:27:56 pm »
What do we run first?  All the programs give silly little errors, except for thetaMO.  I really like how it looks, though.

Here's the code for those like Eeems that can't open zips. (Ipod)
Code: [Select]
:While 1
:¦ "θM"+sub("0123456789",{L4}(1),1
:¦ real(10,0,0
:¦ {L4}(2→X
:¦ prgmXTEMP000
:¦ real(10,1,0
:¦ Output(1,1,Str1
:¦ Output({L4}(9),{L4}(8),"π
:¦ {L4}(9→Y:{L4}(8→X
:¦ Repeat X=17 or Y=9 or not(XY
:¦ ¦ {0 //This is unnessecary, as a Repeat loop is a post-test loop.
:¦ ¦ Repeat sum(Ans //change this to sum(Ans={24,25,26,34,21,15
:¦ ¦ ¦ getKey // add →θ
:¦ ¦ ¦ Ans={24,25,26,34,21,15 //get rid of this
:¦ ¦ End
:¦ ¦ sum(Ans{24,25,26,34,21,15→θ //Get rid of this
:¦ ¦ If θ=15
:¦ ¦ prgmTM
:¦ ¦ If θ=21
:¦ ¦ Then
:¦ ¦ ¦ "θM
:¦ ¦ ¦ real(10,0,0
:¦ ¦ ¦ prgmXTEMP000
:¦ ¦ ¦ real(10,1,0
:¦ ¦ ¦ If 2={L4}(4
:¦ ¦ ¦ real(5,0,35
:¦ ¦ ¦ If {L6}(1
:¦ ¦ ¦ real(5,0,2
:¦ ¦ ¦ Output(1,1,Str1
:¦ ¦ End
:¦ ¦ Y→T
:¦ ¦ X→U
:¦ ¦ Y+(θ=34)-(θ=25→Y
:¦ ¦ X+(θ=26)-(θ=24→X
:¦ ¦ If X≠17 and Y≠9 and XY //You could move this to the begining of the loop (before the getKey to save speed)
:¦ ¦ Then
:¦ ¦ ¦ sub(Str1,16(Y-1)+X,1
:¦ ¦ ¦ If Ans=" " or Ans="/" or Ans="-" or Ans="=" or Ans="ñ
:¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ If Ans="ñ
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ "θM"+sub("0123456789",{L4}(1),1)+"A
:¦ ¦ ¦ ¦ ¦ real(10,0,0
:¦ ¦ ¦ ¦ ¦ prgmXTEMP000
:¦ ¦ ¦ ¦ ¦ real(10,1,0
:¦ ¦ ¦ ¦ ¦ If {L6}(1
:¦ ¦ ¦ ¦ ¦ real(5,0,2
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ Output(T,U,sub(Str1,16(T-1)+U,1
:¦ ¦ ¦ ¦ DelVar TDelVar UOutput(Y,X,"π
:¦ ¦ ¦ ¦ If 1={L6}(1
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ 0→{L6}(1
:¦ ¦ ¦ ¦ ¦ real(5,0,23+12(2={L4}(4
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If {L6}(1
:¦ ¦ ¦ ¦ {L6}(1)-1→{L6}(1
:¦ ¦ ¦ ¦ If {L6}(2
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ int(.95H)+(H=0→H
:¦ ¦ ¦ ¦ ¦ {L6}(2)-1→{L6}(2
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If {L6}(3
:¦ ¦ ¦ ¦ {L6}(3)-1→{L6}(3
:¦ ¦ ¦ ¦ If 1=randInt({-}9+6{L6}(3),1
:¦ ¦ ¦ ¦ prgmθF
:¦ ¦ ¦ ¦ Else
:¦ ¦ ¦ ¦ T→Y
:¦ ¦ ¦ ¦ U→X
:¦ ¦ ¦ ¦ Output(Y,X,"π
:¦ ¦ ¦ End
:¦ ¦ ¦ X→{L4}(8 //These two lines are a big time hog.
:¦ ¦ ¦ Y→{L4}(9 //Is it possible to move these outside of the loop?
:¦ ¦ End
:¦ End
:¦ ClrHome
:¦ (Y=9)-(Y=0)+{L4}(7→{L4}(7
:¦ (X=17)-(X=0)+{L4}(6→{L4}(6
:¦ [A]({L4}(7),{L4}(6→{L4}(2
:¦ If not(X:16→X
:¦ If not(Y:8→Y
:¦ If X=17:1→X
:¦ If Y=9:1→Y
:¦ X→{L4}(8:Y→{L4}(9
:End

5495
Pokémon Purple / Re: Pokemon Purple
« on: December 15, 2009, 04:23:22 pm »
Sounds neat! I can't wait for a screenshot.

5496
TI Z80 / Re: the Tale of Lost Map
« on: December 15, 2009, 04:12:20 pm »
I think you should change it because then you have (Ans>2) vs (Ans and Ans<8).

5497
General Discussion / Re: DJ Omnimaga ringtones
« on: December 15, 2009, 04:05:18 pm »
Hmm. If I had a shell phone, I'd probably use on of your ringtones once made.

5498
Other Calc-Related Projects and Ideas / Re: Anti-RPG RPG
« on: December 14, 2009, 10:01:07 pm »
Never use Y variable. Some TI-OS glitches causes it to be reset to 0 from time to time. You'll run into problems later.
I am pretty sure these only deal with some draw-type commands and the graph screen.

@ztrumpet: Not according to TI-BD, it isn’t: http://tibasicdev.wikidot.com/timings#toc3
Ah, yes that would be correct when you have an empty If 1: statement.  However if you have If 1:"Blahblahblah (or mabey If A*SD*(2=H):"Hi I don't remember which is longer to matter; line of If or the next) as an example it would take the basic parser longer than an If:Then.  I'm not sure how it works exactly, but longer ifs are slower.  I wish I could explane it better. (I feel like that didn't make much sense :P)

Like I said, Without a program in a string it will detete the program. Like 1->X:Asm(prgmXCOPY

I can't wait to see your code. :)

5499
Pokémon Purple / Re: Pokemon Purple
« on: December 14, 2009, 09:49:01 pm »
Cool! I can't wait to see what you come up with ASCII-wise to represent the different directions.

5500
Other Calc-Related Projects and Ideas / Re: Anti-RPG RPG
« on: December 14, 2009, 05:46:18 pm »
Xcopy's syntax:
PrgmA to Xtemp001
1->X:"A":Asm(prgmXCOPY
Deleete prgmXcopy001
1->X:Asm(prgmXCOPY
It's pretty simple.

Please Note: You said it was slower, but due to the nature of the basic parser, If:Then:line(s):End is faster than If:line by quite a bit (2x faster I think).  But you make a good point. If you think it's better to use xLib then go for it!  There are pros and cons both ways.

Do you want us to look at the engine? If you post it here, I'm pretty sure there is speed to be found.

5501
Pokémon Purple / Re: Pokemon Purple
« on: December 14, 2009, 04:01:37 pm »
I don't know. That poeses an interesting delima.  Do you need to know which way they are going, or does it not matter?
If you need to know I'd change it, but otherwise I'd leave it as pi.

I had another idea: What if you had a counter for how many times the getKey is passed.  It gets reset if you move, but if you don't then it gets incremented.  If you don't move for like ten in a row then the NCPs move.
What do you think?

5502
F-Zero 83+ / Re: F-Zero Progress Thread
« on: December 14, 2009, 03:55:35 pm »
*ztrumpet is on Internet Explorer.

No way! That's not full speed! That's amazing.  I can't wait to see more progress.

Amazing progress.

Calc84, you have made so many great games! Good luck to all the unfinished ones too.

5503
Other Calc-Related Projects and Ideas / Re: Anti-RPG RPG
« on: December 14, 2009, 03:49:57 pm »
I forget many times the second argument and skip it.
I don't know how many times I've done that. Too many!

Nice progress! Again I'm happy that you can program with such great lines of code.  I'm glad I can understand it, though.  Code like that both reduces the size of your code and makes it faster.  Great job!

As for the movement engine, I'm currently on the third or fourth version for Elmgon. :) Just keep recoding it and eventuallt it will work.

5504
Web Programming and Design / Re: iPod friendly forum
« on: December 13, 2009, 09:21:58 pm »
Nice! I can't wait to see it.

5505
Introduce Yourself! / Re: Heya.
« on: December 13, 2009, 09:21:18 pm »
Welcome here!  Although most people here program calcs, there are many other (computer) languages used.

Pages: 1 ... 365 366 [367] 368 369 ... 385