asdf

--For real, fuck XML, why can't I just pass arguments holy shit. It would make everything SO MUCH FUCKING EASIER
--OBJECT SCANNERS--
function has_freedom_case(actor, trader)
    if db.actor:object("case_freedom") then
        return true
    end
end

function has_duty_case(actor, trader)
    if db.actor:object("case_duty") then
        return true
    end
end

function has_bandit_case(actor, trader)
    if db.actor:object("case_bandit") then
        return true
    end
end

function has_monolith_case(actor, trader)
    if db.actor:object("case_monolith") then
        return true
    end
end

function has_military_case(actor, trader)
    if db.actor:object("case_military") then
        return true
    end
end

function has_ecologist_case(actor, trader)
    if db.actor:object("case_ecologist") then
        return true
    end
end

function has_merc_case(actor, trader)
    if db.actor:object("case_merc") then
        return true
    end
end
----------------------------------------------
function has_freedom_flashdrive(actor, trader)
    if db.actor:object("flashdrive_freedom") then
        return true
    end
end

function has_duty_flashdrive(actor, trader)
    if db.actor:object("flashdrive_duty") then
        return true
    end
end

function has_bandit_flashdrive(actor, trader)
    if db.actor:object("flashdrive_bandit") then
        return true
    end
end

function has_monolith_flashdrive(actor, trader)
    if db.actor:object("flashdrive_monolith") then
        return true
    end
end

function has_military_flashdrive(actor, trader)
    if db.actor:object("flashdrive_military") then
        return true
    end
end

function has_ecologist_flashdrive(actor, trader)
    if db.actor:object("flashdrive_ecologist") then
        return true
    end
end

function has_merc_flashdrive(actor, trader)
    if db.actor:object("flashdrive_merc") then
        return true
    end
end
-----------------------------------------
function has_freedom_pda(actor, trader)
    if db.actor:object("freedom_pda_rank1") or db.actor:object("freedom_pda_rank2") or db.actor:object("freedom_pda_rank3") then
        return true
    end
end

function has_duty_pda(actor, trader)
    if db.actor:object("duty_pda_rank1") or db.actor:object("duty_pda_rank2") or db.actor:object("duty_pda_rank3") then
        return true
    end
end

function has_bandit_pda(actor, trader)
    if db.actor:object("bandit_pda_rank1") or db.actor:object("bandit_pda_rank2") or db.actor:object("bandit_pda_rank3") then
        return true
    end
end

function has_merc_pda(actor, trader)
    if db.actor:object("merc_pda_rank1") or db.actor:object("merc_pda_rank2") or db.actor:object("merc_pda_rank3") then
        return true
    end
end

function has_military_pda(actor, trader)
    if db.actor:object("military_pda_rank1") or db.actor:object("military_pda_rank2") or db.actor:object("military_pda_rank3") then
        return true
    end
end

function has_monolith_pda(actor, trader)
    if db.actor:object("monolith_pda_rank1") or db.actor:object("monolith_pda_rank2") or db.actor:object("monolith_pda_rank3") then
        return true
    end
end

function has_ecologist_pda(actor, trader)
    if db.actor:object("ecologist_pda_rank1") or db.actor:object("ecologist_pda_rank2") or db.actor:object("ecologist_pda_rank3") then
        return true
    end
end
-------------------------------------------------
function has_freedom_pda_1(actor, trader)
    if db.actor:object("freedom_pda_rank1") then
        return true
    end
end

function has_freedom_pda_2(actor, trader)
    if db.actor:object("freedom_pda_rank2") then
        return true
    end
end

function has_freedom_pda_3(actor, trader)
    if db.actor:object("freedom_pda_rank3") then
        return true
    end
end

function has_ecologist_pda_1(actor, trader)
    if db.actor:object("ecologist_pda_rank1") then
        return true
    end
end

function has_ecologist_pda_2(actor, trader)
    if db.actor:object("ecologist_pda_rank2") then
        return true
    end
end

function has_ecologist_pda_3(actor, trader)
    if db.actor:object("ecologist_pda_rank3") then
        return true
    end
end

function has_duty_pda_1(actor, trader)
    if db.actor:object("duty_pda_rank1") then
        return true
    end
end

function has_duty_pda_2(actor, trader)
    if db.actor:object("duty_pda_rank2") then
        return true
    end
end

function has_duty_pda_3(actor, trader)
    if db.actor:object("duty_pda_rank3") then
        return true
    end
end

function has_merc_pda_1(actor, trader)
    if db.actor:object("merc_pda_rank1") then
        return true
    end
end

function has_merc_pda_2(actor, trader)
    if db.actor:object("merc_pda_rank2") then
        return true
    end
end

function has_merc_pda_3(actor, trader)
    if db.actor:object("merc_pda_rank3") then
        return true
    end
end

function has_military_pda_1(actor, trader)
    if db.actor:object("military_pda_rank1") then
        return true
    end
