Initial upload.

Adding base PRC 4.19a files to repository.
2022-10-07 13:51:24 -04:00
parent 646eb01834
commit 1662218bb4
22441 changed files with 1274376 additions and 0 deletions
--- a/trunk/include/inc_leto_prc.nss
+++ b/trunk/include/inc_leto_prc.nss
@@ -0,0 +1,108 @@
+#include "inc_letocommands"
+#include "inc_utility"
+
+void PRCLetoExit(object oPC)
+{
+    object oSkin = GetPCSkin(oPC);
+    itemproperty ipTest = GetFirstItemProperty(oSkin);
+
+    if(GetPRCSwitch(PRC_PNP_SPELL_SCHOOLS)
+        && GetLevelByClass(CLASS_TYPE_WIZARD, oPC))
+    {
+        if(GetHasFeat(2274)
+            || GetHasFeat(2276)
+            || GetHasFeat(2277)
+            || GetHasFeat(2278)
+            || GetHasFeat(2279)
+            || GetHasFeat(2280)
+            || GetHasFeat(2281))
+        {
+            //set school to PnP school
+            string sScript;
+            sScript = "<for:field /ClassList><if:~/Class=10><gff:set ~/School '9'></if></for>";
+            SetLocalString(oPC, "LetoScript", GetLocalString(oPC, "LetoScript")+sScript);
+        }
+        else if(GetHasFeat(2273))
+        {
+            //set school to generalist
+            string sScript;
+            sScript = "<for:field /ClassList><if:~/Class=10><gff:set ~/School '0'></if></for>";
+            SetLocalString(oPC, "LetoScript", GetLocalString(oPC, "LetoScript")+sScript);
+        }
+    }
+
+
+    if(GetPersistantLocalInt(oPC,"nPCShifted") || GetLocalInt(oPC, "WWHybrid") || GetLocalInt(oPC, "WWWolf"))
+        return;
+    while(GetIsItemPropertyValid(ipTest))
+    {
+        int ipType = GetItemPropertyType(ipTest);
+        if(ipType == ITEM_PROPERTY_ABILITY_BONUS)
+        {
+            int ipSubType = GetItemPropertySubType(ipTest);
+            int ipValue = GetItemPropertyCostTableValue(ipTest);
+            string sPath = GetName(oPC);//GetLocalString(oPC, "Leto_Path");
+            int nOldIpValue = GetPersistantLocalInt(oPC, "LetoAbility_"+IntToString(ipSubType));
+            SetCampaignInt("LetoPRC", "LetoAbility_"+IntToString(ipSubType)+sPath, ipValue);
+            SetLocalString(oPC, "LetoScript", GetLocalString(oPC, "LetoScript")+AdjustAbility(ipSubType, ipValue-nOldIpValue));
+            //PrintString(sPath);
+            //PrintString("LetoAbility_"+IntToString(ipSubType)+sPath);
+            //PrintString(IntToString(ipValue));
+            //PrintString(IntToString(nOldIpValue));
+        }
+        ipTest = GetNextItemProperty(oSkin);
+    }
+
+
+}
+
+void PRCLetoEnter(object oPC)
+{
+    int i;
+    string sPath = GetName(oPC);//GetLocalString(oPC, "Leto_Path");
+    /*if(sPath == "")
+    {
+        sPath = GetBicPath(oPC);
+        SetLocalString(oPC, "Leto_Path", sPath);
+    }*/
+    //PrintString(sPath);
+    for(i=0;i<6;i++)
+    {
+        //PrintString("LetoAbility_"+IntToString(i)+sPath);
+        int nDBValue = GetCampaignInt("LetoPRC", "LetoAbility_"+IntToString(i)+sPath);
+        //PrintString(IntToString(nDBValue));
+        if(nDBValue)
+        {
+            int nPersistValue = GetPersistantLocalInt(oPC, "LetoAbility_"+IntToString(i));
+            //PrintString(IntToString(nPersistValue));
+            SetPersistantLocalInt(oPC, "LetoAbility_"+IntToString(i), nPersistValue + nDBValue);
+            DeleteCampaignVariable("LetoPRC", "LetoAbility_"+IntToString(i)+sPath);
+        }
+    }
+}
+
+void PRCLetoLevelup(object oPC)
+{
+    int bChange;
+    int nClass = -1;
+    //so we know what the last level taken was
+    int nLevel = GetHitDice(oPC);
+    if(GetPRCSwitch(PRC_NO_FREE_WIZ_SPELLS))
+    {
+        //add the command to get the last class to the stack
+        StackedLetoScript(LetoGet("LvlStatList/["+IntToString(nLevel)+"]/LvlStatClass"));
+        //run that command on the PC
+        //need this long command to put nDestroyOriginal to false
+        //this means that the PC wont be booted, since we are only reading his .bic at the moment
+        RunStackedLetoScriptOnObject(oPC, "OBJECT", "SCRIPT", "", FALSE);
+        //the return from leto is stored as nClass
+        nClass = StringToInt(GetLocalString(GetModule(), "LetoResult"));
+
+        if(nClass == CLASS_TYPE_WIZARD)
+        {
+            //string sScript
+        }
+    }
+    if(bChange)
+        RunStackedLetoScriptOnObject(oPC, "OBJECT", "SCRIPT", "", TRUE);
+}