TYPE playerStat
   health
   maxHealth
   healthChange
ENDTYPE

TYPE inflictionStat
   poison = 1
   curse = 3
ENDTYPE

DIM players(3) AS playerStat
GLOBAL inflictions AS inflictionStat

FUNCTION handle_State()

   FOR x = 1 to 3
      INC players(x).health,players(x).healthChange
   NEXT x

ENDFUNCTION

FUNCTION poisionPlayer(player)

   DEC players(player).healthChange, inflictions.poison

ENDFUNCTION

FUNCTION cursePlayer(player)

   DEC players(player).healthChange, inflictions.curse

ENDFUNCTION

FUNCTION healthPlayer(player)

   players(player).healthChange = players(player).maxHealth - players(player.Health)

ENDFUNCTION