Factorio-Paranoidal_mod/MoreAchievements/vanillaScripting.lua

local function validate_player(player)
    if not player then
        return false
    end
    if not player.valid then
        return false
    end
    if not player.connected then
        return false
    end
    if not game.players[player.name] then
        return false
    end
    return true
end

script.on_init(function(e)
    global.trees_destroyed = 0
end)

function treeDestroyed(e)
    if e.entity.type == "tree" then
        global.trees_destroyed = global.trees_destroyed + 1 --increment the number of trees destroyed
        if global.trees_destroyed >= 100000 then
            for index, player in pairs(game.players) do --give the achievement to every player
                player.unlock_achievement("deforestation")
            end
        end
    end
end
script.on_event(defines.events.on_player_mined_entity, treeDestroyed)
script.on_event(defines.events.on_robot_pre_mined, treeDestroyed)

function onEntityDied(e)
    local entity = e.entity
    local cause = e.cause
    local causeForce = e.force

    --tango down - have a turret kill a biter
    if cause and causeForce and cause.name == "gun-turret" and entity.type == "unit" then
        for index, player in pairs(causeForce.players) do
            player.unlock_achievement("tango-down")
        end
        -- Homewrecker
    elseif cause and causeForce and cause.type == "character" and entity.type == "unit-spawner" then
        for index, player in pairs(causeForce.players) do
            player.unlock_achievement("homewrecker")
        end
        -- Turret creeper
    elseif cause and causeForce and cause.type:find("turret") and entity.type == "unit-spawner" then
        for index, player in pairs(cause.force.players) do
            player.unlock_achievement("turret-creeper")
        end
        -- Shot down
    elseif cause and causeForce and cause.type == "unit" and (entity.type == "construction-robot" or entity.type == "logistic-robot") then
        for index, player in pairs(entity.force.players) do
            player.unlock_achievement("shot-down")
        end
        -- Deforestation
    elseif entity.type == "tree" then
        treeDestroyed(e)

        -- If you build it they will destroy it
    elseif cause and causeForce and cause.type == "unit" and entity.has_flag("player-creation") then
        for index, player in pairs(entity.force.players) do
            for index, player in pairs(entity.force.players) do
                player.unlock_achievement("if-you-build-it-they-will-destroy-it")
            end
        end
    elseif not cause and entity.type:find("turret") and entity.has_flag("player-creation") then --god damn it Wube, why you gotta make turrets weird
        for index, player in pairs(entity.force.players) do
            for index, player in pairs(entity.force.players) do
                player.unlock_achievement("if-you-build-it-they-will-destroy-it")
            end
        end
    end
end
script.on_event(defines.events.on_entity_died, onEntityDied)

-- Determines if the area provided is a zero size area.
function isZeroSizeArea(area)
    return (area.left_top.x == area.right_bottom.x) and (area.left_top.y == area.right_bottom.y)
end

function onBlueprint(e)
    local player = game.players[e.player_index]
    if not player then return end
    player.unlock_achievement("blueprinted")
    if not isZeroSizeArea(e.area) and player.surface.count_entities_filtered{type = "splitter", area = e.area} >= 10 then
        player.unlock_achievement("well-balanced")
    end
end
script.on_event(defines.events.on_player_setup_blueprint, onBlueprint)

function onItemPickup(e)
    local player = game.players[e.player_index]
    if not player then return end
    player.unlock_achievement("looted")
end
script.on_event(defines.events.on_picked_up_item, onItemPickup)

-- This must be done to give the achievement to the right force that owns the drill
function onResourceDepleted(e)
    local entity = e.entity.surface.find_entities_filtered{type="mining-drill", position = e.entity.position}
    if not entity or not entity[1] then return end
    for index, player in pairs(entity[1].force.players) do
        player.unlock_achievement("depleted")
    end
end
script.on_event(defines.events.on_resource_depleted, onResourceDepleted)

function onSettingsPasted(e)
    local player = game.players[e.player_index]
    if player then
        player.unlock_achievement("copy-and-pasted")
    end
end
script.on_event(defines.events.on_entity_settings_pasted, onSettingsPasted)

