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
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 FunctionThen, add this under the /warpto command in your Sub Commands
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 IfOk, 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
Guests: 21
Hidden: 0
Users: 15
Users Online:
