Initial commit

Adding all of the current content for Anphillia Unlimited.

_module/nss/hc_inc_transfer.nss

@@ -0,0 +1,60 @@
+// Corpse include file
+// HCR Archaegeo 2002
+
+void hcTransferObjects(object oFrom, object oTo, int nDesPCT=0)
+{
+    object oInBagItem;
+//    SendMessageToPC(oFrom,"Beginning Transfer");
+    object oEquip = GetFirstItemInInventory(oFrom);
+    while(GetIsObjectValid(oEquip))
+    {
+// Item to be NOT transfered
+        // SendMessageToPC(oFrom,"Checking Item " + GetTag(oEquip));
+        if ( (GetTag(oEquip)=="hc_palbadgecour")
+            || (GetTag(oEquip)=="hc_paladinsymb")
+            || (GetTag(oEquip)=="searchtool")
+            || (GetTag(oEquip)=="TrackerTool")
+            || (GetTag(oEquip)=="EmoteWand")
+            || (FindSubString(GetTag(oEquip), "sei_sla") != -1)
+            || (GetTag(oEquip)=="fuguerobe"))
+        {
+            oEquip = GetNextItemInInventory(oFrom);
+            continue;
+        }
+
+        oInBagItem = GetFirstItemInInventory (oEquip);
+        if (GetIsObjectValid(oInBagItem))
+        {
+            // Ah, recursion :)
+            hcTransferObjects(oEquip, oTo, 2);
+        }
+
+
+        /* Mods.. */
+        if ( (GetTag(oEquip) != "PotionOfCCW")
+           &&(GetTag(oEquip) != "PotionOfCLW")
+           &&(GetTag(oEquip) != "PotionOfCMW")
+           &&(GetTag(oEquip) != "PotionOfCSW"))
+        {
+            oEquip = GetNextItemInInventory(oFrom);
+            continue;
+        }
+
+        if(nDesPCT==2 && (GetTag(oEquip)=="PlayerCorpse" &&
+            GetLocalString(oEquip,"Key")==GetPCPublicCDKey(oTo)))
+        {
+            oEquip=GetNextItemInInventory(oFrom);
+            continue;
+        }
+        if(nDesPCT && GetTag(oEquip)=="PlayerCorpse" &&
+            GetLocalString(oEquip,"Key")==GetPCPublicCDKey(oTo))
+        {
+            DestroyObject(oEquip);
+            oEquip=GetNextItemInInventory(oFrom);
+            continue;
+        }
+//        SendMessageToPC(oFrom,"Moving Item " + GetTag(oEquip));
+        AssignCommand(oTo, ActionTakeItem(oEquip, oFrom));
+        oEquip = GetNextItemInInventory(oFrom);
+    }
+}