Initial Upload

2023-08-08 16:22:17 -04:00
parent 51a2a1286e
commit 22947ad4b6
6511 changed files with 6765205 additions and 0 deletions
--- a/_module/nss/asg_resdesk_01.nss
+++ b/_module/nss/asg_resdesk_01.nss
@@ -0,0 +1,129 @@
+#include "nw_o0_itemmaker"
+int DEBUG = FALSE;
+
+string sMid(string sString, int iStart,int iChars)
+{
+    string sCut1;
+    string sCut2;
+    string sReturn;
+    int iCut = iStart+iChars;
+    sCut1 = GetStringLeft(sString,iCut);
+    sCut2 = GetStringRight(sCut1,iChars);
+    sReturn = sCut2;
+    // ** No checks on this one
+
+    return sReturn;
+}
+string sEnd(string sString, int iStart)
+{
+    string sCut1;
+    string sCut2;
+    string sReturn;
+    int iLength = GetStringLength(sString);
+    int iChars = iLength-iStart;
+    int iCut = iStart+iChars;
+    sCut1 = GetStringLeft(sString,iCut);
+    sCut2 = GetStringRight(sCut1,iChars);
+    sReturn = sCut2;
+    // ** No checks on this one
+
+    return sReturn;
+}
+void main()
+{
+
+    // ASG_ArcaneBookofBelts
+    object oLecturn =GetNearestObjectByTag("ASG_LECTURN");
+    object oSelf = OBJECT_SELF;
+    object oPC = GetPCSpeaker();
+    string sToken = "DEBUG: ERROR";
+    object oChest;
+    int iContinue = FALSE;
+    if (GetIsObjectValid(oLecturn))
+    {
+        object oItem = GetFirstItemInInventory(oLecturn);
+        // ASG_ArcaneBookofBelts
+        if (GetIsObjectValid(oItem))
+        {
+            string sTag = GetTag(oItem);
+            string sLeft3 = GetStringLeft(sTag,3);
+            string sArDiv;
+            if (sLeft3=="RBK")
+            {
+                sLeft3 = sEnd(sTag,4);
+                sArDiv = sMid(sLeft3,4,3);
+                if (DEBUG==TRUE)
+                {
+                    SendMessageToPC(oPC,"DEBUG: sLeft3 = "+sLeft3);
+                    SendMessageToPC(oPC,"DEBUG: sArDiv = "+sArDiv);
+                }
+
+                 sTag = sLeft3;
+                 oChest = GetObjectByTag(sTag);
+                 sToken = GetName(oItem);
+                 if (sArDiv=="ARC") SetLocalString(OBJECT_SELF,"ASG_MIC_MAGICTYPE","A");
+                 else SetLocalString(OBJECT_SELF,"ASG_MIC_MAGICTYPE","D");
+            }
+            // Check if Object is now valid
+            if (GetIsObjectValid(oChest))
+            {
+                    if (GetIsObjectValid(oChest))
+                     {
+                        // Create List
+                        int iIndex = 0;
+                        object oItem = GetFirstItemInInventory(oChest);
+                        while (GetIsObjectValid(oItem))
+                        {
+                            // Check to make sure the item is ID
+                            int iID = GetIdentified(oItem); if (iID!=TRUE) SetIdentified(oItem,TRUE);
+                            SetLocalArrayString(OBJECT_SELF,"ASG_MIC_ITEMNAME",iIndex,GetName(oItem));
+                            SetLocalArrayString(OBJECT_SELF,"ASG_MIC_ITEMTAG",iIndex,GetTag(oItem));
+                            iIndex++;
+                            oItem = GetNextItemInInventory(oChest);
+                        }
+                        SetLocalObject(OBJECT_SELF,"ASG_MIC_CHEST",oChest);
+                        SetLocalInt(OBJECT_SELF,"ASG_MIC_TOTALLIST",iIndex);
+                        SetLocalInt(OBJECT_SELF,"ASG_MIC_CURRENTLISTPOINT",0);
+
+                        // Research Type Strings
+                        // (A) Any Arcane Caster
+                        // ( D) Any Divine Caster
+
+                }
+                else
+                {
+                    SendMessageToPC(oPC,"ERROR - Magic Item Storage Chest Not Valid");
+                }
+            }
+        }
+    }
+    SetCustomToken(1970001,sToken);
+    int iBonus = 0;
+    object oLibrary = GetNearestObjectByTag("ASG_BOOKSHELF",OBJECT_SELF);
+    if (GetIsObjectValid(oLibrary))
+    {
+        float fDist = GetDistanceBetween(OBJECT_SELF,oLibrary);
+        if (fDist<10.0)
+        {
+            object oBooks = GetFirstItemInInventory(oLibrary);
+            int iType;
+            string sLeft3;
+            while (GetIsObjectValid(oBooks))
+            {
+                iType = GetBaseItemType(oBooks);
+                if (iType == BASE_ITEM_BOOK)
+                {
+                    if (GetStringLeft(GetTag(oBooks),3)=="RBK")
+                    {
+                        iBonus=iBonus+1;
+                    }
+                    iBonus++;
+                }
+                oBooks = GetNextItemInInventory(oLibrary);
+            }
+        }
+    }
+    // SetLocalInt(OBJECT_SELF,"ASG_MIC_RESEARCHBONUS",iBonus);
+    SendMessageToPC(oPC,"*******************************");
+    // SendMessageToPC(oPC,"Enchanted Forge/Alter Level Bonus : "+IntToString(iBonus));
+}