Upload

gamemodes/darkrp/plugins/scannerplugin/entities/entities/ix_scanner/cl_init.lua

@@ -0,0 +1,88 @@
+--[[
+| 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/
+--]]
+
+include("shared.lua")
+
+local knots = {
+    Vector(-20, 0, 0),
+    Vector(-30, 0, 0),
+    Vector(120, 0, 0),
+    Vector(90, 0, 0),
+}
+
+function ENT:Think()
+    local velocity = self:GetVelocity()
+    local lengthSqr = velocity:LengthSqr()
+    self.wheel = self.wheel or 360
+    self.wheel = self.wheel - math.min((lengthSqr / 80) + 250, 900)
+        * FrameTime()
+    if (self.wheel < 0) then
+        self.wheel = 360
+    end
+
+    self:SetPoseParameter("dynamo_wheel", self.wheel)
+
+    local t = velocity.z / self.maxSpeed
+    self.tail = math.BSplinePoint(t, knots, 1)
+    self.realTail = Lerp(FrameTime() * 5, self.realTail or 0, self.tail.x)
+    self:SetPoseParameter("tail_control", self.realTail)
+
+    local pilot = self:GetPilot()
+    local angles = self:GetAngles()
+    local goalAngles = IsValid(pilot) and pilot:EyeAngles() or angles
+
+    local hDiff = math.AngleDifference(goalAngles.y, angles.y) / 45
+    local vDiff = math.AngleDifference(goalAngles.p, angles.p) / 45
+    self:SetPoseParameter("flex_horz", hDiff * 20)
+    self:SetPoseParameter("flex_vert", vDiff * 20)
+
+    self:PlayFlySound()
+
+    if (self.sound) then
+        self.sound:ChangePitch(math.min(80 + (lengthSqr / 10000)*20, 255), 0.5)
+    end
+end
+
+function ENT:PlayFlySound()
+    if (not self.sound) then
+        local source = "npc/scanner/cbot_fly_loop.wav"
+        if (self:GetModel():find("shield_scanner")) then
+            source = "npc/scanner/combat_scan_loop6.wav"
+        end
+        self.sound = CreateSound(self, source)
+        self.sound:PlayEx(0.5, 100)
+    elseif (not self.sound:IsPlaying()) then
+        self.sound:Play()
+    end
+end
+
+function ENT:OnRemove()
+    if (self.sound) then
+        self.sound:Stop()
+        self.sound = nil
+    end
+end
+
+net.Receive("ixScannerFlash", function()
+    local entity = net.ReadEntity()
+    if (IsValid(entity)) then
+        local light = DynamicLight(entity:EntIndex())
+        if (not light) then return end
+
+        light.pos = entity:GetPos() + entity:GetForward() * 24
+        light.r = 255
+        light.g = 255
+        light.b = 255
+        light.brightness = 5
+        light.Decay = 5000
+        light.Size = 360
+        light.DieTime = CurTime() + 1
+    end
+end)

gamemodes/darkrp/plugins/scannerplugin/entities/entities/ix_scanner/init.lua

