Routines and Source Code

[Jutt]

You can save 2 bytes by using
Repeat sum(K={21,45,105

instead of
Repeat K=21 or K=45 or K=105

[Arcane Wizard]

I was worried using a list would be too slow, but I guess it's not that bad, fixed, but it might need to be taken back out if one wants to add more graphical effects.

[DarkerLine]

Repeat max(K={21,45,105 is better.

Edit: Arcane, in the code you edited at my suggestion you forgot to put
Ans+inString(Str0,",",Ans+1->X
I guess that's my fault since I forgot it first...

[Arcane Wizard]

Ah, thanks, I fixed that and changed sum( to max(.

Is max( faster?

[DarkerLine]

Slightly... I checked it and it's about 17% faster for a list of 0's and 1's.

Edit: on an 83+ you can do

[Arcane Wizard]

There wasn't any reason left to store the length of the string to L, so I got rid of that.

"MENU TITLE,OPTION 1,OPTION 2,OPTION 3,OPTION 4,OPTION 5,OPTION 6,OPTION 7,OPTION 8,->Str0 //make sure to end the string with a ,
inString(Ans,",->X //get the length of the title
Delvar A0->Ø //A will be a temp var for X and Ø will hold the position to draw the option at
Text(0,0,sub(Str0,1,X-1 //draw the title

While X<length(Str0 //loop through all the options
X->A //remember current option offset (the "," before the current option) A+1 is the first character of the current optoin
Ans+inString(Str0,",",Ans+1->X //store the position of the next comma in X
Ø+7->Ø //next line
Text(Ans,10,sub(Str0,A+1,X-A-1 //draw option
End

7->X //starting position of the cursor
Repeat max(K={21,45,105 //untill 2nd, clear, or enter is pressed
getKey->K
If Ans:Text(X,0,"_ _ _ _ //erase the cursor if a key was pressed
X+7((Ans=34 and X<Ø)-(Ans=25 and X>7->X //move the cursor
Text(Ans,0,"> //draw the cursor
End

X/7 //return which option

I'm also thinking of combining the two loops into one, somehow.

[DarkerLine]

You mean the Repeat loop and the While loop? Somehow, that doesn't sound feasible to me. Also, some people may want to modify the routine to display the options manually, if they only have one menu in a game.

also, some optimization:

[appleyardsk8]

Here's a Highscore program i recently made for my upcoming game. This is my first attempt at manipulating strings in such a complex way. In the past i used a different string for every name, but now that i am focusing more on efficiency, that method seems unacceptable.This is what i came up with (Write now its set-up to hold 6 rankings, but that probably wouldnt be difficult to change):

[DarkerLine]

Yes, see this post ;-)

I didn't know as much as I do now about 89 programming though, time to optimize that section.

TI-89 / 92 / 92+:

For compatibility purposes ("window" width):

[appleyardsk8]

something in your code from your older post doesnt work right. It doesnt extract the names correctly from the string.

(my bad about taking so long to fix this sir robin)

[DarkerLine]

My code works nearly perfectly, except for some reason I store the wrong thing to K. It should be:

[font="Fixedsys"]
{ -> L6 //start out with an empty list
For(I,1,7 //7 high scores
DelVar J
16I-4 -> K //K=furthest left the Ith high score can start
While " "=sub(Str0,K+J,1
J+1->J
End //Str0[K+J] is the first character that's not a space
expr(sub(Str0,K+J,5-J -> L6(I //there are 5-J digits in the hi-score, and it starts at K+J
End

[elfprince13]

you also missed this:

[Weregoose]

Here is a method to search through a list for a specific number and then return the number's position in the list.

[font="courier new"]max(seq(X(value=listname(X)),X,start,dim(listname

[DarkerLine]

If the value you're looking for occurs more than once in the list, that will return the index of the last occurrence, making it slightly different from inString(.

Some optimization (only works when you start at the beginning of the list though):

max((value=listname)seq(I,I,1,dim(listname

to save calculating the comparison every single time you loop through the seq(.

If you want to find the first occurence, do:

-min((value=listname)seq(-I,I,1,dim(listname

[Weregoose]

I was waiting for someone to point out that occurrence error. This came around when I needed to pinpoint numbers inside of a matrix. Not surprisingly, it called for a few interestingly long lines of code. I think the outcome of what I'm using it for will be worth it.

[DarkerLine]

This would probably be one of the cases where using a list instead of a matrix would work better.

[AlienCC]

Of course, routines are very much welcome in the Downloads section of this website.

--AlienCC

[DarkerLine]

Because I've just posted this over at MaxCoderz forum:

Text input routine -

[Weregoose]

I've noticed that while using [font="courier new"]seq(

[appleyardsk8]

"If-then statements work faster than if statements"

I dont remember exactly where i read this little tidbit, but im sure it was somewhere in this basic forum ( i got lazy searching for the quote, ill find it later). This doest make sense to me. if the calculater activates an if-then statement, then it has to use some memory to look for the end command. Its this fact that causes every beginner's game's game speed to decay over time (ahhh, the good ol goto statements). It seems to me that an if statement should not have to do this, because no matter what happens, its only going to activate the next line, or not activate it. can anybody back this statement up or disprove it, so i can have my peace of mind back? (ok, its not really bothering me that much, but it has been bugging me every time i go to use if statements in my progy's )