From 2fb2f3660f9238ae96f593310998367f73ca072c Mon Sep 17 00:00:00 2001
From: Martin Haye <martin.haye@ucop.edu>
Date: Thu, 31 Dec 2020 11:09:53 -0800
Subject: [PATCH] Added global bank balance stat.

---
 .../PackPartitions/src/org/badvision/A2PackPartitions.groovy   | 3 ++-
 Platform/Apple/virtual/.gitignore                              | 1 +
 Platform/Apple/virtual/src/plasma/gameloop.pla                 | 3 +++
 Platform/Apple/virtual/src/plasma/playtype.plh                 | 2 ++
 4 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/Platform/Apple/tools/PackPartitions/src/org/badvision/A2PackPartitions.groovy b/Platform/Apple/tools/PackPartitions/src/org/badvision/A2PackPartitions.groovy
index f240c354..46852e98 100644
--- a/Platform/Apple/tools/PackPartitions/src/org/badvision/A2PackPartitions.groovy
+++ b/Platform/Apple/tools/PackPartitions/src/org/badvision/A2PackPartitions.groovy
@@ -195,7 +195,8 @@ class A2PackPartitions
         "Gold":         "@S_GOLD",
         "Time":         "@S_TIME",
         "XP":           "@S_XP",
-        "SP":           "@S_SP"
+        "SP":           "@S_SP",
+        "Bank bal":     "@S_BANK_BAL"
     ]
 
     def predefStrings = stats + [
diff --git a/Platform/Apple/virtual/.gitignore b/Platform/Apple/virtual/.gitignore
index 2211df63..f225ed38 100644
--- a/Platform/Apple/virtual/.gitignore
+++ b/Platform/Apple/virtual/.gitignore
@@ -1 +1,2 @@
 *.txt
+scripts/
diff --git a/Platform/Apple/virtual/src/plasma/gameloop.pla b/Platform/Apple/virtual/src/plasma/gameloop.pla
index c99d2c77..dae5d998 100644
--- a/Platform/Apple/virtual/src/plasma/gameloop.pla
+++ b/Platform/Apple/virtual/src/plasma/gameloop.pla
@@ -195,6 +195,7 @@ export byte[] S_USE = "Use"
 export byte[] S_HIS = "his"
 export byte[] S_HER = "her"
 export byte[] S_THEIR = "their"
+export byte[] S_BANK_BAL = "Bank bal"
 
 word lastTick = 0
 
@@ -3507,6 +3508,7 @@ export def getStat(player, statName)#1
     is streqi(statName, @S_XP);           return player=>w_curXP
     is streqi(statName, @S_SP);           return player->b_skillPoints
     is streqi(statName, @S_PACK_SIZE);    return player->b_packSize
+    is streqi(statName, @S_BANK_BAL);     return global=>w_bankBal
   wend
   pSkill = scanForNamedObj(player=>p_skills, statName)
   if pSkill; return pSkill=>w_modValue; fin
@@ -3557,6 +3559,7 @@ export def setStat(player, statName, val)#0
     is streqi(statName, @S_XP);           addXP(player, val - player=>w_curXP); needShowParty = TRUE; break
     is streqi(statName, @S_SP);           player->b_skillPoints = clampByte(max(0, val)); needShowParty = TRUE; break
     is streqi(statName, @S_PACK_SIZE);    player->b_packSize = clampByte(max(player->b_packSize, val)); break
+    is streqi(statName, @S_BANK_BAL);     global=>w_bankBal = val; break
     otherwise
       pSkill = scanForNamedObj(player=>p_skills, statName)
       if pSkill
diff --git a/Platform/Apple/virtual/src/plasma/playtype.plh b/Platform/Apple/virtual/src/plasma/playtype.plh
index e8419cec..25a0b530 100644
--- a/Platform/Apple/virtual/src/plasma/playtype.plh
+++ b/Platform/Apple/virtual/src/plasma/playtype.plh
@@ -49,6 +49,8 @@ struc TGlobal
 
   // move mode (1=normal, 2=fast, 4=classic)
   byte b_moveMode
+
+  word w_bankBal
 end
 
 const PLAYER_FLAG_NPC  = $01