Jaysyn/Aschbourne_PRC8
Jaysyn/Aschbourne_PRC8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity
Aschbourne_PRC8/_module/nss/_craft_forge.nss
Jaysyn904 5d27edafba Major update 
Fixed CCOH, Fixed starting GP, Fixed DMFI languages, Fix cep weapon appearances, Fixed new player start up system.  Added PC deleter.  Added ACP 4.1.  Full compile.  Updated release archive.
2024-09-16 23:40:48 -04:00

903 lines
31 KiB
Plaintext
Raw Blame History

//#include "_persist_01a"
void CreateAnObject(string sResource, object oPC, int iStackSize);
object CreatePlaceable(string sObject, location lPlace, float fDuration);
string GetIngotType(object oItem, object oPC);
void main()
{
object oPC = GetLastDisturbed();
object oItem = GetInventoryDisturbItem();
string sItemTag = GetTag(oItem);
string sResmeltMessage = "INVALID";
int iResmelt = 0;
int iBaseItem=0;
int iMaxResmelt;
int iMaxResmelt2;
int iMaxResmelt3;
if (GetInventoryDisturbType()!= INVENTORY_DISTURB_TYPE_ADDED)
{
if (sItemTag=="SWITCH_VLOWHEAT")
{
SetLocalInt(oPC,"iHeat",1);
FloatingTextStringOnCreature("Smelting forge is now set to use very low heat.",oPC,FALSE);
}
if (sItemTag=="SWITCH_LOWHEAT")
{
SetLocalInt(oPC,"iHeat",2);
FloatingTextStringOnCreature("Smelting forge is now set to use low heat.",oPC,FALSE);
}
if (sItemTag=="SWITCH_MEDIUMHEAT")
{
SetLocalInt(oPC,"iHeat",3);
FloatingTextStringOnCreature("Smelting forge is now set to use normal heat.",oPC,FALSE);
}
if (sItemTag=="SWITCH_HIGHHEAT")
{
SetLocalInt(oPC,"iHeat",4);
FloatingTextStringOnCreature("Smelting forge is now set to use high heat.",oPC,FALSE);
}
if (sItemTag=="SWITCH_VHIGHHEAT")
{
SetLocalInt(oPC,"iHeat",5);
FloatingTextStringOnCreature("Smelting forge is now set to use very high heat.",oPC,FALSE);
}
CopyObject(oItem,GetLocation(oPC),OBJECT_SELF,GetTag(oItem));
DestroyObject(oItem);
return;
}
// 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.
if (GetLocalInt(OBJECT_SELF,"iAmInUse")!=0)
{
FloatingTextStringOnCreature("You must wait for this batch of ore to finish smelting..",oPC,FALSE);
CopyItem(oItem,oPC,TRUE);
DestroyObject(oItem);
return;
}
iBaseItem = GetBaseItemType(oItem);
string sIngotResRef = "";
int iStackSize = 0;
int iMaxStack = 5;
string sSuccess = "";
if (GetStringLeft(sItemTag,3) != "ORE")
{
//Added Resmelt code 11-25-03 UOAbigail
if (iBaseItem==BASE_ITEM_ARMOR) iResmelt=1;
if (iBaseItem==BASE_ITEM_BASTARDSWORD) iResmelt=1;
if (iBaseItem==BASE_ITEM_BATTLEAXE) iResmelt=1;
if (iBaseItem==BASE_ITEM_CLUB) iResmelt=1;
if (iBaseItem==BASE_ITEM_DAGGER) iResmelt=1;
if (iBaseItem==BASE_ITEM_DIREMACE) iResmelt=1;
if (iBaseItem==BASE_ITEM_DOUBLEAXE) iResmelt=1;
if (iBaseItem==BASE_ITEM_GREATAXE) iResmelt=1;
if (iBaseItem==BASE_ITEM_GREATSWORD) iResmelt=1;
if (iBaseItem==BASE_ITEM_HALBERD) iResmelt=1;
if (iBaseItem==BASE_ITEM_HANDAXE) iResmelt=1;
if (iBaseItem==BASE_ITEM_HEAVYFLAIL) iResmelt=1;
if (iBaseItem==BASE_ITEM_HELMET) iResmelt=1;
if (iBaseItem==BASE_ITEM_KAMA) iResmelt=1;
if (iBaseItem==BASE_ITEM_KATANA) iResmelt=1;
if (iBaseItem==BASE_ITEM_KUKRI) iResmelt=1;
if (iBaseItem==BASE_ITEM_LARGESHIELD) iResmelt=1;
if (iBaseItem==BASE_ITEM_LIGHTFLAIL) iResmelt=1;
if (iBaseItem==BASE_ITEM_LIGHTHAMMER) iResmelt=1;
if (iBaseItem==BASE_ITEM_LIGHTMACE) iResmelt=1;
if (iBaseItem==BASE_ITEM_LONGSWORD) iResmelt=1;
if (iBaseItem==BASE_ITEM_MORNINGSTAR) iResmelt=1;
if (iBaseItem==BASE_ITEM_RAPIER) iResmelt=1;
if (iBaseItem==BASE_ITEM_SCIMITAR) iResmelt=1;
if (iBaseItem==BASE_ITEM_SCYTHE) iResmelt=1;
if (iBaseItem==BASE_ITEM_SHORTSPEAR) iResmelt=1;
if (iBaseItem==BASE_ITEM_SHORTSWORD) iResmelt=1;
if (iBaseItem==BASE_ITEM_SICKLE) iResmelt=1;
if (iBaseItem==BASE_ITEM_SMALLSHIELD) iResmelt=1;
if (iBaseItem==BASE_ITEM_TOWERSHIELD) iResmelt=1;
if (iBaseItem==BASE_ITEM_TWOBLADEDSWORD) iResmelt=1;
if (iBaseItem==BASE_ITEM_WARHAMMER) iResmelt=1;
if (iBaseItem==BASE_ITEM_THROWINGAXE)
{
iResmelt=1;
if (GetNumStackedItems(oItem)<50) iResmelt=3;
}
if (iBaseItem==BASE_ITEM_SHURIKEN)
{
iResmelt=1;
if (GetNumStackedItems(oItem)<50) iResmelt=3;
}
if (iBaseItem==BASE_ITEM_DART)
{
iResmelt=1;
if (GetNumStackedItems(oItem)<50) iResmelt=3;
}
if (iBaseItem==BASE_ITEM_BULLET)
{
iResmelt=1;
if (GetNumStackedItems(oItem)<50) iResmelt=3;
}
if (iResmelt==0)
{
CopyItem(oItem,oPC,TRUE);
FloatingTextStringOnCreature("You cannot smelt this item!",oPC,FALSE);
DestroyObject(oItem);
return;
}
if (iResmelt==3)
{
CopyItem(oItem,oPC,TRUE);
FloatingTextStringOnCreature("To prevent exploits you cannot smelt this item because it is not a full stack.",oPC,FALSE);
DestroyObject(oItem);
return;
}
}
//int iSmeltChance = GetTokenPair(oPC,14,2);
int iSmeltSkill = GetCampaignInt("UOACraft","iSmeltSkill",oPC);
int iSmeltChance = iSmeltSkill;
//int iSmeltSkill = iSmeltChance;
string sOre;
if (iSmeltChance <350)
{
iSmeltChance = GetAbilityScore(oPC,ABILITY_STRENGTH)*3;
iSmeltChance = iSmeltChance + GetAbilityScore(oPC,ABILITY_DEXTERITY) + GetAbilityScore(oPC,ABILITY_WISDOM);
iSmeltChance = iSmeltChance * 3;
if (iSmeltChance >350) iSmeltChance = 350;
if (iSmeltSkill > iSmeltChance) iSmeltChance = iSmeltSkill;
}
if (iResmelt==0)
{
if (sItemTag == "ORE_IRON")
{
if (iSmeltChance < 250) iSmeltChance = 250;
sIngotResRef = "ingot001";
sOre = "Iron";
}
if (sItemTag == "ORE_DULL")
{
if (iSmeltChance <650) iSmeltChance = 0;
sIngotResRef = "ingot002";
iSmeltChance = iSmeltChance - 100;
sOre = "Dull Copper";
}
if (sItemTag == "ORE_SHADOW")
{
if (iSmeltChance <700) iSmeltChance = 0;
sIngotResRef = "ingot003";
iSmeltChance = iSmeltChance - 150;
sOre = "Shadow Iron";
}
if (sItemTag == "ORE_COPPER")
{
if (iSmeltChance <750) iSmeltChance = 0;
sIngotResRef = "ingot004";
iSmeltChance = iSmeltChance - 200;
sOre = "Copper";
}
if (sItemTag == "ORE_BRONZE")
{
if (iSmeltChance <800) iSmeltChance = 0;
sIngotResRef = "ingot005";
iSmeltChance = iSmeltChance - 250;
sOre = "Bronze";
}
if (sItemTag == "ORE_GOLD")
{
if (iSmeltChance <850) iSmeltChance = 0;
sIngotResRef = "ingot006";
iSmeltChance = iSmeltChance - 300;
sOre = "Gold";
}
if (sItemTag == "ORE_AGAPITE")
{
if (iSmeltChance <900) iSmeltChance = 0;
sIngotResRef = "ingot007";
iSmeltChance = iSmeltChance - 350;
sOre = "Agapite";
}
if (sItemTag == "ORE_VERITE")
{
if (iSmeltChance <950) iSmeltChance = 0;
sIngotResRef = "ingot008";
iSmeltChance = iSmeltChance - 400;
sOre = "Verite";
}
if (sItemTag == "ORE_VALORITE")
{
if (iSmeltChance <990) iSmeltChance = 0;
sIngotResRef = "ingot009";
iSmeltChance = iSmeltChance - 450;
sOre = "Valorite";
}
if (sItemTag == "ORE_SILVER")
{
if (iSmeltChance <800) iSmeltChance = 0;
sIngotResRef = "ingot010";
iSmeltChance = iSmeltChance - 250;
sOre = "Silver";
}
if (sItemTag == "ORE_MITHRIL")
{
if (iSmeltChance <950) iSmeltChance = 0;
sIngotResRef = "ingot011";
iSmeltChance = iSmeltChance - 400;
sOre = "Mithril";
}
if (sItemTag == "ORE_ADAMANTITE")
{
if (iSmeltChance <990) iSmeltChance = 0;
sIngotResRef = "ingot012";
iSmeltChance = iSmeltChance - 450;
sOre = "Adamantite";
}
if (sItemTag == "ORE_PLATINUM")
{
if (iSmeltChance <900) iSmeltChance = 0;
sIngotResRef = "ingot013";
iSmeltChance = iSmeltChance - 350;
sOre = "Platinum";
}
}
//Resmelt checks
if (iResmelt==1)
{
//iSmeltChance = iSmeltChance -
sIngotResRef = GetIngotType(oItem, oPC);
//sResmeltMessage = "Ingot: "+sIngotResRef+" MAX: "+IntToString(GetLocalInt(oPC,"iMaxIngot"))
// +" Min Skill: "+IntToString(GetLocalInt(oPC,"iSmeltMinimum"))
// +" Penalty: "+IntToString(GetLocalInt(oPC,"iSmeltPenalty"));
//SendMessageToPC(oPC,sResmeltMessage);
if (sIngotResRef=="INVALID")
{
SendMessageToPC(oPC,"You cannot smelt this item!");
CopyItem(oItem,oPC,TRUE);
DestroyObject(oItem,0.1);
return;
}
if (iSmeltChance<GetLocalInt(oPC,"iSmeltMinimum")) iSmeltChance=0;
iSmeltChance = iSmeltChance - GetLocalInt(oPC,"iSmeltPenalty");
iMaxResmelt = GetLocalInt(oPC,"iMaxIngot");
DeleteLocalInt(oPC,"iSmeltMininum");
DeleteLocalInt(oPC,"iSmeltPenalty");
DeleteLocalInt(oPC,"iMaxIngot");
//GetIngotQty(oItem)
}
if (iSmeltChance < 1)
{
if (iResmelt==0)
{
FloatingTextStringOnCreature("You have no idea how to smelt this ore.",oPC,FALSE);
}
else
{
FloatingTextStringOnCreature("You have no idea how to resmelt this metal type.",oPC,FALSE);
}
CopyItem(oItem,oPC,TRUE);
DestroyObject(oItem);
return;
}
string sFlame= "";
int iHeat = GetLocalInt(oPC,"iHeat");
float fAngleToVector = 0.4;
switch(iHeat)
{
case 1:
{
fAngleToVector = 0.5;
iMaxStack = iMaxStack+3;
if (iResmelt==0)iSmeltChance = iSmeltChance-250;
if (iSmeltChance <1) iSmeltChance=1;
sFlame = "plc_flamesmall";
break;
}
case 2:
{
fAngleToVector = 0.6;
iMaxStack = iMaxStack+1;
if (iResmelt==0)iSmeltChance = iSmeltChance-100;
if (iSmeltChance <1) iSmeltChance=1;
sFlame = "plc_flamesmall";
break;
}
case 4:
{
fAngleToVector = 0.2;
iMaxStack = iMaxStack-2;
if (iResmelt==0)iSmeltChance = iSmeltChance+100;
sFlame = "plc_flamelarge";
break;
}
case 5:
{
fAngleToVector = 0.3;
iMaxStack = iMaxStack -3;
if (iResmelt==0)iSmeltChance = iSmeltChance+250;
sFlame = "plc_flamelarge";
}
default:
{
sFlame = "plc_flamemedium";
break;
}
}
location lSelf = GetLocation(OBJECT_SELF);
float fSelf = GetFacing(OBJECT_SELF);
vector vSelf = GetPosition(OBJECT_SELF);
object oArea = GetArea(OBJECT_SELF);
vector vFire;
int vDirection;
vFire = vSelf + (AngleToVector(fSelf) * fAngleToVector);
location lFire = Location(oArea,vFire,fSelf);
object oFire = CreatePlaceable(sFlame, lFire, 6.0);
AssignCommand(oPC,PlaySound("al_cv_firebowl1"));
AssignCommand(oPC,PlaySound("as_cv_mineshovl1"));
AssignCommand(oPC,PlaySound("al_na_waterpipe1"));
AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0,4.0));
PlayAnimation(ANIMATION_PLACEABLE_ACTIVATE,1.0,6.0);
SetLocalInt(OBJECT_SELF,"iAmInUse",99);
DelayCommand(7.0,SetLocalInt(OBJECT_SELF,"iAmInUse",0));
//ensure at least 1 respawn 10 minutes after used...
//this is to prevent a broken placeable that is used, with a 'in use' delay
//which would cancel the respawn
if (GetLocalInt(OBJECT_SELF,"iAmSetToRespawn")!=99)
{
SetLocalInt(OBJECT_SELF,"iAmSetToRespawn",99);
DelayCommand(600.0,ExecuteScript("_onclose_clear",OBJECT_SELF));
}
if (iResmelt!=0)
{
DestroyObject(oItem);
if (Random(500)<=iSmeltChance)
{
iMaxResmelt2 = iMaxResmelt/2;
if (iMaxResmelt2<1) iMaxResmelt2=1;
iMaxResmelt3 = iMaxResmelt2/2;
if (iMaxResmelt3>0)
{
for (iMaxResmelt3; iMaxResmelt3>0; iMaxResmelt3--)
{
if (Random(1000)<= (iSmeltChance-(iMaxResmelt3*50))) iMaxResmelt2++;
}
}
if (iMaxResmelt2<1) iMaxResmelt2=1;
sResmeltMessage = "You successfully resmelt the item and recover "+IntToString(iMaxResmelt2)+" ingot";
if (iMaxResmelt2>1) sResmeltMessage = sResmeltMessage+"s";
sResmeltMessage=sResmeltMessage+".";
DelayCommand(5.8,PlaySound("as_cv_minepick2"));
DelayCommand(5.0,AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_TALK_PLEADING,1.0,1.0)));
DelayCommand(6.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_HIT_FIRE,FALSE),OBJECT_SELF,2.0));
DelayCommand(6.8,FloatingTextStringOnCreature(sResmeltMessage,oPC,FALSE));
DelayCommand(6.9,CreateAnObject(sIngotResRef,oPC,iMaxResmelt2));
return;
}
else
{
DelayCommand(5.5,AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_PAUSE_TIRED,1.0,1.0)));
DelayCommand(6.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_HIT_ACID,FALSE),OBJECT_SELF,2.0));
DelayCommand(5.8,PlaySound("as_na_steamshrt2"));
DelayCommand(7.0,FloatingTextStringOnCreature("You burn away the metal into useless slag!",oPC,FALSE));
return;
}
}
int iRandom = 0;
int iSuccess = 0;
int iSkillGain = 0;
if (Random(1000) <= iSmeltChance)
{
iSuccess = 1;
iStackSize =1;
iMaxStack--;
if (iMaxStack >0)
{
for (iMaxStack; iMaxStack >0; iMaxStack--)
{
if (Random(1000) <= iSmeltChance) iStackSize++;
}
}
DelayCommand(5.0,AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_TALK_PLEADING,1.0,1.0)));
DelayCommand(6.0,CreateAnObject(sIngotResRef,oPC,iStackSize));
sSuccess = "You successfully smelt the ore into "+IntToString(iStackSize)+" "+sOre+" Ingot";
if (iStackSize ==1)
{
sSuccess = sSuccess+".";
}
else
{
sSuccess = sSuccess+"s.";
}
DelayCommand(6.0,FloatingTextStringOnCreature(sSuccess,oPC,FALSE));
DelayCommand(5.8,PlaySound("as_cv_minepick2"));
DelayCommand(6.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_HIT_FIRE,FALSE),OBJECT_SELF,2.0));
}
else
{
DelayCommand(5.0,AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_PAUSE_TIRED,1.0,1.0)));
DelayCommand(6.0,FloatingTextStringOnCreature("You burn away the ore and are left with nothing Useful.",oPC,FALSE));
DelayCommand(5.8,PlaySound("as_na_steamshrt2"));
DelayCommand(6.0,ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_HIT_ACID,FALSE),OBJECT_SELF,2.0));
}
DelayCommand(6.0,DestroyObject(oItem));
if (iSuccess == 1)
{
iRandom = Random(1000);
if (iRandom >= iSmeltSkill)
{
if (d10(1)+1 >= iSmeltChance/100) iSkillGain = 1;
}
}
//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);
DelayCommand(10.0,SetLocalInt(oPC,"iSkillGain",0));
}
}
if (iSkillGain ==1)
{
string sOldSkill = "";
string sOldSkill2 = "";
iSmeltSkill++;
sOldSkill2 = IntToString(iSmeltSkill);
sOldSkill = "."+GetStringRight(sOldSkill2,1);
if (iSmeltSkill > 9)
{
sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
}
else
{
sOldSkill = "0"+sOldSkill;
}
if (iSmeltSkill <= 1000)
{
//DelayCommand(6.0,SetTokenPair(oPC,14,2,iSmeltSkill));
DelayCommand(6.0,SetCampaignInt("UOACraft","iSmeltSkill",iSmeltSkill,oPC));
DelayCommand(6.0,SendMessageToPC(oPC,"==================================="));
DelayCommand(6.0,SendMessageToPC(oPC,"Your skill in smelting has gone up!"));
DelayCommand(6.0,SendMessageToPC(oPC,"Current smelting skill : "+ sOldSkill+"%"));
DelayCommand(6.0,SendMessageToPC(oPC,"==================================="));
if (GetLocalInt(GetModule(),"_UOACraft_XP")!=0) DelayCommand(5.9,GiveXPToCreature(oPC,GetLocalInt(GetModule(),"_UOACraft_XP")));
}
}
}
void CreateAnObject(string sResource, object oPC, int iStackSize)
{
if (iStackSize<=10)
{
CreateItemOnObject(sResource,oPC,iStackSize);
}
else
{
iStackSize=iStackSize-10;
CreateItemOnObject(sResource,oPC,10);
DelayCommand(0.5,CreateAnObject(sResource,oPC,iStackSize));
}
return;
}
object CreatePlaceable(string sObject, location lPlace, float fDuration)
{
object oPlaceable = CreateObject(OBJECT_TYPE_PLACEABLE,sObject,lPlace,FALSE);
if (fDuration != 0.0)
DestroyObject(oPlaceable,fDuration);
return oPlaceable;
}
string GetIngotType(object oItem, object oPC)
{
string sIngotResRef;
int iValid=0;
int iMaxIngot;
int iBaseItem = GetBaseItemType(oItem);
int iSmeltPenalty;
int iSmeltMinimum;
string sItemTag = GetTag(oItem);
string sItemTagCut = GetStringRight(sItemTag,GetStringLength(sItemTag)-5);
//SendMessageToPC(oPC,sItemTagCut);
sIngotResRef = "INVALID";
if (GetStringLeft(sItemTagCut,2)=="N_")
{
sItemTagCut = GetStringRight(sItemTagCut,GetStringLength(sItemTagCut)-2);
//SendMessageToPC(oPC,sItemTagCut);
}
else
{
if (GetStringLeft(sItemTagCut,3)=="EX_")
{
sItemTagCut = GetStringRight(sItemTagCut,GetStringLength(sItemTagCut)-3);
//SendMessageToPC(oPC,sItemTagCut);
}
else
{
if (GetStringLeft(sItemTagCut,5)=="POOR_")
{
sItemTagCut = GetStringRight(sItemTagCut,GetStringLength(sItemTagCut)-5);
//SendMessageToPC(oPC,sItemTagCut);
}
else
{
if (sItemTag=="WEAP_POO_BASTARDSWORD_ADAMANTITE")
{
sItemTagCut="BASTARDSWORD_ADAMANTITE";
iValid=1;
}
if (iValid==0)
{
sIngotResRef="INVALID2";
}
}
}
}
/* -- Commented out to try base item types for ID
if (GetStringLeft(sItemTagCut,7)=="BANDED_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="FULLPLATE_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="HALFPLATE_") sItemTag="";
if (GetStringLeft(sItemTagCut,11)=="SPLINTMAIL_") sItemTag="";
if (GetStringLeft(sItemTagCut,12)=="BREASTPLATE_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="CHAINMAIL_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="SCALEMAIL_") sItemTag="";
if (GetStringLeft(sItemTagCut,11)=="CHAINSHIRT_") sItemTag="";
if (GetStringLeft(sItemTagCut,9)=="RINGMAIL_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="HORSEHAIR_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="POTHELMET_") sItemTag="";
if (GetStringLeft(sItemTagCut,6)=="SPIKE_") sItemTag="";
if (GetStringLeft(sItemTagCut,5)=="STAG_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="WINGED_") sItemTag="";
if (GetStringLeft(sItemTagCut,6)=="LARGE_") sItemTag="";
if (GetStringLeft(sItemTagCut,6)=="SMALL_") sItemTag="";
if (GetStringLeft(sItemTagCut,6)=="TOWER_") sItemTag="";
if (GetStringLeft(sItemTagCut,8)=="HANDAXE_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="BATTLEAXE_") sItemTag="";
if (GetStringLeft(sItemTagCut,13)=="BASTARDSWORD_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="DAGGER_") sItemTag="";
if (GetStringLeft(sItemTagCut,11)=="GREATSWORD_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="LONGSWORD_") sItemTag="";
if (GetStringLeft(sItemTagCut,11)=="SHORTSWORD_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="KATANA_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="RAPIER_") sItemTag="";
if (GetStringLeft(sItemTagCut,9)=="SCIMITAR_") sItemTag="";
if (GetStringLeft(sItemTagCut,9)=="HVYFLAIL_") sItemTag="";
if (GetStringLeft(sItemTagCut,8)=="LTFLAIL_") sItemTag="";
if (GetStringLeft(sItemTagCut,9)=="LTHAMMER_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="WARHAMMER_") sItemTag="";
if (GetStringLeft(sItemTagCut,5)=="MACE_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="MORNINGSTAR_") sItemTag="";
if (GetStringLeft(sItemTagCut,9)=="DIREMACE_") sItemTag="";
if (GetStringLeft(sItemTagCut,12)=="2BLADESWORD_") sItemTag="";
if (GetStringLeft(sItemTagCut,10)=="DOUBLEAXE_") sItemTag="";
if (GetStringLeft(sItemTagCut,5)=="KAMA_") sItemTag="";
if (GetStringLeft(sItemTagCut,6)=="KUKRI_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="SICKLE_") sItemTag="";
if (GetStringLeft(sItemTagCut,8)=="HALBERD_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="SCYTHE_") sItemTag="";
if (GetStringLeft(sItemTagCut,6)=="SPEAR_") sItemTag="";
if (GetStringLeft(sItemTagCut,5)=="DART_") sItemTag="";
if (GetStringLeft(sItemTagCut,9)=="SHURIKEN_") sItemTag="";
if (GetStringLeft(sItemTagCut,12)=="THROWINGAXE_") sItemTag="";
if (GetStringLeft(sItemTagCut,7)=="BULLET_") sItemTag="";
----- Commented out to try base item types instead of tags for ID*/
//If (GetStringLeft(sItemTagCut,7)=="BANDED_") sItemTag="";
//if (iBaseItem==BASE_ITEM_ARMOR) iMaxIngot=1;
//SendMessageToPC(oPC,sItemTagCut);
if (GetStringLeft(sItemTagCut,7)=="BANDED_") iMaxIngot=14;
if (GetStringLeft(sItemTagCut,10)=="FULLPLATE_") iMaxIngot=30;
if (GetStringLeft(sItemTagCut,10)=="HALFPLATE_") iMaxIngot=20;
if (GetStringLeft(sItemTagCut,11)=="SPLINTMAIL_") iMaxIngot=14;
if (GetStringLeft(sItemTagCut,12)=="BREASTPLATE_") iMaxIngot=10;
if (GetStringLeft(sItemTagCut,10)=="CHAINMAIL_") iMaxIngot=10;
if (GetStringLeft(sItemTagCut,10)=="SCALEMAIL_") iMaxIngot=8;
if (GetStringLeft(sItemTagCut,11)=="CHAINSHIRT_") iMaxIngot=8;
if (GetStringLeft(sItemTagCut,9)=="RINGMAIL_") iMaxIngot=6;
if (iBaseItem==BASE_ITEM_BASTARDSWORD) iMaxIngot=7;
if (iBaseItem==BASE_ITEM_BATTLEAXE) iMaxIngot=7;
//if (iBaseItem==BASE_ITEM_CLUB) iMaxIngot=1;
if (iBaseItem==BASE_ITEM_DAGGER) iMaxIngot=2;
if (iBaseItem==BASE_ITEM_DIREMACE) iMaxIngot=15;
if (iBaseItem==BASE_ITEM_DOUBLEAXE) iMaxIngot=15;
//if (iBaseItem==BASE_ITEM_GREATAXE) iMaxIngot=1;
if (iBaseItem==BASE_ITEM_GREATSWORD) iMaxIngot=10;
if (iBaseItem==BASE_ITEM_HALBERD) iMaxIngot=20;
if (iBaseItem==BASE_ITEM_HANDAXE) iMaxIngot=3;
if (iBaseItem==BASE_ITEM_HEAVYFLAIL) iMaxIngot=7;
if (iBaseItem==BASE_ITEM_HELMET) iMaxIngot=4; //All helmets the same req.
if (iBaseItem==BASE_ITEM_KAMA) iMaxIngot=3;
if (iBaseItem==BASE_ITEM_KATANA) iMaxIngot=9;
if (iBaseItem==BASE_ITEM_KUKRI) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_LARGESHIELD) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_LIGHTFLAIL) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_LIGHTHAMMER) iMaxIngot=5;
if (iBaseItem==BASE_ITEM_LIGHTMACE) iMaxIngot=5;
if (iBaseItem==BASE_ITEM_LONGSWORD) iMaxIngot=6;
if (iBaseItem==BASE_ITEM_MORNINGSTAR) iMaxIngot=6;
if (iBaseItem==BASE_ITEM_RAPIER) iMaxIngot=5;
if (iBaseItem==BASE_ITEM_SCIMITAR) iMaxIngot=6;
if (iBaseItem==BASE_ITEM_SCYTHE) iMaxIngot=20;
if (iBaseItem==BASE_ITEM_SHORTSPEAR) iMaxIngot=3;
if (iBaseItem==BASE_ITEM_SHORTSWORD) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_SICKLE) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_SMALLSHIELD) iMaxIngot=2;
if (iBaseItem==BASE_ITEM_TOWERSHIELD) iMaxIngot=10;
if (iBaseItem==BASE_ITEM_TWOBLADEDSWORD) iMaxIngot=25;
if (iBaseItem==BASE_ITEM_WARHAMMER) iMaxIngot=9;
if (iBaseItem==BASE_ITEM_THROWINGAXE) iMaxIngot=6;
if (iBaseItem==BASE_ITEM_SHURIKEN) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_DART) iMaxIngot=4;
if (iBaseItem==BASE_ITEM_BULLET) iMaxIngot=10;
if (GetStringRight(sItemTag,7)=="_NORMAL")
{
iSmeltPenalty=0;
iSmeltMinimum=250;
sIngotResRef= "ingot001";
}
if (GetStringRight(sItemTag,5)=="_DULL")
{
iSmeltPenalty=100;
iSmeltMinimum=650;
sIngotResRef= "ingot002";
}
if (GetStringRight(sItemTag,7)=="_SHADOW")
{
iSmeltPenalty=150;
iSmeltMinimum=700;
sIngotResRef= "ingot003";
}
if (GetStringRight(sItemTag,7)=="_COPPER")
{
iSmeltPenalty=200;
iSmeltMinimum=750;
sIngotResRef= "ingot004";
}
if (GetStringRight(sItemTag,7)=="_BRONZE")
{
iSmeltPenalty=250;
iSmeltMinimum=800;
sIngotResRef= "ingot005";
}
if (GetStringRight(sItemTag,5)=="_GOLD")
{
iSmeltPenalty=300;
iSmeltMinimum=850;
sIngotResRef= "ingot006";
}
if (GetStringRight(sItemTag,8)=="_AGAPITE")
{
iSmeltPenalty=350;
iSmeltMinimum=900;
sIngotResRef= "ingot007";
}
if (GetStringRight(sItemTag,7)=="_VERITE")
{
iSmeltPenalty=400;
iSmeltMinimum=950;
sIngotResRef= "ingot008";
}
if (GetStringRight(sItemTag,9)=="_VALORITE")
{
iSmeltPenalty=450;
iSmeltMinimum=990;
sIngotResRef= "ingot009";
}
if (GetStringRight(sItemTag,7)=="_SILVER")
{
iSmeltPenalty=250;
iSmeltMinimum=800;
sIngotResRef= "ingot010";
}
if (GetStringRight(sItemTag,9)=="_PLATINUM")
{
iSmeltPenalty=350;
iSmeltMinimum=900;
sIngotResRef= "ingot013";
}
if (GetStringRight(sItemTag,8)=="_MITHRIL")
{
iSmeltPenalty=400;
iSmeltMinimum=950;
sIngotResRef= "ingot011";
}
if (GetStringRight(sItemTag,11)=="_ADAMANTITE")
{
iSmeltPenalty=450;
iSmeltMinimum=990;
sIngotResRef= "ingot012";
}
//Normal quality iron items have nwn default tags
//SendMessageToPC(oPC,"Checkpoint 1: "+sIngotResRef);
if (sIngotResRef=="INVALID2")
{
if (sItemTag=="NW_AARCL011")
{
sIngotResRef="ingot001"; //banded mail
iMaxIngot=14;
}
if (sItemTag=="NW_AARCL007")
{
sIngotResRef="ingot001"; //Full Plate
iMaxIngot=30;
}
if (sItemTag=="NW_AARCL006")
{
sIngotResRef="ingot001"; //Half Plate
iMaxIngot=20;
}
if (sItemTag=="NW_AARCL005")
{
sIngotResRef="ingot001"; //Splint Mail
iMaxIngot=14;
}
if (sItemTag=="NW_AARCL010")
{
sIngotResRef="ingot001"; //Breast Plate
iMaxIngot=10;
}
if (sItemTag=="NW_AARCL004")
{
sIngotResRef="ingot001"; //Chainmail
iMaxIngot=10;
}
if (sItemTag=="NW_AARCL003")
{
sIngotResRef="ingot001"; //Scale Mail
iMaxIngot=8;
}
if (sItemTag=="NW_AARCL012")
{
sIngotResRef="ingot001"; //Chain Shirt
iMaxIngot=8;
}
if (sItemTag=="NW_WAMBU001") sIngotResRef="ingot001"; //bullet
if (sItemTag=="NW_ARHE004") sIngotResRef="ingot001"; //Horse Hair Helmet
if (sItemTag=="NW_ARHE001") sIngotResRef="ingot001"; //Pot Helmet
if (sItemTag=="NW_ARHE002") sIngotResRef="ingot001"; //Spike Helmet
if (sItemTag=="NW_ARHE005") sIngotResRef="ingot001"; //Stag Helmet
if (sItemTag=="NW_ARHE003") sIngotResRef="ingot001"; //Winged Helmet
if (sItemTag=="NW_ASHLW001") sIngotResRef="ingot001"; //Large Shield
if (sItemTag=="NW_ASHSW001") sIngotResRef="ingot001"; //Small Shield
if (sItemTag=="NW_ASHTO001") sIngotResRef="ingot001"; //Tower Shield
if (sItemTag=="NW_WAXHN001") sIngotResRef="ingot001"; //Handaxe
if (sItemTag=="NW_WAXBT001") sIngotResRef="ingot001"; //Battle Axe
if (sItemTag=="NW_WSWBS001") sIngotResRef="ingot001"; //Bastard Sword
if (sItemTag=="NW_WSWDG001") sIngotResRef="ingot001"; //Dagger
if (sItemTag=="NW_WSWGS001") sIngotResRef="ingot001"; //Greatsword
if (sItemTag=="NW_WSWLS001") sIngotResRef="ingot001"; //Longsword
if (sItemTag=="NW_WSWSS001") sIngotResRef="ingot001"; //Shortsword
if (sItemTag=="NW_WSWKA001") sIngotResRef="ingot001"; //Katana
if (sItemTag=="NW_WSWRP001") sIngotResRef="ingot001"; //Rapier
if (sItemTag=="NW_WSWSC001") sIngotResRef="ingot001"; //Scimitar
if (sItemTag=="NW_WBLFH001") sIngotResRef="ingot001"; //Hvy Flail
if (sItemTag=="NW_WBLFL001") sIngotResRef="ingot001"; //Lt Flail
if (sItemTag=="NW_WBLHL001") sIngotResRef="ingot001"; //Lt Hammer
if (sItemTag=="NW_WBLHW001") sIngotResRef="ingot001"; //Warhammer
if (sItemTag=="NW_WBLML001") sIngotResRef="ingot001"; //Mace
if (sItemTag=="NW_WBLMS001") sIngotResRef="ingot001"; //Morningstar
if (sItemTag=="NW_WDBMA001") sIngotResRef="ingot001"; //Dire Mace
if (sItemTag=="NW_WDBSW001") sIngotResRef="ingot001"; //Two-Bladed Sword
if (sItemTag=="NW_WDBAX001") sIngotResRef="ingot001"; //Double Axe
if (sItemTag=="NW_WSPKA001") sIngotResRef="ingot001"; //Kama
if (sItemTag=="NW_WSPKU001") sIngotResRef="ingot001"; //Kukri
if (sItemTag=="NW_WSPSC001") sIngotResRef="ingot001"; //Sickle
if (sItemTag=="NW_WPLHB001") sIngotResRef="ingot001"; //Halberd
if (sItemTag=="NW_WPLSC001") sIngotResRef="ingot001"; //Scythe
if (sItemTag=="NW_WPLSS001") sIngotResRef="ingot001"; //Spear
if (sItemTag=="NW_WTHDT001") sIngotResRef="ingot001"; //Dart
if (sItemTag=="NW_WTHSH001") sIngotResRef="ingot001"; //Shuriken
if (sItemTag=="NW_WTHAX001") sIngotResRef="ingot001"; //Throwing Axe
//SendMessageToPC(oPC,"Checkpoint 2: "+sIngotResRef);
//SendMessageToPC(oPC,"Ingots: "+IntToString(iMaxIngot));
//SendMessageToPC(oPC,"TAG: "+sItemTag);
//if (sItemTag=="") sIngotResRef="ingot001"; //
if (sIngotResRef=="INVALID2")
{
return "INVALID";
}
else
{
iSmeltPenalty=0;
iSmeltMinimum=250;
}
}
if (iMaxIngot==0) return "INVALID";
//filter out non-smithy items that end in _NORMAL
if (sIngotResRef=="ingot001")
{
iValid = 0;
string sTagLeft = GetStringLeft(sItemTag,5);
if (sTagLeft=="WEAP_") iValid=1;
if (sTagLeft=="ARMR_") iValid=1;
if (sTagLeft=="SHLD_") iValid=1;
if (sTagLeft=="HELM_") iValid=1;
if (GetStringLeft(sItemTag,3)=="NW_") iValid=1;
if (sTagLeft=="ITEM_")
{
if (GetStringLeft(sItemTag,16)=="ITEM_N_ARROWHEAD") iValid=1;
if (GetStringLeft(sItemTag,17)=="ITEM_EX_ARROWHEAD") iValid=1;
if (GetStringLeft(sItemTag,19)=="ITEM_POOR_ARROWHEAD") iValid=1;
if (GetStringLeft(sItemTag,14)=="ITEM_N_BOLTTIP") iValid=1;
if (GetStringLeft(sItemTag,15)=="ITEM_EX_BOLTTIP") iValid=1;
if (GetStringLeft(sItemTag,17)=="ITEM_POOR_BOLTTIP") iValid=1;
if (GetStringLeft(sItemTag,16)=="ITEM_N_METALSTUD") iValid=1;
if (GetStringLeft(sItemTag,17)=="ITEM_EX_METALSTUD") iValid=1;
if (GetStringLeft(sItemTag,19)=="ITEM_POOR_METALSTUD") iValid=1;
}
if (iValid==0) sIngotResRef="INVALID";
//SendMessageToPC(oPC,"Checkpoint 3: "+sIngotResRef);
}
SetLocalInt(oPC,"iMaxIngot",iMaxIngot);
SetLocalInt(oPC,"iSmeltMinimum",iSmeltMinimum);
SetLocalInt(oPC,"iSmeltPenalty",iSmeltPenalty);
return sIngotResRef;
}
Reference in New Issue View Git Blame Copy Permalink