--
--^ A serpent.
--

property ancestor

on birth me
  set the ancestor of me = birth(script "reptile")
  set the favouriteSound of me = "hissss!"
  set the mySpecies of me = "snake"
  return me
end