NWScript:

///////////////////////////////
// Smith Item Creation Script 
// By Milamber-POL
// Dated 7/22/02
// OnConversation (Smith)
//////////////////////////////
    SetLocalString(OBJECT_SELF,"NW_L_MYFORGE","M1Q1CForge");
    object oContainer = GetObjectByTag(GetLocalString(OBJECT_SELF,"NW_L_MYFORGE"));
//  Get the two items off the forge.
//  Might want to verify that there are at least two items
//  and not more than two (ADD at a later date)
    object oItem1 =  GetFirstItemInInventory(oContainer);
    object oItem2 =  GetNextItemInInventory(oContainer);
    string sReagent1;
    string sReagent2;
//  Make it so that at least one of the two items is a "component"
//  In otherwords it is of the GEM or MISC base type.
//  For convienience we will always make sReagent1 the component
//  sReagent2 can be whatever else we want, just reference by TAG
{
    int nBaseType = GetBaseItemType(oItem1);
    if  (
        (nBaseType == BASE_ITEM_GEM)    ||
        (nBaseType == BASE_ITEM_MISCLARGE) ||  (nBaseType == BASE_ITEM_MISCMEDIUM) ||
        (nBaseType == BASE_ITEM_MISCTALL) ||  (nBaseType == BASE_ITEM_MISCSMALL)  ||
        (nBaseType == BASE_ITEM_MISCTHIN)
        )
      {
      sReagent1 = GetTag(oItem1);
      sReagent2 = GetTag(oItem2);
      }
    else
      {
      sReagent1 = GetTag(oItem2);
      sReagent2 = GetTag(oItem1);
      }
}
// Check for a Valid Combo of items on the forge and assign a Number to the combo
// The number will be used in the conversation with the smith to identify which item
// he can make.  Downfall here is the item recipe here must match the one in the creation
// file, there must be a better way to do this.
 {
    // Item #1 Burning Blade Long Sword with +2 Fire Damage
    // Requires non-unique Longsword (i.e. non-magical or +1, +2, or +3)
    // Requires Fire Opal
    // Costs 500 gold
    if (
       ((sReagent1 == "NW_IT_GEM009") && (sReagent2 == "NW_WSWLS001"))  ||
       ((sReagent1 == "NW_IT_GEM009") && (sReagent2 == "NW_WSWMLS002"))  ||
       ((sReagent1 == "NW_IT_GEM009") && (sReagent2 == "NW_WSWMLS010"))  ||
       ((sReagent1 == "NW_IT_GEM009") && (sReagent2 == "NW_WSWMLS012"))
       )
    {
        SetLocalInt(OBJECT_SELF, "VALID_COMBO", TRUE);
        SetLocalString(OBJECT_SELF, "REAGENT_1", sReagent1);
        SetLocalString(OBJECT_SELF, "REAGENT_2", sReagent2);
        SetLocalString(OBJECT_SELF, "REWARD", "BURNBLADE_LS");  // Custom Item I made
        SetLocalInt(OBJECT_SELF, "ITEM_COST", 500);
        SetLocalInt(OBJECT_SELF, "ORDER_UP", 1);
    }
    else if  ((sReagent1 == "NW_IT_GEM009") && (sReagent2 == "BURNBLADE_LS"))
    {
        SetLocalInt(OBJECT_SELF, "VALID_COMBO", TRUE);
        SetLocalString(OBJECT_SELF, "REAGENT_1", sReagent1);
        SetLocalString(OBJECT_SELF, "REAGENT_2", sReagent2);
        SetLocalString(OBJECT_SELF, "REWARD", "NW_WSWMLS005");
        SetLocalInt(OBJECT_SELF, "ITEM_COST", 1000);
        SetLocalInt(OBJECT_SELF, "ORDER_UP", 2);
    }
    else
    {
        SetLocalInt(OBJECT_SELF, "VALID_COMBO", FALSE);
    }
 }
    SetCustomToken(5575, IntToString(GetLocalInt(OBJECT_SELF, "ITEM_COST")));
}

NWScript:

///////////////////////////////
// Smith Item Creation Script 
// By Milamber-POL
// Dated 7/22/02
//
//////////////////////////////
//:://////////////////////////
//:: FileName MakeItBrother
//:://////////////////////////
void create_item()
{
    SetLocalString(OBJECT_SELF,"NW_L_MYFORGE","M1Q1CForge");
    object oContainer = GetObjectByTag(GetLocalString(OBJECT_SELF,"NW_L_MYFORGE"));
/* 
 * The following actions are performed for each item creation, it would be easy to
 * make custom visual effects for each item type, by moving these back into the
 * main portion of the code in the logical block.   For simplicity I left them here.
*/
    DestroyObject(GetItemPossessedBy(oContainer,GetLocalString(OBJECT_SELF, "REAGENT_1")));
    DestroyObject(GetItemPossessedBy(oContainer,GetLocalString(OBJECT_SELF, "REAGENT_2")));
    CreateItemOnObject(GetLocalString(OBJECT_SELF, "REWARD") ,oContainer);
    TakeGoldFromCreature(GetLocalInt(OBJECT_SELF, "ITEM_COST"), GetPCSpeaker(), TRUE);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_MAGICAL_VISION), OBJECT_SELF);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_AC_BONUS),oContainer);
}

void main()
{
   // Combo Requires Magic Sword and Fire Opal == Burning Blade
   // Cost == 500 gp
   // Need to add a script that checks to make sure the PC has the gold
   if((GetLocalInt(OBJECT_SELF, "ORDER_UP") == 1))
   {
        create_item();
   }
   // Combo Requires Burning Blade (See Above) and a Fire Opal == Flame Tounge
   // Cost == 1000 gp
   // Need to add a script that checks to make sure the PC has the gold
   else if((GetLocalInt(OBJECT_SELF, "ORDER_UP") == 2))
   {
        create_item();
   }
   // Not really sure what should happen if the right items are not
   // present, possibly a random chance the smith destroys one???
   else
   {
    // left blank for the moment
   }
}

NWScript:

int StartingConditional()
{
    // Inspect local variables
    if((GetLocalInt(OBJECT_SELF, "ORDER_UP") == 1))
        return TRUE;
    else
        return FALSE;
}

NWScript:

int StartingConditional()
{
    int iResult;
    iResult =GetGold(GetPCSpeaker()) >= GetLocalInt(OBJECT_SELF, "ITEM_COST");
    return iResult;
}