Открываешь: gamedata\scripts\ui_main_menu.script
там находишь строки:

elseif dik == DIK_keys.DIK_A then
if amk.check_game() then
self:amk_options()

и сразу под ними вставляешь эти:

local id, obj, kto
for id=0, 65535 do
obj = level.object_by_id(id)
if obj and IsStalker(obj) then
kto = obj:character_community()
if (kto == "freedom") then
obj:set_goodwill(500, db.actor)
end
end
end
end

Сохраняешь изменения, загружаешь сейв, жмешь по очереди кнопки: "Еsc" > "А" > "Еsc"
Теперь Свобода - в друзьях. Если нет, то нажать на "А" ещё.

local id, obj, kto
for id=0, 65535 do
obj = level.object_by_id(id)
if obj and IsStalker(obj) then
kto = obj:character_community()
if (kto == "название группировки") then
obj:set_goodwill(5000, db.actor)
end
end
end
end

FATAL ERROR

[error]Expression : fatal error
[error]Function : CScriptEngine::lua_error
[error]File : E:\stalker\sources\trunk\xr_3da\xrGame\script_engine.cpp
[error]Line : 73
[error]Description : <no expression>
[error]Arguments : LUA error: ...\s.t.a.l.k.e.r\gamedata\scripts\monster_parts.script:31: attempt to call field 'move_off' (a nil value)

Expression : fatal error
Function : CScriptEngine::lua_error
File : E:\stalker\sources\trunk\xr_3da\xrGame\script_engine.cpp
Line : 73
Description : <no expression>
Arguments : LUA error: ...единенный Пак 2\gamedata\scripts\bind_stalker.script:1243: bad argument #2 to 'format' (string expected, got no value)