Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-06-09 23:29:37 +00:00
Code Issues Projects Releases Wiki Activity

Added a couple of combat sounds.

Browse Source
This commit is contained in:
Martin Haye 2021-10-12 09:10:34 -07:00
parent 7523320bce
commit 32bf57e103
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Platform/Apple/virtual/src/plasma/combat.pla
View File

@ -338,6 +338,16 @@ def playerMelee(pPlayer, pWeapon)#0
damageEnemy(pPlayer, pEnemy, dmg, sAction)
end
///////////////////////////////////////////////////////////////////////////////////////////////////
def genShotSound(kindOrText)#0
printf1("\nkindOrText=%s\n", kindOrText)
if streqi(kindOrText, "handguns") or streqi(kindOrText, "rifles") or streqi(kindOrText, "shoots")
genSound(63, 40, 0, 15, 0, 0, 800)
elsif streqi(kindOrText, "bows")
genSound(15, 500, 0, 15, 0, 0, 100)
fin
end
///////////////////////////////////////////////////////////////////////////////////////////////////
def playerShoot(pPlayer, pWeapon)#0
word pEnemy, pSkill, dmg
@ -347,9 +357,11 @@ def playerShoot(pPlayer, pWeapon)#0
sAction = pWeapon=>s_combatText
// See if there's anybody in range
pEnemy = chooseEnemy(pWeapon->b_weaponRange, pPlayer->b_gangChoice)
if !pEnemy
displayf2("\n%s %s but falls short.\n", pPlayer=>s_name, sAction)
genShotSound(pWeapon=>s_itemKind)
return
fin
@ -358,9 +370,11 @@ def playerShoot(pPlayer, pWeapon)#0
// Roll for hitting and dodging
if !rollPlayerHit(pPlayer, pWeapon, pEnemy, sAction)
genShotSound(pWeapon=>s_itemKind)
return
fin
if rollEnemyDodge(pPlayer, pEnemy, sAction)
genShotSound(pWeapon=>s_itemKind)
return
fin
@ -387,6 +401,7 @@ def playerShoot(pPlayer, pWeapon)#0
// Okay, do that damage.
damageEnemy(pPlayer, pEnemy, dmg, sAction)
genShotSound(pWeapon=>s_itemKind)
end
///////////////////////////////////////////////////////////////////////////////////////////////////
@ -951,6 +966,7 @@ def enemyCombatTurn(pe)#1
displayStr("and misses.")
fin
displayStr("\n")
genShotSound(pe=>s_attackText)
//combatDebug// if combatDebug; getUpperKey; fin
if needShow; showParty(); fin