inkey$ - GameCreators Forum

Author

Message

heyworth83

21

Years of Service

User Offline

Joined: 26th Nov 2002

Location: United Kingdom

Posted: 18th Jun 2003 00:21

Link

most fps games use "w", "s", "a", "d" keys instead of arrowkeys for movement, but in db only one of these keys can be used at once (using inkey$). just wondered if there was a way round this. thanks.

Back to top

Profile PM

Obear

21

Years of Service

User Offline

Joined: 13th Oct 2002

Location:

Posted: 18th Jun 2003 02:30 Edited at: 18th Jun 2003 02:31

Link

have you tried the keystate command??

ie

if keystate(insert keystate number for relevent key here) = 1 then bla bla bla

Back to top

Profile PM

Phoenix

21

Years of Service

User Offline

Joined: 22nd Feb 2003

Location:

Posted: 18th Jun 2003 03:48

Link

If keystate doesn't work you could also try scancode which works the same way as keystate. but just a little different

ie

if scancode() = number for key then bla bla bla

if you don't know the numbers you could use this code to find out the keystate or scancode's.

+ Code Snippet

do
cls
print scancode()
loop

position object myFoot,object position x(yourFace),object position y(yourFace),object position z(yourFace)

Back to top

Profile PM

Bloodshot

21

Years of Service

User Offline

Joined: 7th Apr 2003

Location: United Kingdom

Posted: 18th Jun 2003 17:22 Edited at: 18th Jun 2003 17:40

Link

Try this heyworth83, I think I've covered all you're asking for:

MOUSE=0
Repeat
       CLS
       HEADING=0
       Rem The clever part - Each check will only ever change 1 BIT in the HEADING variable.
       Rem This way, we can monitor multiple keypressess and the end value can be used to represent a valid movement direction
       If UpKey() Then HEADING=HEADING+1
       If DownKey() Then HEADING=HEADING+2
       If LeftKey() Then HEADING=HEADING+4
       If RightKey() Then HEADING=HEADING+8
       Select HEADING
              Case 1  : DIRECTION$="    NORTH" : EndCase
              Case 2  : DIRECTION$="    SOUTH" : EndCase
              Case 4  : DIRECTION$="     WEST" : EndCase
              Case 5  : DIRECTION$="NORTHWEST" : EndCase
              Case 6  : DIRECTION$="SOUTHWEST" : EndCase
              Case 8  : DIRECTION$="     EAST" : EndCase
              Case 9  : DIRECTION$="NORTHEAST" : EndCase
              Case 10 : DIRECTION$="SOUTHEAST" : EndCase
              Case Default : DIRECTION$="         " : EndCase
       EndSelect
       Set Cursor 0,0
       Print "Use the Arrow keys to simulate movement."
       Print "(Click a Mouse Button or press the Esc key to quit this example.)"
       Print
       Print
       Print DIRECTION$
       MOUSE=MouseClick
Until MOUSE>0 or Scancode()=1

+ Code Snippet


MOUSE=0
Repeat
       CLS
       HEADING=0
       Rem The clever part - Each check will only ever change 1 BIT in the HEADING variable.
       Rem This way, we can monitor multiple keypressess and the end value can be used to represent a valid movement direction
       If UpKey() Then HEADING=HEADING+1
       If DownKey() Then HEADING=HEADING+2
       If LeftKey() Then HEADING=HEADING+4
       If RightKey() Then HEADING=HEADING+8
       Select HEADING
              Case 1  : DIRECTION$="    NORTH" : EndCase
              Case 2  : DIRECTION$="    SOUTH" : EndCase
              Case 4  : DIRECTION$="     WEST" : EndCase
              Case 5  : DIRECTION$="NORTHWEST" : EndCase
              Case 6  : DIRECTION$="SOUTHWEST" : EndCase
              Case 8  : DIRECTION$="     EAST" : EndCase
              Case 9  : DIRECTION$="NORTHEAST" : EndCase
              Case 10 : DIRECTION$="SOUTHEAST" : EndCase
              Case Default : DIRECTION$="         " : EndCase
       EndSelect
       Set Cursor 0,0
       Print "Use the Arrow keys to simulate movement."
       Print "(Click a Mouse Button or press the Esc key to quit this example.)"
       Print
       Print
       Print DIRECTION$
       MOUSE=MouseClick
Until MOUSE>0 or Scancode()=1

Back to top

Profile PM Email Website

heyworth83

21

Years of Service

User Offline

Joined: 26th Nov 2002

Location: United Kingdom

Posted: 19th Jun 2003 00:33

Link

THANKS ALL!!! [b])

Back to top

Profile PM

haXor

21

Years of Service

User Offline

Joined: 12th May 2003

Location: United States

Posted: 19th Jun 2003 03:49

Link

go to [href] http://hometown.aol.com/alp29b/ScanCodes.txt [/href] it has a list of all the san codes

Sup Kids

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / inkey$