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
GetOffMyYarn 69879d6957 Areas and Fixes 
Added CCOH and missing areas
Changed some areas to be craftable,
Fixed some on death issues,
Fixed the Gaurd
2024-08-30 11:38:44 -04:00

914 lines
31 KiB
Plaintext
Raw Blame History

//#include "_persist_01a"
#include "aps_include"
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 = GetPersistentInt(oPC,"iSmeltSkill","UOACraft");
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,SetPersistentInt(oPC,"iSmeltSkill",iSmeltSkill,0,"UOACraft"));
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 sResRef = GetResRef(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=9;
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")
{
if ( (sResRef == "wblhl037") || (sResRef == "wblhl038") || (sResRef == "wblhl039") ) //platinum hammer
{
iSmeltPenalty=450;
iSmeltMinimum=990;
sIngotResRef= "ingot013";
}
else
{
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