Really simple question - GameCreators Forum

Author

Message

Zeus6191

14

Years of Service

User Offline

Joined: 24th Oct 2011

Location:

Posted: 25th Oct 2011 00:30

Link

For some reason the following loop won't exit unless the return key is held. When it is just pressed the loop continues; Any suggestions?

REM Game Start Screen

Rem Insert Game Start Image

REM FLASHING Game Start text

DO

SET TEXT TRANSPARENT
CENTER TEXT 320,400, "HOLD RETURN"

WAIT 300

SET TEXT OPAQUE
CENTER TEXT 320,400, " "

WAIT 300

if RETURNKEY() = 1 then exit

LOOP

The same is true for the following example:
Loop

SET TEXT TRANSPARENT
CENTER TEXT 320,400, "HOLD RETURN"

WAIT 300

SET TEXT OPAQUE
CENTER TEXT 320,400, " "

WAIT 300

if RETURNKEY() = 1 then
ReturnConfirm = 1
end if

until ReturnConfirm = 1

Any suggestions?

---------------------
What the h4x...

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 25th Oct 2011 01:08

Link

Try this:

+ Code Snippet

DO

SET TEXT TRANSPARENT
CENTER TEXT 320,400, "HOLD RETURN"

WAIT 300

SET TEXT OPAQUE
CENTER TEXT 320,400, " "

WAIT 300

if RETURNKEY() = 1 then go=1
if go=1 then exit

LOOP

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Zeus6191

14

Years of Service

User Offline

Joined: 24th Oct 2011

Location:

Posted: 25th Oct 2011 01:22

Link

Quote: " Posted: 24th Oct 2011 17:08 | link | toggle

--------------------------------------------------------------------------------
Try this:

+ Code Snippet
DO

SET TEXT TRANSPARENT
CENTER TEXT 320,400, "HOLD RETURN"

WAIT 300

SET TEXT OPAQUE
CENTER TEXT 320,400, " "

WAIT 300

if RETURNKEY() = 1 then go=1
if go=1 then exit

LOOP

Cheers.

"

This is not meant to be rude.

If you see my second set of code it is very similar. I have tried your snippet and I have the same issue. The program only exits the loop when the key is held; if i press the key the loop continues.

---------------------
What the h4x...

Back to top

Profile PM

Zeus6191

14

Years of Service

User Offline

Joined: 24th Oct 2011

Location:

Posted: 25th Oct 2011 01:29

Link

I've found the problem. It appears the program does not accept input while the progaming is "wait"-ing. Is there another command that pauses the program other than "sleep". Sleep does not work either.

Unless someone has some another algorthim they could suggest.

---------------------
What the h4x...

Back to top

Profile PM

Rudolpho

20

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 25th Oct 2011 01:31

Link

If you press and release the return key while the program is "waiting", it will not be caught by the call to returnkey().

In essence, that loop will run one cycle in 600+ milliseconds (which is < 2 FPS), so it's kind of slow to accept fast input.
You could use the timer() function to see whether the appropriate amount of time has passed or not and let the loop run a lot faster, thus (much more likely at least) catching your quick hits of the return key.

All the "...key()" functions return true (1) if the particular key is held down at the moment when the function is called (and false (0) otherwise).

"Why do programmers get Halloween and Christmas mixed up?"

+ Code Snippet

Because Oct(31) = Dec(25)

Back to top

Profile PM Email Website

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 25th Oct 2011 12:26 Edited at: 25th Oct 2011 12:28

Link

Quote: "This is not meant to be rude. "

Not at all. It was just a misunderstanding

.You should put your piece of code between brackets

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Braude Interactive

19

Years of Service

User Offline

Joined: 1st Aug 2006

Location: Sheffield, UK

Posted: 25th Oct 2011 12:47

Link

I'm sure there's a way of doing it using the buffer... but it's been so long since I've used DBPro I can't remember what to call...

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

21

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 25th Oct 2011 13:15 Edited at: 25th Oct 2011 13:16

Link

Yeah like Rudolpho said it's best to use make a TIMER() so it can run without the need for the WAIT command. You can use a simple switch (on/off) to toggle between showing the text and erasing it.

+ Code Snippet

` Create a timer
tim=timer()
` Create a switch
TextFlash=0
SET TEXT OPAQUE

while returnkey()=0

 ` Check if it's time to show or not show the text
 if timer()>tim+300

  ` Check if the text flash switch is off
  if TextFlash=0
   ` Show the text
   CENTER TEXT 320,400, "PRESS RETURN"
   ` Toggle TextFlash On
   TextFlash=1
  else
   ` Erase the text
   CENTER TEXT 320,400, "            "
   ` Toggle TextFlash Off
   TextFlash=0
  endif

  ` Reset timer
  tim=timer()

 endif

endwhile

` Wait till the user lets go of all keys
repeat
until scancode()=0

wait key

Back to top

Profile PM Email

Webber

15

Years of Service

User Offline

Joined: 27th May 2011

Location:

Posted: 25th Oct 2011 19:52

Link

The reason it pauses is because your pausing the program with the wait command.

Try this.

+ Code Snippet

WaitTime = 300
BaseTime = Timer()

DO
cls `clears the screen

Time = Timer()-BaseTime `Gets the time
if Time > WaitTime*2 then inc BaseTime,Time `Resets the time after 600 milliseconds

Rem if the time is bettween 0 and 300 then draw the text, otherwise do not draw the text
if Time > 0 and Time < WaitTime then CENTER TEXT 320,400, "HOLD RETURN"

if RETURNKEY() = 1 then exit

LOOP

I like games, and stuff.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Really simple question