/////////////////////////////////////////////////////////////////////////////////
// Real Time Strategy - NWN - Mithril Forge creator
//===============================================================================
// By Deva Bryson Winblood. 3/11/2003
////////////////////////////////////////////////////////////////////////////////
#include "rtsh_multiplay"

void main()
{
   object oPC=GetItemActivator();
   location lLoc=GetItemActivatedTargetLocation();
   string sID=GetLocalString(oPC,"sTeamID");
   int nMana=fnGetTeamMana(oPC);
   object oItem=GetItemActivated();
   object oForge;
   if (sID=="DWF")
   { // dwarves
     if (nMana>49)
     { // enough mana
       nMana=nMana-50;
       fnSetTeamMana(oPC,nMana);
       SendMessageToPC(oPC,"You use 50 mana and create a Mithril Forge.");
       oForge=CreateObject(OBJECT_TYPE_PLACEABLE,"rts_pl_mag35",lLoc,TRUE);
       DelayCommand(1.0,DestroyObject(oItem));
     } // enough mana
     else
       SendMessageToPC(oPC,"You need 50 mana to create the forge.");
   } // dwarves
   else
     SendMessageToPC(oPC,"This item is only usable by those on the dwarven team.");
}