type typMember
 x as single
 y as single 'braucht glaub ich nicht weiter erläutert werden..
 group as long 'also 1=char, 2=beast, etc..
 ep as long
 health as long
 '...
 enemy as long 'die aktuelle id des gegners im array, muss beim spielstart auf 
 ' -1 gesetzt werden
end type
dim arrMembers(7) as typMember 'für 8 kreaturen