Index: bmod.bas
===================================================================
--- bmod.bas    (revision 4298)
+++ bmod.bas    (working copy)
@@ -2031,10 +2031,12 @@

 SUB enemy_ai (BYREF bat AS BattleState, bslot() AS BattleSprite, formdata() AS INTEGER)
  DIM ai AS INTEGER = 0
+ DIM weakhp AS INTEGER = 0
+
+ 'if HP is less than the threshold, go into desperation mode
+ weakhp = gen(genEnemyWeakHP)
+ IF bslot(bat.enemy_turn).stat.cur.hp < bslot(bat.enemy_turn).stat.max.hp * gen(genEnemyWeakHP) / 100 THEN ai = 1

- 'if HP is less than 20% go into desperation mode
- IF bslot(bat.enemy_turn).stat.cur.hp < bslot(bat.enemy_turn).stat.max.hp / 5 THEN ai = 1
-
  'if targetable enemy count is 1, go into alone mode
  IF targenemycount(bslot(), YES) = 1 THEN ai = 2

@@ -2883,7 +2885,9 @@
  '--Heroes only, since enemies don't currently have a weak frame
  IF is_hero(who) THEN
   '--enforce weak picture
-  IF bslot(who).stat.cur.hp < bslot(who).stat.max.hp / 5 AND bat.vic.state = 0 THEN bslot(who).frame = 6
+  DIM weakhp AS INTEGER = 0
+  weakhp = gen(genHeroWeakHP)
+  IF bslot(who).stat.cur.hp < bslot(who).stat.max.hp * weakhp / 100 AND bat.vic.state = 0 THEN bslot(who).frame = 6
  END IF
 END SUB

Index: COMMON.bas
===================================================================
--- COMMON.bas  (revision 4298)
+++ COMMON.bas  (working copy)
@@ -2659,6 +2659,14 @@
  gen(genNumElements) = 1
 END IF

+IF gen(genHeroWeakHP) = 0 THEN
+ gen(genHeroWeakHP) = 20
+ENDIF
+
+IF gen(genEnemyWeakHP) = 0 THEN
+ gen(genEnemyWeakHP) = 20
+ENDIF
+
 IF gen(genVersion) = 0 THEN
  upgrade_message "Ancient Pre-1999 format (1)"
  gen(genVersion) = 1
Index: CONST.bi
===================================================================
--- CONST.bi    (revision 4298)
+++ CONST.bi    (working copy)
@@ -128,7 +128,9 @@
 CONST genCantSellSFX = 185      'unsellable item
 CONST genDamageDisplayTicks = 186 'number of ticks that battle damage displays
 CONST genDamageDisplayRise = 187 'number of pixels that damage display rises
-'188 to 198 unused
+CONST genHeroWeakHP = 188       '%HP for heroes to use Weak state
+CONST genEnemyWeakHP = 189      '%HP for enemies to use Desperation AI
+'190 to 198 unused
 '199 to 359 used to be the scattertable for PW2, now zeroed out
 '360 to 499 unused

Index: menus.bas
===================================================================
--- menus.bas   (revision 4298)
+++ menus.bas   (working copy)
@@ -1092,10 +1092,12 @@
  menu(11) = "Experience given to heroes..."
  menu(12) = " ...swapped-out and unlocked: " & gen(genUnlockedReserveXP) & "%"
  menu(13) = " ...swapped-out and locked: " & gen(genLockedReserveXP) & "%"
+ menu(14) = "Hero default % HP for Weak state: " & gen(genHeroWeakHP) & "%"
+ menu(15) = "Enemy default % HP for Weak state: " & gen(genEnemyWeakHP) & "%"
 END SUB

 SUB battleoptionsmenu ()
- CONST maxMenu = 13
+ CONST maxMenu = 15
  DIM menu(maxMenu) AS STRING
  DIM min(maxMenu), max(maxMenu)
  DIM index(maxMenu)
@@ -1136,6 +1138,12 @@
  max(12) = 1000
  index(13) = genLockedReserveXP
  max(13) = 1000
+ min(14) = 1
+ max(14) = 100
+ index(14) = genHeroWeakHP
+ min(15) = 1
+ max(15) = 100
+ index(15) = genEnemyWeakHP

  setkeys
  DO