//::///////////////////////////////////////////////
//:: Name re_treasure0
//:: Copyright (c) 2001 Bioware Corp.
//:://////////////////////////////////////////////
/*
The purpose of re_treasure# scripts are to generate
random treasure on a creature created via the BESIE
Random Encounter System by Ray Miller.  These scripts
are called via an ExecuteScript() function from within
"re_rndenc".  The object executing this script is passed
as the creature to be given treasure, so this creature
can be refered to as OBJECT_SELF.
*/
//:://////////////////////////////////////////////
//:: Created By: Ray Miller
//:: Created On: 10/27/02
//::////////////////////////////////////////////////////////////////////////////
/*
This is the standard treasure script for the BESIE Random Encounter System
By Ray Miller.  Prior to v1.8 This script executed a series of functions to
bestow treasure upon creatures generated by the system.  The problem was that
there were to many function which looped too many times and would sometimes cause
the spawner to abort with a "too many instructions error".  So now we just use it
to bestow money.

Please note that the amount of treasure that should be rewarded for an encounter
or in a module is very subjective.  Some will consider this amount far too generous
and some too greedy.
*/
////////////////////////////////////////////////////////////////////////////////
void main()
{
    if(d100()>66) return;
    object oCreature = OBJECT_SELF;
    object oMarker;
    if(GetRacialType(oCreature) == RACIAL_TYPE_ANIMAL
    || GetRacialType(oCreature) == RACIAL_TYPE_VERMIN) return;
    float fChallengeFactor = GetChallengeRating(oCreature) * 30.0;
    float fFactor = IntToFloat(Random(5) + 2);
    int iTreasure = FloatToInt(fChallengeFactor / fFactor);
    int iType = GetRacialType(oCreature);
    CreateItemOnObject("NW_IT_GOLD001", oCreature, iTreasure);
    if(iType == RACIAL_TYPE_UNDEAD || iType == RACIAL_TYPE_ABERRATION)
    oMarker = CreateItemOnObject("NW_IT_MSMLMISC21", oCreature, 1);
    else if(iType == RACIAL_TYPE_CONSTRUCT ||
    iType == RACIAL_TYPE_ELEMENTAL ||
    iType == RACIAL_TYPE_OUTSIDER)
    oMarker = CreateItemOnObject("NW_IT_MSMLMISC11", oCreature, 1);
    else
    oMarker = CreateItemOnObject("NW_IT_MMIDMISC05", oCreature, 1);
    SetLocalInt(oMarker, "bItemForGold", TRUE);
}