tnl Bar & exp in .ini - Printable Version

tnl Bar & exp in .ini - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: tnl Bar & exp in .ini (/showthread.php?tid=717)

Pages: 1 2

Re: tnl Bar & exp in .ini - JohnY - 31-07-2007

I added

Public Const MAX_EXP = 200 only Client Side

I tried to put this Server Side aswell, then I got this error:

[Image: subscriptoutofrangezn1.png]

What am I doing wrong, lol

EDIT: The error is: Subscript out of Range, Runtime 9.

Re: tnl Bar & exp in .ini - Aaron - 31-07-2007

if you cant get this to work then you can always go to the backup tutorials and grab the exp in ini format tutorial...then work on the TNL bar later.

Re: tnl Bar & exp in .ini - Robin - 31-07-2007

change the

Code:
Val(Parse$(

To:

Code:
Str(Parse(

Re: tnl Bar & exp in .ini - JohnY - 31-07-2007

I added this tutorial 3 times, i've read it line after line, now that I got all the codes in it and finally succesfully compiled it
it still won't work.

In the game it would just show a full TNL bar and nothing at the exp label.

Re: tnl Bar & exp in .ini - William - 01-08-2007

Check if your experience bar is in twip or pixel.

Re: tnl Bar & exp in .ini - exn - 14-03-2008

I did everything. I even did a differnt tutorial that did this aswell as stats and lvl. Everything works but TNL/EXP and the Level. They just show up as zeros. What am I doing wrong?

Re: tnl Bar & exp in .ini - William - 14-03-2008

Make sure you sent the information and make sure you set it client side. The Call SendTNL(index) is used for that, but not the level. You need to send the level too if its not shown.

Re: tnl Bar & exp in .ini - Johny050 - 02-12-2008

In this tutorial you mention the following subs:

Code:
Sub LoadExps()

Dim FileName As String

Dim i As Long

    Call CheckExps

    FileName = App.Path & "\experience.ini"

    For i = 1 To MAX_EXP

        Experience(i) = GetVar(FileName, "EXPERIENCE", "Exp" & i)

        DoEvents

    Next i

End Sub

Sub CheckExps()

    If Not FileExist("experience.ini") Then

        Dim i As Long

        For i = 1 To MAX_EXP

             Call PutVar(App.Path & "\experience.ini", "EXPERIENCE", "Exp" & i, i * 1500)

        Next i

    End If

End Sub

Sub ClearExps()

Dim i As Long

    For i = 1 To MAX_EXP

        Experience(i) = 0

    Next i

End Sub

The other guy was complaing he was only seeing 0's,
Don't you have to Call LoadExps, etc somewhere?

Re: tnl Bar & exp in .ini - Kraft - 03-12-2008

Lea Wrote:
Robin Wrote:change the

Code:
Val(Parse$(
To:

Code:
Str(Parse(

Are you fucking retarded Robin? Worst advice of the year.

It was wrote by Robin on Mon Jul 30, 2007.
I guess it's the worst advice of the year 2007 then. Tongue