[Tutorial NTs#3] Barra de MP abaixo do jogador

por RenanR Qua 24 Jul 2013, 03:24

Nice Tutos #3

Funcionalidade
Quando o jogador está atacando/sofrendo ataque, aparece a barra de HP em baixo dele. Usando este tutorial adicionaremos abaixo da barra de HP, a barra de MP. Ou seja, ambos irão aparecer.

Cliente-Side

Procure:

Código:: Sub BltPlayerBars(ByVal Index As Long)

Mude a sub inteira para:

Código:: Sub BltPlayerBars(ByVal Index As Long) Dim x As Long, y As Long x = (GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset) - (NewPlayerX * PIC_X) - NewXOffset y = (GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset) - (NewPlayerY * PIC_Y) - NewYOffset If Player(Index).HP = 0 Then Exit Sub 'draws the back bars Call DD_BackBuffer.SetFillColor(RGB(0, 0, 255)) Call DD_BackBuffer.DrawBox(x, y + 32, x + 32, y + 36) 'draws HP If Int((GetPlayerHP(Index) / GetPlayerMaxHP(Index)) * 100) > 50 Then Call DD_BackBuffer.SetFillColor(RGB(0, 255, 0)) End If If Int((GetPlayerHP(Index) / GetPlayerMaxHP(Index)) * 100) > 20 And Int((GetPlayerHP(Index) / GetPlayerMaxHP(Index)) * 100) <= 50 Then Call DD_BackBuffer.SetFillColor(RGB(255, 255, 0)) End If If Int((GetPlayerHP(Index) / GetPlayerMaxHP(Index)) * 100) <= 20 Then Call DD_BackBuffer.SetFillColor(RGB(255, 0, 0)) End If Call DD_BackBuffer.DrawBox(x, y + PIC_Y, x + ((Player(Index).HP / 100) / (Player(Index).MaxHP / 100) * SIZE_X), y + 36) If Player(Index).MP = 0 Then Exit Sub x = (GetPlayerX(Index) * PIC_X + sx + Player(Index).XOffset) - (NewPlayerX * PIC_X) - NewXOffset y = (GetPlayerY(Index) * PIC_Y + sx + Player(Index).YOffset) - (NewPlayerY * PIC_Y) - NewYOffset + 5 'draws MP Call DD_BackBuffer.SetFillColor(RGB(0, 200, 255)) Call DD_BackBuffer.DrawBox(x, y + PIC_Y, x + ((Player(Index).MP / 100) / (Player(Index).MaxMP / 100) * SIZE_X), y + 36) End Sub