Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
tnl Bar & exp in .ini
#26
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.
Reply
#27
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.
Reply
#28
change the

Code:
Val(Parse$(
To:
Code:
Str(Parse(
Quote:Robin:
Why aren't maps and shit loaded up in a dynamic array?
Jacob:
the 4 people that know how are lazy
Robin:
Who are those 4 people?
Jacob:
um
you, me, and 2 others?
Reply
#29
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.
Reply
#30
Check if your experience bar is in twip or pixel.
Reply
#31
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?
Reply
#32
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.
Reply
#33
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?
Reply
#34
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
Reply


Forum Jump:


Users browsing this thread: 3 Guest(s)