5d27edafba
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.
280 lines
7.8 KiB
Plaintext
280 lines
7.8 KiB
Plaintext
void CreateAnObject(string sResource, object oPC, int iProduct);
|
|
|
|
void main()
|
|
{
|
|
if (GetInventoryDisturbType()!= INVENTORY_DISTURB_TYPE_ADDED)
|
|
{
|
|
if (GetLastDisturbed() == OBJECT_SELF)
|
|
{
|
|
DestroyObject(GetInventoryDisturbItem());
|
|
return;
|
|
}
|
|
return;
|
|
}
|
|
|
|
object oPC = GetLastDisturbed();
|
|
object oItem = GetInventoryDisturbItem();
|
|
|
|
// 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 mill may be destroyed.");
|
|
return;
|
|
}
|
|
// End of compatability portion.
|
|
|
|
if (GetLocalInt(OBJECT_SELF,"iAmInUse") != 0)
|
|
{
|
|
CopyItem(oItem,oPC,TRUE);
|
|
SendMessageToPC(oPC,"You must wait until the current distillation is complete before starting another batch.");
|
|
DestroyObject(oItem);
|
|
return;
|
|
}
|
|
|
|
string sItemTag = GetTag(oItem);
|
|
string sProduct1 = "INVALID";
|
|
string sProduct2;
|
|
int iProduct = 1;
|
|
int iDifficulty = 0;
|
|
int iRandom;
|
|
int iSkillGain;
|
|
int iMaxProduce;
|
|
|
|
location lFire = GetLocation(OBJECT_SELF);
|
|
string sSuccess = "You have successfully distilled the "+GetName(oItem)+".";
|
|
string sFail = "The liquid is contaminated with impurities and unuseable.";
|
|
|
|
if (sItemTag=="item_juice_031") //Sugarcane Extract
|
|
{
|
|
sProduct1 = "item_syrup_003"; //Sugar
|
|
sProduct2 = "item_syrup_004"; //Caramel
|
|
iDifficulty=50;
|
|
iProduct = GetNumStackedItems(oItem); //Stackable starting product
|
|
}
|
|
if (sItemTag=="ITEM_MAPLESAP") //Maple Sap
|
|
{
|
|
sProduct1 = "item_syrup_001"; //Maple Syrup
|
|
sProduct2 = "item_syrup_002"; //Molasses
|
|
iDifficulty=50;
|
|
}
|
|
|
|
if (sItemTag=="item_wort_001") //Corn Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_008"; //Distilled Corn Wort
|
|
iDifficulty=150;
|
|
}
|
|
if (sItemTag=="item_wort_008") //Corn Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_009"; //Twice-Distilled Corn Wort
|
|
iDifficulty=200;
|
|
}
|
|
if (sItemTag=="item_wort_009") //Corn Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_010"; //Thrice-Distilled Corn Wort
|
|
iDifficulty=250;
|
|
}
|
|
|
|
if (sItemTag=="item_wort_007") //acorn Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_011"; //Distilled acorn Wort
|
|
iDifficulty=250;
|
|
}
|
|
if (sItemTag=="item_wort_011") //acorn Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_012"; //Twice-Distilled acorn Wort
|
|
iDifficulty=300;
|
|
}
|
|
if (sItemTag=="item_wort_012") //acorn Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_013"; //Thrice-Distilled acorn Wort
|
|
iDifficulty=350;
|
|
}
|
|
|
|
if (sItemTag=="item_wort_003") //Rice Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_014"; //Distilled Rice Wort
|
|
iDifficulty=100;
|
|
}
|
|
if (sItemTag=="item_wort_014") //Rice Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_015"; //Twice-Distilled Rice Wort
|
|
iDifficulty=150;
|
|
}
|
|
if (sItemTag=="item_wort_015") //Rice Wort
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_016"; //Thrice-Distilled Rice Wort
|
|
iDifficulty=200;
|
|
}
|
|
|
|
if (sItemTag=="drink_cup_001") //Cup of Apple Cider
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_juice_041"; //Vinegar
|
|
iDifficulty=-50;
|
|
}
|
|
|
|
if (sItemTag=="SEED_POTATO") //Potatoes
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_017";
|
|
iDifficulty = 100;
|
|
}
|
|
if (sItemTag=="item_wort_017") //
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_018";
|
|
iDifficulty = 200;
|
|
}
|
|
if (sItemTag=="item_wort_018") //
|
|
{
|
|
iMaxProduce=1;
|
|
sProduct1 = "item_wort_019";
|
|
iDifficulty = 300;
|
|
}
|
|
|
|
if (GetNumStackedItems(oItem)>1)
|
|
{
|
|
int iStack = GetNumStackedItems(oItem)-1;
|
|
CreateAnObject(GetResRef(oItem),oPC,iStack);
|
|
}
|
|
|
|
|
|
if (sProduct1=="INVALID")
|
|
{
|
|
SendMessageToPC(oPC,"You may not distill this item!");
|
|
CopyItem(oItem,oPC,TRUE);
|
|
DestroyObject(oItem,0.1);
|
|
return;
|
|
}
|
|
|
|
|
|
int iBrewSkill = GetCampaignInt("UOACraft","iBrewSkill",oPC);
|
|
int iBrewChance = iBrewSkill;
|
|
|
|
if (iBrewChance<350)
|
|
{
|
|
iBrewChance = GetAbilityScore(oPC,ABILITY_DEXTERITY)*5;
|
|
iBrewChance = iBrewChance+(GetAbilityScore(oPC,ABILITY_WISDOM)*3);
|
|
iBrewChance = iBrewChance+(GetAbilityScore(oPC,ABILITY_INTELLIGENCE)*2);
|
|
iBrewChance = iBrewChance*3;
|
|
if (iBrewChance>350)iBrewChance=350;
|
|
if (iBrewSkill > iBrewChance) iBrewChance=iBrewSkill;
|
|
}
|
|
|
|
SetLocalInt(OBJECT_SELF,"iAmInUse",99);
|
|
DelayCommand(12.0,SetLocalInt(OBJECT_SELF,"iAmInUse",0));
|
|
DestroyObject(oItem,0.1);
|
|
//DestroyObject(oWater,0.1);
|
|
//DelayCommand(1.0,CreateAnObject("item001",oPC,1));
|
|
|
|
iBrewChance = iBrewChance-iDifficulty;
|
|
if (iBrewChance<1)iBrewChance=1;
|
|
|
|
PlaySound("as_cv_sewermisc3");
|
|
DelayCommand(2.5,PlaySound("al_na_lavapool1"));
|
|
AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0,12.0));
|
|
|
|
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<=iBrewChance)
|
|
{
|
|
if (Random(1000) >= iBrewSkill)
|
|
{
|
|
if (d10(1)+1 >= iBrewChance/100) iSkillGain = 1;
|
|
}
|
|
|
|
iProduct = 1;
|
|
if (iMaxProduce>1)
|
|
{
|
|
if (Random(1050)<=iBrewChance) iProduct++;
|
|
if (Random(1100)<=iBrewChance) iProduct++;
|
|
if (Random(1150)<=iBrewChance) iProduct++;
|
|
if (Random(1200)<=iBrewChance) iProduct++;
|
|
if (iBrewSkill==1000) iProduct = 6;
|
|
}
|
|
|
|
DelayCommand(10.0,PlaySound("as_cv_smithwatr2"));
|
|
AssignCommand(GetArea(oPC),DelayCommand(12.0,FloatingTextStringOnCreature(sSuccess,oPC,FALSE)));
|
|
AssignCommand(GetArea(oPC),DelayCommand(12.1,CreateAnObject(sProduct1,oPC,iProduct)));
|
|
if (sProduct2!="")AssignCommand(GetArea(oPC),DelayCommand(12.2,CreateAnObject(sProduct2,oPC,iProduct)));
|
|
}
|
|
else
|
|
{
|
|
AssignCommand(GetArea(oPC),DelayCommand(12.0,FloatingTextStringOnCreature(sFail,oPC,FALSE)));
|
|
DelayCommand(10.0,PlaySound("as_cv_sewermisc1"));
|
|
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 = "";
|
|
iBrewSkill++;
|
|
sOldSkill2 = IntToString(iBrewSkill);
|
|
sOldSkill = "."+GetStringRight(sOldSkill2,1);
|
|
if (iBrewSkill > 9)
|
|
{
|
|
sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
|
|
}
|
|
else
|
|
{
|
|
sOldSkill = "0"+sOldSkill;
|
|
}
|
|
if (iBrewSkill <= 1000)
|
|
{
|
|
//DelayCommand(13.0,SetTokenPair(oPC,13,3,iBrewSkill));
|
|
DelayCommand(12.5,SetCampaignInt("UOACraft","iBrewSkill",iBrewSkill,oPC));
|
|
DelayCommand(12.5,SendMessageToPC(oPC,"=================================="));
|
|
DelayCommand(12.5,SendMessageToPC(oPC,"Your skill in nrewing has gone up!"));
|
|
DelayCommand(12.5,SendMessageToPC(oPC,"Current brewing skill : "+ sOldSkill+"%"));
|
|
DelayCommand(12.5,SendMessageToPC(oPC,"=================================="));
|
|
if (GetLocalInt(GetModule(),"_UOACraft_XP")!=0) DelayCommand(12.4,GiveXPToCreature(oPC,GetLocalInt(GetModule(),"_UOACraft_XP")));
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
void CreateAnObject(string sResource, object oPC, int iProduct)
|
|
{
|
|
CreateItemOnObject(sResource,oPC,1);
|
|
iProduct = iProduct - 1;
|
|
if (iProduct>0) DelayCommand(0.1,CreateAnObject(sResource,oPC,iProduct));
|
|
return;
|
|
}
|