diff options
Diffstat (limited to 'gamemode/cl_various/calcview.lua')
| -rw-r--r-- | gamemode/cl_various/calcview.lua | 172 |
1 files changed, 172 insertions, 0 deletions
diff --git a/gamemode/cl_various/calcview.lua b/gamemode/cl_various/calcview.lua new file mode 100644 index 0000000..2530025 --- /dev/null +++ b/gamemode/cl_various/calcview.lua @@ -0,0 +1,172 @@ + +local Camdist = 60 --Dont change this +local Camcdist = 60 --Dont change this +local CamMin = 20 +local CamMax = 200 +local Campos = Vector( 0 , 0 , 0 ) +local Aimpos = Vector( 0 , 0 , 0 ) +local AimVect = Vector( 0 , 0 , 0 ) +local RPos = Campos +local CamEnt = NULL +local DefDCam = nil +local EnabledFT = true +local CamZNear = 1 +local CamZFar = nil +local CamKey = KEY_C +local CamHeight = 0 +local NewFunc = nil + +--I was wondering if I should use the vgui functions or the bindpress. The advantage is that the vgui one works even when your mouse is out. +--However, it might get annoying when you are trying to scroll a scrollbar. ;P +vgui.GetWorldPanel():SetWorldClicker(false) + +hook.Add("PlayerBindPress","CameraScroll",function(ply,bind,pressed) + self = GM or GAMEMODE + + if (EnabledFT and (!CamKey or input.IsKeyDown(CamKey))) then + if (bind == "invnext") then + self:AddCameraDistance(10) + return true + end + + if (bind == "invprev") then + self:AddCameraDistance(-10) + return true + end + end +end) + +function GM:SetCameraKey(KEY) + CamKey = KEY +end + +function GM:SetCameraDistance(dist) + if (dist > CamMax) then dist = CamMax end + if (dist < CamMin) then dist = CamMin end + + if (Camdist != dist and LocalPlayer():Alive()) then + if (dist == CamMin) then OnCameraModeSwitch(true) + elseif (Camdist == CamMin) then OnCameraModeSwitch(false) end + end + + Camdist = dist +end + +function GM:AddCameraDistance(add) + local dist = Camdist + add + if (dist > CamMax) then dist = CamMax end + if (dist < CamMin) then dist = CamMin end + + if (Camdist != dist and LocalPlayer():Alive()) then + if (dist == CamMin) then self:OnCameraModeSwitch(true) + elseif (Camdist == CamMin) then self:OnCameraModeSwitch(false) end + end + + Camdist = dist +end + +function GM:SetEnableThirdPerson(bool) + EnabledFT = bool +end + +function IsFirstPerson() + return (Camdist <= CamMin or !EnabledFT) +end + +function GM:OnCameraModeSwitch(bFirstPerson) +end + +function GetCameraPos() + return RPos +end + +function SetCameraObject(Ent) + CamEnt = Ent +end + +function SetDefaultDeathPos(Pos) + DefDCam = Pos +end + +function SetCameraMinDistance(Dist) + CamMin = Dist +end + +function SetCameraMaxDistance(Dist) + CamMax = Dist +end + +function SetCameraZNear(Near) + CamZNear = Near +end + +function SetCameraZFar(Far) + CamZFar = Far +end + +function SetCameraOffsetHeight(H) + CamHeight=H +end + +function OverrideDefaultGFCamera(Fun) + NewFunc = Fun +end + +hook.Add("CalcView","View",function(ply, origin, angles, fov) + if (NewFunc) then + local Cal = NewFunc(ply, origin, angles, fov) + + if (Cal) then return Cal end + end + + local view = {} + + AimPos = ply:GetAimVector() + AimVect = AimVect + (AimPos-AimVect)/2 + + view.znear = CamZNear + view.zfar = CamZFar + + view.origin = origin + + if (!ply:Alive()) then + if (DefDCam) then origin = DefDCam end + + view.origin = origin + AimPos * -80 + RPos = view.origin + return view + end + + if (!EnabledFT) then return view end + + if (Camdist > CamMin or IsValid(CamEnt)) then + Camcdist = Camcdist + (Camdist-Camcdist)/16 + local Distance = Camcdist + + Campos = ply:GetShootPos() + Campos.z = Campos.z + + if (IsValid(CamEnt)) then Campos = CamEnt:GetPos() end + + local Aimer = AimVect + local data = {} + + data.start = Campos + data.endpos = Campos - Aimer * Distance + data.filter = ply + data.mask = MASK_SOLID_BRUSHONLY + data.mins = ply:OBBMaxs()/3*-1 + data.maxs = ply:OBBMaxs()/3 + + local trace = util.TraceHull( data ) + + view.origin = trace.HitPos + view.angles = Aimer:Angle() + end + + view.origin.z = view.origin.z + CamHeight + + RPos = view.origin or origin + + return view +end)
\ No newline at end of file |