Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Eclipse reborn help !!!!!!!!!!


marak
 Share

Recommended Posts

engine eclipse reborn

the hud game this thus

[![](http://img14.imageshack.us/img14/3761/69615725.png)](http://imageshack.us/photo/my-images/14/69615725.png/)

Uploaded with [ImageShack.us](http://imageshack.us)

as I let he similar the such

[![](http://img5.imageshack.us/img5/8262/70507637.png)](http://imageshack.us/photo/my-images/5/70507637.png/)

Uploaded with [ImageShack.us](http://imageshack.us)

help !!!!!!!!!!!!!!!!
Link to comment
Share on other sites

just render the player face and the player sprite with the gui bars .

it's done by every mmorpg so you're not stealing the idea ![:)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/smile.png)
Link to comment
Share on other sites

replace drawguibars with this

```

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 + 96

Y = GUIWindow(GUI_BARS).Y

Width = 254

Height = 89

Call Directx8.RenderTexture(Tex_Face(Player(MyIndex).Sprite), X - 96, 0, 0, 0, 128, 128, 128, 128)

Call Directx8.RenderTexture(Tex_Char(Player(MyIndex).Sprite), X - 32, 64, 0, 0, 32, 32, 32, 32)

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

Directx8.RenderTexture Tex_GUI(4), X, Y, 0, 0, Width, Height, Width, Height

If Map.Moral = MAP_MORAL_NONE Then

RenderText Font_Default, Trim$(Map.Name), X + 37, Y + Height - 19, BrightRed

ElseIf Map.Moral = MAP_MORAL_SAFE Then

RenderText Font_Default, Trim$(Map.Name), X + 37, Y + Height - 19, White

ElseIf Map.Moral = MAP_MORAL_BOSS Then

RenderText Font_Default, Trim$(Map.Name), X + 37, Y + Height - 19, Pink

End If

' hardcoded for POT textures

barWidth = 241

' health bar

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

Directx8.RenderTexture Tex_GUI(13), X + 7, Y + 9, 0, 0, BarWidth_GuiHP, gTexture(Tex_GUI(13)).Height, BarWidth_GuiHP, gTexture(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

Directx8.RenderTexture Tex_GUI(14), X + 7, Y + 31, 0, 0, BarWidth_GuiSP, gTexture(Tex_GUI(14)).Height, BarWidth_GuiSP, gTexture(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

' exp bar

If GetPlayerLevel(MyIndex) < MAX_LEVELS Then

BarWidth_GuiEXP_Max = ((GetPlayerExp(MyIndex) / barWidth) / (TNL / barWidth)) * barWidth

Else

BarWidth_GuiEXP_Max = barWidth

End If

Directx8.RenderTexture Tex_GUI(15), X + 7, Y + 53, 0, 0, BarWidth_GuiEXP, gTexture(Tex_GUI(15)).Height, BarWidth_GuiEXP, gTexture(Tex_GUI(15)).Height

' render exp

If GetPlayerLevel(MyIndex) < MAX_LEVELS Then

sString = GetPlayerExp(MyIndex) & "/" & TNL

Else

sString = "Max Level"

End If

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

dY = Y + 53

RenderText Font_Default, sString, dX, dY, White

End Sub

```
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...