Reply to thread

Message

<blockquote data-quote="Othmaar" data-source="post: 1500844" data-attributes="member: 18749">I am a little new to this XP thing, I just accepted the tables in the books. However, a friend of mine borrowed my DMG and I need it tomorrow. So I searched the net to find a table and ended up here. I used the VB code above but had do modify it to simplified script form.It seems to me that L4 gets the same amount of XP as L1-3. I cannot see anything wrong with my code. Is L4 supposed to get the same as L1-3?I made a simple asp script to create a table. It can be viewed here <a href="http://80.202.86.224/tdz/dnd/xp.asp" target="_blank">XP table</a> (EDIT 1: I have no idea what happened to the script. Suddenly all variables are converted to strings I am working on that. EDIT 2: Fixed. Apparently the server looks at the input type in the html form! I changed it to number, which is an invalid type btw, and then it worked!)My Code:[CODE]Public Function Experience(ByVal LVL, ByVal CR)&nbsp;&nbsp; If LVL &lt;= 3 THEN LVL = 3&nbsp;&nbsp; Dim XP&nbsp;&nbsp; XP = (300 * LVL)&nbsp;&nbsp; For above = (LVL + 1) To CR Step 1&nbsp;&nbsp; If Int(above - LVL) &lt;&gt; (above - LVL) Then&nbsp; &nbsp; &nbsp; XP = XP * (3 / 2)&nbsp;&nbsp; Else&nbsp; &nbsp; &nbsp; XP = XP * (4 / 3)&nbsp;&nbsp; End If&nbsp;&nbsp; Next&nbsp;&nbsp; For below = (LVL - 1) To CR Step -1&nbsp; &nbsp; &nbsp; If Int(LVL - below) &lt;&gt; (LVL - below) Then&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; XP = XP / (3 / 2)&nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; XP = XP / (4 / 3)&nbsp; &nbsp; &nbsp; End if&nbsp;&nbsp; Next&nbsp; &nbsp; &nbsp; If CR = 1 Then&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; IF XP &gt;= 300 Then XP = 300&nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; Experience = Int(XP)End Function[/CODE]</blockquote>

[QUOTE="Othmaar, post: 1500844, member: 18749"] I am a little new to this XP thing, I just accepted the tables in the books. However, a friend of mine borrowed my DMG and I need it tomorrow. So I searched the net to find a table and ended up here. I used the VB code above but had do modify it to simplified script form. It seems to me that L4 gets the same amount of XP as L1-3. I cannot see anything wrong with my code. Is L4 supposed to get the same as L1-3? I made a simple asp script to create a table. It can be viewed here [URL=http://80.202.86.224/tdz/dnd/xp.asp]XP table[/URL] (EDIT 1: I have no idea what happened to the script. Suddenly all variables are converted to strings I am working on that. EDIT 2: Fixed. Apparently the server looks at the input type in the html form! I changed it to number, which is an invalid type btw, and then it worked!) My Code: [CODE] Public Function Experience(ByVal LVL, ByVal CR) If LVL <= 3 THEN LVL = 3 Dim XP XP = (300 * LVL) For above = (LVL + 1) To CR Step 1 If Int(above - LVL) <> (above - LVL) Then XP = XP * (3 / 2) Else XP = XP * (4 / 3) End If Next For below = (LVL - 1) To CR Step -1 If Int(LVL - below) <> (LVL - below) Then XP = XP / (3 / 2) Else XP = XP / (4 / 3) End if Next If CR = 1 Then IF XP >= 300 Then XP = 300 End If Experience = Int(XP) End Function [/CODE] [/QUOTE]

Verification