property ancestor

--^ reptile class is parent to all cold blooded animals

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