@@ -0,0 +1,404 @@
+--[[
+| 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/
+--]]
+
+include("shared.lua")
+
+AddCSLuaFile("cl_init.lua")
+AddCSLuaFile("shared.lua")
+
+util.AddNetworkString("ixScannerFlash")
+
+ENT.scanSounds = {
+    "npc/scanner/scanner_scan1.wav",
+    "npc/scanner/scanner_scan2.wav",
+    "npc/scanner/scanner_scan4.wav",
+    "npc/scanner/scanner_scan5.wav",
+    "npc/scanner/combat_scan1.wav",
+    "npc/scanner/combat_scan2.wav",
+    "npc/scanner/combat_scan3.wav",
+    "npc/scanner/combat_scan4.wav",
+    "npc/scanner/combat_scan5.wav",
+}
+ENT.painSounds = {
+    "npc/scanner/scanner_pain1.wav",
+    "npc/scanner/scanner_pain2.wav",
+    "npc/scanner/scanner_alert1.wav",
+}
+ENT.sirenSound = "npc/scanner/scanner_siren2.wav"
+
+function ENT:EjectPilot(no)
+    local pilot = self:GetPilot()
+    if (not IsValid(pilot)) then return end
+
+    pilot:SetMoveType(MOVETYPE_WALK)
+    pilot:UnSpectate()
+
+    if (not self.noRespawn) then
+        pilot:Spawn()
+    end
+
+    pilot:DrawViewModel(true)
+    pilot:CrosshairEnable()
+
+    if (self.health <= 0) then
+        pilot:KillSilent()
+    end
+
+    self:SetPilot(NULL)
+end
+
+function ENT:SetPilotEntity(client)
+    self:EjectPilot()
+    self:SetPilot(client)
+
+    client:Spectate(OBS_MODE_CHASE)
+    client:SpectateEntity(self)
+    client:StripWeapons()
+    client:DrawViewModel(false)
+    client:CrosshairDisable()
+    client:Flashlight(false)
+    client:SetHealth(self.maxHealth)
+end
+
+function ENT:CreateFlashSprite()
+    if (IsValid(self.spotlight)) then return end
+
+    local SCANNER_ATTACHMENT_LIGHT = "light"
+
+    self.flashSprite = ents.Create("env_sprite")
+    self.flashSprite:SetAttachment(
+        self,
+        self:LookupAttachment(SCANNER_ATTACHMENT_LIGHT)
+    )
+    self.flashSprite:SetKeyValue("model", "sprites/blueflare1.vmt")
+    self.flashSprite:SetKeyValue("scale", 1.4)
+    self.flashSprite:SetKeyValue("rendermode", 3)
+    self.flashSprite:SetRenderFX(kRenderFxNoDissipation)
+    self.flashSprite:Spawn()
+    self.flashSprite:Activate()
+    self.flashSprite:SetColor(Color(255, 255, 255, 0))
+end
+
+function ENT:EnableSpotlight()
+    if (IsValid(self.spotlight)) then return end
+
+    local SCANNER_ATTACHMENT_LIGHT = "light"
+    local attachment = self:LookupAttachment(SCANNER_ATTACHMENT_LIGHT)
+    local position = self:GetAttachment(attachment)
+
+    if (not position) then return end
+
+    -- The volumetric light effect.
+    self.spotlight = ents.Create("point_spotlight")
+    self.spotlight:SetPos(position.Pos)
+    self.spotlight:SetAngles(self:GetAngles())
+    self.spotlight:SetParent(self)
+    self.spotlight:Fire("SetParentAttachment", SCANNER_ATTACHMENT_LIGHT)
+    self.spotlight:SetLocalAngles(self:GetForward():Angle())
+    self.spotlight:SetKeyValue("spotlightwidth", self.spotlightWidth)
+    self.spotlight:SetKeyValue("spotlightlength", self.spotlightLength)
+    self.spotlight:SetKeyValue("HDRColorScale", self.spotlightHDRColorScale)
+    self.spotlight:SetKeyValue("color", "255 255 255")
+    -- On by default and disable dynamic light.
+    self.spotlight:SetKeyValue("spawnflags", 3)
+    self.spotlight:Spawn()
+    self.spotlight:Activate()
+
+    -- The actual dynamic light.
+    self.flashlight = ents.Create("env_projectedtexture")
+    self.flashlight:SetPos(position.Pos)
+    self.flashlight:SetParent(self)
+    self.flashlight:SetLocalAngles(self.spotlightLocalAngles)
+    self.flashlight:SetKeyValue(
+        "enableshadows",
+        self.spotlightEnableShadows and 1 or 0
+    )
+    self.flashlight:SetKeyValue("nearz", self.spotlightNear)
+    self.flashlight:SetKeyValue("lightfov", self.spotlightFOV)
+    self.flashlight:SetKeyValue("farz", self.spotlightFar)
+    self.flashlight:SetKeyValue("lightcolor", "255 255 255")
+    self.flashlight:Spawn()
+    self.flashlight:Input(
+        "SpotlightTexture", NULL, NULL, "effects/flashlight/soft"
+    )
+end
+
+function ENT:DisableSpotlight()
+    if (IsValid(self.spotlight)) then
+        self.spotlight:SetParent(NULL)
+        self.spotlight:Input("LightOff")
+        self.spotlight:Fire("Kill", "", 0.25)
+    end
+
+    if (IsValid(self.flashlight)) then
+        self.flashlight:Remove()
+    end
+end
+
+function ENT:IsSpotlightOn()
+    return IsValid(self.spotlight)
+end
+
+function ENT:Initialize()
+    self:SetModel("models/Combine_Scanner.mdl")
+    self:PhysicsInit(SOLID_VPHYSICS)
+    self:SetSolid(SOLID_VPHYSICS)
+    self:AddSolidFlags(FSOLID_NOT_STANDABLE)
+    self:SetMoveType(MOVETYPE_VPHYSICS)
+    self:GetPhysicsObject():EnableMotion(true)
+    self:GetPhysicsObject():Wake()
+    self:GetPhysicsObject():EnableGravity(false)
+    self:ResetSequence("idle")
+    self:SetPlaybackRate(1.0)
+    self:AddFlags(FL_FLY)
+    self:PrecacheGibs()
+
+    if (SERVER) then
+        self:CreateFlashSprite()
+    end
+
+    self.targetDir = vector_origin
+    self.health = self.maxHealth
+end
+
+function ENT:SetClawScanner()
+    self:SetModel("models/shield_scanner.mdl")
+    self:PrecacheGibs()
+    self:ResetSequence("hoverclosed")
+end
+
+function ENT:Flash()
+    local max = 30
+    local value = max
+    local timerID = "ScannerFlash"..self:EntIndex()
+
+    self.flashSprite:SetColor(color_white)
+    self:EmitSound("npc/scanner/scanner_photo1.wav")
+
+    net.Start("ixScannerFlash")
+        net.WriteEntity(self)
+    net.SendPVS(self:GetPos())
+
+    timer.Create("ScannerFlash"..self:EntIndex(), 0, max, function()
+        if (IsValid(self) and IsValid(self.flashSprite)) then
+            self.flashSprite:SetColor(
+                Color(255, 255, 255, (value / max) * 255)
+            )
+            value = value - 1
+        else
+            timer.Remove(timerID)
+        end
+    end)
+
+    self:EmitDelayedSound(table.Random(self.scanSounds), 1)
+end
+
+function ENT:EmitDelayedSound(source, delay, volume, pitch)
+    timer.Simple(delay or 0, function()
+        if (IsValid(self)) then
+            self:EmitSound(source, volume, pitch)
+        end
+    end)
+end
+
+function ENT:HandlePilotMove()
+    local still = true
+    local pilot = self:GetPilot()
+
+    if (pilot:KeyDown(IN_FORWARD)) then
+        local speed = 10
+        if (pilot:KeyDown(IN_SPEED)) then
+            speed = speed + 200
+        end
+        self.accelXY = Lerp(0.1, self.accelXY, speed)
+        self.targetDir = self.targetDir + pilot:GetAimVector()
+        still = false
+    end
+    if (pilot:KeyDown(IN_JUMP)) then
+        self.accelXY = Lerp(0.25, self.accelXY, 10)
+        self.targetDir = self.targetDir + Vector(0, 0, 1)
+        still = false
+    end
+    if (pilot:KeyDown(IN_DUCK)) then
+        self.accelXY = Lerp(0.25, self.accelXY, 10)
+        self.targetDir = self.targetDir - Vector(0, 0, 1)
+        still = false
+    end
+    if (still) then
+        self.accelXY = Lerp(0.5, self.accelXY, 0)
+        self.accelZ = Lerp(0.5, self.accelZ, 0)
+    end
+
+    pilot:SetPos(self:GetPos())
+
+    if (pilot:GetMoveType() ~= MOVETYPE_NONE) then
+        pilot:SetMoveType(MOVETYPE_NONE)
+    end
+end
+
+function ENT:DiscourageHitGround()
+    local trace = util.TraceLine({
+        start = self:GetPos(),
+        endpos = self:GetPos() - self.minHoverHeight,
+        filter = {self, self:GetPilot()}
+    })
+    if (trace.Hit) then
+        self.targetDir.z = self.minHoverPush.z
+    end
+end
+
+function ENT:Think()
+    self.targetDir.x = 0
+    self.targetDir.y = 0
+    self.targetDir.z = 0
+    self:UpdateDirection()
+
+    if (IsValid(self:GetPilot())) then
+        self:HandlePilotMove()
+    end
+
+    self:DiscourageHitGround()
+    self.targetDir:Normalize()
+
+end
+
+function ENT:UpdateNoiseVelocity()
+    self.noise.z = math.sin(CurTime() * 2) * 75 * (1 - self.accelZ)
+end
+
+function ENT:FacePilotDirection()
+    self.faceAngles = self:GetPilot():EyeAngles()
+    self.faceAngles.p = math.Clamp(self.faceAngles.p, -30, 25)
+end
+
+function ENT:UpdateDirection()
+    if (IsValid(self:GetPilot())) then
+        self:FacePilotDirection()
+    end
+end
+
+local angDiff = math.AngleDifference
+
+function ENT:PhysicsUpdate(phys)
+    local dt = FrameTime()
+
+    local velocity = phys:GetVelocity()
+    local decay = self.velocityDecay
+    local maxSpeed = self.maxSpeed * dt
+    local targetDir = self.targetDir
+
+    velocity.x = decay.x * velocity.x + self.accelXY * maxSpeed * targetDir.x
+    velocity.y = decay.y * velocity.y + self.accelXY * maxSpeed * targetDir.y
+    velocity.z = decay.z * velocity.z
+        + self.accelXY * self.maxSpeedZ * targetDir.z * dt
+    self:UpdateNoiseVelocity()
+    velocity = velocity + self.noise * dt
+
+    if (velocity:LengthSqr() > self.maxSpeedSqr) then
+        velocity:Normalize()
+        velocity:Mul(self.maxSpeed)
+    end
+    phys:SetVelocity(velocity)
+
+    local angles = self:GetAngles()
+    self.accelAnglular.x =
+        angDiff(self.faceAngles.r, angles.r) * self.turnSpeed * dt
+    self.accelAnglular.y =
+        angDiff(self.faceAngles.p, angles.p) * self.turnSpeed * dt
+    self.accelAnglular.z =
+        angDiff(self.faceAngles.y, angles.y) * self.turnSpeed * dt
+    phys:AddAngleVelocity(
+        self.accelAnglular - phys:GetAngleVelocity() * self.angleDecay
+    )
+
+    -- Makes the spotlight motion more smooth.
+    if (IsValid(self.spotlight)) then
+        self.spotlight:SetAngles(self:GetAngles())
+    end
+
+    self.lastPhys = CurTime()
+end
+
+function ENT:Die(dmgInfo)
+    local force = dmgInfo and dmgInfo:GetDamageForce() or Vector(0, 0, 50)
+    self:GibBreakClient(force)
+
+    local effect = EffectData()
+        effect:SetStart(self:GetPos())
+        effect:SetOrigin(self:GetPos())
+        effect:SetMagnitude(0)
+        effect:SetScale(0.5)
+        effect:SetColor(25)
+        effect:SetEntity(self)
+    util.Effect("Explosion", effect, true, true)
+
+    self:EmitSound("NPC_SScanner.Die")
+    self:Remove()
+end
+
+function ENT:CreateDamageSmoke()
+    if (IsValid(self.smoke)) then return end
+
+    self.smoke = ents.Create("env_smoketrail")
+    self.smoke:SetParent(self)
+    self.smoke:SetLocalPos(vector_origin)
+    self.smoke:SetKeyValue("spawnrate", 5)
+    self.smoke:SetKeyValue("opacity", 1)
+    self.smoke:SetKeyValue("lifetime", 1)
+    self.smoke:SetKeyValue("startcolor", "200 200 200")
+    self.smoke:SetKeyValue("startsize", 5)
+    self.smoke:SetKeyValue("endsize", 20)
+    self.smoke:SetKeyValue("spawnradius", 10)
+    self.smoke:SetKeyValue("minspeed", 5)
+    self.smoke:SetKeyValue("maxspeed", 10)
+    self.smoke:Spawn()
+    self.smoke:Activate()
+end
+
+function ENT:RemoveDamageSmoke()
+    if (IsValid(self.smoke)) then
+        self.smoke:Remove()
+    end
+end
+
+function ENT:DoDamageSound()
+    -- smoke trail when damaged (env_smoketrail)
+    local critical = self.maxHealth * 0.25
+    if (self.lastHealth >= critical and self.health <= critical) then
+        self:CreateDamageSmoke()
+        self:EmitSound(self.sirenSound)
+    elseif ((self.nextPainSound or 0) < CurTime()) then
+        self.nextPainSound = CurTime() + 0.5
+
+        local painSound = table.Random(self.painSounds)
+        self:EmitSound(painSound)
+    end
+end
+
+function ENT:OnTakeDamage(dmgInfo)
+    self.lastHealth = self.health
+    self.health = self.health - dmgInfo:GetDamage()
+
+    if (self.health <= 0) then
+        self:Die(dmgInfo)
+    else
+        local pilot = self:GetPilot()
+        if (IsValid(pilot)) then
+            pilot:SetHealth(self.health)
+        end
+        self:DoDamageSound()
+    end
+end
+
+function ENT:OnRemove()
+    self:DisableSpotlight()
+    self:RemoveDamageSmoke()
+    self:EjectPilot()
+end

