DMH-Online

NWScript:

//:://////////////////////////////////////////////
//::Declaration of utility functions
//:://////////////////////////////////////////////
int InString(string sString, string sPattern);
void CreateEquip(object oItem, object oTarget);
//:://////////////////////////////////////////////
//::Declaration of Damage Types
//:://////////////////////////////////////////////
int InString(string sString, string sPattern)
{
    int iFound;
    if ((sPattern == "") || (sString == ""))
    {
        return FALSE;
    }
    iFound = FindSubString(sString,sPattern);
    if (iFound >= 0)
    {
        return TRUE;
    }
    else
    {
        return FALSE;
    }
}
//required function for delaycommand.
void CreateEquip(object oItem, object oTarget)
{
    oItem = CreateItemOnObject(GetTag(oItem), oTarget);
//    SendMessageToPC(oTarget, "Item " + GetName(oItem)+" Created."); // for debug
    AssignCommand(oTarget, ActionEquipItem(oItem, INVENTORY_SLOT_RIGHTHAND));
//    SendMessageToPC(oTarget, "Item " + GetName(oItem)+" Equipped."); // for debug
}

Main File

NWScript:

//::///////////////////////////////////////////////
//:: Throwing Weapons
//:: throwingweapon.nss
//:://////////////////////////////////////////////
/*
    Scripts for activated throwing weapons
    Axes and darts intentionally left out
    due to inclusion in the game, but range info
    left in for anyone to add as they wish.
    Several magic types from the DMG intentionally
    left out due to game mechanics / balance
    This is to be placed in the OnItemActivate
    in your module.
    Additional Notes: All properties for throwing
    are set via naming convention. i.e. if you want
    a dagger to have the ability to return, and to
    do additional fire damage, you'd name it:
    "a flaming throwing dagger of returning"
*/
//:://////////////////////////////////////////////
//:: Created By: Jeggred
//:: Created On: 7/23/02
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
//::Common D&D 3rd Edition Rules
//:://////////////////////////////////////////////
//::Weapon  Increment   Damage  Threat   Multiplier
//::Dagger:     10       d4     19-20       x2
//::Club:       10       d6       20        x2
//::Javelin:    30       d6       20        x2
//::Spear:      20      d6/d8     20        x3
//::Hammer:     20       d6       20        x2
//::Axe:        20       d6       20        x2
//::Dart:       20       d4       20        x2
//::Net:        10     Special
//:://////////////////////////////////////////////
//::Non-throwing weapons have a range increment of
//::10, an attack penalty of -4, and are currently
//::not implemented, though it'd be fairly easy
//::with this codebase.
//:://////////////////////////////////////////////
//::penalty for each step beyond first: -1
//::max range: 5 * increment
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
//::Naming Conventions
//:://////////////////////////////////////////////
//::These must appear in some form or fashion
//::    in the item's name. Case Insensitive.
//:://////////////////////////////////////////////
//::                 Weapon Names
//:://////////////////////////////////////////////
//::throwing dagger
//::throwing club
//::throwing hammer
//::javelin
//::spear
//::net
//:://////////////////////////////////////////////
//::              Magical Properties
//:://////////////////////////////////////////////
//::returning
//::flaming
//::shock
//::frost
//::holy
//::unholy
//::lawful
//::chaotic
//::neutral
//::snaring
//::keen
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////
//::Begin Code
//:://////////////////////////////////////////////
#include "throwheader"
void main()
{
    //modify these variables as necessary,
    //just make sure to do it to ALL instances of them
    object oPC = GetItemActivator();
    object oItem = GetItemActivated();
    object oTarget = GetItemActivatedTarget();
    location lTarget = GetItemActivatedTargetLocation();
    //Disregard following variable name. it's not actually the tag
    string sItemName = GetStringLowerCase(GetName(oItem));
    if (GetTag(oItem) == "OtherItems")
    {
      //put other activate item code in here.
    }
    else
    {
        if( GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oPC)!= oItem && GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC) != oItem)
        {
            SendMessageToPC(oPC,"You must equip your weapon!");
            return;
        }
        effect eDamage; //Damage effect.
        effect eExtraDamage; // Additional damage effect
        effect eVisualThrow = EffectBeam(VFX_BEAM_EVIL, oPC, BODY_NODE_HAND); // Firing effect
//        effect eVisualImpact = EffectVisualEffect(VFX_COM_SPARKS_PARRY, FALSE); // Impact effect
        effect eVisualImpact = EffectVisualEffect(VFX_DUR_LIGHT_RED_5, FALSE); // Impact effect
        int nDamage; // Amount of damage
        int nExtraDamage; // Additional damage from effect
        float fIncrement; // Range increment
        float fMaxRange; // Max range
        int nPenalty; // Range penalty
        float fDistance; // Distance to target
        int nCritMin = 20; // Minimum roll for crit
        int nCritMod = 2; // Critical Hit Multiplier
        object oNewItem; // Used on hit/miss
        float fSnare; // Duration of snare effect

        //Booleans for Weapon Type
        int bReturn = FALSE;
        int bFlaming = FALSE;
        int bShock = FALSE;
        int bFrost = FALSE;
        int bHoly = FALSE;
        int bUnholy = FALSE;
        int bLawful = FALSE;
        int bChaotic = FALSE;
        int bNeutral = FALSE;
        int bSnaring = FALSE;
        int bKeen = FALSE;
        //Boolean for Hit Check
        int bHit;
    //:://////////////////////////////////////////////
    //::Determine weapon type
    //:://////////////////////////////////////////////
        if(InString(sItemName,"throwing dagger"))
        {
            fIncrement = FeetToMeters(10.0);
            fMaxRange = 5 * fIncrement;
            nDamage = d4();
            eDamage = EffectDamage(nDamage, DAMAGE_TYPE_PIERCING);
            nCritMin = 19;
            if (GetHasFeat(FEAT_WEAPON_SPECIALIZATION_DAGGER,oPC))
                nDamage = nDamage + 2;
            if (GetHasFeat(FEAT_WEAPON_FOCUS_DAGGER,oPC))
                nPenalty--;
            if (GetHasFeat(FEAT_IMPROVED_CRITICAL_DAGGER,oPC))
                nCritMin = nCritMin - 2;
        }
        if(InString(sItemName,"throwing club"))
        {
            fIncrement = FeetToMeters(10.0);
            fMaxRange = 5 * fIncrement;
            nDamage = d6();
            eDamage = EffectDamage(nDamage, DAMAGE_TYPE_BLUDGEONING);
            if (GetHasFeat(FEAT_WEAPON_SPECIALIZATION_CLUB,oPC))
                nDamage = nDamage + 2;
            if (GetHasFeat(FEAT_WEAPON_FOCUS_CLUB,oPC))
                nPenalty--;
            if (GetHasFeat(FEAT_IMPROVED_CRITICAL_CLUB,oPC))
                nCritMin--;
        }
        if(InString(sItemName,"javelin"))
        {
            fIncrement = FeetToMeters(30.0);
            fMaxRange = 5 * fIncrement;
            nDamage = d6();
            eDamage = EffectDamage(nDamage, DAMAGE_TYPE_PIERCING);
            if (GetHasFeat(FEAT_WEAPON_SPECIALIZATION_SPEAR,oPC))
                nDamage = nDamage + 2;
            if (GetHasFeat(FEAT_WEAPON_FOCUS_SPEAR,oPC))
                nPenalty--;
            if (GetHasFeat(FEAT_IMPROVED_CRITICAL_SPEAR,oPC))
                nCritMin--;
        }
        if(InString(sItemName,"spear"))
        {
            fIncrement = FeetToMeters(20.0);
            fMaxRange = 5 * fIncrement;
            nDamage = d6();
            nCritMod = 3;
            eDamage = EffectDamage(nDamage, DAMAGE_TYPE_PIERCING);
            if (GetHasFeat(FEAT_WEAPON_SPECIALIZATION_SPEAR,oPC))
                nDamage = nDamage + 2;
            if (GetHasFeat(FEAT_WEAPON_FOCUS_SPEAR,oPC))
                nPenalty--;
            if (GetHasFeat(FEAT_IMPROVED_CRITICAL_SPEAR,oPC))
                nCritMin--;
        }
        if(InString(sItemName,"throwing hammer"))
        {
            fIncrement = FeetToMeters(20.0);
            fMaxRange = 5 * fIncrement;
            nDamage = d6();
            eDamage = EffectDamage(nDamage, DAMAGE_TYPE_BLUDGEONING);
            if (GetHasFeat(FEAT_WEAPON_SPECIALIZATION_LIGHT_HAMMER,oPC))
                nDamage = nDamage + 2;
            if (GetHasFeat(FEAT_WEAPON_FOCUS_LIGHT_HAMMER,oPC))
                nPenalty--;
            if (GetHasFeat(FEAT_IMPROVED_CRITICAL_LIGHT_HAMMER,oPC))
                nCritMin--;
        }
        if(InString(sItemName,"net"))
        {
            fIncrement = FeetToMeters(10.0);
            fMaxRange = 5 * fIncrement;
            nDamage = 0;
            bSnaring = TRUE;
            fSnare = IntToFloat(d20());
        }
    //:://////////////////////////////////////////////
    //::Magical Properties Checks
    //:://////////////////////////////////////////////
        if(InString(sItemName,"returning"))
            bReturn=TRUE;
        if(InString(sItemName,"flaming"))
            bFlaming=TRUE;
        if(InString(sItemName,"shock"))
            bShock=TRUE;
        if(InString(sItemName,"frost"))
            bFrost=TRUE;
        if(InString(sItemName,"holy"))
            bHoly=TRUE;
        if(InString(sItemName,"unholy"))
            bUnholy=TRUE;
        if(InString(sItemName,"lawful"))
            bLawful=TRUE;
        if(InString(sItemName,"chaotic"))
            bChaotic=TRUE;
        if(InString(sItemName,"neutral"))
            bNeutral=TRUE;
        if(InString(sItemName,"snaring"))
            bSnaring=TRUE;
        if(InString(sItemName,"keen"))
            bKeen=TRUE;
//Additionals, just in case someone does this
        if(GetItemHasItemProperty(oItem,ITEM_PROPERTY_KEEN))
            bKeen=TRUE;
        if(GetItemHasItemProperty(oItem,ITEM_PROPERTY_BOOMERANG))
            bReturn=TRUE;
    //:://////////////////////////////////////////////
    //::Begin Combat Checks
    //:://////////////////////////////////////////////
        fDistance = GetDistanceBetween(oPC, oTarget);
        if (fDistance > fMaxRange)
        {
            SendMessageToPC(oPC, "Your Target is Out of Range");
            return;
        }
        //Determine penalty via distance to target / increment
        nPenalty = nPenalty + (FloatToInt(fDistance / fIncrement) - 1);
        //+1 to thrown weapons for being a halfling
        if (GetRacialType(oPC) == RACIAL_TYPE_HALFLING)
            nPenalty--;
        //modify penalty to reflect dex modifier
        nPenalty = nPenalty - GetAbilityModifier(ABILITY_DEXTERITY, oPC);
        int nRoll = d20();
        //roll to see if it hit.
        AssignCommand(oPC, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVisualThrow, oTarget, 0.15));
        if (nRoll - nPenalty >= GetAC(oTarget))
            bHit = TRUE;
        //On hit:
        if (bHit == TRUE)
        {
            switch(Random(3)+1)
            {
                case 1:
                    PlayVoiceChat(VOICE_CHAT_PAIN1,oTarget);
                    break;
                case 2:
                    PlayVoiceChat(VOICE_CHAT_PAIN1,oTarget);
                    break;
                case 3:
                    PlayVoiceChat(VOICE_CHAT_PAIN3,oTarget);                    break;
            }
//            AssignCommand(oPC,ActionUnequipItem(oItem));
//            AssignCommand(oPC,ActionPutDownItem(oItem));
//            AssignCommand(oItem,JumpToLocation(GetLocation(oTarget)));
            oNewItem = CreateItemOnObject(GetTag(oItem), oTarget);
            DestroyObject(oItem);
//            AssignCommand(oTarget, ActionTakeItem(oItem, oPC));
            if (bKeen == TRUE) //Is Weapon Keen?
            {
                nCritMin = 20 - ( (20 - nCritMin) * 2);
            }
            if (bReturn == TRUE) //Does Weapon Return?
            {
                AssignCommand(oPC, DelayCommand(1.0,SendMessageToPC(oPC, "Your " + GetName(oNewItem) + " begins to return to you.")));
                AssignCommand(oPC, DelayCommand(6.0, CreateEquip(oNewItem, oPC)));
                DelayCommand(7.0, DestroyObject(oNewItem));
//                oNewItem = CreateItemOnObject(GetTag(oItem), oPC);
//                AssignCommand(oPC, ActionEquipItem(oNewItem, INVENTORY_SLOT_RIGHTHAND));
            }
            SendMessageToPC(oPC, "Attack Roll: " + IntToString(nRoll) + " Range Penalty: " + IntToString(nPenalty) + " (" + IntToString(nRoll)+"-"+IntToString(nPenalty)+"="+IntToString(nRoll-nPenalty)+ "): Hit");
            if (nRoll >= nCritMin) //above threat range?
            {
                if ( d20()-nPenalty > GetAC(oTarget)) //is it a real crit?
                {
                    SendMessageToPC(oPC, "Critical Hit!");
//                    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVisualImpact, oTarget, 0.15);
                    nDamage = nDamage * (nCritMod);
                    SendMessageToPC(oPC, "Hit " + GetName(oTarget) + " for " + IntToString(nDamage) + " damage.");
                    eDamage = EffectLinkEffects(EffectDamage(nDamage),eDamage);
                    ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
                }
            }
            else //not a crit
            {
//                ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVisualImpact, oTarget, 0.15);
                SendMessageToPC(oPC, "Hit " + GetName(oTarget) + " for " + IntToString(nDamage) + " damage.");
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
            }
            //Additional damage modifiers;
            //Elemental
            if (bFlaming==TRUE)
                nExtraDamage=d6();
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_FIRE);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_FIRE);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            if (bFrost==TRUE)
                nExtraDamage=d6();
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_COLD);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_FROST);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            if (bShock==TRUE)
                nExtraDamage=d6();
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_ELECTRICAL);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_ELECTRICAL);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            //Alignment-based
            if (bHoly==TRUE && GetAlignmentGoodEvil(oTarget)== ALIGNMENT_EVIL)
                nExtraDamage=d6(2);
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_POSITIVE);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_DIVINE);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            if (bUnholy==TRUE && GetAlignmentGoodEvil(oTarget)== ALIGNMENT_GOOD)
                nExtraDamage=d6(2);
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_NEGATIVE);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_NEGATIVE);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            if (bLawful==TRUE && GetAlignmentLawChaos(oTarget)== ALIGNMENT_LAWFUL)
                nExtraDamage=d6(2);
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_MAGICAL);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_SONIC);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            if (bChaotic==TRUE && GetAlignmentLawChaos(oTarget)== ALIGNMENT_CHAOTIC)
                nExtraDamage=d6(2);
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_MAGICAL);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_SONIC);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            if ((bNeutral==TRUE && GetAlignmentLawChaos(oTarget)== ALIGNMENT_NEUTRAL) ||
                (bNeutral==TRUE && GetAlignmentGoodEvil(oTarget)== ALIGNMENT_NEUTRAL))
                nExtraDamage=d6(2);
                eExtraDamage = EffectDamage(nExtraDamage,DAMAGE_TYPE_MAGICAL);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eExtraDamage, oTarget);
                eVisualImpact = EffectVisualEffect(VFX_COM_HIT_SONIC);
                ApplyEffectToObject(DURATION_TYPE_INSTANT, eVisualImpact, oTarget);
                SendMessageToPC(oPC, "Additional Damage: " + IntToString(nExtraDamage));
            //Miscellaneous
            if (bSnaring==TRUE)
                eExtraDamage = EffectEntangle();
                ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eExtraDamage, oTarget, fSnare);
                ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectVisualEffect(VFX_DUR_ENTANGLE), oTarget, fSnare);
                SendMessageToPC(oPC, GetName(oTarget) + " is entangled in the net!");
        }
        //On Miss:
        else
        {
            oNewItem = CreateObject(OBJECT_TYPE_ITEM, GetTag(oItem), GetLocation(oTarget));
            DestroyObject(oItem);
            SendMessageToPC(oPC, "Attack Roll: " + IntToString(nRoll) + " Range Penalty: " + IntToString(nPenalty) + " (" + IntToString(nRoll)+"-"+IntToString(nPenalty)+"="+IntToString(nRoll-nPenalty)+"): Miss");
//            AssignCommand(oTarget, ActionTakeItem(oItem, oPC));
            if (bReturn == TRUE) //Does Weapon Return?
            {
//                oNewItem = CreateItemOnObject(GetTag(oItem), oPC);
//                AssignCommand(oPC, ActionEquipItem(oNewItem, INVENTORY_SLOT_RIGHTHAND));
                AssignCommand(oPC, DelayCommand(1.0,SendMessageToPC(oPC, "Your " + GetName(oNewItem) + " begins to return to you.")));
                AssignCommand(oPC, DelayCommand(6.0, CreateEquip(oNewItem, oPC)));
                DelayCommand(7.0, DestroyObject(oNewItem));
            }
            else
            {
                SendMessageToPC(oPC, "The " + GetName(oItem) + " skitters across the ground after missing its mark.");
            }
        }
        if(oTarget!=OBJECT_INVALID)
        {
            AssignCommand(oTarget,ActionAttack(oPC));
        }
        return;
    }
}

Jeggred
PM me with feedback, please