[H@NON]

Завести элемент в типе под названием HP. И прибавлять/отнимать от него, то есть:

global demage_str# = 10

type botinfo
...
field HP
...
end type

function UpdateBot()
for bot.botinfo = each botinfo
...
bot\HP = bot\HP - demage_str#
...
next