function onConsoleChat(e)
    if not e.player_index then return end
    local player = game.players[e.player_index]
    if player then
        player.unlock_achievement("hello-world")
    end
end
script.on_event(defines.events.on_console_chat, onConsoleChat)

-- game.print(e.item_stack.count) -- work \ water have 0 count
function onPlayerCrafted(e)
    ------------------------------------------ Custom code | ADD check for fluid
    if e.item_stack.count == 0 then return end
    ------------------------------------------
    if not e.item_stack or not e.item_stack.valid then return end

    local item = e.item_stack.name
    local player = game.players[e.player_index]

    if item == "submachine-gun" then
        player.unlock_achievement("fully-automatic")
    elseif item == "rocket-launcher" then
        player.unlock_achievement("maggots")
    elseif item == "flamethrower" then
        player.unlock_achievement("we-didnt-start-the-fire")
    end
end
script.on_event(defines.events.on_player_crafted_item, onPlayerCrafted)

function onPlaced(e)
    if e.created_entity.type == "entity-ghost" and game.players[e.player_index] then
        game.players[e.player_index].unlock_achievement("ghosted")
    end
end
script.on_event(defines.events.on_built_entity, onPlaced)
--script.on_event(defines.events.on_robot_built_entity, onPlaced) We don't get a player index here, so we are unable to attribute the achievement to a player

function onResearch(e)
    local research = e.research
    local force = research.force
    if research.name:find("-50") then --A level 50 research
        for index, player in pairs(force.players) do
            player.unlock_achievement("dedication")
        end
    end
end
script.on_event(defines.events.on_research_finished, onResearch)

function onRocketLaunched(event)
    local force = event.rocket.force
    -- if they launch a rocket containing no satellite and no fish
    if event.rocket.get_item_count("satellite") == 0 and event.rocket.get_item_count("raw-fish") == 0 and event.rocket.get_item_count("car") == 0 then
        for index, player in pairs(force.players) do
            player.unlock_achievement("you-forgot-something")
        end
    elseif event.rocket.get_item_count("satellite") == 0 and event.rocket.get_item_count("raw-fish") == 0 and event.rocket.get_item_count("car") >= 1 then
        for index, player in pairs(force.players) do
            player.unlock_achievement("dont-panic")
        end
    end
end
script.on_event(defines.events.on_rocket_launched, onRocketLaunched)

function onTick(e)
    if e.tick % 8000 == 0 then
        if game.surfaces[1].count_entities_filtered{name = "small-lamp"} >= 200 then
            for index, player in pairs(game.players) do
                player.unlock_achievement("let-there-be-light")
            end
        end
        if game.surfaces[1].count_entities_filtered{name = "solar-panel"} >= 10000 then
            for index, player in pairs(game.players) do
                player.unlock_achievement("praise-the-sun")
            end
        end
    end
    if e.tick % 16000 == 0 then
        if game.surfaces[1].count_entities_filtered{type = "transport-belt"} >= 10000 then
            for index, player in pairs(game.players) do
                player.unlock_achievement("convey-your-ideas")
            end
        end
    end
end
script.on_event(defines.events.on_tick, onTick)

-- I'm melting
script.on_event(defines.events.on_player_died, function(e)
    local causeEntity = e.cause
    -- Check for validity, since worm turrets are annoying
    if not causeEntity then return end
    local player = game.players[e.player_index]
    if not validate_player(player) then
        return
    end

    if causeEntity.name == "small-worm-turret" or causeEntity.name == "medium-worm-turret" or causeEntity.name == "big-worm-turret" then
        player.unlock_achievement("im-melting")
    end

    --Friendly fire - destroy your own building
    if causeEntity.name == "character" then
        player.unlock_achievement("friendly-fire")
    end
end)

function cliffDestroyed(e)
    if e.robot then
        for i, player in pairs(e.robot.force.players) do
            player.unlock_achievement("terraformer")
        end
    else
        local player = game.players[e.player_index]
        local capsuleUsed = e.item
        if capsuleUsed.name == "cliff-explosives" then
            player.unlock_achievement("terraformer")
        end
    end
end
script.on_event({defines.events.on_player_used_capsule, defines.events.on_robot_exploded_cliff}, cliffDestroyed)