Yep. Here's my code for a base RPG character type, already posted in this thread actually.
type Character
Index as word rem object number
Name as string
pType as byte rem player type - player=0, NPC=1, Ally=2, Enemy=3, Dragon=4
Filename as string rem filename of .x file
Texturename as string rem filename of texture
NumAnimations as word
CurrentAnimation as word
Weapon as word rem ItemList index of equipped weapon
Armor as word
Helmet as word
XPos as float
YPos as float
ZPos as float
XRot as float
YRot as float
ZRot as float
Health as integer
MaxHealth as integer
State as word rem normal=0, poisoned=1, ONFIRE!!=2, ...
Level as integer
Experience as integer
Accuracy as integer rem accuracy for ranged attacks
Energy as word rem run energy for player, time delay for special attacks, etc
endtype
I will live forever or die trying.