Показать сообщение отдельно
Старый 19.03.2013, 22:39   #14
Gector
Легенда
 
Аватар для Gector
 
Регистрация: 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)
 
Ответить с цитированием