|
|
Post by Azan on Jul 9, 2005 18:45:46 GMT -5
Ever wanted to make a input box module? well heres some source that will get you started (very useful) Graphics 800,600
SetBuffer BackBuffer()
While Not KeyHit(1)
Flip
Cls
key=GetKey()
If key Then
If key=8 Then
If Len(chat$)>0 Then ;set up backspace
chat$=Left$(chat$,Len(chat$)-1)
EndIf
EndIf
If key>=32 And key<127 Then ;set up the typing
chat$=chat$+Chr$(key)
EndIf
EndIf
Text 10,10,chat$
Wend |
|
|
|
Post by Umbrafire on Jul 9, 2005 20:37:04 GMT -5
AWESOME, this is the part I was having trouble with! thanks Azan
|
|
|
|
Post by Azan on Jul 9, 2005 20:58:38 GMT -5
No problem, I was having problems with the same thing (i tried to have about 40 if statements, if keyhit(blah) then blah blah blah) so as soon as I found this I just had to post it  |
|
|
|
Post by Umbrafire on Jul 9, 2005 21:07:13 GMT -5
yeah, mine made perfect sense when I wrote it, and then just turned into one big error, lol
|
|
|
|
Post by Azan on Jul 10, 2005 11:04:36 GMT -5
Yeah, thats what happened to mine BTW im almost done with my input module theres just one last error I need to fix then ill post it here |
|
