Files
wnsrc/lua/entities/portals_in.lua
lifestorm 6a58f406b1 Upload
2024-08-04 23:54:45 +03:00

136 lines
2.7 KiB
Lua

--[[
| This file was obtained through the combined efforts
| of Madbluntz & Plymouth Antiquarian Society.
|
| Credits: lifestorm, Gregory Wayne Rossel JR.,
| Maloy, DrPepper10 @ RIP, Atle!
|
| Visit for more: https://plymouth.thetwilightzone.ru/
--]]
AddCSLuaFile()
DEFINE_BASECLASS("portals_base")
ENT.Base = "portals_base"
ENT.RenderGroup = RENDERGROUP_TRANSLUCENT
ENT.PrintName = "Portal (Entrance)"
ENT.Category = "Portals"
ENT.Spawnable = true
ENT.Editable = true
ENT.BaseColor = Color(255, 136, 0)
ENT.ExitType = "portals_out"
function ENT:Initialize()
BaseClass.Initialize(self)
self.Filter = {}
end
local defaultSound = GetConVar("portals_default_sound")
function ENT:SetupDataTables()
self:NetworkVar("String", 0, "Group", {
KeyName = "group",
Edit = {
order = 0,
type = "Generic"
}
})
self:NetworkVar("String", 1, "TeleportSound", {
KeyName = "sound",
Edit = {
title = "Teleport Sound",
order = 1,
type = "Generic"
}
})
self:NetworkVar("Vector", 0, "PortalColor", {
KeyName = "portalcolor",
Edit = {
order = 1,
type = "VectorColor"
}
})
self:SetTeleportSound(defaultSound:GetString())
self:SetPortalColor(self.BaseColor:ToVector())
end
local allow = GetConVar("portals_allow_custom_colors")
function ENT:GetCustomColor()
return allow:GetBool() and self:GetPortalColor():ToColor() or self.BaseColor
end
if SERVER then
function ENT:StartTouch(ent)
if self.Filter[ent] or self:GetPhysicsObject():HasGameFlag(FVPHYSICS_PLAYER_HELD) or not self:IsValidEntity(ent) then
return
end
local exits = {}
for _, v in ipairs(ents.FindByClass(self.ExitType)) do
if v != self and v:GetGroup() == self:GetGroup() then
table.insert(exits, v)
end
end
local exit = exits[math.random(1, #exits)]
if not IsValid(exit) then
return
end
ent:ForcePlayerDrop()
if ent:IsPlayer() then
local ang = exit:LocalToWorldAngles(self:WorldToLocalAngles(ent:EyeAngles()))
ang.p = math.Clamp(math.NormalizeAngle(ang.p), -89, 89)
ang.r = 0
ent:SetPos(exit:WorldSpaceCenter())
ent:SetAngles(ang)
ent:SetEyeAngles(ang)
ent:SetVelocity(-ent:GetVelocity())
ent:ScreenFade(SCREENFADE.IN, self:GetCustomColor(), 0.5, 0)
else
local ang = exit:LocalToWorldAngles(self:WorldToLocalAngles(ent:GetAngles()))
local rot = exit:LocalToWorldAngles(-self:GetAngles())
local vel = ent:GetVelocity()
vel:Rotate(rot)
ent:SetPos(exit:WorldSpaceCenter())
ent:SetAngles(ang)
local phys = ent:GetPhysicsObject()
if IsValid(phys) then
phys:SetVelocity(vel)
end
end
self:TeleportEffect()
exit:TeleportEffect(ent)
if exit.Filter then
exit.Filter[ent] = true
end
end
function ENT:EndTouch(ent)
self.Filter[ent] = nil
end
end