Author Topic: Fastest/Most Optimized way to move a character around the homescreen (Read 8846 times)

Sorunome · « **on:** July 24, 2013, 11:53:09 am »

Hey, I was just curious, what is the fastest/most optimized way to move a character around the home screen?
what I currently have is this:

Code: [Select]

ClrHome
1->A
1->B
Repeat C=45
Output(B,A,"*")
Repeat C
getkey->C
End
Output(B,A," ")
max(min(A-(C=24)+(C=26),16),1)->A
max(min(B-(C=25)+(C=34),8),1)->B
End

dinosteven · « **Reply #1 on:** July 24, 2013, 12:17:51 pm »

You can replace variables with Ans in a few places.

Code: [Select]

ClrHome
1→A
Ans→B
Repeat C=45
Output(B,A,"*")
Repeat Ans
getKey→C
End
Output(B,A," ")
max(min(A-(Ans=24)+(Ans=26),16),1)→A
max(min(B-(C=25)+(C=34),8),1)→B
End

DJ Omnimaga · « **Reply #2 on:** July 24, 2013, 12:44:29 pm »

You can also remove some of the closing parentheses but that won't affect speed at all, sadly.

Sorunome · « **Reply #3 on:** July 24, 2013, 12:45:45 pm »

Quote from: dinosteven on July 24, 2013, 12:17:51 pm

You can replace variables with Ans in a few places.

why didn't i think of ans

Quote from: DJ Omnimaga on July 24, 2013, 12:44:29 pm

You can also remove some of the closing parentheses but that won't affect speed at all, sadly.

i know that, but idk why i put 'em in in this prog....

Xeda112358 · « **Reply #4 on:** July 24, 2013, 12:47:46 pm »

Personally, I would organise it as:

Code: [Select]

