Строка ввода
Недавно нашел вещь на цетери но у меня что то не получается. Созданый символ сразу стирается. Вот код:
Graphics3D 1280,1024,32,2
SetBuffer BackBuffer()
While Not GameLevel=-1
UpdateWorld
RenderWorld
rInput$(aString$)
Flip()
Wend
;----------------------------
End
Function rInput$(aString$)
value = GetKey()
length = Len(aString$)
If value = 8 Then value = 0 :If length > 0 Then aString$ = Left$(aString,Length-1)
If value = 13 Then Goto ende
If value = 0 Then Goto ende
If value>0 And value<7 Or value>26 And value<32 Or value=9 Then Goto ende
aString$=aString$ + Chr$(value)
.ende
Cls:Text 10,5, ""+aString$
Return aString$
End Function
|
Последний раз редактировалось moka, 17.10.2009 в 05:19.
Причина: Лишние переносы строки.
|