Problem with Status Window

Chain · **Joined:** Thu Feb 05, 2009 12:53 am **Posts:** 7

Hi, i've done the Tutorial for the Status Window and now i tryed to add the playername and lvl but it dont work. Can any 1 plz help? I got everytime Variable not declared error -.-'. and how can i let them show my Lvl after the Char name?

my code so far:

Code:

        Case StatusWindow
            With GameWindow.Status
        

                Engine_Render_Grh .SkinGrh, .Screen.X, .Screen.Y, 0, 1, True, GUIColorValue, GUIColorValue, GUIColorValue, GUIColorValue
                
                
'### NAME & LVL ANZEIGE ###
                Engine_Render_Text , CharList(CharIndex).Name, .Screen.X + 10, .Screen.Y + 14, -1
'### LEBEN LEISTE ###
                Engine_Render_Rectangle .Screen.X + 40, .Screen.Y + 30, (BaseStats(SID.MinHP) / ModStats(SID.MaxHP)) * 141, 11, 1, 1, 1, 1, 1, 1, 0, 0, 1, -2818048, -2818048, -2818048, 0, False
                Engine_Render_Text Font_Default, BaseStats(SID.MinHP) & "/" & ModStats(SID.MaxHP), .Screen.X + 46, .Screen.Y + 28, D3DColorARGB(255, 0, 0, 0)
                Engine_Render_Text Font_Default, "HP:", .Screen.X + 10, .Screen.Y + 28, -1
'### MANA LEISTE ###
                Engine_Render_Rectangle .Screen.X + 40, .Screen.Y + 46, (BaseStats(SID.MinMAN) / ModStats(SID.MaxMAN)) * 141, 11, 1, 1, 1, 1, 1, 1, 0, 0, 1, -16776961, -16776961, -16776961, 0, False
                Engine_Render_Text Font_Default, BaseStats(SID.MinMAN) & "/" & ModStats(SID.MaxMAN), .Screen.X + 46, .Screen.Y + 44, D3DColorARGB(255, 0, 0, 0)
                Engine_Render_Text Font_Default, "MP:", .Screen.X + 10, .Screen.Y + 44, -1
'### ERFAHRUNGS LEISTE ###
                Engine_Render_Rectangle .Screen.X + 40, .Screen.Y + 62, (BaseStats(SID.EXP) / BaseStats(SID.ELU)) * 141, 11, 1, 1, 1, 1, 1, 1, 0, 0, 1, -200, -200, -200, 0, False
                Engine_Render_Text Font_Default, BaseStats(SID.EXP) & "/" & BaseStats(SID.ELU), .Screen.X + 46, .Screen.Y + 60, D3DColorARGB(255, 0, 0, 0)
                Engine_Render_Text Font_Default, "EXP:", .Screen.X + 10, .Screen.Y + 60, -1
      End With

notexistant · **Posted:** Thu Feb 05, 2009 1:08 am

Replace:

Code:

Engine_Render_Text , CharList(CharIndex).Name, .Screen.X + 10, .Screen.Y + 14, -1

With:

Code:

Engine_Render_Text Font_Default, CharList(CharIndex).Name, Screen.X + 10, .Screen.Y + 14, -1

Chain · **Joined:** Thu Feb 05, 2009 12:53 am **Posts:** 7

I've done this but i get still the "Variable not Defined" Error

notexistant · **Posted:** Thu Feb 05, 2009 1:12 am

Run the client in vb6 and tell us what variable it says is not defined.

DarkSummon · **Posted:** Thu Feb 05, 2009 1:14 am

Well since you want level as well, just use something like this to display both:

Code:

Engine_Render_Text Font_Default, "Name: " & UserName & " Level: " & BaseStats(SID.ELV), .Screen.X + 10, .Screen.Y + 14, -1

Hope this helps

Chain · **Joined:** Thu Feb 05, 2009 12:53 am **Posts:** 7

THX DarkSummon, this worked

do u know why my mousewheel not more work in vb6?

notexistant · **Posted:** Thu Feb 05, 2009 1:17 am

Chain wrote:

THX DarkSummon, this worked

do u know why my mousewheel not more work in vb6?

Never has...

BTW your original problem was that you used CharIndex instead of UserCharIndex and you forgot to put Font_Default.

DarkSummon · **Posted:** Thu Feb 05, 2009 1:28 am

No Probs Chain

In the VB6 IDE your scroll wheel wont work (yes i know, a very annoying feature ^^). What i do is just run a small app before i develop with VB6, which is called:
VB6ScrollwheelFix

Which you can get here:
http://tinyurl.com/ceb5vb

Happy coding ^^

Chain · **Joined:** Thu Feb 05, 2009 12:53 am **Posts:** 7

notexistant wrote:

Chain wrote:

THX DarkSummon, this worked

do u know why my mousewheel not more work in vb6?

Never has...

BTW your original problem was that you used CharIndex instead of UserCharIndex and you forgot to put Font_Default.

thx, now i know it and dont do it again ;D

notexistant · **Posted:** Thu Feb 05, 2009 2:10 am

Zanval · **Posted:** Thu Feb 05, 2009 10:06 am

DarkSummon wrote:

No Probs Chain

In the VB6 IDE your scroll wheel wont work (yes i know, a very annoying feature ^^). What i do is just run a small app before i develop with VB6, which is called:
VB6ScrollwheelFix

Which you can get here:
http://tinyurl.com/ceb5vb

Happy coding ^^

theres a fix? i love you xD

DarkSummon · **Posted:** Thu Feb 05, 2009 10:38 am

Zanval wrote:

DarkSummon wrote:

No Probs Chain

In the VB6 IDE your scroll wheel wont work (yes i know, a very annoying feature ^^). What i do is just run a small app before i develop with VB6, which is called:
VB6ScrollwheelFix

Which you can get here:
http://tinyurl.com/ceb5vb

Happy coding ^^

theres a fix? i love you xD

haha your welcome ^^

vbGore Free Online RPG Engine

Problem with Status Window