:Lbl M
:Text(4,4,"THE GUESSING GAME
:Circle(4,7,8
:Pause
:ClrHome
:Output(4,2,"GUESS A NUMBER, 1‾10
:Pause
:ClrHome
:randInt(1,10→A
:Input B
:ClrHome
:Output(4,4,"YOU GOT....
:Pause
:ClrHome
:Output(4,4,B
:Pause
:ClrHome
:Output(4,4,"THE ANSWER IS...
:Pause
:ClrHome
:Output(4,4,A
:Pause
:If A=B
:Then
:ClrHome
:Output(4,4,"WINNER!
:Pause
:Else
:ClrHome
:Output(4,4,"LOSER...
:Pause
:ClrHome
:Menu("AGAIN?","PLAY AGAIN",PA,"QUIT",QU
:Lbl PA
:Goto M
:Lbl QU
:ClrHome



New program I created, yes its a guessing game, and would like any type of friendly advice, criticism, ANY form of improvements. Thanxs



EDIT: Also I would like to know why both my calc and sourcecoder2.0 sees it as GUESSrandM(

Allow me to suggest some optimizations:

First pass:

Code:


Note that I moved the redundant ClrHome and Pause outside of the If/Then/Else/End block, and I changed the PA->M Label/Goto to a simple jump to M.

hmm never thought i could do that!!


Thanks Kerm.

Second pass:



Less attractive, simpler version


Code:

Looping variant and explanation written for beginners: Click

Here's the simple movement code you requested:


Code:


Here it is with vertical movement too:


Code:

well, the code I was gonna post would've been less optimized, but easier to read

just a note for when you make it to the graphscreen, you do not want to use X and Y for moving things around the screen. Just so you know, would be better to not get in that habit now.

Actually, I usually just have problems with Y, because TI has a bit of a bug in ClrDraw. A and B would work, or X and Z, or any other pair.

Code:


My preferred setup. Sort of. :p

W for While becomes many different values through my games and programs, I use while loops to move around in programs like Lbl and Goto.

Edit:

Made it smaller. Easier to do when I am not busy pullin an engine out of a truck XD

I want weregoose's opinion. I saw he had some crazy key detecting stuff the other day.

Code:

Faster? No. But what is faster is using the "and" operator instead of multiplying two tests together!

Ok im just gonna dump my friends rom and then ill give you guys what i did...

...


here ya go


:8→A
:8→B
:For(T,1,200000
:ClrHome
:Output(A,B,"X
:getKey→K
:If K=26
:Then
:B+1→B
:End
:If K=24
:Then
:B-1→B
:End
:If K=25
:Then
:A-1→A
:End
:If K=34
:Then
:A+1→A
:If A>8
:1→A
:End
:If A<1
:Then
:8→A
:End
:End

Did you really call that shorter than mine? It's simpler, but some of the least-optimized code I've ever seen.

And you're doing it in a FOR LOOP?! Do you WANT your program to leak memory??

huh?

i thought you said for loops are better than lables...........

Yes, While and Repeat loops, which can be broken out of. For( loops are not the right thing to use here.

if I could say something, I would rather you not curse on the forums, thanks. As for the code...it really is unoptimized, really use someone else's. If you don't like it because it is hard to read, or you don't understand it, ask how it works, it will make you a better programmer

well iv been hearing from you guys that lbls were suckish compared to for loops scince i git here

geez im stupid sometimes...........

omg.. We TRIED to explain that to you.

While and Repeat loops. not For( loops. =/

im stupid...........


you can now begin to ignore me