Skins: |

NWN SCRIPTS

- Jump to comments -

Title

Sting - a short sword

Author

georage

Submitted / Updated

06-15-2004 / 11-22-2006

Category

Inventory Item

Expansions

NWN-1.62

View Code

/*/////////////////////////////////
STING, a short sword
    by georage
    DM of the Earthspur Mountains
    www.grm3.com
//////////////////////////////////

Instructions:

    **put the following in the OnPlayerEquip module event
        object oPC=GetPCItemLastEquippedBy();
        object oItem=GetPCItemLastEquipped();
        string sTag=GetTag(oItem);
        if(sTag=="cmi_sting") //custom magic item
            AssignCommand(oPC,ExecuteScript("ope_sting",OBJECT_SELF));

    **put the following in the OnPlayerUnEquip module event
        object oPC=GetPCItemLastUnequippedBy();
        object oItem=GetPCItemLastUnequipped();
        string sTag=GetTag(oItem);
        string sLeft=GetStringLeft(sTag,4);
        if (sLeft=="cmi_") //remove all effect from custom magic items
        {
        //remove applied effects
        IPRemoveAllItemProperties(oItem, DURATION_TYPE_PERMANENT);
        IPRemoveAllItemProperties(oItem, DURATION_TYPE_TEMPORARY);
        SetLocalInt(oItem,"message",0);
        }

    **save this script in your module as "ope_sting"

    **optionally you can place this in the default heartbeat of creatures
        object oEnemy=GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY);
        if(!GetIsObjectValid(oEnemy))
            SetLocalInt(OBJECT_SELF,"warning",0);

//////////////////
what does this do?
//////////////////

*it turns a normal short sword tagged "cmi_sting" into a magic weapon
    for non-halflings
        +1 to hit
        +1 enhancement
        +1 fire damage
        +2 to hit racial type vermin

    for halflings
        OnEquip message 'Sting is my name, I am the spider's bane.'
        +1 to hit plus another +1 per 8 levels
            so at level 1 it is +1, level 8 +2, level 16 +3
        +2 to hit racial type vermin plus another +1 per 8 levels
            so at level 1 it is +2, level 8 +3, level 16 +4
        enhancement matches the above
        fire damage equal to the above
        fire damage to vermin equal to the above +1
        ac bonus equal to the above
        alertness feat
        warns of nearby enemies (with flame on blade and message)

*/

#include "x2_inc_itemprop"

void main()
{
object oPC=OBJECT_SELF;
object oItem = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oPC);
    if (GetTag(oItem)!="cmi_sting") //custom magic item
        oItem = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC);
    if (GetTag(oItem)!="cmi_sting") //custom magic item
        return;

int iRace; //check for halflings
if (GetRacialType(oPC)==RACIAL_TYPE_HALFLING)
    iRace=1;

//message and visual for halflings
if(iRace==1)
    if(GetLocalInt(oItem,"message")==0)
        {
        FloatingTextStringOnCreature("'Sting is my name, I am the spider's bane.'",oPC);
        SetLocalInt(oItem,"message",1);
        //visual
        ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_IMP_HEAD_FIRE), oPC);
        }

//define enhancement bonus
itemproperty iEnhance=ItemPropertyEnhancementBonus(1);
    if(iRace==1)
    {
        if(GetHitDice(oPC)>7)
            iEnhance=ItemPropertyEnhancementBonus(2);
        if(GetHitDice(oPC)>15)
            iEnhance=ItemPropertyEnhancementBonus(3);
    }

//add enhancement bonus if it does not have one
if(!IPGetItemHasProperty(oItem, iEnhance, DURATION_TYPE_PERMANENT, TRUE))
    IPSafeAddItemProperty(oItem, iEnhance);

//define attack bonus
itemproperty iAttack=ItemPropertyAttackBonus(1);
    if(iRace==1)
    {
        if(GetHitDice(oPC)>7)
            iAttack=ItemPropertyAttackBonus(2);
        if(GetHitDice(oPC)>15)
            iAttack=ItemPropertyAttackBonus(3);
    }
//add attack bonus if it does not have one
if(!IPGetItemHasProperty(oItem, iAttack, DURATION_TYPE_PERMANENT, TRUE))
    IPSafeAddItemProperty(oItem, iAttack);

//define attack bonus versus racial group (spiders aka vermin)
itemproperty iRacialType=ItemPropertyAttackBonusVsRace(IP_CONST_RACIALTYPE_VERMIN, 2);
    if(iRace==1)
    {
        if(GetHitDice(oPC)>7)
            iRacialType=ItemPropertyAttackBonusVsRace(IP_CONST_RACIALTYPE_VERMIN, 3);
        if(GetHitDice(oPC)>15)
            iRacialType=ItemPropertyAttackBonusVsRace(IP_CONST_RACIALTYPE_VERMIN, 5);
    }
//add attack bonus versus racial group if it does not already have one
if(!IPGetItemHasProperty(oItem, iRacialType, DURATION_TYPE_PERMANENT, TRUE))
    IPSafeAddItemProperty(oItem, iRacialType);

