Initial upload

Initial upload.

_module/nss/rp_poxmer_sc2.nss

@@ -0,0 +1,80 @@
+//::///////////////////////////////////////////////
+//:: Name
+//:: FileName : rp_poxmer_sc2
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+This routine is invoked as a starting conditional
+in the ox merchants conversation script. If it
+returns TRUE then the merchant knows he has gotten
+his gold and created the pack ox for the buyer.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Rogers Pessin
+//:: Created On: August 4, 2002
+//:://////////////////////////////////////////////
+
+#include "rp_poxmer_inc"
+
+// If possible, sell an ox to the player and return the success or failure.
+int StartingConditional()
+{
+    object oBuyer = GetPCSpeaker();
+
+    if (!GetIsPC(oBuyer) || (oBuyer==OBJECT_INVALID)) return FALSE; // Let the merchant know the transaction failed.
+
+    // If the speaker is "cute" (has a charisma >12) and is female, the
+    // pack ox merchant will give her a discount... the flirt :)
+    if((GetAbilityScore(oBuyer, ABILITY_CHARISMA) > 12) &&
+        (GetGender(oBuyer)==GENDER_FEMALE))
+    {
+        iPriceForOx = iDiscountOxPrice;
+    }
+
+    // Check for enough gold.
+    if (GetGold(oBuyer)<iPriceForOx) return FALSE; // Let the merchant know the transaction failed.
+
+    // Take the gold and make a new ox for the buyer.
+    TakeGoldFromCreature(iPriceForOx,oBuyer,TRUE);
+
+    // Spawn new ox
+        // The new ox will be spawned wherever the "rp_pox_sp" waypoint has been set.
+        object oSpawnPoint = GetNearestObjectByTag("rp_pox_sp");
+
+        // Make sure the waypoint has been placed, and if not, spawn on the selling merchant instead.
+        if (oSpawnPoint==OBJECT_INVALID) oSpawnPoint=OBJECT_SELF;
+
+        // Determine the actual location to spawn at.
+        location lSpawnLocation = GetLocation(oSpawnPoint);
+
+        // Spawn the new ox.
+        object oNewOx = CreateObject(OBJECT_TYPE_CREATURE,"rp_pox",lSpawnLocation, FALSE);
+
+        // Setup the packs on the ox.
+        int iCount = 0;
+        object oPack = GetFirstItemInInventory(oNewOx);
+        while (GetIsObjectValid(oPack))
+        {
+            if (GetTag(oPack)=="ATS_S_L901_N_SLH")
+            {
+                iCount++;
+                SetLocalObject(oNewOx,"RP_PACK_NUM_"+IntToString(iCount),oPack);
+            }
+            oPack = GetNextItemInInventory(oNewOx);
+        }
+        SetLocalInt(oNewOx,"RP_PACK_COUNT",iCount);
+
+    /* Give Pack Ox to PC
+       Set a local variable on the ox to track its owner. The public portion of
+       the owners CD Key is used to track owners, which means the player could
+       log in with any of their characters and access the ox. */
+    string sOwnerCDK = GetPCPublicCDKey(oBuyer);
+    SetLocalString(oNewOx,"RP_OWNER_CDK",sOwnerCDK);
+    SetLocalObject(oNewOx,"RP_OWNER",oBuyer);
+
+    // Force the pack ox to follow its new owner at 10 feet.
+    AssignCommand(oNewOx,ActionForceFollowObject(oBuyer,FeetToMeters(10.0)));
+    SetLocalInt(oNewOx,"RP_OX_STATUS",10);
+
+    return TRUE; // Let the merchant know the transaction went well.
+}