Combined Exp

[Topher]

Ok, well here is a semi-usefull-ish thing that adds up all of the experience up to the level specified by you in an /exp # command. To install it, paste this to the bottom of your main.txt

Code: [Select]

Function ExpCount(index, level)
Dim exp
Dim i
Dim counter

exp = 0
counter = 1

Do While Int(counter) <= Int(level)
i = Int(GetVar("experience.ini",  "EXPERIENCE", "Exp" & counter))
exp = Int(Int(exp) + Int(i))
Counter = counter + 1
Loop

ExpCount = Int(exp)
End Function
Then, add this under the /warpto command in your Sub Commands

Code: [Select]

If LCase(Mid(TextSay, 1, 4)) = "/exp" Then
If Len(TextSay) > 4 Then
TextSay = Mid(TextSay, 5, Len(TextSay) - 4)
x = ExpCount(index, TextSay)
Call PlayerMsg(index, "The Combined Exp to Level " & TextSay & " is " & x, 14)
End If
Exit Sub
End If
Ok, well to use this ingame, simply type /exp and a space and the level you want exp added to. For example, /exp 10 to get all the exp added up to level 10 (it will include level 10.)

To call this function while scripting, use ExpCount(index, level) replacing level with the level you want caluclated to, again, it will include that level.

Hope you enjoy!
Topher

[Balliztik]

Nice, but it would help to have a command to see how much total exp you have as well.

Code: [Select]

Case "/currentexp"
Level = GetPlayerLevel(index) - 1
CurrentExp = GetPlayerExp(index)

Do While Level >= 1
CurrentExp = CurrentExp + Int(GetVar("experience.ini",  "EXPERIENCE", "Exp" & level))
Level = Level -1
Loop

Call PlayerMsg(index, "Your total exp is " & CurrentExp, 14)
Exit Sub

[Topher]

True....thanks