Четверг, 21 Ноября 2024, 23:15

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Просмотр уровня
infermikДата: Вторник, 06 Декабря 2011, 10:48 | Сообщение # 1
заслуженный участник
Сейчас нет на сайте
Просматриваем уровень

В это уроке мы сделаем функцию, которая будет отвечать за показ уровня игрока.
Эту функцию можно будет отключать, включать в настройках игры(По умолчанию будет добавлена туда)
В этом уроке нам НЕ понадобиться работаться с сервером все будет происходить на стороне клиента.

Начнем:

Переходим 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 happy
Оригинал:Gianni


Выпрямляю путем кнута и пряника
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг