The only include in the script is the standard #nw_i0_plot . I did a search through files for CreateAnObject and the only scripts that showed up were all the UOA scripts. It is used through all of them. Here is the Anvil script that produces weapons and armor.
//#include "_persist_01a"
#include "nw_i0_plot"
void CreateAnObject(string sResource, object oPC, int iStackSize);
void GetNextStackedItem(object oPC, string sItemTag, int iCount, int iMode, string sStackResRef);
void GetNextItemPossessedBy(object oPC, string sItemTag);
string CraftLookup(string sResRef, int iIngotType);
void main()
{
object oItem = GetInventoryDisturbItem();
object oPC = GetLastDisturbed();
object oSelf = OBJECT_SELF;
string sTag = GetTag(oItem);
string sSuccess = "";
string sFail = "";
string sItemResRef = "";
string sItemResRefPoor = "";
string sItemResRefExceptional = "";
int iRandom = 0;
int iSuccess = 0;
int iSuccess2 = 0;
int iSkillGain = 0;
int iComponent1 = 1;
int iComponent2 = 0;
int iComponent3 = 0;
int iComponent1Stackable = 1;
int iComponent2Stackable = 0;
int iComponent3Stackable = 0;
int iStackSize = 0;
int iCraftStackSize = 0; // for stackable end products
int iCraftType = 0; // default to Weapons for skill check
int iIngotType = GetLocalInt(oPC,"iUseIngotType"); // get the current ingot type used
int iIngotMod = iIngotType *25; // set the skill modifier for the ingot type used.
string sComponent1 = "";
string sComponent2 = "";
string sComponent3 = "";
string sComponent1Name = "";
string sComponent2Name = "";
string sComponent3Name = "";
string sComponentResRef = "";
object oTemp = OBJECT_INVALID;
object oTool = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND,oPC);
if (GetTag(oTool) != "ITEM_SMITHHAMMER_NORMAL") oTool = GetItemInSlot(INVENTORY_SLOT_LEFTHAND,oPC);
int iHammerUse = GetLocalInt(oPC,"iHammerUsed");
if (iIngotType==9) iIngotMod = 90; // Silver is little easier than Bronze
if (iIngotType==10) iIngotMod = 175; // Mithril is hard as Verite
if (iIngotType==11) iIngotMod = 200; // Adamantite is hard as Valorite
if (iIngotType==12) iIngotMod = 150; // Platinum is hard as Agapite
if (GetInventoryDisturbType()== INVENTORY_DISTURB_TYPE_ADDED)
{
// The following 3 lines are to ensure compatability with UOAbigal's Persistent Token System.
// You can replace them with whatever 'no-drop' code you have or comment them out.
string sNoDropFlag = (GetStringLeft(GetTag(oItem),6));
if (sNoDropFlag == "NoDrop" || sNoDropFlag == "TOKEN_"||sNoDropFlag=="_TBOX_")
return;
if (GetBaseItemType(oItem)==BASE_ITEM_LARGEBOX)
{
DestroyObject(oItem);
SendMessageToPC(oPC,"To avoid possible dupe exploits, the container placed in this bag may be destroyed.");
return;
}
// End of compatability portion.
CopyItem(oItem,oPC,TRUE);
DestroyObject(oItem);
FloatingTextStringOnCreature("You can only craft by removing pattern tokens from this station.",oPC,FALSE);
}
// Check for ingot type switch or non-flagswitch/pattern item
if (GetStringLeft(GetResRef(oItem),7)!="pattern")
{
if (sTag == "SWITCH_IRON"){SetLocalInt(oPC,"iUseIngotType",0);sComponent1 = "Iron";}
if (sTag == "SWITCH_DULL"){SetLocalInt(oPC,"iUseIngotType",1);sComponent1 = "Dull Copper";}
if (sTag == "SWITCH_SHADOW"){SetLocalInt(oPC,"iUseIngotType",2);sComponent1 = "Shadow Iron";}
if (sTag == "SWITCH_COPPER"){SetLocalInt(oPC,"iUseIngotType",3);sComponent1 = "Copper";}
if (sTag == "SWITCH_BRONZE"){SetLocalInt(oPC,"iUseIngotType",4);sComponent1 = "Bronze";}
if (sTag == "SWITCH_GOLD"){SetLocalInt(oPC,"iUseIngotType",5);sComponent1 = "Gold";}
if (sTag == "SWITCH_AGAPITE"){SetLocalInt(oPC,"iUseIngotType",6);sComponent1 = "Agapite";}
if (sTag == "SWITCH_VERITE"){SetLocalInt(oPC,"iUseIngotType",7);sComponent1 = "Verite";}
if (sTag == "SWITCH_VALORITE"){SetLocalInt(oPC,"iUseIngotType",8);sComponent1 = "Valorite";}
if (sTag == "SWITCH_SILVER"){SetLocalInt(oPC,"iUseIngotType",9);sComponent1 = "Silver";}
if (sTag == "SWITCH_MITHRIL"){SetLocalInt(oPC,"iUseIngotType",10);sComponent1 = "Mithril";}
if (sTag == "SWITCH_ADAMANTITE"){SetLocalInt(oPC,"iUseIngotType",11);sComponent1 = "Adamantite";}
if (sTag == "SWITCH_PLATINUM"){SetLocalInt(oPC,"iUseIngotType",12);sComponent1 = "Platinum";}
if (GetStringLeft(sTag,7)=="SWITCH_")
{
FloatingTextStringOnCreature("Re-tooling to use "+sComponent1+" ingots.",oPC,FALSE);
DestroyObject(oItem);
//ExecuteScript("_onclose_clear",OBJECT_SELF);
//ExecuteScript("_open_anvil",OBJECT_SELF);
string sTagSelf = GetTag(oSelf);
AssignCommand(oPC,DoPlaceableObjectAction(oSelf,PLACEABLE_ACTION_USE));
AssignCommand(oPC,DelayCommand(1.5,DoPlaceableObjectAction(GetNearestObjectByTag(sTagSelf,oPC,1),PLACEABLE_ACTION_USE)));
}
return;
}
CopyObject(oItem,GetLocation(oPC),OBJECT_SELF,GetTag(oItem));
DestroyObject(oItem);
if (GetLocalInt(OBJECT_SELF,"iAmInUse") != 0)
{
SendMessageToPC(oPC,"You must wait till the current weapon or armor is completed before starting another.");
return;
}
if (GetTag(oTool) != "ITEM_SMITHHAMMER_NORMAL")
{
FloatingTextStringOnCreature("You must have a smithy hammer equipped in order to attempt this craft...",oPC,FALSE);
return;
}
//int iSmithSkill = GetTokenPair(oPC,13,4); // Weaponsmith
int iSmithSkill = GetCampaignInt("UOACraft","iSmithSkill",oPC);
int iSmithChance = iSmithSkill;
//int iArmorSkill = GetTokenPair(oPC,13,5); // ArmorCraft
int iArmorSkill = GetCampaignInt("UOACraft","iArmorSkill",oPC);
int iArmorChance = iArmorSkill;
if (iSmithChance < 350)
{
iSmithChance = GetAbilityScore(oPC,ABILITY_STRENGTH)*5;
iSmithChance = iSmithChance+(GetAbilityScore(oPC,ABILITY_DEXTERITY)*3);
iSmithChance = iSmithChance+(GetAbilityScore(oPC,ABILITY_INTELLIGENCE)*2);
iSmithChance = iSmithChance*3;
if (iSmithChance>350)iSmithChance=350;
if (iSmithSkill > iSmithChance) iSmithChance=iSmithSkill;
}
if (iArmorChance < 350)
{
iArmorChance = GetAbilityScore(oPC,ABILITY_STRENGTH)*5;
iArmorChance = iArmorChance+(GetAbilityScore(oPC,ABILITY_DEXTERITY)*3);
iArmorChance = iArmorChance+(GetAbilityScore(oPC,ABILITY_INTELLIGENCE)*2);
iArmorChance = iArmorChance*3;
if (iArmorChance>350)iArmorChance=350;
if (iArmorSkill > iArmorChance) iArmorChance=iArmorSkill;
}
// Modify skill chance based on ingot type used
if (iIngotMod >0) iIngotMod = iIngotMod + 250;
iSmithChance = iSmithChance - iIngotMod;
iArmorChance = iArmorChance - iIngotMod;
// Begin Crafting Test
if (sTag == "P_DAGGER")
{
iSmithChance = iSmithChance - 100;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a dagger.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the dagger useless.";
sItemResRefPoor = CraftLookup("wswdg002",iIngotType);
sItemResRef = CraftLookup("nw_wswdg001",iIngotType);
sItemResRefExceptional = CraftLookup("wswdg003",iIngotType);
iComponent1 = 2;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_SHORTSWORD")
{
iSmithChance = iSmithChance-150;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a shortsword.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the shortsword useless.";
sItemResRefPoor = CraftLookup("wswss002",iIngotType);
sItemResRef = CraftLookup("nw_wswss001",iIngotType);
sItemResRefExceptional = CraftLookup("wswss003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_RINGMAIL")
{
iCraftType=1;
iArmorChance = iArmorChance - 100;
sSuccess = "You carefully forge the rings and sew them into the leather backing to make ringmail armor.";
sFail = "The rings fail to link properly and the leather backing is ruined.";
sItemResRefPoor = CraftLookup("ringmail001",iIngotType);
sItemResRef = CraftLookup("ringmail",iIngotType);
sItemResRefExceptional = CraftLookup("ringmail002",iIngotType);
iComponent1 = 6;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
sComponent3 = "HARDLEATHER_MEDIUM"; // Medium Hardened Leather
sComponent3Name = "medium hardened leathers";
iComponent3 = 2;
}
if (sTag == "P_CHAINSHIRT")
{
iCraftType=1;
iArmorChance = iArmorChance - 250;
sSuccess = "You carefully forge the small chain links and link them together to make a chainmail shirt.";
sFail = "The link pattern for the small chain links is wrong, and the chain shirt is ruined.";
sItemResRefPoor = CraftLookup("aarcl013",iIngotType);
sItemResRef = CraftLookup("nw_aarcl012",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl014",iIngotType);
iComponent1 = 8;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_CHAINMAIL")
{
iCraftType=1;
iArmorChance = iArmorChance - 350;
sSuccess = "You carefully forge the small chain links and link them together with the leather to make chainmail armor.";
sFail = "The link pattern for the small chain links is wrong, and the chainmail armor is ruined.";
sItemResRefPoor = CraftLookup("aarcl005",iIngotType);
sItemResRef = CraftLookup("nw_aarcl004",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl006",iIngotType);
iComponent1 = 10;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
sComponent3 = "HARDLEATHER_MEDIUM"; // Medium Hardened Leather
sComponent3Name = "medium hardened leathers";
iComponent3 = 1;
}
if (sTag == "P_SCALEMAIL")
{
iCraftType=1;
iArmorChance = iArmorChance - 300;
sSuccess = "You carefully forge the small metal scales and hook them into the leather to make scale mail armor.";
sFail = "The scales do not hook properly, and the scale mail armor is ruined.";
sItemResRefPoor = CraftLookup("aarcl006",iIngotType);
sItemResRef = CraftLookup("nw_aarcl003",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl007",iIngotType);
iComponent1 = 8;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
sComponent3 = "HARDLEATHER_MEDIUM"; // Medium Hardened Leather
sComponent3Name = "medium hardened leathers";
iComponent3 = 2;
}
if (sTag == "P_BREASTPLATE")
{
iCraftType=1;
iArmorChance = iArmorChance - 350;
sSuccess = "You carefully pound the metal into a form-fitting breastplate.";
sFail = "The metal warps and turns brittle as you try to pound it into a form-fitting shape.";
sItemResRefPoor = CraftLookup("aarcl011",iIngotType);
sItemResRef = CraftLookup("nw_aarcl010",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl016",iIngotType);
iComponent1 = 10;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 1;
}
if (sTag == "P_BANDEDMAIL")
{
iCraftType=1;
iArmorChance = iArmorChance - 400;
sSuccess = "You carefully forge the small metal bands and fix them into the leather to make banded mail armor.";
sFail = "The bands do not fix properly, and the banded mail armor is ruined.";
sItemResRefPoor = CraftLookup("aarcl014",iIngotType);
sItemResRef = CraftLookup("nw_aarcl011",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl015",iIngotType);
iComponent1 = 14;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
sComponent3 = "HARDLEATHER_MEDIUM"; // Medium Hardened Leather
sComponent3Name = "medium hardened leathers";
iComponent3 = 1;
}
if (sTag == "P_SPLINTMAIL")
{
iCraftType=1;
iArmorChance = iArmorChance - 400;
sSuccess = "You carefully forge the small metal plates and fix them into the leather to make splint mail armor.";
sFail = "The small metal plates are too brittle to fix properly, and the splint mail armor is ruined.";
sItemResRefPoor = CraftLookup("aarcl018",iIngotType);
sItemResRef = CraftLookup("nw_aarcl005",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl019",iIngotType);
iComponent1 = 14;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
sComponent3 = "HARDLEATHER_MEDIUM"; // Medium Hardened Leather
sComponent3Name = "medium hardened leathers";
iComponent3 = 2;
}
if (sTag == "P_HALFPLATE")
{
iCraftType=1;
iArmorChance = iArmorChance - 450;
sSuccess = "You carefully forge the metal plates and affix the leather to create a suit of half plate armor.";
sFail = "The metal plates are too brittle to server as armor, and the suit of half plate is ruined.";
sItemResRefPoor = CraftLookup("aarcl010",iIngotType);
sItemResRef = CraftLookup("nw_aarcl006",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl017",iIngotType);
iComponent1 = 20;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 2;
sComponent3 = "HARDLEATHER_SMALL"; // Small Hardened Leather
sComponent3Name = "small hardened leathers";
iComponent3 = 2;
}
if (sTag == "P_FULLPLATE")
{
iCraftType=1;
iArmorChance = iArmorChance - 500;
sSuccess = "You carefully forge the metal plates and affix the leather to create a suit of full plate armor.";
sFail = "The metal plates are too brittle to server as armor, and the suit of full plate is ruined.";
sItemResRefPoor = CraftLookup("aarcl008",iIngotType);
sItemResRef = CraftLookup("nw_aarcl007",iIngotType);
sItemResRefExceptional = CraftLookup("aarcl009",iIngotType);
iComponent1 = 30;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 3;
sComponent3 = "HARDLEATHER_MEDIUM"; // Medium Hardened Leather
sComponent3Name = "medium hardened leathers";
iComponent3 = 2;
}
if (sTag == "P_LONGSWORD")
{
iSmithChance = iSmithChance-250;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a longsword.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the longsword useless.";
sItemResRefPoor = CraftLookup("wswls002",iIngotType);
sItemResRef = CraftLookup("nw_wswls001",iIngotType);
sItemResRefExceptional = CraftLookup("wswls003",iIngotType);
iComponent1 = 6;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_BASTARDSWORD")
{
iSmithChance = iSmithChance-350;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a bastard sword.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the bastard sword useless.";
sItemResRefPoor = CraftLookup("wswbs002",iIngotType);
sItemResRef = CraftLookup("nw_wswbs001",iIngotType);
sItemResRefExceptional = CraftLookup("wswbs003",iIngotType);
iComponent1 = 7;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_GREATSWORD")
{
iSmithChance = iSmithChance-400;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a greatsword.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the greatsword useless.";
sItemResRefPoor = CraftLookup("wswgs002",iIngotType);
sItemResRef = CraftLookup("nw_wswgs001",iIngotType);
sItemResRefExceptional = CraftLookup("wswgs003",iIngotType);
iComponent1 = 10;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 1;
}
if (sTag == "P_HORSEHAIRHELMET")
{
iCraftType=1;
iArmorChance = iArmorChance - 150;
sSuccess = "You carefully pound the metal plate into the form of a horsehair helmet.";
sFail = "The metal turns brittle as you pound it, ruining the horsehair helmet.";
sItemResRefPoor = CraftLookup("arhe005",iIngotType);
sItemResRef = CraftLookup("nw_arhe004",iIngotType);
sItemResRefExceptional = CraftLookup("arhe007",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_POTHELMET")
{
iCraftType=1;
iArmorChance = iArmorChance - 150;
sSuccess = "You carefully pound the metal plate into the form of a pot helmet.";
sFail = "The metal turns brittle as you pound it, ruining the pot helmet.";
sItemResRefPoor = CraftLookup("arhe002",iIngotType);
sItemResRef = CraftLookup("nw_arhe001",iIngotType);
sItemResRefExceptional = CraftLookup("arhe008",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_SPIKEHELMET")
{
iCraftType=1;
iArmorChance = iArmorChance - 150;
sSuccess = "You carefully pound the metal plate into the form of a spike helmet.";
sFail = "The metal turns brittle as you pound it, ruining the spike helmet.";
sItemResRefPoor = CraftLookup("arhe003",iIngotType);
sItemResRef = CraftLookup("nw_arhe002",iIngotType);
sItemResRefExceptional = CraftLookup("arhe009",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_STAGHELMET")
{
iCraftType=1;
iArmorChance = iArmorChance - 150;
sSuccess = "You carefully pound the metal plate into the form of a stag helmet.";
sFail = "The metal turns brittle as you pound it, ruining the stag helmet.";
sItemResRefPoor = CraftLookup("arhe006",iIngotType);
sItemResRef = CraftLookup("nw_arhe005",iIngotType);
sItemResRefExceptional = CraftLookup("arhe010",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_WINGEDHELMET")
{
iCraftType=1;
iArmorChance = iArmorChance - 150;
sSuccess = "You carefully pound the metal plate into the form of a winged helmet.";
sFail = "The metal turns brittle as you pound it, ruining the winged helmet.";
sItemResRefPoor = CraftLookup("arhe004",iIngotType);
sItemResRef = CraftLookup("nw_arhe003",iIngotType);
sItemResRefExceptional = CraftLookup("arhe011",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_SMALLSHIELD")
{
iCraftType=1;
iArmorChance = iArmorChance - 250;
sSuccess = "You carefully craft the metal edges and affix the wooden boards to form a small shield.";
sFail = "The metal fails to conform to the wooden portion of the shield, ruining both.";
sItemResRefPoor = CraftLookup("ashsw002",iIngotType);
sItemResRef = CraftLookup("nw_ashsw001",iIngotType);
sItemResRefExceptional = CraftLookup("ashsw003",iIngotType);
iComponent1 = 2;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
sComponent3 = "WOOD_NORMAL"; // normal wood logs
sComponent3Name = "normal wood logs";
iComponent3 = 1;
}
if (sTag == "P_MEDIUMSHIELD")
{
iCraftType=1;
iArmorChance = iArmorChance - 350;
sSuccess = "You carefully craft the metal edges and affix the wooden boards to form a large shield.";
sFail = "The metal fails to conform to the wooden portion of the shield, ruining both.";
sItemResRefPoor = CraftLookup("ashlw002",iIngotType);
sItemResRef = CraftLookup("nw_ashlw001",iIngotType);
sItemResRefExceptional = CraftLookup("ashlw003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
sComponent3 = "WOOD_NORMAL"; // normal wood logs
sComponent3Name = "normal wood logs";
iComponent3 = 2;
}
if (sTag == "P_LARGESHIELD")
{
iCraftType=1;
iArmorChance = iArmorChance - 450;
sSuccess = "You carefully pound and form the metal plate into a tower shield.";
sFail = "The metal turns brittle as you work it, rendering the shield useless.";
sItemResRefPoor = CraftLookup("ashto002",iIngotType);
sItemResRef = CraftLookup("nw_ashto001",iIngotType);
sItemResRefExceptional = CraftLookup("ashto003",iIngotType);
iComponent1 = 10;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 1;
}
if (sTag == "P_MACE")
{
iSmithChance = iSmithChance-200;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a mace.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the mace useless.";
sItemResRefPoor = CraftLookup("wblml002",iIngotType);
sItemResRef = CraftLookup("nw_wblml001",iIngotType);
sItemResRefExceptional = CraftLookup("wblml003",iIngotType);
iComponent1 = 5;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_MORNINGSTAR")
{
iSmithChance = iSmithChance-300;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a maorning star.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the morning star useless.";
sItemResRefPoor = CraftLookup("wblms002",iIngotType);
sItemResRef = CraftLookup("nw_wblms001",iIngotType);
sItemResRefExceptional = CraftLookup("wblms003",iIngotType);
iComponent1 = 6;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
sComponent3 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent3Name = "small cast molds";
iComponent3 = 1;
}
if (sTag == "P_LIGHTFLAIL")
{
iSmithChance = iSmithChance-250;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a light flail.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the light flail useless.";
sItemResRefPoor = CraftLookup("wblfl002",iIngotType);
sItemResRef = CraftLookup("nw_wblfl001",iIngotType);
sItemResRefExceptional = CraftLookup("wblfl003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_HEAVYFLAIL")
{
iSmithChance = iSmithChance-350;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a heavy flail.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the heavy flail useless.";
sItemResRefPoor = CraftLookup("wblfh002",iIngotType);
sItemResRef = CraftLookup("nw_wblfh001",iIngotType);
sItemResRefExceptional = CraftLookup("wblfh003",iIngotType);
iComponent1 = 7;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_LIGHTHAMMER")
{
iSmithChance = iSmithChance-250;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a light hammer.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the light hammer useless.";
sItemResRefPoor = CraftLookup("wblhl002",iIngotType);
sItemResRef = CraftLookup("nw_wblhl001",iIngotType);
sItemResRefExceptional = CraftLookup("wblhl003",iIngotType);
iComponent1 = 5;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_WARHAMMER")
{
iSmithChance = iSmithChance-350;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a warhammer.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the warhammer useless.";
sItemResRefPoor = CraftLookup("wblhw002",iIngotType);
sItemResRef = CraftLookup("nw_wblhw001",iIngotType);
sItemResRefExceptional = CraftLookup("wblhw003",iIngotType);
iComponent1 = 9;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_HANDAXE")
{
iSmithChance = iSmithChance-150;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a handaxe.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the handaxe useless.";
sItemResRefPoor = CraftLookup("waxhn002",iIngotType);
sItemResRef = CraftLookup("nw_waxhn001",iIngotType);
sItemResRefExceptional = CraftLookup("waxhn003",iIngotType);
iComponent1 = 3;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_BATTLEAXE")
{
iSmithChance = iSmithChance-150;
sSuccess = "You carefully heat, fold, and pound the metal into the form of a battleaxe.";
sFail = "The metal turns brittle as you heat, fold, and pound it, rending the battleaxe useless.";
sItemResRefPoor = CraftLookup("waxbt002",iIngotType);
sItemResRef = CraftLookup("nw_waxbt001",iIngotType);
sItemResRefExceptional = CraftLookup("waxbt003",iIngotType);
iComponent1 = 7;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_DART")
{
iCraftStackSize = 50;
iSmithChance = iSmithChance-50;
sSuccess = "You carefully forge the throwing darts.";
sFail = "The metal fails to cool properly and the throwing darts are ruined.";
sItemResRefPoor = CraftLookup("wthdt002",iIngotType);
sItemResRef = CraftLookup("nw_wthdt001",iIngotType);
sItemResRefExceptional = CraftLookup("wthdt003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_SHURIKEN")
{
iCraftStackSize = 50;
iSmithChance = iSmithChance-50;
sSuccess = "You carefully forge the shuriken.";
sFail = "The metal fails to cool properly and the shuriken are ruined.";
sItemResRefPoor = CraftLookup("wthsh002",iIngotType);
sItemResRef = CraftLookup("nw_wthsh001",iIngotType);
sItemResRefExceptional = CraftLookup("wthsh003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_THROWINGAXE")
{
iCraftStackSize = 50;
iSmithChance = iSmithChance-150;
sSuccess = "You carefully forge the throwing axes.";
sFail = "The metal fails to cool properly and the throwing axes are ruined.";
sItemResRefPoor = CraftLookup("wthax002",iIngotType);
sItemResRef = CraftLookup("nw_wthax001",iIngotType);
sItemResRefExceptional = CraftLookup("wthax003",iIngotType);
iComponent1 = 6;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_HALBERD")
{
iSmithChance = iSmithChance-400;
sSuccess = "You carefully forge the halberd blade and affix it to the shaft.";
sFail = "The metal turns brittle as you attempt to forge and the halberd is ruined.";
sItemResRefPoor = CraftLookup("wplhb002",iIngotType);
sItemResRef = CraftLookup("nw_wplhb001",iIngotType);
sItemResRefExceptional = CraftLookup("wplhb003",iIngotType);
iComponent1 = 20;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 1;
sComponent3 = "WOOD_NORMAL"; // Normal wooden log
sComponent3Name = "normal wooden logs";
iComponent3 = 1;
}
if (sTag == "P_SCYTHE")
{
iSmithChance = iSmithChance-400;
sSuccess = "You carefully forge the scythe blade and affix it to the shaft.";
sFail = "The metal turns brittle as you attempt to forge and the scythe is ruined.";
sItemResRefPoor = CraftLookup("wplsc002",iIngotType);
sItemResRef = CraftLookup("nw_wplsc001",iIngotType);
sItemResRefExceptional = CraftLookup("wplsc003",iIngotType);
iComponent1 = 20;
sComponent2 = "ITEM_LARGECASTMOLD"; // large cast mold
sComponent2Name = "large cast molds";
iComponent2 = 1;
sComponent3 = "WOOD_NORMAL"; // Normal wooden log
sComponent3Name = "normal wooden logs";
iComponent3 = 1;
}
if (sTag == "P_SPEAR")
{
iSmithChance = iSmithChance-300;
sSuccess = "You carefully forge the spear tip and affix it to the shaft.";
sFail = "The metal turns brittle as you attempt to forge and the spear is ruined.";
sItemResRefPoor = CraftLookup("wplss002",iIngotType);
sItemResRef = CraftLookup("nw_wplss001",iIngotType);
sItemResRefExceptional = CraftLookup("wplss003",iIngotType);
iComponent1 = 3;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
sComponent3 = "WOOD_NORMAL"; // Normal wooden log
sComponent3Name = "normal wooden logs";
iComponent3 = 1;
}
if (sTag == "P_KAMA")
{
iSmithChance = iSmithChance-50;
sSuccess = "You carefully fold and pound the metal into the form of a kama.";
sFail = "The metal turns brittle as you attempt to forge and the kama is ruined.";
sItemResRefPoor = CraftLookup("wspka002",iIngotType);
sItemResRef = CraftLookup("nw_wspka001",iIngotType);
sItemResRefExceptional = CraftLookup("wspka003",iIngotType);
iComponent1 = 3;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_KUKRI")
{
iSmithChance = iSmithChance-100;
sSuccess = "You carefully fold and pound the metal into the form of a kukri.";
sFail = "The metal turns brittle as you attempt to forge and the kukri is ruined.";
sItemResRefPoor = CraftLookup("wspku002",iIngotType);
sItemResRef = CraftLookup("nw_wspku001",iIngotType);
sItemResRefExceptional = CraftLookup("wspku003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_SICKLE")
{
iSmithChance = iSmithChance-150;
sSuccess = "You carefully fold and pound the metal into the form of a sickle.";
sFail = "The metal turns brittle as you attempt to forge and the sickle is ruined.";
sItemResRefPoor = CraftLookup("wspsc002",iIngotType);
sItemResRef = CraftLookup("nw_wspsc001",iIngotType);
sItemResRefExceptional = CraftLookup("wspsc003",iIngotType);
iComponent1 = 4;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_DIREMACE")
{
iSmithChance = iSmithChance-450;
sSuccess = "You carefully fold and pound the metal into the form of a dire mace.";
sFail = "The metal turns brittle as you attempt to forge and the dire mace is ruined.";
sItemResRefPoor = CraftLookup("wdbma002",iIngotType);
sItemResRef = CraftLookup("nw_wdbma001",iIngotType);
sItemResRefExceptional = CraftLookup("wdbma003",iIngotType);
iComponent1 = 15;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 2;
}
if (sTag == "P_DOUBLEAXE")
{
iSmithChance = iSmithChance-450;
sSuccess = "You carefully fold and pound the metal into the form of a double axe.";
sFail = "The metal turns brittle as you attempt to forge and the double axe is ruined.";
sItemResRefPoor = CraftLookup("wdbax002",iIngotType);
sItemResRef = CraftLookup("nw_wdbax001",iIngotType);
sItemResRefExceptional = CraftLookup("wdbax003",iIngotType);
iComponent1 = 15;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 2;
}
if (sTag == "P_TWOBLADEDSWORD")
{
iSmithChance = iSmithChance-500;
sSuccess = "You carefully fold and pound the metal into the form of a two-bladed sword.";
sFail = "The metal turns brittle as you attempt to forge and the two-bladed sword is ruined.";
sItemResRefPoor = CraftLookup("wdbsw002",iIngotType);
sItemResRef = CraftLookup("nw_wdbsw001",iIngotType);
sItemResRefExceptional = CraftLookup("wdbsw003",iIngotType);
iComponent1 = 25;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 2;
}
if (sTag == "P_BULLET")
{
iSmithChance = iSmithChance+50; //Bullets are easy to make
iCraftStackSize = 99;
sSuccess = "You carefully forge the bullets.";
sFail = "The metal fails to cool properly and the bullets are ruined.";
sItemResRefPoor = CraftLookup("wambu002",iIngotType);
sItemResRef = CraftLookup("nw_wambu001",iIngotType);
sItemResRefExceptional = CraftLookup("wambu003",iIngotType);
iComponent1 = 10;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_ARROWHEAD")
{
iSmithChance = iSmithChance - 50;
iCraftStackSize = 50;
sSuccess = "You carefully forge the arrowheads.";
sFail = "The metal fails to cool properly and the arrowheads are ruined.";
sItemResRefPoor = CraftLookup("arrowhead001",iIngotType);
sItemResRef = CraftLookup("arrowhead",iIngotType);
sItemResRefExceptional = CraftLookup("arrowhead002",iIngotType);
iComponent1 = 5;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_BOLTTIP")
{
iSmithChance = iSmithChance - 50;
iCraftStackSize = 50;
sSuccess = "You carefully forge the bolt tips.";
sFail = "The metal fails to cool properly and the bolt tips are ruined.";
sItemResRefPoor = CraftLookup("arrowhead004",iIngotType);
sItemResRef = CraftLookup("arrowhead003",iIngotType);
sItemResRefExceptional = CraftLookup("arrowhead005",iIngotType);
iComponent1 = 5;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_METALSTUD")
{
iCraftType=1;
iArmorChance = iArmorChance + 100; // metal studs are super-easy
iCraftStackSize = 99;
sSuccess = "You carefully forge the metal studs.";
sFail = "The metal fails to cool properly and the metal studs are ruined.";
sItemResRefPoor = CraftLookup("metalstud001",iIngotType);
sItemResRef = CraftLookup("metalstud",iIngotType);
sItemResRefExceptional = CraftLookup("metalstud002",iIngotType);
iComponent1 = 10;
sComponent2 = "ITEM_SMALLCASTMOLD"; // small cast mold
sComponent2Name = "small cast molds";
iComponent2 = 1;
}
if (sTag == "P_KATANA")
{
iSmithChance = iSmithChance-350;
sSuccess = "You carefully fold and pound the metal into the form of a katana.";
sFail = "The metal turns brittle as you attempt to forge and the katana is ruined.";
sItemResRefPoor = CraftLookup("wswka002",iIngotType);
sItemResRef = CraftLookup("nw_wswka001",iIngotType);
sItemResRefExceptional = CraftLookup("wswka003",iIngotType);
iComponent1 = 9;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_RAPIER")
{
iSmithChance = iSmithChance-250;
sSuccess = "You carefully fold and pound the metal into the form of a rapier.";
sFail = "The metal turns brittle as you attempt to forge and the rapier is ruined.";
sItemResRefPoor = CraftLookup("wswrp002",iIngotType);
sItemResRef = CraftLookup("nw_wswrp001",iIngotType);
sItemResRefExceptional = CraftLookup("wswrp003",iIngotType);
iComponent1 = 5;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "P_SCIMITAR")
{
iSmithChance = iSmithChance-300;
sSuccess = "You carefully fold and pound the metal into the form of a scimitar.";
sFail = "The metal turns brittle as you attempt to forge and the scimitar is ruined.";
sItemResRefPoor = CraftLookup("wswsc002",iIngotType);
sItemResRef = CraftLookup("nw_wswsc001",iIngotType);
sItemResRefExceptional = CraftLookup("wswsc003",iIngotType);
iComponent1 = 6;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "pattern123")
{
iSmithChance = iSmithChance-400;
sSuccess = "You carefully fold and pound the metal into the form of a great axe.";
sFail = "The metal turns brittle as you attempt to forge and the great axe is ruined.";
sItemResRefPoor = CraftLookup("waxgr002",iIngotType);
sItemResRef = CraftLookup("nw_waxgr001",iIngotType);
sItemResRefExceptional = CraftLookup("waxgr003",iIngotType);
iComponent1 = 8;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
if (sTag == "pattern124")
{
if (GetRacialType(oPC)!=RACIAL_TYPE_DWARF)
{
FloatingTextStringOnCreature("You are not a dwarf! You cannot craft a Dwarven Waraxe!",oPC,FALSE);
return;
}
iSmithChance = iSmithChance-400;
sSuccess = "You carefully fold and pound the metal into the form of a dwarven waraxe.";
sFail = "The metal turns brittle as you attempt to forge and the dwarven waraxe is ruined.";
sItemResRefPoor = CraftLookup("wdwraxe002",iIngotType);
sItemResRef = CraftLookup("x2_wdwraxe001",iIngotType);
sItemResRefExceptional = CraftLookup("wdwraxe003",iIngotType);
iComponent1 = 7;
sComponent2 = "ITEM_MEDIUMCASTMOLD"; // medium cast mold
sComponent2Name = "medium cast molds";
iComponent2 = 1;
}
// Set Ingot Tag and name based on ingot selection
switch (iIngotType)
{
case 0:{sComponent1 = "INGOT_IRON";sComponent1Name = "iron ingots";break;}
case 1:{sComponent1 = "INGOT_DULL";sComponent1Name = "dull copper ingots";break;}
case 2:{sComponent1 = "INGOT_SHADOW";sComponent1Name = "shadow iron ingots";break;}
case 3:{sComponent1 = "INGOT_COPPER";sComponent1Name = "copper ingots";break;}
case 4:{sComponent1 = "INGOT_BRONZE";sComponent1Name = "bronze ingots";break;}
case 5:{sComponent1 = "INGOT_GOLD";sComponent1Name = "gold ingots";break;}
case 6:{sComponent1 = "INGOT_AGAPITE";sComponent1Name = "agapite ingots";break;}
case 7:{sComponent1 = "INGOT_VERITE";sComponent1Name = "verite ingots";break;}
case 8:{sComponent1 = "INGOT_VALORITE";sComponent1Name = "valorite ingots";break;}
case 9:{sComponent1 = "INGOT_SILVER";sComponent1Name = "silver ingots";break;}
case 10:{sComponent1 = "INGOT_MITHRIL";sComponent1Name = "mithril ingots";break;}
case 11:{sComponent1 = "INGOT_ADAMANTITE";sComponent1Name = "adamantite ingots";break;}
case 12:{sComponent1 = "INGOT_PLATINUM";sComponent1Name = "platinum ingots";break;}
default:{FloatingTextStringOnCreature("Error in ingot selection..",oPC,FALSE);return;break;}
}
// Check for negative chance due to ingot type and other modifiers
if (iCraftType==0)
{
if (iSmithChance <1)
{
FloatingTextStringOnCreature("You do not have the skill needed to craft this.",oPC,FALSE);
return;
}
}
else
{
if (iArmorChance <1)
{
FloatingTextStringOnCreature("You do not have the skill needed to craft this.",oPC,FALSE);
return;
}
}
// check for components
if (GetNumItems(oPC,sComponent1) < iComponent1)
{
FloatingTextStringOnCreature("You do not have enough "+sComponent1Name+" to do this.",oPC,FALSE);
return;
}
if (iComponent2 > 0)
{
if (GetNumItems(oPC,sComponent2) < iComponent2)
{
FloatingTextStringOnCreature("You do not have enough "+sComponent2Name+" to do this.",oPC,FALSE);
return;
}
}
if (iComponent3 > 0)
{
if (GetNumItems(oPC,sComponent3) < iComponent3)
{
FloatingTextStringOnCreature("You do not have enough "+sComponent3Name+" to do this.",oPC,FALSE);
return;
}
}
// This is extra code.. not needed I think
// if (iArmorChance <1)
// {
// if (iCraftType==1)
// {
// FloatingTextStringOnCreature("You do not yet possess the skill required to craft this armor.",oPC,FALSE);
// return;
// }
// }
// if (iSmithChance <1)
// {
// if (iCraftType==0)
// {
// FloatingTextStringOnCreature("You do not yet possess the skill required to craft this weapon.",oPC,FALSE);
// return;
// }
// }
// visual and audio crafting effects
AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0,12.0));
if (iCraftType==0)
{
if (Random(1000)<500)
{
PlaySound("as_cv_smithhamr2");
DelayCommand(6.0,PlaySound("as_cv_smithhamr2"));
}
else
{
PlaySound("as_cv_smithhamr1");
DelayCommand(6.0,PlaySound("as_cv_smithhamr1"));
}
}
else
{
PlaySound("as_cv_smithmet2");
if (Random(1000)<500)
{
DelayCommand(6.0,PlaySound("as_cv_smithhamr3"));
}
else
{
DelayCommand(6.0,PlaySound("as_cv_smithhamr1"));
}
}
// Set Anvil to 'in use'
SetLocalInt(OBJECT_SELF,"iAmInUse",99);
DelayCommand(12.0,SetLocalInt(OBJECT_SELF,"iAmInUse",0));
// This snippet of code is cut-n-paste direct from ATS
// Reason for this is because I had no clue how to assign an increase
// in the z-axis of the location of the anvil for sparks to display.
// After reading through this code, it is obvious that vEffecrPos.z
// is the line which assigns this. Due to my own ignorance in this issue
// I have decided to leave this snippet of code intact with this credit to
// the original ATS script coders, whomever they may have been.
location locAnvil = GetLocation(OBJECT_SELF);
vector vEffectPos = GetPositionFromLocation(locAnvil);
vEffectPos.z += 1.0;
location locEffect = Location( GetAreaFromLocation(locAnvil), vEffectPos,GetFacingFromLocation(locAnvil) );
ApplyEffectAtLocation (DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_COM_SPARKS_PARRY), locEffect);
DelayCommand(1.7, ApplyEffectAtLocation (DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_COM_SPARKS_PARRY), locEffect));
DelayCommand(2.4, ApplyEffectAtLocation (DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_COM_SPARKS_PARRY), locEffect));
DelayCommand(3.1, ApplyEffectAtLocation (DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_COM_SPARKS_PARRY), locEffect));
DelayCommand(3.8, ApplyEffectAtLocation (DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_COM_SPARKS_PARRY), locEffect));
// end of ATS snippet ^^^^
//
DelayCommand(4.6,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPECIAL_WHITE_ORANGE,FALSE),locEffect));
DelayCommand(5.9,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPARKS_PARRY,FALSE),locEffect));
DelayCommand(7.1,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPECIAL_RED_ORANGE,FALSE),locEffect));
DelayCommand(8.2,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPARKS_PARRY,FALSE),locEffect));
DelayCommand(9.6,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPECIAL_WHITE_BLUE,FALSE),locEffect));
DelayCommand(11.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPARKS_PARRY,FALSE),locEffect));
// Remove all components
float fPause = 0.0;
if (iComponent1Stackable != 0)
{
oTemp = GetItemPossessedBy(oPC,sComponent1);
sComponentResRef = GetResRef(oTemp);
iStackSize = GetNumStackedItems(oTemp);
DestroyObject(oTemp);
if (iStackSize < iComponent1)
{
iComponent1 = iComponent1 - iStackSize;
DelayCommand(2.0,GetNextStackedItem(oPC,sComponent1,iComponent1,1,sComponentResRef));
}
else
{
if (iStackSize > iComponent1)
{
iStackSize = iStackSize - iComponent1;
DelayCommand(1.0,CreateAnObject(sComponentResRef,oPC,iStackSize));
}
}
}
else
{
for (iComponent1; iComponent1>0; iComponent1--)
{
fPause = fPause+0.5;
AssignCommand(oPC,DelayCommand(fPause,GetNextItemPossessedBy(oPC,sComponent1)));
}
}
if (sComponent2 != "")
{
if (iComponent2Stackable != 0)
{
oTemp = GetItemPossessedBy(oPC,sComponent2);
sComponentResRef = GetResRef(oTemp);
iStackSize = GetNumStackedItems(oTemp);
DestroyObject(oTemp);
if (iStackSize < iComponent2)
{
iComponent2 = iComponent2 - iStackSize;
DelayCommand(2.0,GetNextStackedItem(oPC,sComponent2,iComponent2,1, sComponentResRef));
}
else
{
if (iStackSize > iComponent2)
{
iStackSize = iStackSize - iComponent2;
DelayCommand(1.0,CreateAnObject(sComponentResRef,oPC,iStackSize));
}
}
}
else
{
for (iComponent2; iComponent2>0; iComponent2--)
{
fPause = fPause+0.5;
AssignCommand(oPC,DelayCommand(fPause,GetNextItemPossessedBy(oPC,sComponent2)));
}
}
}
if (sComponent3 != "")
{
if (iComponent3Stackable != 0)
{
oTemp = GetItemPossessedBy(oPC,sComponent3);
sComponentResRef = GetResRef(oTemp);
iStackSize = GetNumStackedItems(oTemp);
DestroyObject(oTemp);
if (iStackSize < iComponent3)
{
iComponent3 = iComponent3 - iStackSize;
DelayCommand(2.0,GetNextStackedItem(oPC,sComponent3,iComponent3,1, sComponentResRef));
}
else
{
if (iStackSize > iComponent3)
{
iStackSize = iStackSize - iComponent3;
DelayCommand(1.0,CreateAnObject(sComponentResRef,oPC,iStackSize));
}
}
}
else
{
for (iComponent3; iComponent3>0; iComponent3--)
{
fPause = fPause +0.5;
AssignCommand(oPC,DelayCommand(fPause,GetNextItemPossessedBy(oPC,sComponent3)));
}
}
}
// check for success
if (iCraftType ==0)
{
// Adjusted the starting chance down from 1000 to 800 to facilitate more lowend successes
if (Random(800) <= iSmithChance)
{
DelayCommand(8.0,ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_FNF_SMOKE_PUFF,FALSE),OBJECT_SELF,1.0));
if (Random(1000)<500)
{
DelayCommand(12.0,PlaySound("as_cv_smithwatr2"));
}
else
{
DelayCommand(12.0,PlaySound("as_cv_smithwatr1"));
}
iSuccess = 1;
iSuccess2 = 1;
iSmithChance = iSmithChance - 50;
if (Random(1000) <= iSmithChance) iSuccess2 = iSuccess2+1;
iSmithChance = iSmithChance-100;
if (Random(1000) <= iSmithChance) iSuccess2 = iSuccess2+1;
iSmithChance = iSmithChance + 150;
if (iCraftStackSize != 0) iSuccess2 =4;
if (iSuccess2 == 1)AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRefPoor,oPC,1)));
if (iSuccess2 == 2)AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRef,oPC,1)));
if (iSuccess2 == 3)AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRefExceptional,oPC,1)));
AssignCommand(oPC,DelayCommand(12.0,FloatingTextStringOnCreature(sSuccess,oPC,FALSE)));
if (Random(1000) >= iSmithSkill)
{
if (d10(1)+1 >= iSmithChance/100) iSkillGain = 1;
}
}
else
{
AssignCommand(oPC,DelayCommand(12.0,FloatingTextStringOnCreature(sFail,oPC,FALSE)));
return;
}
}
else
{
// Adjusted the starting chance down from 1000 to 800 to facilitate more lowend successes
if (Random(800) <= iArmorChance)
{
iSuccess = 1;
iSuccess2 = 1;
iArmorChance = iArmorChance - 50;
if (Random(1000) <= iArmorChance) iSuccess2 = iSuccess2+1;
iArmorChance = iArmorChance - 100;
if (Random(1000) <= iArmorChance) iSuccess2 = iSuccess2+1;
iArmorChance = iArmorChance+150;
if (iSuccess2 == 1)AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRefPoor,oPC,1)));
if (iSuccess2 == 2)AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRef,oPC,1)));
if (iSuccess2 == 3)AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRefExceptional,oPC,1)));
AssignCommand(oPC,DelayCommand(12.0,FloatingTextStringOnCreature(sSuccess,oPC,FALSE)));
if (Random(1000) >= iArmorSkill)
{
if (d10(1)+1 >= iArmorChance/100) iSkillGain = 1;
}
}
else
{
AssignCommand(oPC,DelayCommand(12.0,FloatingTextStringOnCreature(sFail,oPC,FALSE)));
return;
}
}
// Adjust stacksize for items that have stackable properties (throwing axes, etc)
if (iCraftStackSize>0)
{
int iStackPoor = 0;
int iStackNormal = 0;
int iStackExceptional = 0;
int iQuality = 0;
string sQuality = "";
for (iCraftStackSize; iCraftStackSize>0; iCraftStackSize--)
{
iQuality = 0;
if (Random(1000)<= iSmithChance) iQuality++;
if (Random(1000)<= iSmithChance) iQuality++;
if (Random(1000)<= iSmithChance) iQuality++;
if (iQuality==1) iStackPoor++;
if (iQuality==2) iStackNormal++;
if (iQuality==3) iStackExceptional++;
}
sQuality = "Created - ("+IntToString(iStackPoor)+" Poor) ("+IntToString(iStackNormal)+" Normal) ("+IntToString(iStackExceptional)+" Exceptional)";
if (iStackPoor >0) AssignCommand(oPC,DelayCommand(12.0,CreateAnObject(sItemResRefPoor,oPC,iStackPoor)));
if (iStackNormal>0) AssignCommand(oPC,DelayCommand(12.5,CreateAnObject(sItemResRef,oPC,iStackNormal)));
if (iStackExceptional>0) AssignCommand(oPC,DelayCommand(13.0,CreateAnObject(sItemResRefExceptional,oPC,iStackExceptional)));
AssignCommand(oPC,DelayCommand(13.0,FloatingTextStringOnCreature(sQuality,oPC,FALSE)));
}
//Ensure no more than 1 skill gain every 10 seconds to avoid token droppage.
if (iSkillGain ==1)
{
if (GetLocalInt(oPC,"iSkillGain")!= 0)
{
iSkillGain = 0;
}
else
{
SetLocalInt(oPC,"iSkillGain",99);
AssignCommand(GetArea(oPC),DelayCommand(10.0,SetLocalInt(oPC,"iSkillGain",0)));
}
}
// Do skill gains
if (iSkillGain ==1)
{
string sOldSkill = "";
string sOldSkill2 = "";
if (iCraftType==0)
{
iSmithSkill++;
sOldSkill2 = IntToString(iSmithSkill);
sOldSkill = "."+GetStringRight(sOldSkill2,1);
if (iSmithSkill > 9)
{
sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
}
else
{
sOldSkill = "0"+sOldSkill;
}
if (iSmithSkill <= 1000)
{
//DelayCommand(13.0,SetTokenPair(oPC,13,4,iSmithSkill));
DelayCommand(13.0,SetCampaignInt("UOACraft","iSmithSkill",iSmithSkill,oPC));
DelayCommand(13.0,SendMessageToPC(oPC,"========================================="));
DelayCommand(13.0,SendMessageToPC(oPC,"Your skill in weaponsmithing has gone up!"));
DelayCommand(13.0,SendMessageToPC(oPC,"Current weaponsmithing skill : "+ sOldSkill+"%"));
DelayCommand(13.0,SendMessageToPC(oPC,"========================================="));
if (GetLocalInt(GetModule(),"_UOACraft_XP")!=0) DelayCommand(12.9,GiveXPToCreature(oPC,GetLocalInt(GetModule(),"_UOACraft_XP")));
}
}
else
{
iArmorSkill++;
sOldSkill2 = IntToString(iArmorSkill);
sOldSkill = "."+GetStringRight(sOldSkill2,1);
if (iArmorSkill > 9)
{
sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
}
else
{
sOldSkill = "0"+sOldSkill;
}
if (iArmorSkill <= 1000)
{
//DelayCommand(13.0,SetTokenPair(oPC,13,5,iArmorSkill));
DelayCommand(13.0,SetCampaignInt("UOACraft","iArmorSkill",iArmorSkill,oPC));
DelayCommand(13.0,SendMessageToPC(oPC,"====================================="));
DelayCommand(13.0,SendMessageToPC(oPC,"Your skill in armorcraft has gone up!"));
DelayCommand(13.0,SendMessageToPC(oPC,"Current armorcraft skill : "+ sOldSkill+"%"));
DelayCommand(13.0,SendMessageToPC(oPC,"====================================="));
if (GetLocalInt(GetModule(),"_UOACraft_XP")!=0) DelayCommand(12.9,GiveXPToCreature(oPC,GetLocalInt(GetModule(),"_UOACraft_XP")));
}
}
}
//Check for broken tool
iHammerUse++;
if (iHammerUse>60+Random(20))
{
AssignCommand(oPC,DelayCommand(10.0,FloatingTextStringOnCreature("Your hammer has broken while crafting..",oPC,FALSE)));
DestroyObject(oTool,9.5);
iHammerUse=0;
}
SetLocalInt(oPC,"iHammerUsed",iHammerUse);
}
void CreateAnObject(string sResource, object oPC, int iStackSize)
{
CreateItemOnObject(sResource,oPC,iStackSize);
return;
}
void GetNextStackedItem(object oPC, string sItemTag, int iCount, int iMode, string sStackResRef)
{
object oTemp = GetItemPossessedBy(oPC,sItemTag);
int iStackCount = GetNumStackedItems(oTemp);
int iTemp = iCount - iStackCount;
iStackCount = iStackCount-iCount;
DestroyObject(oTemp);
if (iStackCount > 0)
{
SendMessageToPC(oPC,"You should get back "+IntToString(iStackCount));
DelayCommand(1.0,CreateAnObject(sStackResRef,oPC,iStackCount));
}
// this next line *should* recursively call this function if the number of
// stacked items does not meet the required number of items to be destroyed.
if (iTemp > 0) DelayCommand(1.0,GetNextStackedItem(oPC,sItemTag,iTemp, iMode, sStackResRef));
return;
}
void GetNextItemPossessedBy(object oPC, string sItemTag)
{
object oTemp = GetItemPossessedBy(oPC,sItemTag);
DestroyObject(oTemp);
return;
}
string CraftLookup(string sResRef, int iIngotType)
{
switch (iIngotType)
{
case 0:
{
return sResRef;
break;
}
case 1:
{
//Dull Copper Dagger
if (sResRef=="wswdg002") return "wswdg005";
if (sResRef=="nw_wswdg001") return "wswdg004";
if (sResRef=="wswdg003") return "wswdg006";
//Dull Copper ShortSword
if (sResRef=="wswss002") return "wswss005";
if (sResRef=="nw_wswss001") return "wswss004";
if (sResRef=="wswss003") return "wswss006";
************ snipping all the metals and items for length ***********************
//Platinum Dwarven WarAxe
if (sResRef=="wdwraxe002") return "wdwraxe032";
if (sResRef=="x2_wdwraxe001") return "wdwraxe031";
if (sResRef=="wdwraxe003") return "wdwraxe033";
break;
}
default:{return "null";break;}
}
return "null";
}