//define damage type (fire)
int iDamageType=IP_CONST_DAMAGETYPE_FIRE;

//define damage amount
int iDamageAmount=IP_CONST_DAMAGEBONUS_1;
    if(iRace==1)
    {
        if(GetHitDice(oPC)>7)
            iDamageAmount=IP_CONST_DAMAGEBONUS_2;
        if(GetHitDice(oPC)>15)
            iDamageAmount=IP_CONST_DAMAGEBONUS_3;
    }

//define damage bonus
itemproperty iDamage=ItemPropertyDamageBonus(iDamageType, iDamageAmount);
//add damage bonus if it does not have one
if(!IPGetItemHasProperty(oItem, iDamage, DURATION_TYPE_PERMANENT, TRUE))
    IPSafeAddItemProperty(oItem, iDamage);

//define racial damage bonus (vermin aka spiders)
itemproperty iRacialDamage=ItemPropertyDamageBonusVsRace(IP_CONST_RACIALTYPE_VERMIN, iDamageType, iDamageAmount+1);
//add damage bonus
if(!IPGetItemHasProperty(oItem, iRacialDamage, DURATION_TYPE_PERMANENT, TRUE))
    IPSafeAddItemProperty(oItem, iRacialDamage);

//halfling only attributes
if(iRace==1)
    {
    //define ac bonus
    itemproperty iAC=ItemPropertyACBonus(1);
        if(iRace==1)
            {
            if(GetHitDice(oPC)>7)
                iAC=ItemPropertyACBonus(2);
            if(GetHitDice(oPC)>15)
                iAC=ItemPropertyACBonus(3);
            }
    //add AC bonus
    if(!IPGetItemHasProperty(oItem, iAC, DURATION_TYPE_PERMANENT, TRUE))
        IPSafeAddItemProperty(oItem, iAC);

    //define alertness feat
    itemproperty iFeat=ItemPropertyBonusFeat(IP_CONST_FEAT_ALERTNESS);
    //add alertness feat
    if(!IPGetItemHasProperty(oItem, iFeat, DURATION_TYPE_PERMANENT, TRUE))
        IPSafeAddItemProperty(oItem, iFeat);

    /////////////////////////////////////////
    // create flame effect if enemy is nearby
    /////////////////////////////////////////
    object oEnemy=GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_ENEMY);
        if (GetIsObjectValid(oEnemy))
            if (GetDistanceToObject(oEnemy)<40.0)
                {
                // message but just once per creature within range
                if(GetLocalInt(oEnemy,"warning")==0)
                    {
                    if(!GetIsInCombat(oPC))
                        FloatingTextStringOnCreature("Enemy nearby: "+GetName(oEnemy),oPC);
                    SetLocalInt(oEnemy,"warning",1);
                    }
                // create flame effect
                itemproperty iFlame=ItemPropertyVisualEffect(ITEM_VISUAL_FIRE);
                IPSafeAddItemProperty(oItem, iFlame);
                }

        ///////////////////////////////////////////////////////////
        // remove all effects if enemy is not present or not nearby
        ///////////////////////////////////////////////////////////
        if ((!GetIsObjectValid(oEnemy))||(GetDistanceToObject(oEnemy)>40.0))
            {
            itemproperty iLoop=GetFirstItemProperty(oItem);
            //loop for as long as the iLoop variable is valid
                while (GetIsItemPropertyValid(iLoop))
                    {
                    //if iLoop is a visual effect (the flame), remove it
                    if (GetItemPropertyType(iLoop)==ITEM_PROPERTY_VISUALEFFECT)
                        {
                        RemoveItemProperty(oItem, iLoop);
                        SetLocalInt(oItem,GetTag(oItem),0);
                        }

                    //next itemproperty on the list
                    iLoop=GetNextItemProperty(oItem);
                    }
            }

if(GetIdentified(oItem)==FALSE)
    SetIdentified(oItem,TRUE);

DelayCommand(10.0,ExecuteScript("ope_sting",oPC)); //rinse and repeat

}

}

Select All Text | View Code in separate window

Format

Code Only

Type

Type - Magic

Includes

BioWare Standard

Description

This script will turn a normal short sword into the weapon Sting from the Lord of the Rings novels if a halfling character equips it. The script can be easily modified to create weapons that 'awaken' in the hands of certain types of PC's. For example, a weapon could appear normal to most players, but once equipped by a druid of a certain level, it could become 'magical.'

Files

Name	Type	Size	Downloads
NO FILES

SCORE OUT OF 10

9.8
12 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 (22):

Posted by jdeavila at 2009-11-01 22:19:00 Voted 10.00 on 11/01/09

nice
_________________________
Imtherealthing

CCP (The Community Creature Project)

The TRIAD

Posted by taro at 2005-11-02 11:46:17

Is there are any way to change this script that weapon will react at certian character (name or something)

Posted by georage at 2004-09-21 14:18:00 Voted 10.00 on 06/28/04