end

function has_military_pda_2(actor, trader)
    if db.actor:object("military_pda_rank2") then
        return true
    end
end

function has_military_pda_3(actor, trader)
    if db.actor:object("military_pda_rank3") then
        return true
    end
end

function has_monolith_pda_1(actor, trader)
    if db.actor:object("monolith_pda_rank1") then
        return true
    end
end

function has_monolith_pda_2(actor, trader)
    if db.actor:object("monolith_pda_rank2") then
        return true
    end
end

function has_monolith_pda_3(actor, trader)
    if db.actor:object("monolith_pda_rank3") then
        return true
    end
end

function has_bandit_pda_1(actor, trader)
    if db.actor:object("bandit_pda_rank1") then
        return true
    end
end

function has_bandit_pda_2(actor, trader)
    if db.actor:object("bandit_pda_rank2") then
        return true
    end
end

function has_bandit_pda_3(actor, trader)
    if db.actor:object("bandit_pda_rank3") then
        return true
    end
end
--OBJECT TAKERS--
function freedom_take_case(actor, trader)
    local object = db.actor:object("case_freedom")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("freedom", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end

function duty_take_case(actor, trader)
    local object = db.actor:object("case_duty")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("dolg", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end

function bandit_take_case(actor, trader)
    local object = db.actor:object("case_bandit")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("bandit", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end

function merc_take_case(actor, trader)
    local object = db.actor:object("case_merc")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("killer", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end

function monolith_take_case(actor, trader)
    local object = db.actor:object("case_monolith")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("monolith", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end

function military_take_case(actor, trader)
    local object = db.actor:object("case_military")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("military", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end

function ecologist_take_case(actor, trader)
    local object = db.actor:object("case_ecologist")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("ecolog", db.actor:id(), 100)
    dialogs.relocate_money(actor, 30000, "in")
end
-------------------------------------
function freedom_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_freedom")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("freedom", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end

function duty_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_duty")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("dolg", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end

function bandit_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_bandit")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("bandit", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end

function merc_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_merc")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("killer", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end

function monolith_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_monolith")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("monolith", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end

function military_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_military")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("military", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end

function ecologist_take_flashdrive(actor, trader)
    local object = db.actor:object("flashdrive_ecologist")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("ecolog", db.actor:id(), 75)
    dialogs.relocate_money(actor, 2000, "in")
end
-------------------------------------------------------
function freedom_take_pda_1(actor, trader)
    local object = db.actor:object("freedom_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("freedom", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function freedom_take_pda_2(actor, trader)
    local object = db.actor:object("freedom_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("freedom", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function freedom_take_pda_3(actor, trader)
    local object = db.actor:object("freedom_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("freedom", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end

function duty_take_pda_1(actor, trader)
    local object = db.actor:object("duty_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("dolg", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function duty_take_pda_2(actor, trader)
    local object = db.actor:object("duty_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("dolg", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function duty_take_pda_3(actor, trader)
    local object = db.actor:object("duty_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("dolg", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end

function bandit_take_pda_1(actor, trader)
    local object = db.actor:object("bandit_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("bandit", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function bandit_take_pda_2(actor, trader)
    local object = db.actor:object("bandit_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("bandit", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function bandit_take_pda_3(actor, trader)
    local object = db.actor:object("bandit_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("bandit", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end

function monolith_take_pda_1(actor, trader)
    local object = db.actor:object("monolith_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("monolith", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function monolith_take_pda_2(actor, trader)
    local object = db.actor:object("monolith_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("monolith", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function monolith_take_pda_3(actor, trader)
    local object = db.actor:object("monolith_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("monolith", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end

function military_take_pda_1(actor, trader)
    local object = db.actor:object("military_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("military", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function military_take_pda_2(actor, trader)
    local object = db.actor:object("military_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("military", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function military_take_pda_3(actor, trader)
    local object = db.actor:object("military_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("military", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end

function merc_take_pda_1(actor, trader)
    local object = db.actor:object("merc_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("killer", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function merc_take_pda_2(actor, trader)
    local object = db.actor:object("merc_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("killer", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function merc_take_pda_3(actor, trader)
    local object = db.actor:object("merc_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("killer", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end

function ecologist_take_pda_1(actor, trader)
    local object = db.actor:object("ecologist_pda_rank1")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("ecolog", db.actor:id(), 75)
    dialogs.relocate_money(actor, 10000, "in")
end
function ecologist_take_pda_2(actor, trader)
    local object = db.actor:object("ecologist_pda_rank2")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("ecolog", db.actor:id(), 125)
    dialogs.relocate_money(actor, 15000, "in")
end
function ecologist_take_pda_3(actor, trader)
    local object = db.actor:object("ecologist_pda_rank3")
    alife():release(alife():object(object:id()))
    relation_registry.change_community_goodwill("ecolog", db.actor:id(), 175)
    dialogs.relocate_money(actor, 20000, "in")
end