Add a experience bar

[jordy205]

In mi engine i dont have any experience bar and i want to add, can antone help me ?

Regards

[hisherwin]

at your engine .. it will be hard.

[Nocturne]

And what engine are you using?

[DMF]

its not hard but most engines have one from the start sooo… idk xD u gotta tell us which ur using 

[jordy205]

My engine is the Resbak Online engine  or the Drachen Eclipse 

[Nimfek]

Try Eclipse Mega - I realy like this engine :>

[Matt]

Download an engine that already has an experience bar. Then, take a look at how its handled and adapt it to the engine that you're using.

[jordy205]

> Download an engine that already has an experience bar. Then, take a look at how its handled and adapt it to the engine that you're using.

Can you say me want i have to search in the sever and the client. Regards 

[Matt]

Take a look at the name of the object on the form that is the Experience bar, and then look for that name in the code (ctrl+f)

[jordy205]

> Take a look at the name of the object on the form that is the Experience bar, and then look for that name in the code (ctrl+f)

These is my code but id ont know how to add the other bar

```

Public Sub DrawGUIBars()

Dim tmpWidth As Long, barWidth As Long, x As Long, y As Long, dX As Long, dY As Long, sString As String

Dim Width As Long, Height As Long

' backwindow + empty bars

x = GUIWindow(GUI_BARS).x

y = GUIWindow(GUI_BARS).y

Width = GUIWindow(GUI_BARS).Width

Height = GUIWindow(GUI_BARS).Height

RenderTexture Tex_GUI(21), x, y, 0, 0, Width, Height, Width, Height

If Not HUDClose Then

RenderTexture Tex_Buttons(17), 270, 59, 0, 0, 19, 19, 19, 19

Else

RenderTexture Tex_Buttons(18), 270, 59, 0, 0, 19, 19, 19, 19

End If

RenderTexture Tex_Character(Player(MyIndex).Sprite), x + 11, y + 15, 32, 0, 32, 32, 32, 32

x = GUIWindow(GUI_BARS).x + 41

y = GUIWindow(GUI_BARS).y + 3

' hardcoded for POT textures

barWidth = 241

' health bar

BarWidth_GuiHP_Max = ((GetPlayerVital(MyIndex, Vitals.HP) / barWidth) / (GetPlayerMaxVital(MyIndex, Vitals.HP) / barWidth)) * barWidth

RenderTexture Tex_GUI(13), x + 7, y + 9, 0, 0, BarWidth_GuiHP, Tex_GUI(13).Height, BarWidth_GuiHP, Tex_GUI(13).Height

' render health

sString = GetPlayerVital(MyIndex, Vitals.HP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.HP)

dX = x + 7 + (barWidth / 2) - (EngineGetTextWidth(Font_Default, sString) / 2)

dY = y + 9

RenderText Font_Default, sString, dX, dY, White

' spirit bar

BarWidth_GuiSP_Max = ((GetPlayerVital(MyIndex, Vitals.MP) / barWidth) / (GetPlayerMaxVital(MyIndex, Vitals.MP) / barWidth)) * barWidth

RenderTexture Tex_GUI(14), x + 7, y + 31, 0, 0, BarWidth_GuiSP, Tex_GUI(14).Height, BarWidth_GuiSP, Tex_GUI(14).Height

' render spirit

sString = GetPlayerVital(MyIndex, Vitals.MP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.MP)

dX = x + 7 + (barWidth / 2) - (EngineGetTextWidth(Font_Default, sString) / 2)

dY = y + 31

RenderText Font_Default, sString, dX, dY, White

' experience bar

BarWidth_GuiSP_Max = ((GetPlayerVital(MyIndex, Vitals.MP) / barWidth) / (GetPlayerMaxVital(MyIndex, Vitals.MP) / barWidth)) * barWidth

RenderTexture Tex_GUI(14), x + 7, y + 31, 0, 0, BarWidth_GuiSP, Tex_GUI(14).Height, BarWidth_GuiSP, Tex_GUI(14).Height

' render spirit

sString = GetPlayerVital(MyIndex, Vitals.MP) & "/" & GetPlayerMaxVital(MyIndex, Vitals.MP)

dX = x + 7 + (barWidth / 2) - (EngineGetTextWidth(Font_Default, sString) / 2)

dY = y + 31

RenderText Font_Default, sString, dX, dY, White

End Sub

Public Sub DrawQuestLog()

Dim buttonnum As Long, x As Long, y As Long

Dim Width As Long, Height As Long

' render the window

Width = GUIWindow(GUI_QUESTLOG).Width

Height = GUIWindow(GUI_QUESTLOG).Height

'EngineRenderRectangle Tex_GUI(4), GUIWindow(GUI_INVENTORY).x, GUIWindow(GUI_INVENTORY).y, 0, 0, width, height, width, height, width, height

RenderTexture Tex_GUI(7), GUIWindow(GUI_QUESTLOG).x, GUIWindow(GUI_QUESTLOG).y, 0, 0, Width, Height, Width, Height

RenderText Font_Default, "Quest log", GUIWindow(GUI_QUESTLOG).x + (GUIWindow(GUI_QUESTLOG).Width / 2) - (EngineGetTextWidth(Font_Default, "Quest log") / 2), GUIWindow(GUI_QUESTLOG).y + 5, White

' draw the buttons

For buttonnum = 27 To 32

x = GUIWindow(GUI_QUESTLOG).x + Buttons(buttonnum).x

y = GUIWindow(GUI_QUESTLOG).y + Buttons(buttonnum).y

Width = Buttons(buttonnum).Width

Height = Buttons(buttonnum).Height

' render accept button

If Buttons(buttonnum).state = 2 Then

' we're clicked boyo

Width = Buttons(buttonnum).Width

Height = Buttons(buttonnum).Height

'EngineRenderRectangle Tex_Buttons_c(Buttons(buttonnum).PicNum), x, y, 0, 0, width, height, width, height, width, height

RenderTexture Tex_Buttons_c(Buttons(buttonnum).PicNum), x, y, 0, 0, Width, Height, Width, Height

ElseIf (GlobalX >= x And GlobalX <= x + Buttons(buttonnum).Width) And (GlobalY >= y And GlobalY <= y + Buttons(buttonnum).Height) Then

' we're hoverin'

'EngineRenderRectangle Tex_Buttons_h(Buttons(buttonnum).PicNum), x, y, 0, 0, width, height, width, height, width, height

RenderTexture Tex_Buttons_h(Buttons(buttonnum).PicNum), x, y, 0, 0, Width, Height, Width, Height

' play sound if needed

If Not lastButtonSound = buttonnum Then

PlaySound Sound_ButtonHover

lastButtonSound = buttonnum

End If

Else

' we're normal

'EngineRenderRectangle Tex_Buttons(Buttons(buttonnum).PicNum), x, y, 0, 0, width, height, width, height, width, height

RenderTexture Tex_Buttons(Buttons(buttonnum).PicNum), x, y, 0, 0, Width, Height, Width, Height

' reset sound if needed

If lastButtonSound = buttonnum Then lastButtonSound = 0

End If

Next

End Sub

```
Ehat i have exaclty to change or add?¿

[jordy205]

Up, some one can help me?

[hisherwin]

I'll do it again.. PM me on Skype.