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_cook.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

601 lines
16 KiB
Plaintext
Raw Blame History

#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);
object CreatePlaceable(string sObject, location lPlace, float fDuration);
void main()
{
object oPC = GetLastDisturbed();
object oSelf = OBJECT_SELF;
object oItem = GetInventoryDisturbItem();
string sItemTag = GetTag(oItem);
string sTagSelf = GetTag(oSelf);
string sItemResRef;
int iCookSkill = GetCampaignInt("UOACraft","iCookSkill",oPC);
int iCookChance = iCookSkill;
int iDifficulty;
string sComponent1;
string sComponent2;
string sComponent3;
string sComponent1Name;
string sComponent2Name;
string sComponent3Name;
string sComponentResRef;
int iComponent1;
int iComponent2;
int iComponent3;
int iComponent1Stackable;
int iComponent2Stackable;
int iComponent3Stackable;
int iStackSize;
int iRandom;
int iSkillGain;
object oTemp;
string sSuccess;
string sFail;
int iItemStackSize=1;
if (iCookChance<350)
{
iCookChance = GetAbilityScore(oPC,ABILITY_WISDOM)*5;
iCookChance = iCookChance+(GetAbilityScore(oPC,ABILITY_DEXTERITY)*3);
iCookChance = iCookChance+(GetAbilityScore(oPC,ABILITY_CHARISMA)*2);
iCookChance = iCookChance*3;
if (iCookChance>350)iCookChance=350;
if (iCookSkill > iCookChance) iCookChance=iCookSkill;
}
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 cook by selecting a recipe.",oPC,FALSE);
return;
}
if (GetLocalInt(oSelf,"iAmInUse")!=0)
{
FloatingTextStringOnCreature("You can only cook one thing at a time!",oPC,FALSE);
CopyObject(oItem,GetLocation(oSelf),oSelf,GetTag(oItem));
DestroyObject(oItem);
return;
}
int iRecipeNumber = StringToInt(GetStringRight(sItemTag,3));
sItemResRef = "food_"+GetStringRight(sItemTag,3);
iComponent1 = 1;
iComponent2 = 0;
iComponent3 = 0;
sSuccess = "The meat cooks to a tender juiciness.";
sFail = "You have burned the meat to a crisp!";
switch (iRecipeNumber)
{
case 1: //BBQ Ancient Dire Bear Meat
{
iDifficulty = 500;
sComponent1 = "MEAT_ANCIENTDIREBEAR";
sComponent1Name = "raw ancient dire bear meat";
break;
}
case 2:
{
sComponent1 = "MEAT_BADGER";
sComponent1Name = "raw badger meat";
break;
}
case 3:
{
sComponent1 = "MEAT_BAT";
sComponent1Name = "raw bat meat";
break;
}
case 4:
{
iDifficulty = 350;
sComponent1 = "MEAT_BLACKBEAR";
sComponent1Name = "raw black bear meat";
break;
}
case 5:
{
iDifficulty = 400;
sComponent1 = "MEAT_BROWNBEAR";
sComponent1Name = "raw brown bear meat";
break;
}
case 6:
{
iDifficulty = 350;
sComponent1 = "MEAT_COUGAR";
sComponent1Name = "raw cougar meat";
break;
}
case 7:
{
sComponent1 = "MEAT_COW";
sComponent1Name = "raw cow meat";
break;
}
case 8:
{
sComponent1 = "MEAT_CRAGCAT";
sComponent1Name = "raw crag cat meat";
iDifficulty = 350;
break;
}
case 9:
{
sComponent1 = "MEAT_DEER";
sComponent1Name = "raw deer meat";
break;
}
case 10:
{
sComponent1 = "MEAT_DIREBADGER";
sComponent1Name = "raw dire badger meat";
break;
}
case 11:
{
sComponent1 = "MEAT_DIREBEAR";
sComponent1Name = "raw dire bear meat";
iDifficulty = 450;
break;
}
case 12:
{
sComponent1 = "MEAT_DIRERAT";
sComponent1Name = "raw dire rat meat";
break;
}
case 13:
{
sComponent1 = "MEAT_DIRETIGER";
sComponent1Name = "raw dire tiger meat";
iDifficulty = 450;
break;
}
case 14:
{
sComponent1 = "MEAT_DIREWOLF";
sComponent1Name = "raw dire wolf meat";
iDifficulty = 375;
break;
}
case 15:
{
sComponent1 = "MEAT_DOG";
sComponent1Name = "raw dog meat";
break;
}
case 16:
{
sComponent1 = "MEAT_GRIZZLYBEAR";
sComponent1Name = "raw grizzly bear meat";
iDifficulty = 425;
break;
}
case 17:
{
sComponent1 = "MEAT_JAGUAR";
sComponent1Name = "raw jaguar meat";
iDifficulty = 350;
break;
}
case 18:
{
sComponent1 = "MEAT_LEOPARD";
sComponent1Name = "raw leopard meat";
iDifficulty = 375;
break;
}
case 19:
{
sComponent1 = "MEAT_LION";
sComponent1Name = "raw lion meat";
iDifficulty = 400;
break;
}
case 20:
{
sComponent1 = "MEAT_MALARPANTHER";
sComponent1Name = "raw malar panther meat";
iDifficulty = 475;
break;
}
case 21:
{
sComponent1 = "MEAT_OX";
sComponent1Name = "raw ox meat";
break;
}
case 22:
{
sComponent1 = "MEAT_PANTHER";
sComponent1Name = "raw panther meat";
iDifficulty = 300;
break;
}
case 23:
{
sComponent1 = "MEAT_POLARBEAR";
sComponent1Name = "raw polar bear meat";
iDifficulty = 450;
break;
}
case 24:
{
sComponent1 = "MEAT_RAT";
sComponent1Name = "raw rat meat";
break;
}
case 25:
{
sComponent1 = "MEAT_WHITESTAG";
sComponent1Name = "raw white stag meat";
break;
}
case 26:
{
sComponent1 = "MEAT_WINTERWOLF";
sComponent1Name = "raw winter wolf meat";
iDifficulty = 400;
break;
}
case 27:
{
sComponent1 = "MEAT_WOLF";
sComponent1Name = "raw wolf meat";
break;
}
case 28:
{
sComponent1 = "MEAT_WORG";
sComponent1Name = "raw worg meat";
iDifficulty = 350;
break;
}
case 29:
{
iComponent1Stackable=1;
sComponent1 = "MEAT_RawFishFillet";
sComponent1Name = "raw fish fillets";
sSuccess = "The fillet cooks to a tender juiciness.";
sFail = "You have burned the fillet to a crisp!";
//iDifficulty = ;
break;
}
case 30:
{
sComponent1 = "MEAT_WOLLYRAZORBACK";
sComponent1Name = "wooly razorback meat";
break;
}
case 31:
case 32:
case 33:
case 34:
case 35:
case 36:
case 37:
case 38:
case 39:
case 40:
default:
}
CopyObject(oItem,GetLocation(oSelf),oSelf,GetTag(oItem));
DestroyObject(oItem);
//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;
}
}
// Remove all components
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--)
{
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--)
{
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--)
{
GetNextItemPossessedBy(oPC,sComponent3);
}
}
}
SetLocalInt(oSelf,"iAmInUse",99);
DelayCommand(15.0,SetLocalInt(oSelf,"iAmInUse",0));
//Assign Animations
AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0,15.0));
location lSelf = GetLocation(OBJECT_SELF);
float fSelf = GetFacing(OBJECT_SELF)+180.0;
vector vSelf = GetPosition(OBJECT_SELF);
object oArea = GetArea(OBJECT_SELF);
vector vFire;
int vDirection;
location lFire;
object oFire;
if (GetStringRight(sTagSelf,1)=="1")
{
vFire = vSelf + (AngleToVector(fSelf) * 0.7);
lFire = Location(oArea,vFire,fSelf);
oFire = CreatePlaceable("plc_flamemedium", lFire, 14.3);
}
else
{
vFire = vSelf + (AngleToVector(fSelf) * 0.1);
lFire = Location(oArea,vFire,fSelf);
oFire = CreatePlaceable("plc_dustplume", lFire, 14.3);
}
DelayCommand(2.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_FIRE,FALSE),GetLocation(oFire),1.0));
DelayCommand(5.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPECIAL_PINK_ORANGE,FALSE),GetLocation(oFire),1.0));
DelayCommand(8.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPECIAL_RED_WHITE,FALSE),GetLocation(oFire),1.0));
DelayCommand(10.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPARKS_PARRY,FALSE),GetLocation(oFire),1.0));
DelayCommand(12.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_FIRE,FALSE),GetLocation(oFire),1.0));
DelayCommand(14.0,ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_SPECIAL_WHITE_ORANGE,FALSE),GetLocation(oFire),1.0));
switch (StringToInt(GetStringRight(sTagSelf,1)))
{
case 1: //Oven
{
PlaySound("al_cv_furnace1");
PlaySound("al_cv_firelarge1");
DelayCommand(4.5,PlaySound("al_cv_furnace1"));
DelayCommand(4.5,PlaySound("al_cv_firelarge1"));
DelayCommand(9.0,PlaySound("al_cv_furnace1"));
DelayCommand(9.0,PlaySound("al_cv_firelarge1"));
break;
}
case 3: //campfire & spit
{
PlaySound("al_cv_firepit1");
DelayCommand(4.5,PlaySound("al_cv_firepit1"));
DelayCommand(9.0,PlaySound("al_cv_firepit1"));
break;
}
case 4: //campfire & pot
{
PlaySound("al_cv_firecppot1");
DelayCommand(4.5,PlaySound("al_cv_firecppot1"));
DelayCommand(9.0,PlaySound("al_cv_firecppot1"));
break;
}
default:// campfire & perma-campfire
{
PlaySound("al_cv_firecamp1");
DelayCommand(4.5,PlaySound("al_cv_firecamp1"));
DelayCommand(9.0,PlaySound("al_cv_firecamp1"));
break;
}
}
iCookChance=iCookChance-iDifficulty;
if (iCookChance<1)iCookChance=1;
iRandom = Random(1000)+Random(1000)+Random(800);//Adjusted difficulty downwards by a small percent to make lowlevel cooks succeed a bit more.
iRandom = iRandom/3;
if (iRandom<=iCookChance)
{
if (Random(1000) >= iCookSkill)
{
if (d10(1)+1 >= iCookChance/100) iSkillGain = 1;
}
DelayCommand(14.8,PlaySound("as_na_steamshrt2"));
AssignCommand(GetArea(oPC),DelayCommand(15.0,FloatingTextStringOnCreature(sSuccess,oPC,FALSE)));
AssignCommand(GetArea(oPC),DelayCommand(15.1,CreateAnObject(sItemResRef,oPC,iItemStackSize)));
}
else
{
DelayCommand(14.8,PlaySound("as_cv_woodbreak3"));
AssignCommand(GetArea(oPC),DelayCommand(15.0,FloatingTextStringOnCreature(sFail,oPC,FALSE)));
return;
}
//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 = "";
iCookSkill++;
sOldSkill2 = IntToString(iCookSkill);
sOldSkill = "."+GetStringRight(sOldSkill2,1);
if (iCookSkill > 9)
{
sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
}
else
{
sOldSkill = "0"+sOldSkill;
}
if (iCookSkill <= 1000)
{
//DelayCommand(13.0,SetTokenPair(oPC,13,3,iCookSkill));
DelayCommand(14.5,SetCampaignInt("UOACraft","iCookSkill",iCookSkill,oPC));
DelayCommand(14.5,SendMessageToPC(oPC,"=================================="));
DelayCommand(14.5,SendMessageToPC(oPC,"Your skill in cooking has gone up!"));
DelayCommand(14.5,SendMessageToPC(oPC,"Current cooking skill : "+ sOldSkill+"%"));
DelayCommand(14.5,SendMessageToPC(oPC,"=================================="));
if (GetLocalInt(GetModule(),"_UOACraft_XP")!=0) DelayCommand(14.4,GiveXPToCreature(oPC,GetLocalInt(GetModule(),"_UOACraft_XP")));
}
}
}
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;
}
void CreateAnObject(string sResource, object oPC, int iStackSize)
{
CreateItemOnObject(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;
}
Reference in New Issue View Git Blame Copy Permalink