Posts: 83
Threads: 22
Joined: Dec 2004
please, point me to where I can learn key trapping and sdl. if you want me to look at code please comment it! :lol:
f a fly walked, would it be called a walk?
Why dosn't someone make a word that rymes with purple or orange?
WHY AM I SO ANNOYING? Becuase I wanna!
Why am I typeing this? Cuz im bored!
Posts: 6,419
Threads: 74
Joined: Mar 2002
Posts: 133
Threads: 19
Joined: Jan 2005
This goes as follow:
Code:
dim keys as uint8 ptr
keys = SDL_GetKeyState(NULL)
if keys[SDLK_UP] then
' Do something
endif
if keys[SDLK_DOWN] then
' Do something
endif
if keys[SDLK_LEFT] then
' Do something
endif
if keys[SDLK_RIGHT] then
' Do something
endif
Problem here is that you cannot do it with a nice looking select but have to use if´s as keys is an array of 255 elements.
If you need to know what SDLK_Something you need have a look at SDL_keysym.bi
Have fun ^.^
EDIT: If you just want to check it when a key is actauly pressed, check your event holder for SDL_KEYDOWN
(Just copied my simple keywait routine)
Code:
sub SDL_WaitForKeypress()
dim WaitForKeyEvent as SDL_Event
do
SDL_PollEvent(@WaitForKeyEvent)
select case WaitForKeyEvent.type
case SDL_KEYDOWN:
'Do your key stuff here!
exit do
case SDL_MOUSEDOWN:
'Do your mouse stuff here
exit do
end select
loop
end sub
color=red]Look at you, Hacker. A pathetic creature of meat and bone, panting and sweating as you run through my corridors. How can you challenge a perfect, immortal machine?" - Shodan, AI at Citadel Station orbiting Earth[/color]