holding 2 keys at once problem...

Author

Message

Gamers corner

18

Years of Service

User Offline

Joined: 6th Aug 2006

Location: USA

Posted: 17th Aug 2006 01:17

Link

Im making a FPS and im trying to make it so you can use w,a,s, and d to move around, but just like in the tutorial "Free Flight", it stops saying that the button is pressed when you press another or move the mouse.

I know why this happens but is there a way you can move your FPS guy and turn the mouse without him stopping?

Gamerscorner

www.freewebs.com/monkeyproduction

Back to top

Profile PM Email Website

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 17th Aug 2006 03:17

Link

Hello,

Instead of having the character react directly to a key press, set a variable to a value when the key press occurs. Have the character react to the value of the variable. You can then control the variable with different values to have various things occur.

When the cycle is complete, reset your variable to 0 or whatever and then have a variable set by the next keypress or mouse move.

+ Code Snippet

if upkey()=1 then forward = 1

rem you probably wouldn't use WHILE but
rem here's an example

while forward = 1
    rem do all kinds of different stuff
    rem move mouse to aim target
    rem even check for other key presses
    rem all the while the forward command
    rem is initiated
    
    rem we're done checking
    forward = 0
endwhile

Enjoy your day.

Back to top

Profile PM

Gamers corner

18

Years of Service

User Offline

Joined: 6th Aug 2006

Location: USA

Posted: 17th Aug 2006 03:36

Link

It still didnt work. it did the same thing as last time, and i tried it with WHILE.

remember im using inkey$()

www.freewebs.com/monkeyproduction

Back to top

Profile PM Email Website

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 17th Aug 2006 13:53

Link

use the keystate function

Return Value = keystate(scancode value of key to check)

returns 1 if the checked key is being pressed, otherwise zero is returned... Using inkey$ means every time you press a new key, the old keypress is lost

Back to top

Profile PM Email

Ginga

18

Years of Service

User Offline

Joined: 3rd Jul 2006

Location: Dorset, England

Posted: 18th Aug 2006 15:20

Link

hey Gamers Corner,

If your using the inkey$() comand (which is what i normally have), create a few variables like Up,Down,Left,Right, then when a key is pressed, check to see if the variables = 1, and respond that way.

A short code snippet would be something like this (written off the top of me head)

+ Code Snippet

REM Variables here so you know what they are
Up=0 : Down=0 : Left=0 : Right=0

DO
REM Inkey stuff (w,a,s,d)
if inkey$("w")=1
   REM Set UP to 1 (true)
   Up = 1
   REM Check other movement keys
     if Down = 1
     REM Do some code here
     endif
        if Left=1
        REM Do some code here
        endif
            If Right=1
            REM do some code here
            Endif
REM If no other movement keys are pressed do code here

endif
REM "W" let go, set up to 0
Up = 0
loop

hopefully that should work, if not then my bad

, tho it is a basic way of doing it. Tho the last couple of lines may be i nthe wrong place

Back to top

Profile PM Email

Scraggle

Moderator

21

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 18th Aug 2006 19:49 Edited at: 18th Aug 2006 20:01

Link

Bad idea!

What if he wanted to go up and left simultaneously? With that code it is not possible. As SimSmall said ... use keystate.

Here is some code to demonstrate how to use keystate. Use W,A,S,D to move the sprite around.

+ Code Snippet

Global x 		as float = 10.0
Global y 		as float = 10.0
Global Speed 	as float = 0.75

sync on
sync rate 60

MakeSprite()

`**************   S T A R T   O F   M A I N   L O O P   ****************

do

   GetUserInput()
   UpdateWorld()
   sync

loop

`****************   E N D   O F   M A I N   L O O P   ******************


function GetUserInput()

	if keystate(30) 	then dec x , Speed
	if keystate(32) 	then inc x , Speed
	if keystate(17) 	then dec y , Speed
	if keystate(31) 	then inc y , Speed

endfunction


function UpdateWorld()

	sprite 1,x,y,1

endfunction


function MakeSprite()
	
	create bitmap 1, 50,50
	box 0,0,50,50,rgb(255,0,0),rgb(0,255,0),rgb(0,0,255),rgb(255,255,0)
	get image 1,0,0,50,50
	delete bitmap 1

endfunction

... and here is a list of scancode numbers to use with the keystate command: