Skins: |

NWN SCRIPTS

- Jump to comments -

Title

PaiNt's Arrows in Body

Author

PaiNt

Submitted / Updated

08-10-2010 / 08-11-2010

Category

Scripting routines

Expansions

HOTU-1.69

View Code

object pGetResRefObject(object oTarget, string sResRef="")
{
object oItem=GetFirstItemInInventory(oTarget);
while(GetIsObjectValid(oItem))
    {
    if(GetResRef(oItem)==sResRef) return oItem;

    oItem=GetNextItemInInventory(oTarget);
    };

return OBJECT_INVALID;
}








void main()
{
object oDamager = GetLastDamager();
object oMe=OBJECT_SELF;

int iDealtDam=GetDamageDealtByType(DAMAGE_TYPE_BASE_WEAPON);

if(iDealtDam<=0) return;


int iArrowNum=GetLocalInt(oMe, "pt_ARROWS_IN_BODY");
string sArrowRR=GetLocalString(oMe, "pt_ARROWS_IN_BODY_RR");


object oWeapon=GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oDamager);
int iWeapType=GetBaseItemType(oWeapon);
object oTrooololo=oWeapon;


object oBullet=GetItemInSlot(INVENTORY_SLOT_BULLETS, oDamager);
object oBolt=GetItemInSlot(INVENTORY_SLOT_BOLTS, oDamager);
object oArrow=GetItemInSlot(INVENTORY_SLOT_ARROWS, oDamager);



if(iWeapType==BASE_ITEM_DART || iWeapType==BASE_ITEM_THROWINGAXE || iWeapType==BASE_ITEM_SHURIKEN)
    {
    }
    else if(iWeapType==BASE_ITEM_SLING)
    {
    oTrooololo=oBullet;
    }
    else if(iWeapType==BASE_ITEM_LIGHTCROSSBOW || iWeapType==BASE_ITEM_HEAVYCROSSBOW)
    {
    oTrooololo=oBolt;
    }
    else if(iWeapType==BASE_ITEM_SHORTBOW || iWeapType==BASE_ITEM_LONGBOW)
    {
    oTrooololo=oArrow;
    }
    else
    {
    return;
    };




//Trowning item ResRef
string sResRef=GetResRef(oTrooololo);
SetLocalString(oMe, "pt_ARROWS_IN_BODY_RR", sResRef);

//Trowning item
object oTrown=pGetResRefObject(oMe, sResRef);
int iTroStack=GetItemStackSize(oTrown);

//Increase
iArrowNum++;
SetLocalInt(oMe, "pt_ARROWS_IN_BODY", iArrowNum);


//Add arrow
if(GetIsObjectValid(oTrown))
    {
    SetItemStackSize(oTrown, iTroStack+1);
    }
    else
    {
    oTrown=CopyItem(oTrooololo, oMe);
    SetItemStackSize(oTrown, 1);
    };
SetDroppableFlag(oTrown, TRUE);



//debug
SendMessageToPC(GetFirstPC(), "Arrows In Body="+IntToString(GetLocalInt(oMe, "pt_ARROWS_IN_BODY")));
}

Select All Text | View Code in separate window

Format

Module and Code

Type

Type - Combat

Description

English: It is small OnDamaged a script which adds in mob's loot arrows, bolts, throwing weapons which have caused to it a damage. It is possible "to pull out arrows from a corpse" to reuse :).
If you wish to clean the message "Arrows in Body = ###" - simply remove or commented a line
"SendMessageToPC (GetFirstPC ()," Arrows In Body = "+ IntToString (GetLocalInt (oMe," pt_ARROWS_IN_BODY ")));"
In a script "pt_ainb_main".

Русский: Это небольшой OnDamaged скрипт который добавляет в лут мобу стрелы, болты, метательные орудия, которые нанесли ему ущерб. Можно "вытащить стрелы из трупа" чтобы повторно использоват ь :).
если вы хотите убрать сообщение "Arrows in Body=###" - просто удалите или закоментиру йте строчку
"SendMessageToPC(GetFirstPC(), "Arrows In Body="+IntToString(GetLocalInt(oMe, "pt_ARROWS_IN_BODY")));"
в скрипте "pt_ainb_main".

Files

Name	Type	Size	Downloads
pt_ainb_main.erfpt_ainb_main.erf Submitted: 08-10-2010 / Last Updated: 08-11-2010	erf	4.15Kb	32
pt_ainb_main - script
arrows.rararrows.rar Submitted: 08-10-2010 / Last Updated: 08-10-2010	rar	24.3Kb	44
.mod file
default_replace.erfdefault_replace.erf Submitted: 08-10-2010 / Last Updated: 08-11-2010	erf	81.09Kb	30
Replaces default OnDamaged scripts.

SCORE OUT OF 10

10
2 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 (7):

Posted by Realms_of_Mythology at 2010-09-03 05:37:58

Wow, I really REALLY like this idea. Players who choose to use ammo based weapons tend to spend far more gold in the long run than a player who buys a sword and is done. This would help even that cost burden out. Nice. I've bookmarked this page in my 'add this to the server' section.

Posted by loinne at 2010-08-17 17:51:49 Voted 10.00 on 08/17/10

Thanks for it

Posted by PaiNt at 2010-08-11 18:03:09

Concerning probability arrows in loot I was not defined :), there are ideas as it will be better?

Posted by PaiNt at 2010-08-11 17:54:32

I have added erf version.

To use a script in the module simply add
ExecuteScript ("pt_ainb_main", OBJECT_SELF);
In the OnDamaged a script for creation.

Do not forget recompile scripts.

Posted by Builder__Anthony at 2010-08-11 16:29:17

Try looking in the properties of a placeable or creature,Then put the script in there.I havent ried it yet but that should be the case.

Posted by Jedijax at 2010-08-11 13:00:21

So... How may I add this to any module? There is no "OnDamage" Checkbox in the Events tab of the Module Properties dialogue. Any help?

Posted by ShaDoOoW at 2010-08-11 12:15:21 Voted 10.00 on 08/11/10

nice idea, I have this as well, you might consider adding the weapon only randomly, not always
_________________________
[Boost System] [Door System] [Devastating Critical Immunity] [HIPS remake] [Circle Kick Mode] [1.69 Full 2da Source]

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