// lupg_do_upg - Do the upgrade
#include "rtsh_multiplay"

void main()
{
    object oPC=GetPCSpeaker();
    string sID=GetLocalString(oPC,"sTeamID");
    int nParm=GetLocalInt(oPC,"nParm");
    int nRes;
    object oOb=GetObjectByTag(sID+"upgrade_o");
    if (nParm==1)
    { // mana
      nRes=fnGetTeamMana(oPC);
      nRes=nRes-1000;
      fnSetTeamMana(oPC,nRes);
    } // mana
    else if (nParm==2)
    { // gold
      AssignCommand(oOb,TakeGoldFromCreature(5000,oPC,TRUE));
    } // gold
    // unlock the door
    AssignCommand(oOb,SetLocked(oOb,FALSE));
    SendMessageToPC(oPC,"Your lair has been upgraded!!");
}