BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Key change example: Let's you change keys on the fly", by grim_1_2_3

This code basically let's the user change the controls for moving the stick man around the screen while the program is running. It will automatically detect the new key when you go to change it. This code is uncommented right now, But it is pretty easy to understand. No images are required to run this code either :)

Note: This entry is now complete -- Before the bottom half kept getting chopped off every time I tried to post it. It is now all here though :) I will add comments to this entry soon.

Code

; **************************
; *     By Grim_1_2_3      *
; **************************

Graphics 640,480

SetBuffer BackBuffer()

Global x = 200
Global y = 100
Global x2 = 300
Global y2 = 0
Global kcode1 = 200
Global kcode2 = 208
Global kcode3 = 203
Global kcode4 = 205
Global anim = 0
Global changekey = 0
Global changemenu = 0
Global cursel = 1

While Not KeyHit(1)
Text 0,0, "The key for 'UP' is currently:" + kcode1
Text 0,10, "The key for 'Down' is currently:" + kcode2
Text 0,20, "The key for 'Left' is currently:" + kcode3
Text 0,30, "The key for 'Right' is currently:" + kcode4
Text 100,200, "Arrow keys move stick dude around until keys are changed"
Text 100,210, "        Hit F1 to access the key change menu"
Text 100,240, "  While in the key change menu, Use up and down arrow" 
Text 100,250, "       keys To Select the key you wish To change"
Text x + 8,y + 1, "O"
Text x + 4,y + 9, "/"
Text x + 8,y + 11, "I"
Text x + 12,y + 9, "\"
Text x + 4,y + 19, "/"
Text x + 12,y + 19, "\"
If cursel = 1 Then
y2 = 0
EndIf
If cursel = 2 Then
y2 = 10
EndIf
If cursel = 3 Then
y2 = 20
EndIf
If cursel = 4 Then
y2 = 30
EndIf
If changemenu = 1 Then
Text x2,y2, "Hit Enter to change this key"
change_keys_menu()
EndIf
If changekey = 1 Then
Text x2,y2, "Press the new desired key"
For a = 1 To 237 ; check which key was pressed
If KeyHit(a) Then
Select cursel
Case 1
kcode1 = a
changekey = 0
Case 2
kcode2 = a
changekey = 0
Case 3
kcode3 = a
changekey = 0
Case 4
kcode4 = a
changekey = 0
End Select
End If
Next
EndIf
If KeyHit(59) Then ; F1 key
changemenu = 1
EndIf
If KeyDown(kcode1) And changemenu = 0 Then
y = y - 1
EndIf
If KeyDown(kcode2) And changemenu = 0 Then
y = y + 1
EndIf
If KeyDown(kcode3) And changemenu = 0 Then
x = x - 1
EndIf
If KeyDown(kcode4) And changemenu = 0 Then
x = x + 1
EndIf
Flip
Cls
Wend

Function change_keys_menu()
If cursel < 1 Then
cursel = 4
EndIf
If cursel > 4 Then
cursel = 1
EndIf
If KeyHit(200) Then
cursel = cursel - 1
EndIf
If KeyHit(208) Then
cursel = cursel + 1
EndIf
If KeyHit(28) Then ; Enter key
changemenu = 0
FlushKeys()
changekey = 1
EndIf
End Function

Code software created by Krylar's Kreations