gamemodes/darkrp/plugins/scannerplugin/entities/entities/ix_scanner/shared.lua

@@ -0,0 +1,52 @@
+--[[
+| 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/
+--]]
+
+ENT.Type = "anim"
+ENT.PrintName = "Scanner"
+ENT.Category = "HL2 RP"
+ENT.Spawnable = true
+ENT.AdminOnly = true
+ENT.AutomaticFrameAdvance = true
+
+ENT.maxSpeed = 125
+ENT.maxSpeedZ = 50
+ENT.maxSpeedSqr = ENT.maxSpeed ^ 2
+ENT.minHoverPush = Vector(0, 0, 0.4)
+ENT.minHoverHeight = Vector(0, 0, 20)
+ENT.velocityDecay = Vector(0.975,0.975,0.95)
+ENT.accelXY = 0
+ENT.accelZ = 0
+ENT.noise = Vector(0, 0, 0)
+ENT.angleDecay = 0.2
+ENT.turnSpeed = 30
+ENT.faceAngles = Angle(0, 0, 0)
+ENT.accelAnglular = Vector(0, 0, 0)
+ENT.spotlightLength = 128
+ENT.spotlightWidth = 25
+ENT.spotlightEnableShadows = true
+ENT.spotlightNear = 1
+ENT.spotlightFar = 512
+ENT.spotlightFOV = 60
+ENT.spotlightLocalAngles = Angle(7.5, 0, 0)
+ENT.spotlightHDRColorScale = 0.67
+ENT.maxHealth = 100
+
+function ENT:SpawnFunction(client, trace, className)
+    local entity = ents.Create(className)
+    entity:SetPos(trace.HitPos + Vector(0, 0, 32))
+    entity:Spawn()
+    entity:SetPilotEntity(client)
+
+    return entity
+end
+
+function ENT:SetupDataTables()
+    self:NetworkVar("Entity", 0, "Pilot")
+end