Initial upload

Initial upload.  PRC8 has been added.  Module compiles, PRC's default AI & treasure scripts have been integrated.  Started work on top hak for SLA / Ability / Scripting modifications.
This commit is contained in:
Jaysyn904
2024-03-11 23:44:08 -04:00
parent c4b5794c59
commit 7b9e44ebbb
11454 changed files with 10436475 additions and 0 deletions

View File

@@ -0,0 +1,34 @@
void main()
{
object oDamager = GetLastDamager();
object oWeapon = GetLastWeaponUsed(oDamager);
int iCurrentHP = GetCurrentHitPoints();
int iMaxHP = GetMaxHitPoints();
effect eHeal = EffectHeal(iMaxHP - iCurrentHP);
if (GetWeaponRanged(oWeapon))
{
int nRandom = d100();
if (nRandom < 10)
FloatingTextStringOnCreature ("Bullseye! 50 points!", oDamager, FALSE);
if (nRandom > 10 && nRandom < 30)
FloatingTextStringOnCreature ("You hit the inner ring! 25 points!", oDamager, FALSE);
if (nRandom > 30 && nRandom < 60)
FloatingTextStringOnCreature ("You hit the middle ring! 10 points!", oDamager, FALSE);
if (nRandom > 60 && nRandom < 80)
FloatingTextStringOnCreature ("You hit the outer ring! 5 points!", oDamager, FALSE);
if (nRandom > 80)
FloatingTextStringOnCreature ("You missed!", oDamager, FALSE);
if (GetXP(oDamager) < 100)
GiveXPToCreature(oDamager, 1);
else
SendMessageToPC(oDamager, "The training dummy wont increase your skills any further.");
}
else
SendMessageToPC(oDamager, "Try hitting the archery target with a ranged weapon!");
ApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, OBJECT_SELF);
}