'Тест преигрового цикла: создание игроков (количества, имена)

[b]#include "fbgfx.bi"
Using FB
ScreenRes 800,600,16,2,0' установка режима экрана
Setmouse 0,0,0  ' прячем курсор[/b]

Dim Shared As Byte pl_counter, pl_numer, faza
[b]Dim Shared As String*25 char, new_char[/b]
Dim Shared As Integer ikey  

pl_counter=0
pl_numer=0
faza=0  

[b]Do   ' ГЛАВНЫЙ ЦИКЛ[/b]
     
        
    [b]ScreenLock   
    Cls[/b]
    Draw String (350,80),"PRE GAME TEST"
    Draw String (50,480),"players: " & pl_counter
    Draw String (50,520),"pre game faza: " & faza
       Select Case faza
          Case 0
             [b]new_char=InKey$
             char=char+new_char[/b]
             Draw String (350,180),"Input players number(1 to 5):"  
             Draw String (250,200),"TEST TEXT: "+ char + new_char
              
       End Select
    ScreenUnLock
    Sleep 60, 1  
      
Loop Until Multikey(SC_Q) Or Multikey(SC_ESCAPE)

Screen 19,32,2
ScreenSet 1

' Если раскладка русская, ставим английскую
' Работает только на винде
#ifdef __FB_WIN32__
#Include "windows.bi"
Dim As ZString*10 szKL
GetKeyboardLayoutName(@szKL)
If szKL = "00000419" Then
   ActivateKeyboardLayout(Cast(HKL,HKL_NEXT) ,KLF_SETFORPROCESS)
EndIf
#EndIf

Type TPlayers
   szName As ZString*64
   iNumber As Integer
End Type

Dim Shared As ZString*20 szInfo = "Введите имя игрока", szName ' буфер ввода для имени
Dim Shared As TPlayers players(1 To 100) ' массив пользователей
Dim Shared As UByte bFlag ' флаг нажатия F1
Dim Shared As Integer iCountUsers, iCaret ' кол-во юзеров,место каретки
Dim Shared As Any Ptr font ' хендл шрифта

' Главная комната
Sub drawRoom()
   Line (20,20)-(780,580),&hABCD,BF
End Sub

' Окно с вводом пользователей
Sub drawGuiInputName()
   Line (300,250)-(500,350),&hf0f0f0,BF
   Line (330,300)-(470,320),&hfff0,BF
   Draw String (400-(Len(szInfo)\2)*7, 265),szInfo,,font
   Draw String (50,50),"Сделайте запись и нажмите ENTER",,font
End Sub

Sub InputName()

   szName = ""
     iCaret=0
       
   Do

    Var iKey = GetKey()
    Select Case iKey
     Case 13 ' ENTER
      bFlag = 0
      iCountUsers+=1
      players(iCountUsers).szName = szName
      players(iCountUsers).iNumber = iCountUsers
      Exit Do
     Case 8 ' DELETE
      If Len(szName)>1 Then
                 If iCaret = Len(szName) Then
                  szName = Mid(szName,1,Len(szName)-1)
                  iCaret-=1
                 ElseIf iCaret = 0 Then
                  szName = Mid(szName,2,Len(szName))
                  iCaret = 0
                 Else
                  szName = Mid(szName,1,iCaret-1) & Mid(szName,iCaret+1,Len(szName))
                  iCaret-=1
                 EndIf          
      Else
       szName = ""
       iCaret=0
      EndIf
     Case 48 To 57,65 To 90,97 To 122 ' Только английские буквы (при желании можно добавить пробел, подчеркивание и пр.)
      iCaret+=1
      szName &= Chr(iKey)
     Case 19455 'стрелка влево
      iCaret-=1
     Case 19967 'стрелка вправо
      iCaret+=1
    End Select
      
    drawRoom()
    drawGuiInputName
    Draw String (333,303),szName
        Line(333+iCaret*8,303)-(334+iCaret*8,315),&hff0000,BF
    Sleep(1)
    PCopy

   Loop

End Sub

'Загружаем шрифт
font = IMageCreate(1568,14)   
BLoad "1.bmp",font

Do
   Cls
   drawRoom()
   Draw String (50,50),"Нажмите клавишу F1 для записи",,font
   Draw String (50,70),"Игроков " & iCountUsers ,,font
   For i As Integer = 1 To iCountUsers
    Draw String (50,70+20*i),"Player " & _
           players(i).iNumber & ": " & players(i).szName ,,font
   Next
   If MultiKey(&h3B) Then bFlag = 1 ' клавиша F1 для окна ввода имени

   If bFlag = 1 Then
    InputName()
   EndIf

   PCopy
   Sleep(1)

Loop Until MultiKey(1) ' ESC

ImageDestroy(font)

#include "fbgfx.bi"
Using FB
ScreenRes 800,600,16,2,0' установка режима экрана
Setmouse 0,0,0  ' прячем курсор

Dim Shared As String pl_name,new_char

Do   ' ГЛАВНЫЙ ЦИКЛ
     
        
    ScreenLock   
    Cls
    new_char=InKey$
    Select Case new_char
       Case "A" To "Z", "a" To "z"
          pl_name=pl_name+new_char
    End Select
              
    Draw String (250,200),"TEST TEXT: "+ pl_name
     
    ScreenUnLock
    Sleep 60, 1  
      
Loop Until Multikey(SC_Q) Or Multikey(SC_ESCAPE)