30 lines
905 B
Plaintext
30 lines
905 B
Plaintext
//::///////////////////////////////////////////////
|
|
//:: FileName tuckringreward
|
|
//:://////////////////////////////////////////////
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Script Wizard
|
|
//:: Created On: 7/20/2002 10:44:46 AM
|
|
//:://////////////////////////////////////////////
|
|
#include "nw_i0_tool"
|
|
#include "apts_inc_ptok"
|
|
|
|
void main()
|
|
{
|
|
// Remove items from the player's inventory
|
|
object oItemToTake;
|
|
oItemToTake = GetItemPossessedBy(GetPCSpeaker(), "CaptainTuckersSignet");
|
|
if(GetIsObjectValid(oItemToTake) != 0)
|
|
DestroyObject(oItemToTake);
|
|
|
|
// Give the speaker some gold
|
|
GiveGoldToCreature(GetPCSpeaker(), 200);
|
|
|
|
// Give the speaker some XP
|
|
if (GetHitDice(GetPCSpeaker())<6)
|
|
GiveXPToCreature(GetPCSpeaker(), 150);
|
|
|
|
// Give Persistent Token so quest is not repeatable
|
|
SetTokenBool(GetPCSpeaker(), "tucker_ring", 1);
|
|
|
|
}
|