forum.boolean.name - Показать сообщение отдельно

Trilliput · 17.10.2007, 16:57

Мне вобщм то неважно работает приложение в данный момент или нет. БИГ СПС за то что напомнил функцию Chr, а то я уже хотел таюлицу символов перебивать.
Ну и надумал еще один способ создания консоли с Input():

While cons=True
If KeyHit(59) Then 
cons=False
EndIf
Locate0,0

IfGetKey() Then
command$ = Input(":>")
EndIf

Rect0,0,800,300,0
RenderWorld
Text0,0,":>"
Flip
Wend

17.10.2007, 16:57	#5
Trilliput Знающий Регистрация: 27.07.2006 Сообщений: 250 Написано 6 полезных сообщений (для 7 пользователей)	Re: Как создать консоль? Мне вобщм то неважно работает приложение в данный момент или нет. БИГ СПС за то что напомнил функцию Chr, а то я уже хотел таюлицу символов перебивать. Ну и надумал еще один способ создания консоли с Input(): While cons=True If KeyHit(59) Then cons=False EndIf Locate0,0 IfGetKey() Then command$ = Input(":>") EndIf Rect0,0,800,300,0 RenderWorld Text0,0,":>" Flip Wend
(Offline)