Stoping a While chunk by pressing enter?

Forum Attachments

Stoping a While chunk by pressing enter?

Tim (guest) 01 Feb 2014 14:00

I want 3 dots to keep popping up on the screen (…) until the player presses ENTER.
I thought of having a code like this:

• 0 -> G
• While G does not equal 1
  • Text(25,20,".
  • Text(25,25,".
  • Text(25,30,".
  • ClrDraw
• End

How would I make it so that when I press ENTER, it will change G to 1 and stop the loop? Is there an easier way to do this?

Re: Stoping a While chunk by pressing enter?

Toothless the Dragon 01 Feb 2014 21:55

Listen to MasterChief, he knows what he's talking about. xD

Although, a better method would be to use Repeat instead of While, as it is specifically designed for this task, and will save more bytes than converting While. Also, you don't need to take up space by using a variable. Ans works very well, unless you're using a delay with rand, then by all means use it.

Repeat Ans=105
getKey
Text (25,20,".
Text(25,25,".
Text(25,30,".
ClrDraw
End

… or…

Repeat K=105
getKey→K
Text (25,20,".
rand(5
Text(25,25,".
rand(5
Text(25,30,".
rand(5
ClrDraw
End

I see a handful of optimizations you can do with this to make it run better, like using a loop for 20,25, and 30, as well as using sub( and clearing with spaces instead of ClrDraw (to remove the unappealing flicker with the command), but only if you're up to it. I don't want to confuse you and bring up stuff up over your head.

Re: Stoping a While chunk by pressing enter?

MasterChief2552 01 Feb 2014 14:23

:0 -> G
:While not(G
:Disp “Code example
:GetKey -> G
:End

This will stop the loop when any key is pressed.
The following code, however, stops the loop, when exactly Enter was pressed.

:0 -> G
:While not(G=105
:Disp “Code example
:GetKey -> G
:End

The command getKey returns the internal number of the key that was pressed. If no key was pressed, it returns 0.
The internal calculator key code for Enter is 105. For a complete list of all key codes, take a look at this image:

You can also write your own program for all the key codes, it would look like something like this:

:Disp “Press a key
:0 -> G
:Repeat G
:Getkey -> G
:End
:Disp “The key code is
:Disp G

---

Wake me, when you need me.

Last edited on 01 Feb 2014 14:29 by MasterChief2552 Show more