Skins: |

NWN SCRIPTS

- Jump to comments -

Title

Respawn Penalty

Author

ffbj

Submitted / Updated

03-06-2006 / 11-22-2006

Category

Inventory Item

Expansions

Works on all versions

View Code

#include "nw_i0_plot"
// * Applies an XP and GP penalty//chance of item loss
// * to the player respawning based on level ffbj
void DestroyMajorItem(object oPC)
     {
    object oItem;
    switch(d12())
        {
        case 1: oItem = GetItemInSlot(INVENTORY_SLOT_ARMS,oPC); break;
        case 2: oItem = GetItemInSlot(INVENTORY_SLOT_CHEST,oPC); break;
        case 3: oItem = GetItemInSlot(INVENTORY_SLOT_HEAD,oPC); break;
        case 4: oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oPC); break;
        case 5: oItem = GetItemInSlot(INVENTORY_SLOT_NECK,oPC); break;
        case 6: oItem = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC); break;
        case 7: oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTRING,oPC); break;
        case 8: oItem = GetItemInSlot(INVENTORY_SLOT_LEFTRING,oPC); break;
        case 9: oItem = GetItemInSlot(INVENTORY_SLOT_BOOTS,oPC); break;
        case 10: oItem = GetItemInSlot(INVENTORY_SLOT_CLOAK,oPC); break;
        case 11: oItem = GetItemInSlot(INVENTORY_SLOT_BELT,oPC); break;
        case 12: oItem = GetItemInSlot(INVENTORY_SLOT_ARROWS,oPC); break;
         }

    if ((GetIsObjectValid(oItem))&&(!GetPlotFlag(oItem)))
         DestroyObject(oItem);
       }
void ApplyPenalty(object oDead)
        {
    int nXP = GetXP(oDead);
    int nPenalty = 50 * GetHitDice(oDead);
    int nHD = GetHitDice(oDead);
    // * You can not lose a level with this respawning

    int nMin = ((nHD * (nHD - 1)) / 2) * 1000;
    int nNewXP = nXP - nPenalty;
    if (nNewXP < nMin)
       nNewXP = nMin;
    SetXP(oDead, nNewXP);
    DelayCommand(5.0, FloatingTextStringOnCreature("XP Loss", oDead, FALSE));
      }
void main()
{
object oPC = GetLastRespawnButtonPresser();

     if (GetHitDice(oPC) > 5)
    ApplyPenalty(oPC);

       {  int iHdTemp = GetHitDice(oPC);

            if (iHdTemp < 6)
                SetLocalInt(oPC,"TakeItem",0);
            else if (iHdTemp < 11)
                SetLocalInt(oPC,"TakeItem",1);
            else if (iHdTemp < 18)
                SetLocalInt(oPC,"TakeItem",2);
            else if (iHdTemp < 28)
                SetLocalInt(oPC,"TakeItem",3);
            else
                SetLocalInt(oPC,"TakeItem",4);

              {
       object oItem = GetFirstItemInInventory(oPC);
       while (GetLocalInt(oPC,"TakeItem")>0)
              {
        if ((!GetPlotFlag(oItem))&&(d10()==1)&&(!GetHasInventory(oItem)))
            {
            DestroyObject(oItem);
            }
        SetLocalInt(oPC,"TakeItem",GetLocalInt(oPC,"TakeItem")-1);
              }
        oItem = GetNextItemInInventory(oPC);
              }
    if (d2()==1)
        DestroyMajorItem(oPC);
             }

int goldpieceCap = 1000;
int capLevelBased = TRUE;
int level = GetHitDice(oPC);
int goldValue;
    goldValue = GetGold(oPC);

    if (goldpieceCap>0)
        {
        if (capLevelBased)
            {
            if (goldValue>goldpieceCap*level)
                goldValue = goldpieceCap * level;
            }
        else
            {
            if (goldValue>goldpieceCap)
                goldValue = goldpieceCap;
             {
    AssignCommand(oPC,TakeGoldFromCreature(goldValue,oPC,TRUE));
    DelayCommand(5.8, FloatingTextStringOnCreature("Gold Loss", oPC, FALSE));
    DelayCommand(6.6, FloatingTextStringOnCreature("Equipment Loss", oPC, FALSE));
             }

      }
   }
}

Select All Text | View Code in separate window

Format

Code Only

Type

Type - Combat

Includes

BioWare Standard

Description

This is something you can add in as an executable to take items from players when they respawn based on their level.
It will take something from their inventory and their is a small chance they will lose something from their equipped items. It runs a while loop a certain number of times based on the level of the respawning player. It also takes some gold.

Files

Name	Type	Size	Downloads
NO FILES

SCORE OUT OF 10

10
1 votes
View Stats
Cast Your Vote!

PORTFOLIO

Add this entry to your portfolio so you can track it

Manage your existing portfolios or create a new one.

SCREENS

No Images

You Must Be Logged In to Participate.

Comments (5):

Posted by Shargast at 2008-01-06 06:49:13 Voted 10.00 on 01/06/08

A unique idea and the scripting is as usual solid as a rock!

Cheers
Shargast
_________________________
Realms of Shargast V1-V5ab, LOTR V15, The Undeath Clave & Faithful of Aerth

Posted by ffbj at 2006-03-29 19:38:36

Completely untrue. There me be other places that use this type of system. In fact I know a number that do but I did not extract it from anywhere.

Posted by Empereur at 2006-03-27 08:29:12

....you extracted this straight out of a path of ascension module lol....an gave yourself authorship lmao.

Posted by ffbj ( 63.231.xxx.xxx ) at 2006-03-08 16:13:37

Thanks. Took a look at your website looks really good. Good Luck to you and all your member with your world.

Posted by Gabzsa at 2006-03-07 05:33:02

Nice idea!
_________________________
Alventyr - NWN2 Roleplaying PW

You must be Logged In to post comments in this section.