GetOffMyYarn
7030eb2235
added a crafting tool merchant, added a training hall (not quite working yet) fixed crafting issues, exchanged the small cave area
223 lines
7.5 KiB
Plaintext
223 lines
7.5 KiB
Plaintext
//#include "_persist_01a"
|
|
|
|
void CreateAnObject(string sResource, object oPC, int iStackSize);
|
|
void BeeAttackPC(object oPC, object oSelf);
|
|
|
|
void main()
|
|
{
|
|
object oItem = GetInventoryDisturbItem();
|
|
object oPC = GetLastDisturbed();
|
|
object oSelf = OBJECT_SELF;
|
|
// 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 (GetInventoryDisturbType()== INVENTORY_DISTURB_TYPE_ADDED)
|
|
{
|
|
CopyItem(oItem,oPC,TRUE);
|
|
DestroyObject(GetInventoryDisturbItem());
|
|
return;
|
|
}
|
|
if (GetTag(oItem) == "ITEM_BEESWAX")
|
|
{
|
|
FloatingTextStringOnCreature("You gather some beeswax from the hive.",oPC,FALSE);
|
|
return;
|
|
}
|
|
|
|
int iAmInUse = GetLocalInt(oSelf,"iAmInUse");
|
|
if (iAmInUse != 0)
|
|
{
|
|
FloatingTextStringOnCreature("Other than collecting beeswax, you can only do one thing at a time!",oPC,FALSE);
|
|
CopyObject(oItem,GetLocation(oSelf),oSelf,GetTag(oItem));
|
|
DestroyObject(oItem);
|
|
return;
|
|
}
|
|
SetLocalInt(oSelf,"iAmInUse",99);
|
|
DelayCommand(7.0,SetLocalInt(oSelf,"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_clear2",OBJECT_SELF));
|
|
}
|
|
|
|
int iDay = GetLocalInt(oSelf,"iLastDay");
|
|
int iHour = GetLocalInt(oSelf,"iLastHour");
|
|
int iHoneyComb = GetLocalInt(oSelf,"iHoneyComb");
|
|
int iHoney = GetLocalInt(oSelf,"iHoney");
|
|
|
|
//int iBeeSkill = GetTokenPair(oPC,13,1);
|
|
int iBeeSkill = GetCampaignInt("UOACraft","iBeeSkill",oPC);
|
|
int iBeeChance = iBeeSkill;
|
|
|
|
if (iBeeChance <350)
|
|
{
|
|
iBeeChance = GetAbilityScore(oPC,ABILITY_WISDOM)*5;
|
|
iBeeChance = iBeeChance +(GetAbilityScore(oPC,ABILITY_DEXTERITY)*3);
|
|
iBeeChance = iBeeChance +(GetAbilityScore(oPC,ABILITY_CHARISMA)*2);
|
|
iBeeChance = iBeeChance * 3;
|
|
if (iBeeChance >350) iBeeChance = 350;
|
|
if (iBeeSkill > iBeeChance) iBeeChance = iBeeSkill;
|
|
}
|
|
|
|
int iRandom = Random(1000);
|
|
int iSuccess=0;
|
|
|
|
string sSuccess = "";
|
|
string sFail = "";
|
|
string sItem = "";
|
|
|
|
AssignCommand(oPC,DelayCommand(1.0,PlaySound("as_na_grassmove1")));
|
|
AssignCommand(oPC,DelayCommand(4.0,PlaySound("as_na_grassmove2")));
|
|
|
|
if (GetTag(oItem)=="ITEM_HONEYCOMB")
|
|
{
|
|
FloatingTextStringOnCreature("You begin to cut the honeycomb from the beehive..",oPC,FALSE);
|
|
sItem = "honeycomb";
|
|
iBeeChance = iBeeChance - 250;
|
|
sSuccess = "You carefully cut the honeycomb from the hive.";
|
|
if (iRandom <= iBeeChance) iSuccess=1;
|
|
iHoneyComb--;
|
|
if (iSuccess != 1)
|
|
{
|
|
if (Random(1000)>iBeeChance)
|
|
{
|
|
sFail = "You have disturbed the hive while trying to remove the honeycomb!";
|
|
AssignCommand(oPC,DelayCommand(6.0,BeeAttackPC(oPC,oSelf)));
|
|
}
|
|
else
|
|
{
|
|
sFail = "You have destroyed the honeycomb while trying to remove it from the hive.";
|
|
}
|
|
}
|
|
}
|
|
|
|
if (GetTag(oItem)=="ITEM_HONEY")
|
|
{
|
|
FloatingTextStringOnCreature("You begin gathering up some of the honey from the beehive...",oPC,FALSE);
|
|
sItem = "honey";
|
|
iHoney--;
|
|
sSuccess = "You carefully collect the honey from the hive.";
|
|
if (iRandom <= iBeeChance) iSuccess=1;
|
|
|
|
if (iSuccess != 1)
|
|
{
|
|
if (Random(1000)>iBeeChance)
|
|
{
|
|
sFail = "You have disturbed the hive while trying to collect the honey!";
|
|
AssignCommand(oPC,DelayCommand(6.0,BeeAttackPC(oPC,oSelf)));
|
|
}
|
|
else
|
|
{
|
|
sFail = "You have contaminated the honey while trying to remove it from the hive.";
|
|
}
|
|
}
|
|
}
|
|
|
|
AssignCommand(oPC,ActionPlayAnimation(ANIMATION_LOOPING_GET_MID,1.0,6.0));
|
|
//AssignCommand(oPC,PlaySound(""));
|
|
|
|
SetLocalInt(oSelf,"iHoneyComb",iHoneyComb);
|
|
SetLocalInt(oSelf,"iHoney",iHoney);
|
|
|
|
DestroyObject(oItem);
|
|
|
|
int iSkillGain =0;
|
|
|
|
if (iSuccess==1)
|
|
{
|
|
AssignCommand(oPC,DelayCommand(6.0,FloatingTextStringOnCreature(sSuccess,oPC,FALSE)));
|
|
AssignCommand(oPC,DelayCommand(6.0,CreateAnObject(sItem,oPC,1)));
|
|
iRandom = Random(1000);
|
|
if (iRandom >= iBeeSkill)
|
|
{
|
|
if (d10(1)+1 >= iBeeChance/100) iSkillGain = 1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
AssignCommand(oPC,DelayCommand(6.0,FloatingTextStringOnCreature(sFail,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);
|
|
DelayCommand(10.0,SetLocalInt(oPC,"iSkillGain",0));
|
|
}
|
|
}
|
|
|
|
|
|
|
|
if (iSkillGain ==1)
|
|
{
|
|
string sOldSkill = "";
|
|
string sOldSkill2 = "";
|
|
iBeeSkill++;
|
|
sOldSkill2 = IntToString(iBeeSkill);
|
|
sOldSkill = "."+GetStringRight(sOldSkill2,1);
|
|
if (iBeeSkill > 9)
|
|
{
|
|
sOldSkill = GetStringLeft(sOldSkill2,GetStringLength(sOldSkill2)-1)+sOldSkill;
|
|
}
|
|
else
|
|
{
|
|
sOldSkill = "0"+sOldSkill;
|
|
}
|
|
if (iBeeSkill <= 1000)
|
|
{
|
|
//DelayCommand(6.0,SetTokenPair(oPC,13,1,iBeeSkill));
|
|
DelayCommand(6.0,SetCampaignInt("UOACraft","iBeeSkill",iBeeSkill,oPC));
|
|
DelayCommand(6.0,SendMessageToPC(oPC,"====================================="));
|
|
DelayCommand(6.0,SendMessageToPC(oPC,"Your skill in beekeeping has gone up!"));
|
|
DelayCommand(6.0,SendMessageToPC(oPC,"Current beekeeping 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)
|
|
{
|
|
CreateItemOnObject(sResource,oPC,iStackSize);
|
|
return;
|
|
}
|
|
|
|
void BeeAttackPC(object oPC, object oSelf)
|
|
{
|
|
AssignCommand(oPC,PlaySound("al_an_flies1"));
|
|
AssignCommand(oPC,ActionMoveAwayFromObject(oSelf,TRUE,20.0));
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectDamage(d4(1),DAMAGE_TYPE_PIERCING,DAMAGE_POWER_NORMAL),oPC,1.0);
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_ELECTRICAL,FALSE),oPC,1.0);
|
|
PlayVoiceChat(VOICE_CHAT_PAIN1,oPC);
|
|
if (FortitudeSave(oPC,12,SAVING_THROW_TYPE_POISON,oSelf)==0)
|
|
{
|
|
AssignCommand(oPC,DelayCommand(3.0,FloatingTextStringOnCreature("You have had an allergic reaction to the stings!",oPC,FALSE)));
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectAbilityDecrease(ABILITY_DEXTERITY,d4(1)),oPC,18000.0);
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectAbilityDecrease(ABILITY_CONSTITUTION,d4(1)),oPC,18000.0);
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectAbilityDecrease(ABILITY_STRENGTH,d4(1)),oPC,18000.0);
|
|
AssignCommand(oPC,DelayCommand(3.0,ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_IMP_HEAD_ODD,FALSE),oPC,1.0)));
|
|
AssignCommand(oPC,DelayCommand(3.0,PlayVoiceChat(VOICE_CHAT_PAIN2,oPC)));
|
|
}
|
|
}
|