ClrHome
1→A
Ans→B
Repeat C=45
Output(B,A,"*
Repeat Ans
getKey→C
End
Output(B,A," 
max(1,min(16,A-(Ans=24)+(Ans=26→A
max(1,min(8,B-(C=25)+(C=34→B
End

But that is just size optimsation with probably a negligible speed boost. That is pretty close to my typical routine

dinosteven · « **Reply #5 on:** July 24, 2013, 05:25:30 pm »

Oh, and you can also reorganize it so that the getkey loop is last. That way, you can replace the Repeat C=45 with Repeat Ans=45.

Code: [Select]

ClrHome
DelVarC1→A
Ans→B
Repeat Ans=45
Output(B,A," 
max(1,min(16,A-(Ans=24)+(Ans=26→A
max(1,min(8,B-(C=25)+(C=34→B
Output(B,A,"*
Repeat Ans
getKey→C
End
End

But that requires a DelVar of C in case C somehow had a value of 26 or 34...

EDIT:
And let's not forget the ultimate tool for the guy who desperately wants to use Ans, and Ans only... LISTS! I'm not sure if a list in Ans is faster than variables accessed normally... Probably the list is slower... anyone want to test this code? My calc is bricked...

Code: [Select]

ClrHome
{1,1,0
Repeat 45=Ans(3
Output(Ans(1),Ans(2),"*
Repeat Ans(3
{Ans(1),Ans(2),getKey
End
Output(Ans(1),Ans(2)," 
{max(1,min(16,Ans(1)-(Ans(3)=24)+(Ans(3)=26))),max(1,min(8,Ans(2)-(Ans(3)=25)+(Ans(3)=34))),Ans(3
End

Oh gahwd, this is messy. It's definitely not faster lol.

Sorunome · « **Reply #6 on:** July 24, 2013, 05:26:34 pm »

um, why is there a DelVar C, you don't need that.

Also, that is some pretty nice optimizing

dinosteven · « **Reply #7 on:** July 24, 2013, 05:50:10 pm »

Quote from: Sorunome on July 24, 2013, 05:26:34 pm

um, why is there a DelVar C, you don't need that.

Quote from: dinosteven on July 24, 2013, 05:25:30 pm

But that requires a DelVar of C in case C somehow had a value of 26 or 34...

If C=26 or C=34 before launching the program, then it'll start off in the wrong place, having already moved. lol, doesn't really matter, but just in case.

Joshuasm32 · « **Reply #8 on:** July 24, 2013, 09:11:35 pm »

I still have never really figured out how Repeat works... I do this:

ClrHome
DelVar K
1->X
1->Z
While K!=45
getkey->K
If K!=0:Then
ClrHome
X+(K=26 and X<16)-(K=24 and X>0)=->X
Z+(K=34 and Z>0)-(K=25 and Z<

->Z
Output(X,Z,"X
End
End
ClrHome

It is less efficient and probably slower...

Can someone help me understand how to use Repeat?

blue_bear_94 · « **Reply #9 on:** July 24, 2013, 09:17:44 pm »

Repeat executes the inner body at least once, because it checks whether its condition is true after running each iteration of the body. While doesn't make this guarantee.

Streetwalrus · « **Reply #10 on:** July 25, 2013, 01:35:56 am »

Quote from: blue_bear_94 on July 24, 2013, 09:17:44 pm

Repeat executes the inner body at least once, because it checks whether its condition is true after running each iteration of the body. While doesn't make this guarantee...

... as it checks the condition first. Also Repeat executes until the condition turns true and While until it turns false.

Sorunome · « **Reply #11 on:** July 25, 2013, 02:48:48 am »

Quote from: dinosteven on July 24, 2013, 05:50:10 pm

Quote from: Sorunome on July 24, 2013, 05:26:34 pm
um, why is there a DelVar C, you don't need that.
Quote from: dinosteven on July 24, 2013, 05:25:30 pm
But that requires a DelVar of C in case C somehow had a value of 26 or 34...
If C=26 or C=34 before launching the program, then it'll start off in the wrong place, having already moved. lol, doesn't really matter, but just in case.

But in TI-Basic a loop is alwys entered at least once (I thought), so even if C is 45 in the beginning it'll enter the loop and'll be overwritten by getKey->C
Also, just tested it and i'm right, it enteres the repeat loop once in the beginning

Xeda112358 · « **Reply #12 on:** July 25, 2013, 08:10:02 am »

Yes, as was said before, Repeat works like this:

Code: [Select]

Lbl 1
<code code code>
If K≠45
Goto 1

While works like this:

Code: [Select]

Lbl 1
If K=45
Then
<code code code>
Goto 1
End

I hope that helps a little. I personally prefer Repeat loops over While loops in most cases.

dinosteven · « **Reply #13 on:** July 25, 2013, 08:35:01 am »

Quote from: Sorunome on July 25, 2013, 02:48:48 am

Quote from: dinosteven on July 24, 2013, 05:50:10 pm
Quote from: Sorunome on July 24, 2013, 05:26:34 pm
um, why is there a DelVar C, you don't need that.
Quote from: dinosteven on July 24, 2013, 05:25:30 pm
But that requires a DelVar of C in case C somehow had a value of 26 or 34...
If C=26 or C=34 before launching the program, then it'll start off in the wrong place, having already moved. lol, doesn't really matter, but just in case.
But in TI-Basic a loop is alwys entered at least once (I thought), so even if C is 45 in the beginning it'll enter the loop and'll be overwritten by getKey->C
Also, just tested it and i'm right, it enteres the repeat loop once in the beginning

No, I didn't mean that it will quit early if C=45. I meant C=26 or C=34. Do 26->C or 34->C before executing my code (without the DelVar). I'm almost positive that the * will NOT be in the upper left corner, it will be shifted right or down.
...and after testing, 26->C doesn't do this, as my code changes A with Ans, which is initialized as 1. But do a 34->C before executing my code. The * will start out at 2,1 rather than 1,1. That's what I was saying, not that it would quit.

Sorunome · « **Reply #14 on:** July 25, 2013, 08:37:33 am »

No, again same thing (just tried it out), as xeda pointed out with lables.
You enter the inner loop at least once, the keypress is stored an there you go, C is again 0 until you hit a key.

Author Topic: Fastest/Most Optimized way to move a character around the homescreen (Read 8846 times)

Sorunome

Fastest/Most Optimized way to move a character around the homescreen

dinosteven

Re: Fastest/Most Optimized way to move a character around the homescreen

DJ Omnimaga

Re: Fastest/Most Optimized way to move a character around the homescreen

Sorunome

Re: Fastest/Most Optimized way to move a character around the homescreen

Xeda112358

Re: Fastest/Most Optimized way to move a character around the homescreen

dinosteven

Re: Fastest/Most Optimized way to move a character around the homescreen

Sorunome

Re: Fastest/Most Optimized way to move a character around the homescreen

dinosteven

Re: Fastest/Most Optimized way to move a character around the homescreen

Joshuasm32

Re: Fastest/Most Optimized way to move a character around the homescreen

blue_bear_94

Re: Fastest/Most Optimized way to move a character around the homescreen

Streetwalrus

Re: Fastest/Most Optimized way to move a character around the homescreen

Sorunome

Re: Fastest/Most Optimized way to move a character around the homescreen

Xeda112358

Re: Fastest/Most Optimized way to move a character around the homescreen

dinosteven

Re: Fastest/Most Optimized way to move a character around the homescreen

Sorunome

Re: Fastest/Most Optimized way to move a character around the homescreen