Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/tlr_copycost.nss

@@ -0,0 +1,36 @@
+//::///////////////////////////////////////////////
+//:: Tailoring - Copy Cost
+//:: tlr_copycost.nss
+//:: Copyright (c) 2003 Jake E. Fitch
+//:://////////////////////////////////////////////
+/*
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Jake E. Fitch (Milambus Mandragon)
+//:: Created On: March 9, 2004
+//-- bloodsong:  added base cost for adjusting price ranges.
+//:://////////////////////////////////////////////
+int StartingConditional()
+{
+    object oPC = GetPCSpeaker();
+    int BaseCost = 0; //-- change this to raise your base prices.
+    float BaseDivider = 0.2; //-- mil default
+
+    object oNPCItem = GetItemInSlot(INVENTORY_SLOT_CHEST, OBJECT_SELF);
+    object oPCItem = GetItemInSlot(INVENTORY_SLOT_CHEST, oPC);
+
+    int iCost = BaseCost + GetGoldPieceValue(oNPCItem) + FloatToInt(IntToFloat(GetGoldPieceValue(oPCItem)) * BaseDivider);
+    int iAC = GetItemACValue(oNPCItem);
+
+    string sOut = "Cost: " + IntToString(iCost) + " gold.\n";
+    sOut += "AC: " + IntToString(iAC) + "\n";
+    sOut += "(Note: You may only copy appearances that have the same AC value as your current clothing.)\n";
+    sOut += "\nDo you wish to continue with the purchase?";
+
+    SetCustomToken(9876, sOut);
+    //-- this is called to check if the pc has the money to buy
+    SetLocalInt(OBJECT_SELF, "CURRENTPRICE", iCost);
+
+    return TRUE;
+}