property ancestor

--^ mammal class is parent of all warm blooded animals

on birth me
  set the ancestor of me = birth(script "animal")
  set the bloodTemp of me = #warm
  return me
end