Thanks for the comments.

1) Several effects are applied for any race that equips the sword, NOT just halflings.

2) You are right. But the script does not run often enough, and getting data from an object is not intensive enough, for that to be concern in real world use. Getting data from a single object is not something I would worry about happening every 10 seconds.

Hopefully you can find a use for the underlying concept of the script for your module. In our module we have several custom weapons using modified versions of this script.

Example: Lathanderite priest praying at dawn gets a Sunburst visual and several buffs. Individualization like this makes players feel the love.

Posted by SiliconScout at 2004-09-20 13:51:00 Voted 8.00 on 09/20/04

Looking @ the code there is a good chunk of bloat in there that you could trim out. Seeing as it's running a pseudo heartbeat trimming any fat can't hurt.

1. Since your version of sting only works for halflings why not put an else in the racial check that would say run through the stripping of effects and then kick out. That would eliminate 99% of the if iRace==1 lines.

2. Why not just grab the PC's HitDice and apply all effects instead of checking for the HitDice each and every effect? The fewer calls the better. If for some reason you feel an absolute need to have those comparisons then why not store the PC's HitDice in an int. That way you only have to call GetHitDice the one time.

Those are the 2 really big bloak issues I see @ any rate.

All in all a very good conept code though. I think I will base some of my elven equipment code I wanted to play with off of this.

Thanks

Posted by SiliconScout at 2004-09-20 13:43:27 Voted 8.00 on 09/20/04

Pretty good concept in action. There a few things that could be cleaned up though.
Halflings are not the only race to be able to use sting, that asside though there is a fair bit of bloat in the code. Since this is a pseudo heatbeat script that bloat really should be trimmed out to keep things running smoothly. See my post in the actual thread to find out what they are.

Posted by h4nz ( 217.255.xxx.xxx ) at 2004-07-03 00:46:00

Nice script, but there are a few things wrong.
Halflings have nothing to do with the properties of the weapon. It was forged by Elves, not by Halflings and not for Halflings. So each race could use this sword with the same effect as halflings in your script. Second thing is the fire effect, it's okay but i think the sonic effect was a bit better for that. Better for glowing i think.

Posted by h4nz ( 217.255.xxx.xxx ) at 2004-07-03 00:46:00

Posted by Jander at 2004-07-02 09:54:32 Voted 10.00 on 07/02/04

It's really a cool weapon.

Posted by Quint at 2004-07-02 03:50:14 Voted 10.00 on 07/02/04

I tried the sword out and I would have to say it was the coolest thing I have ever used. Way to go Geo

Posted by crapot at 2004-06-30 03:14:31 Voted 9.00 on 06/30/04

good idea, easy to use, thx ;)
_________________________
Have fun, what else !

Posted by nikolokolus_ at 2004-06-28 14:30:10 Voted 10.00 on 06/28/04

go geo, go!

Posted by mordak at 2004-06-28 09:26:18 Voted 10.00 on 06/28/04

Posted by georage at 2004-06-28 09:18:17 Voted 10.00 on 06/28/04

If you are a LOTR fan this will make your day. Enjoy!

Posted by Migel Bane ( 68.81.xxx.xxx ) at 2004-06-27 11:37:00

ABSOLUTLEY POSITIVELY MAG FRIGIN NIFICENT. Excellent script, please make more weapons and armor like this.

Posted by jsg2295 at 2004-06-21 11:59:43 Voted 10.00 on 06/21/04

I like this weapon so much that I plan to kill the character next time I see him. Did I say that out loud?

Posted by yochimbo at 2004-06-21 10:56:54 Voted 10.00 on 06/21/04

This script is *very* cool. I like that the weapons can grow with the user, or have different properties for different races/classes, etc.

Posted by admortis at 2004-06-21 10:28:57 Voted 9.00 on 06/21/04

Posted by Slixxcrue at 2004-06-21 10:05:00 Voted 10.00 on 06/21/04

I'm the player lucky enough to be the current "owner" of Sting in Geo's Earthspur PW.

This is by far the coolest weapon I've ever had anywhere.

Posted by Slixxcrue at 2004-06-21 07:54:01 Voted 10.00 on 06/21/04

I am the current "owner" of Sting in Geo's Earthspur PW and I can honestly say it is the coolest weapon ever.
Excellent work!

Posted by Anonymous ( ..xxx.xxx ) at 2004-06-20 18:27:00

Yep. it glows when orcs are around.

Posted by wolfjunkie at 2004-06-17 11:44:00

yeah, like he said...
But nevertheless this system could be cool...you could change a bit you could make a weapon that became more powerfull as the paladin lvled up :D

Posted by Excalibur at 2004-06-17 10:38:00

You do realize that Sting isn't magical just in the hands of a halfling, right? That it doesn't glow blue because a halfling is wielding it? The reason it glows blue is if, and only if, there are orcs or goblins nearby, otherwise it is normal. The script is nifty, none-the-less for level based or race based features ...

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