local con = get_console()
function script_name()
con:execute("bind_sec scores kB")
-- Вместо B - любую клавишу
end

level.add_cam_effector("camera_effects\\dream.anm", 2, false, "")end

local dist = 1    --\Здесь менять скорость
local wear = 0.10   --\Порог "изнашивания" (xD), т.е. усталости
local wear_speed = 0.01   --\Скорость "изнашивания" (xDDDDD)
function purge()
if get_hud():GetCustomStatic("main_task") and db.actor.power>wear then
     local want_pos = device().cam_pos:add(device().cam_dir:mul(dist))
     local lvid = db.actor:level_vertex_id(want_pos)
     local lpos = level.vertex_position(lvid)
     if want_pos:distance_to(lpos) < dist/2 then
         db.actor:set_actor_position(lpos)
         return
     end
     lvid = level.vertex_in_direction(db.actor:level_vertex_id(),db.actor:direction(),dist)
     lpos = level.vertex_position(lvid)
     db.actor:set_actor_position(lpos)
     db.actor.power = - wear_speed
     level.add_cam_effector("camera_effects\\dream.anm", 2, false, "")
end
end