Routines and Source Code

[leofox]

what you say makes sense, but for some reason, If-Then-End statements are a lot faster than If.
I think it's that if statements have to look for linebreaks. Since linebreaks can be hard-returns or ":", it has to look for 2 things, in comparision to just the End for If-Then-End.
If you don't believe it, you can always try it on your calc and time it:

[DarkerLine]

Your explanation makes sense therefore it's probably wrong. There's very little about TI-Basic that makes any kind of regular sense.

However, when the test is true, the If vs. If-Then difference becomes smaller and actually reverses.

[appleyardsk8]

So if statements in loops should only be used if it will return true for most of a program's execution? WOW... that means that my hit detection for all my games, which looks like this:

If (enemie gets hit)
prgm(blow enemy up)

are all gonna have to go, because most of the time they return false, which must slow down my game more than

If (enemie gets hit):Then
.
.
. (blow enemy up)
.
.
.
end

wait a minute. Leofox, your test tests an if-then statement with an end immediatly after the then. if i use alot of lines (up to fifteen) between my if-then statements, then will this work faster than using an if-subroutine command, like the one shown above? Keep in mind, i'm talking about an argument that will usually be false.
Now I'm just thinking on my keyboard, but maybe an if-then-subroutine-end statement would be the fastest.


EDIT

I decided to test this out a little. This is my setup:

IF-THEN
:5->x
:For(A,1,100
:If X: Then
:disp 1
:disp 2
:disp 3
:disp 4
:disp 5
:disp 6
:disp 7
:disp 8
:clrhome
:end
:end

IF-SUBROUTINE
:5->x
:For(A,1,100
:If x:prgmTEST
:end

IF-THEN-SUBROUTINE-END
:5->x
:For(A,1,100
:If x:then
:prgmTEST
:end
:end

PRGMTEST
:disp 1
:disp 2
:disp 3
:disp 4
:disp 5
:disp 6
:disp 7
:disp 8
:clrhome

This tested for speed when the statements returned true. here are my results:

IF-THEN - 23.8 sec
IF-SUB - 52.2
IF-THEN-SUB - 51.2

What i really wanted to test for, however, was speed when the statements were false. So i changed the program to store 0 to x at the beginning, and then changed the for statement to run to 1000. These are my results:

IF-THEN - 14.7;14.3
IF-SUB - 83.4 (ouch!, this is what ive been using!)
IF-THEN-SUB - 12.8;12.8

I'm going to test some more to see if one of the two close ones overtake one or the other when more disp lines are added, but this has already helped me out a shitload!

[Everett Martin]

Here is my source code for a menu, I understand this one more than I do any of those other menu codes, any optimizations and comments welcomed.

[Weregoose]

Some initial pointers before we get into lengthy optimization:

[font="courier new"]CoordOff

[alexrudd]

[necro]

[MissingIntellect]

[alexrudd]

Great idea, but it doesn't store the value of getKey for further use.

[leofox]

Repeat Ans
max(getKey={25,34,105
End

?

[DarkerLine]

It works for a delay until the keys are pressed, but you don't ever find out which one was pressed because Ans is always 1 when you exit.

[MissingIntellect]

[taco]

Well I don't know if that has been said, but all the first program posted in here (by Arcane Wizard) did was make infinite 0's in the list. :\

[DarkerLine]

Read the one on the 9th page then, I'm pretty sure I've tested that myself.

[Arcane Wizard]

[SilverCalcKnight]

This may have been posted here already, but:
Collision detection routine + map save (i.e. level parser)
Just make a matrix with {8,16}-->dim([ A ] , then store where you want objects on the screen to their respective coordinates, but use a different number for a different character.
Then write this:

[Liazon]

You could probably even use a string to do tilemapping, but I think finding the offset for the sub()/mid() based off of grid coordinates would be really annoying.

[SilverCalcKnight]

Yes, you can. I even use a string to output the border (that is,the border of the screen of the game I am working on),but nothing else, due to the reason you have stated.

[WikiGuru]

Sorry if this is already in here, but I'm too lazy to read through all the posts to see if it is.

Sort of a pause/Getkey-routine. Also allows you to press 2nd/Alpha. Only 4 bytes!

[Weregoose]

1 | 2 | 3