function xmas2009()
  if not get_key("xm09") then
--    print("Es weihnachtet sehr (2009)")
    set_key("xm09", true)
    for f in factions() do
      f:add_item("xmastree", 1)
      local msg = message.create("msg_event")
      msg:set_string("string", translate("santa2006"))
      msg:send_faction(f)
    end
  end
  return 0
end

function use_xmastree(u, amount)
  if u.region.herb~=nil then
    local trees = u.region:get_resource("tree")
    u.region:set_resource("tree", 10+trees)
    u:use_pooled("xmastree", amount)
    local msg = message.create("usepotion")
    msg:set_unit("unit", u)
    msg:set_resource("potion", "xmastree")
    msg:send_region(u.region)
    return 0
  end
end