Initial Commit

Initial Commit.

_module/nss/dnd_inc_exp.nss

@@ -0,0 +1,126 @@
+// ADND 1E Experience Tracking File
+// Coded By: Archaegeo
+// August 31, 2002
+
+
+// fMult is the multiple applied to all exp awards.
+float fMult=1.0;
+
+
+// fClass floats are applied after the fMult float, and are averaged together
+// for multiclass character.  All default to 1.0
+float fClassCleric = 1.11111 ;
+float fClassDruid = 0.90909 ;
+float fClassFighter = 1.00000 ;
+float fClassPaladin = 0.71429 ;
+float fClassRanger = 0.83916 ;
+float fClassWizard = 0.80000 ;
+float fClassSorcerer = 0.80000 ;
+float fClassRogue = 1.36364 ;
+float fClassMonk = 0.69767 ;
+float fClassBard = 1.36364 ;
+float fClassBarbarian = 0.83916 ;
+
+
+int GetExpForLevel(object oPC, int nLev)
+{
+    int nNew;
+            if(nLev == 20) nNew=3750000;
+            else if(nLev > 20) nNew=3750000;
+            else if(nLev == 19) nNew=3375000;
+            else if(nLev == 18) nNew=3000000;
+            else if(nLev == 17) nNew=2625000;
+            else if(nLev == 16) nNew=2250000;
+            else if(nLev == 15) nNew=1875000;
+            else if(nLev == 14) nNew=1500000;
+            else if(nLev == 13) nNew=1125000;
+            else if(nLev == 12) nNew=750000;
+            else if(nLev == 11) nNew=375000;
+            else if(nLev == 10) nNew=250000;
+            else if(nLev == 9) nNew=135000;
+            else if(nLev == 8) nNew=90000;
+            else if(nLev == 7) nNew=60000;
+            else if(nLev == 6) nNew=40000;
+            else if(nLev == 5) nNew=22500;
+            else if(nLev == 4) nNew=10000;
+            else if(nLev == 3) nNew=5000;
+            else if(nLev == 2) nNew=2500;
+            else nNew=1;
+    return nNew;
+}
+void DND_set_exp(object oPC, int nAmount)
+{
+    SetLocalInt(oPC,"CURRENTEXP",nAmount);
+}
+
+
+void SetUpExp(object oPC, int nAmount)
+{
+    int nCurXP;
+    int nNexXP;
+    float nCurDNDXP;
+    int nNexDNDXP;
+    int nLev=GetHitDice(oPC);
+    nCurXP = GetXP(oPC);
+    nNexDNDXP=GetExpForLevel(oPC, nLev+1);
+    nNexXP = (((nLev+1) * nLev) / 2) * 1000;
+    nCurDNDXP = (IntToFloat(nCurXP) * IntToFloat(nNexDNDXP)) / IntToFloat(nNexXP);
+    DND_set_exp(oPC, FloatToInt(nCurDNDXP)+nAmount);
+}
+
+int DND_get_exp(object oPC)
+{
+    return GetLocalInt(oPC,"CURRENTEXP");
+}
+
+float GetMultiplier(int nClass)
+{
+    switch(nClass)
+    {
+        case CLASS_TYPE_BARBARIAN : return fClassBarbarian; break;
+        case CLASS_TYPE_BARD   : return fClassBard; break;
+        case CLASS_TYPE_CLERIC   : return fClassCleric; break;
+        case CLASS_TYPE_DRUID   : return fClassDruid; break;
+        case CLASS_TYPE_FIGHTER   : return fClassFighter; break;
+        case CLASS_TYPE_MONK   : return fClassMonk; break;
+        case CLASS_TYPE_PALADIN   : return fClassPaladin; break;
+        case CLASS_TYPE_RANGER   : return fClassRanger; break;
+        case CLASS_TYPE_ROGUE   : return fClassRogue; break;
+        case CLASS_TYPE_SORCERER   : return fClassSorcerer; break;
+        case CLASS_TYPE_WIZARD   : return fClassWizard; break;
+    }
+    return 1.0;
+}
+
+void DND_add_exp(object oPC, int nAmount)
+{
+    nAmount = FloatToInt((IntToFloat(nAmount) * fMult));
+    float fClassMult;
+    int nTot;
+    while(GetClassByPosition(nTot+1, oPC) != CLASS_TYPE_INVALID)
+    {
+        fClassMult += GetMultiplier(GetClassByPosition(nTot+1,oPC));
+        nTot++;
+    }
+    fClassMult /= nTot;
+
+    nAmount = FloatToInt((IntToFloat(nAmount) * fClassMult));
+
+
+//    if(GetXP(oPC)>1 && !GetLocalInt(oPC,"CURRENTEXP"))
+//    {
+        SetLocalInt(oPC,"EXPSETUP",nAmount);
+        ExecuteScript("dnd_level",oPC);
+        SendMessageToPC(oPC,"You gain: "+IntToString(nAmount)+" experience. Total "+
+            "Exp: "+IntToString(DND_get_exp(oPC)));
+
+
+        return;
+//    }
+//    SetLocalInt(oPC, "CURRENTEXP", (GetLocalInt(oPC,"CURRENTEXP")+nAmount));
+//    SendMessageToPC(oPC,"You gain: "+IntToString(nAmount)+" experience. Total "+
+//        "Exp: "+IntToString(DND_get_exp(oPC)));
+//    ExecuteScript("dnd_level",oPC);
+}
+
+