Просматриваем уровень
В это уроке мы сделаем функцию, которая будет отвечать за показ уровня игрока.
Эту функцию можно будет отключать, включать в настройках игры(По умолчанию будет добавлена туда)
В этом уроке нам НЕ понадобиться работаться с сервером все будет происходить на стороне клиента.
Начнем:
Переходим modconstants в самый конец модуля вставляем:
Quote
Public Level_Show As Boolean
Затем открываем ModText и вставляем:
Quote
Dim TextA As Long
Dim TextB As Long
Выше:
Code
Public Sub DrawPlayerName(ByVal Index As Long)
В этом же модуле ищем:
Quote
Call DrawText(TexthDC, TextX, TextY, Name, color)
И ниже него вставляем код:
Quote
If Level_Show = True Then
' calc pos
TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$("Level " & GetPlayerLevel(Index))))
If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5
Else
' Determine location for text
TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5
End If
С модульной частью закончили.
Переходим к формам, а точнее frmMain
Ищем окно с опциями(там же находятся откл\вкл музыки и звуков)
Добавляем туда CHECKBOX называем его level_chk, затем нажимаем на него дважды.
И заменяем:
Quote
Private Sub level_chk_Click()
End Sub
На:
Quote
Private Sub level_chk_Click()
If level_chk.Value = 0 Then
Level_Show = True
Else
Level_Show = False
End If
End Sub
Компилируем, переходим в опции и пробуем поставить галочку в созданном нами CHECKBOX'e вы увидите уровни игрков.
Перевод:infermik 
Оригинал:Gianni
