// Make potion
void main()
{
    object oItem;
    string sRes=GetLocalString(OBJECT_SELF,"sALCRes");
    string sCom=GetLocalString(OBJECT_SELF,"sALCCom");
    int nGP=GetLocalInt(OBJECT_SELF,"nALCCost");
    int nXP=GetLocalInt(OBJECT_SELF,"nALCXP");
    int nN;
    oItem=CreateItemOnObject(sRes,GetPCSpeaker(),1);
    if (sCom!="NA")
    {
      oItem=GetItemPossessedBy(GetPCSpeaker(),sCom);
      DestroyObject(oItem);
    }
    TakeGoldFromCreature(nGP,GetPCSpeaker(),TRUE);
    nN=GetXP(GetPCSpeaker());
    nN=nN-nXP;
    SetXP(GetPCSpeaker(),nN);
}