19.03.2013, 22:39
|
#14
|
Легенда
Регистрация: 14.10.2007
Сообщений: 3,878
Написано 2,012 полезных сообщений (для 5,072 пользователей)
|
Ответ: ввод текста в ксорсе
Сообщение от ProGamer
y=0
num=1
Dim old$(10000)
Repeat
k%=GetKey()
If k<>0
t$=Chr$(k)
t2$=t2$+t$
EndIf
If KeyHit(28)
num=num+1
old$(num)=t2$
t2$=""
y=y+12
EndIf
For i=1 To num
Text 0,y-(12*(i-2)),old$(i)
Next
Text 0,0,t2$
Flip
Cls
Until KeyHit(1)
End
код стал короче,регистр меняется при удерживании shift,при нажатии enter переход на новую строку
|
Мне интересно две вещи:
1) Где в играх применяется ввод с переходом на другую строку?
2) Зачем массив?
|
(Offline)
|
|