230 lines
10 KiB
Plaintext
230 lines
10 KiB
Plaintext
#include "x3_inc_horse"
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
int GOLD_REWARD_AMOUNT = 0;
|
|
int XP_REWARD_AMMOUNT = 0;
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
object oPC1 = GetLocalObject(GetModule(),"Player1" );
|
|
object oPC2 = GetLocalObject(GetModule(),"Player2" );
|
|
int GetArmorType(object oItem)
|
|
{
|
|
// Make sure the item is valid and is an armor.
|
|
if (!GetIsObjectValid(oItem))
|
|
return -1;
|
|
if (GetBaseItemType(oItem) != BASE_ITEM_ARMOR)
|
|
return -1;
|
|
|
|
// Get the identified flag for safe keeping.
|
|
int bIdentified = GetIdentified(oItem);
|
|
SetIdentified(oItem,FALSE);
|
|
|
|
int nType = -1;
|
|
switch (GetGoldPieceValue(oItem))
|
|
{
|
|
case 1: nType = 0; break; // None
|
|
case 5: nType = 1; break; // Padded
|
|
case 10: nType = 2; break; // Leather
|
|
case 15: nType = 3; break; // Studded Leather / Hide
|
|
case 100: nType = 4; break; // Chain Shirt / Scale Mail
|
|
case 150: nType = 5; break; // Chainmail / Breastplate
|
|
case 200: nType = 6; break; // Splint Mail / Banded Mail
|
|
case 600: nType = 7; break; // Half-Plate
|
|
case 1500: nType = 8; break; // Full Plate
|
|
}
|
|
// Restore the identified flag, and return armor type.
|
|
SetIdentified(oItem,bIdentified);
|
|
return nType;
|
|
}
|
|
|
|
void DealDamage(object oLoser, int nSerious)
|
|
{
|
|
int nProtected = TRUE;
|
|
if (GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oLoser)) != BASE_ITEM_LARGESHIELD &&
|
|
GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oLoser)) != BASE_ITEM_SMALLSHIELD &&
|
|
GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oLoser)) != BASE_ITEM_TOWERSHIELD)
|
|
nProtected = FALSE;
|
|
if (GetArmorType(GetItemInSlot(INVENTORY_SLOT_HEAD, oLoser)) != BASE_ITEM_HELMET)
|
|
nProtected = FALSE;
|
|
|
|
int nDamage = GetMaxHitPoints(oLoser)/5;
|
|
if (nSerious == TRUE) nDamage = GetMaxHitPoints(oLoser)/2;
|
|
effect eDamage = EffectDamage(nDamage, DAMAGE_TYPE_POSITIVE);
|
|
effect ePenalty = EffectSkillDecrease(SKILL_RIDE, 2);
|
|
ePenalty = SupernaturalEffect(ePenalty);
|
|
if (nProtected == FALSE)
|
|
{
|
|
if (nSerious == TRUE) ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePenalty, oLoser, 600.0);
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oLoser);
|
|
}
|
|
}
|
|
|
|
void GiveRide()
|
|
{
|
|
int nRide = GetLocalInt(OBJECT_SELF, "RIDE");
|
|
ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectSkillIncrease(SKILL_RIDE, nRide), OBJECT_SELF);
|
|
}
|
|
|
|
void EndCutscene(object oPlayer)
|
|
{
|
|
DelayCommand(9.0 , FadeToBlack(oPlayer , FADE_SPEED_FAST));
|
|
DelayCommand(12.0 , StopFade(oPlayer));
|
|
DelayCommand(12.0 , SetCutsceneMode(oPlayer, FALSE));
|
|
DelayCommand(12.0 , SetLocalObject(GetModule(), "Player1" , OBJECT_INVALID));
|
|
DelayCommand(12.0 , SetLocalObject(GetModule(), "Player2" , OBJECT_INVALID));
|
|
DelayCommand(12.0 , HorseSetPhenotype(oPlayer, FALSE));
|
|
}
|
|
|
|
void BreakWeapon(object oPlayer)
|
|
{
|
|
int BreakRoll = d3(1);
|
|
if (BreakRoll == 3)
|
|
{
|
|
/*string LanceTag = GetTag(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND ,oPC1));
|
|
object MyLance = GetItemInSlot( INVENTORY_SLOT_RIGHTHAND, oPC1);
|
|
object oItem = CopyItemAndModify( MyLance ,ITEM_APPR_TYPE_WEAPON_MODEL, ITEM_APPR_WEAPON_MODEL_TOP, 2);
|
|
AssignCommand(oPlayer , ActionEquipItem(oItem , INVENTORY_SLOT_RIGHTHAND));
|
|
DestroyObject(MyLance);
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(621), oPlayer);
|
|
FloatingTextStringOnCreature("Your Lance Shattered!",oPlayer);*/
|
|
}
|
|
}
|
|
void main()
|
|
{
|
|
object oPC = GetPCSpeaker();
|
|
|
|
GiveRide();
|
|
|
|
if ( GetLocalObject(GetModule(), "Player1") != OBJECT_INVALID)
|
|
{ FloatingTextStringOnCreature("There is already someone signed up for a joust! Please wait until they are done." , oPC);
|
|
return;}
|
|
|
|
//Make sure the joust dosent start without logical items equpped
|
|
if (HorseGetIsMounted(oPC)!= TRUE)
|
|
{FloatingTextStringOnCreature("You must be mounted to joust!", oPC);
|
|
return;}
|
|
if (GetBaseItemType(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC)) != 92)
|
|
{FloatingTextStringOnCreature("You must have a lance equipped to joust!", oPC);
|
|
return;}
|
|
if (GetItemAppearance(GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC), ITEM_APPR_TYPE_WEAPON_MODEL, ITEM_APPR_WEAPON_MODEL_TOP) == 2)
|
|
{FloatingTextStringOnCreature("You cannot joust with a broken lance!", oPC);
|
|
return;}
|
|
|
|
//Make sure we have jousting in this area before jousting.
|
|
if (GetObjectByTag("RedStart") == OBJECT_INVALID)
|
|
{FloatingTextStringOnCreature("There is no jousting in this Area", oPC);
|
|
return;}
|
|
else if (GetObjectByTag("RedDecide") == OBJECT_INVALID)
|
|
{FloatingTextStringOnCreature("There is no jousting in this Area", oPC);
|
|
return;}
|
|
else if (GetObjectByTag("RedEnd") == OBJECT_INVALID)
|
|
{FloatingTextStringOnCreature("There is no jousting in this Area", oPC);
|
|
return;}
|
|
else if (GetObjectByTag("BlueStart") == OBJECT_INVALID)
|
|
{FloatingTextStringOnCreature("There is no jousting in this Area", oPC);
|
|
return;}
|
|
else if (GetObjectByTag("BlueDecide") == OBJECT_INVALID)
|
|
{FloatingTextStringOnCreature("There is no jousting in this Area", oPC);
|
|
return;}
|
|
else if (GetObjectByTag("BlueEnd") == OBJECT_INVALID)
|
|
{FloatingTextStringOnCreature("There is no Jousting in this Area", oPC);
|
|
return;}
|
|
|
|
if (GetLocalObject(GetModule(),"Player1" ) == OBJECT_INVALID && GetLocalObject(GetModule(),"Player2") == OBJECT_INVALID)
|
|
{SetLocalObject(GetModule(), "Player2" , OBJECT_SELF);
|
|
SetLocalObject(GetModule(), "Player1" , oPC);}
|
|
|
|
//Refresh the Variables... or the PLAYERS in this matter.
|
|
object oPC1 = GetLocalObject(GetModule(),"Player1" );
|
|
object oPC2 = GetLocalObject(GetModule(),"Player2" );
|
|
|
|
//Start The Cutscene:
|
|
int PC1Ride = GetSkillRank(SKILL_RIDE, oPC1);
|
|
int PC1Roll = d20() + PC1Ride;
|
|
int PC2Ride = GetSkillRank(SKILL_RIDE, oPC2);
|
|
int PC2Roll = d20() + PC2Ride;
|
|
|
|
//Set the Jousting Position
|
|
HorseSetPhenotype(oPC2, TRUE);
|
|
HorseSetPhenotype(oPC1, TRUE);
|
|
|
|
//Set the players up for the Joust
|
|
AssignCommand(oPC1, JumpToObject(GetObjectByTag("RedStart")));
|
|
AssignCommand(oPC1, SetFacingPoint(GetPosition(GetObjectByTag("RedDecide"))));
|
|
AssignCommand(oPC2, JumpToObject(GetObjectByTag("BlueStart")));
|
|
AssignCommand(oPC2, SetFacingPoint(GetPosition(GetObjectByTag("BlueDecide"))));
|
|
|
|
//Take a random "Shatter" effect for the Lance:
|
|
|
|
|
|
//Handle The Red Player's Animations
|
|
//Script By: Patrick Lobre
|
|
//PC 1
|
|
|
|
FadeFromBlack(oPC1);
|
|
SetCutsceneMode(oPC1, TRUE);
|
|
AssignCommand(oPC1, ActionWait(4.0f));
|
|
AssignCommand(oPC1, ActionMoveToObject(GetObjectByTag("RedDecide"),TRUE));
|
|
|
|
if (PC1Roll <= PC2Roll)
|
|
{
|
|
if (PC2Roll - PC1Roll >= 10) //Loose by 10 or more
|
|
{AssignCommand(oPC1, ActionPlayAnimation(HORSE_ANIMATION_LOOPING_JOUST_VIOLENT_FALL, 1.0f, 3.0f));
|
|
DelayCommand(8.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(671), oPC1));}
|
|
else if (PC2Roll - PC1Roll <= 5) //Loose by 5 or less
|
|
{AssignCommand(oPC1, ActionPlayAnimation(HORSE_ANIMATION_LOOPING_JOUST_GLANCE, 1.0f, 3.0f));
|
|
DelayCommand(8.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(672), oPC1));}
|
|
else if (PC2Roll - PC1Roll <= 9) //Loose by 9 or less
|
|
{AssignCommand(oPC1, ActionPlayAnimation(HORSE_ANIMATION_LOOPING_JOUST_HELMOFF, 1.0f, 3.0f));
|
|
DelayCommand(8.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(671), oPC1));}
|
|
|
|
}
|
|
else
|
|
{
|
|
AssignCommand(oPC1, ActionMoveToObject(GetObjectByTag("RedEnd"),TRUE));
|
|
//Only break the lance on a heavy hit:
|
|
if (PC1Roll - PC2Roll > 5) DelayCommand(8.0, BreakWeapon(oPC1));
|
|
GiveXPToCreature(oPC1 , XP_REWARD_AMMOUNT);
|
|
GiveGoldToCreature(oPC1 , GOLD_REWARD_AMOUNT);
|
|
}
|
|
|
|
SendMessageToPC(oPC1, "Your roll was " + IntToString(PC1Roll)+ ". Your opponent's roll was " + IntToString(PC2Roll));
|
|
EndCutscene(oPC1);
|
|
DelayCommand(11.0 , AssignCommand(oPC1, JumpToObject(GetObjectByTag("RedEnd"))));
|
|
|
|
|
|
//Handle The Blue Player's Animations
|
|
//Script By: Patrick Lobre
|
|
//PC 2
|
|
|
|
FadeFromBlack(oPC2);
|
|
SetCutsceneMode(oPC2, TRUE);
|
|
AssignCommand(oPC2, ActionWait(4.0f));
|
|
AssignCommand(oPC2, ActionMoveToObject(GetObjectByTag("BlueDecide"),TRUE));
|
|
|
|
if (PC2Roll <= PC1Roll)
|
|
{
|
|
if (PC1Roll - PC2Roll >= 10) //Loose by 10 or more
|
|
{AssignCommand(oPC2, ActionPlayAnimation(HORSE_ANIMATION_LOOPING_JOUST_VIOLENT_FALL, 1.0f, 3.0f));
|
|
DelayCommand(8.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(671), oPC2));}
|
|
else if (PC1Roll - PC2Roll <= 5) //Loose by 5 or less
|
|
{AssignCommand(oPC2, ActionPlayAnimation(HORSE_ANIMATION_LOOPING_JOUST_GLANCE, 1.0f, 3.0f));
|
|
DelayCommand(8.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(672), oPC2));}
|
|
else if (PC1Roll - PC2Roll <= 9) //Loose by 9 or less
|
|
{AssignCommand(oPC2, ActionPlayAnimation(HORSE_ANIMATION_LOOPING_JOUST_HELMOFF, 1.0f, 3.0f));
|
|
DelayCommand(8.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(671), oPC2));}
|
|
}
|
|
else
|
|
{ AssignCommand(oPC2, ActionMoveToObject(GetObjectByTag("BlueEnd"),TRUE));
|
|
//Only break the lance on a heavy hit:
|
|
if (PC2Roll - PC1Roll > 5) DelayCommand(8.0, BreakWeapon(oPC2));
|
|
GiveXPToCreature(oPC2 , GOLD_REWARD_AMOUNT);
|
|
GiveGoldToCreature(oPC2 , GOLD_REWARD_AMOUNT);
|
|
}
|
|
|
|
EndCutscene(oPC2);
|
|
SendMessageToPC(oPC2, "Your roll was " + IntToString(PC2Roll)+ ". Your opponent's roll was " + IntToString(PC1Roll));
|
|
DelayCommand(11.0 , AssignCommand(oPC2, JumpToObject(GetObjectByTag("BlueEnd"))));
|
|
}
|