server/scripts/eressea/ponnuki.lua

if not config.ponnuki then return nil end
local ponnuki = {}

local directions = { "NW", "NO", "O", "SO", "SW", "W" }
local jokes = {
    "Ein Bummerang ist, wenn man ihn wegwirft und er kommt nicht wieder, dann war's keiner.",
    "Merke: Mit Schwabenwitzen soll man ganz sparsam sein.",
    "Was bekommt man, wenn man Katzen und Elfen kreuzt? Elfen ohne Rheuma.",
    "Was bekommt man, wenn man Insekten und Katzen kreuzt? Tiger, die Crisan benutzen."
}

local function ponnuki_brain(u)
  local i = math.random(#jokes)
  u:add_notice("Eine Botschaft von " .. tostring(u) .. ": " ..jokes[i])
  local d = math.random(6)
  local r = u.region:next(d-1)
  if r.terrain == 'glacier' then
    u:clear_orders()
    u:add_order("NACH " .. directions[d])
  end
end

function ponnuki.init()
    -- initialize other scripts
    local u = get_unit(atoi36("ponn"))
    if not u then
        eressea.log.error("Ponnuki is missing, will re-create")
        local home = get_region(-67, -5)
        local f = get_faction(666)
        if home and f then
            if home.terrain~="glacier" then
                home.terrain="glacier"
                home.name = 'Magrathea'
            end
            u = unit.create(f, home, 1, "template")
            if u then
                u.id = atoi36("ponn")
                u.name = "Ponnuki"
                u.info = "Go, Ponnuki, Go!"
                u.race_name = "Ritter von Go"
                print(u:show())
            end
        else
            eressea.log.error("Ponnuki cannot find Magrathea")
        end
    end
    if u then
        ponnuki_brain(u)
    end
end

return ponnuki