Cloudbox

The Lua code for this item is presented in its original Garry's Mod 12 format, as it existed in 2010-2012. It does not include the fixes made by Cloudbox's compatibility layer for Garry's Mod 13.

Copyright for the item code belongs to the original author. Links in the code comments may be outdated and code may not reflect the skills of the author today. Please do not hassle the original author for support with this item.

ENT.Type   = "anim"
ENT.Base             = "base_anim";
ENT.PrintName        = "Diglett";
ENT.Author            = "Aska";
ENT.Purpose            = "Diglett-dig Diglett-dig";
ENT.RenderGroup         = RENDERGROUP_TRANSLUCENT

ENT.AutomaticFrameAdvance = true;

if (SERVER) then

AddCSLuaFile("shared.lua");

ENT.Anim = "idle2";

local numtraces = 7;

function ENT:Initialize()
    self:SetModel("models/diglett/diglett.mdl");
    self:PhysicsInit(SOLID_VPHYSICS);
    self:SetMoveType(MOVETYPE_NONE);
    self:SetSolid(SOLID_NONE);
    self:SetColor(255, 255, 255, 255);
    
    self:DrawShadow(false);
    
    self.Num = 2;
    self.DoSomething = (CurTime() + math.Rand(3, 5.5));
    
    timer.Simple(0, self.CheckForDigletts, self);
    
    timer.Simple(0, self.SetCycle, self, 0);
    self:ComeUp();
    timer.Simple(.52, function()
        if (ValidEntity(self)) then
            self:EmitSound("diglett/diglett.mp3", 75, math.random(94, 105));
        end
    end);
    
end

function ENT:CheckForDigletts()
    
    local digs = ents.FindByClass(self.ClassName);
    if (#digs <= 0 || digs[1] == self) then
        return;
    end
    
    self.DoSomething = digs[1].DoSomething;
    self.RoleModel = digs[1];
    
end

function ENT:ReturnToIdle(time)
    
    if (!ValidEntity(self)) then
        return
    end
    
    self:SetNWBool("IsDown", false);
    timer.Simple(time, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        self.Anim = "idle2";
        
    end);
end

function ENT:ComeUp()
    timer.Simple(0, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        self:SetNWBool("IsDown", false);
        self.Anim = "up";
        self:SetCycle(.1);
        self:ResetSequence(self:LookupSequence(self.Anim));
        self:ReturnToIdle((self:SequenceDuration() * .8));
        
    end);
end

function ENT:GoDown()
    timer.Simple(0, function()
    
        if (!ValidEntity(self)) then
            return
        end
        
        self.Anim = "down";
        self:SetCycle(0);
        self:ResetSequence(self:LookupSequence(self.Anim));
        
        local time = (self:SequenceDuration() * .9);
        timer.Simple(time, function()
            
            if (!ValidEntity(self)) then
                return
            end
            
            self:SetNWBool("IsDown", true);
            self.Anim = "down_idle";
            
        end);
        
    end);
end

function ENT:IsUp()
    return (self:GetNWBool("IsDown", false) == false);
end

function ENT:IsDown()
    return (self:GetNWBool("IsDown", false) == true);
end

function ENT:LookAtSpawner(ply)
    
    local pos, epos = ply:GetPos(), self:GetPos();
    
    local ang = (pos - epos):Angle();
    ang.r = 0;
    ang.p = 0;
    self:SetAngles(ang);
    
end

function ENT:NearbyDigletts(pos)
    
    local tbl = {};
    for k, v in pairs(ents.FindByClass(self.ClassName)) do
        if (v != self && v:GetPos():Distance(pos) <= 25) then
            
            table.insert(tbl, v);
            
        end
    end
    for k, v in pairs(ents.FindByClass("dugtrio")) do
        if (v != self && v:GetPos():Distance(pos) <= 25) then
            
            table.insert(tbl, v);
            
        end
    end
    for k, v in pairs(ents.FindByClass("diglett_follow")) do
        if (v != self && v:GetPos():Distance(pos) <= 25) then
            
            table.insert(tbl, v);
            
        end
    end
    
    return tbl;
    
end

function ENT:DIGLETTDIG()
    timer.Simple(0, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        local snd = Sound("diglett/diglettdig" .. tostring(math.random(1, 3)) .. ".mp3");
        self:EmitSound(snd, 75, 100);
        timer.Simple(.8, function()
            
            if (!ValidEntity(self)) then
                return
            end
            
            local snd = Sound("diglett/diglettdig" .. tostring(math.random(1, 3)) .. ".mp3");
            self:EmitSound(snd, 75, 100);
            
        end);
        
    end);
end

function ENT:SpawnFunction(ply, tr)
    if (!tr.HitWorld) then
        return;
    end
    local SpawnPos = (tr.HitPos + (tr.HitNormal * 16));
    local ent = ents.Create(ClassName);
    ent.ClassName = ClassName;
    ent:SetPos(SpawnPos);
    ent:Spawn();
    ent:Activate();
    ent:DropToFloor();
    
    //timer.Simple(.1, ent.LookAtSpawner, ent, ply);
    
    timer.Simple(.1, function()
        
        if (!ValidEntity(ent)) then
            return
        end
        
        local pos = ent:GetPos();
        local ppos = ply:GetPos();
        local up = ent:GetUp();
        local tr = util.QuickTrace((pos + (up * 16)), (up * -100000), ent);
        
        if (#ent:NearbyDigletts(tr.HitPos) > 0 || tr.HitSky) then
            ent:Remove();
            return;
        end
        
        local ang = tr.HitNormal:Angle();
        ang:RotateAroundAxis(ang:Right(), -90);
        
        //set him angular to the surface
        ent:SetPos(tr.HitPos);
        ent:SetAngles(ang);
                        
    end);
    
    return ent;
end

function ENT:FindRandomSpace(dis)
    
    if (!ValidEntity(self)) then
        return;
    end
    
    local pos = self:GetPos();
    
    local tr = util.QuickTrace(pos, Vector(0, 0, 200), self);
    local pos = tr.HitPos;
    
    local tbl = {};
    for i = 1, numtraces do
        
        local rndaround = (VectorRand() * dis);
        rndaround.z = 0;
        
        local tr = util.QuickTrace((pos + rndaround), Vector(0, 0, -10000), self);
        debugoverlay.Line((pos + rndaround), tr.HitPos, 3, Color(255, 0, 0))
        
        local contents = util.PointContents(tr.HitPos);
        local contentsOK = (contents != CONTENTS_SOLID && contents != CONTENTS_TRANSLUCENT && contents != CONTENTS_WATER);
        
        if (#self:NearbyDigletts(tr.HitPos) < 1 && tr.HitWorld && contentsOK) then
            local ang = tr.HitNormal:Angle();
            ang:RotateAroundAxis(ang:Right(), -90);
            table.insert(tbl, {pos = tr.HitPos, ang = ang});
        end
        
    end
    
    if (#tbl <= 0) then
        return {}, self:GetPos(), self:GetAngles();
    end
    
    local rnd = table.Random(tbl);
    local pos, ang = rnd.pos, rnd.ang;
    return tbl, pos, ang;
end

local move = 0;
function ENT:MoveAround()
    
    local tbl, pos, ang = self:FindRandomSpace(math.random(125, 200));
    
    if ((tbl == nil || pos == nil || ang == nil) && move < 5) then
        move = (move + 1);
        self:MoveAround(); //try again
        return;
    end
    if (move == 5) then //bah, humbug
        move = 0;
        self:ComeUp();
        self.DoSomething = (CurTime() + 4);
    end
    
    self:SetPos(pos);
    self:SetAngles(ang);
    
end

function ENT:OnRemove()
    if (ValidEntity(self.Dig1)) then
        self.Dig1:Remove();
    end
    if (ValidEntity(self.Dig2)) then
        self.Dig2:Remove();
    end
    if (ValidEntity(self.Trio)) then
        self.Trio:Remove();
    end
end

function ENT:GetClosestPlayer()
    local Target;
    for k, v in pairs(player:GetAll()) do
        if (v:IsPlayer()) then
            if !Target then
                Target = v
            else
                if v:GetPos():Distance(self:GetPos()) < Target:GetPos():Distance(self:GetPos()) then
                    Target = v
                end
            end
        end
    end
    return Target
end

function ENT:Think()
    
    
    if (self:WaterLevel() > 1) then
        self:Remove();
    end
    
    
    if (CurTime() >= self.DoSomething) then
        
        if (ValidEntity(self.RoleModel) && self:GetNWBool("IsDown", false) != self.RoleModel:GetNWBool("IsDown", false)) then
            self.DoSomething = self.RoleModel.DoSomething;
            return;
        end
        
        if (self:IsUp()) then //going down!
        
            self:GoDown();
            self.DoSomething = (CurTime() + 2.5);
            
        else //coming up!
        
            self:MoveAround();
        
            self:ComeUp();
            self.DoSomething = (CurTime() + 3.5);

if (self.Num >= 2) then
                self:DIGLETTDIG();
                
                timer.Simple(.5, function()
                    if (!ValidEntity(self)) then
                        return;
                    end
                    local tbl, pos, ang = self:FindRandomSpace(math.random(62, 100));
                    if (!ValidEntity(self.Dig1)) then
                        local dig = ents.Create("diglett_follow");
                        dig:SetPos(pos);
                        dig:SetAngles(ang);
                        dig.DoSomething = self.DoSomething;
                        dig:Spawn();
                        dig:Activate();
                        self.Dig1 = dig;
                    else
                        self.Dig1:SetPos(pos);
                        self.Dig1:SetAngles(ang);
                        self.Dig1:ComeUp();
                        self.Dig1.DoSomething = self.DoSomething;
                    end
                end);
                
                if (self.Num >= 3) then
                    timer.Simple(.5, function()
                        if (!ValidEntity(self)) then
                            return;
                        end
                        local tbl, pos, ang = self:FindRandomSpace(math.random(62, 100));
                        if (!ValidEntity(self.Dig2)) then
                            local dig = ents.Create("diglett_follow");
                            dig:SetPos(pos);
                            dig:SetAngles(ang);
                            dig.DoSomething = self.DoSomething;
                            dig:Spawn();
                            dig:Activate();
                            self.Dig2 = dig;
                        else
                            self.Dig2:SetPos(pos);
                            self.Dig2:SetAngles(ang);
                            self.Dig2:ComeUp();
                            self.Dig2.DoSomething = self.DoSomething;
                        end
                    end);
                end
                
                if (self.Num >= 4) then
                    
                    timer.Simple(1, function()
                    
                        if (!ValidEntity(self)) then
                            return
                        end
                        
                        local tbl, pos, ang = self:FindRandomSpace(math.random(50, 100));
                        if (!ValidEntity(self.Trio)) then
                            local trio = ents.Create("dugtrio");
                            trio:SetPos(pos);
                            trio:SetAngles(ang);
                            trio:Spawn();
                            trio:Activate();
                            self.Trio = trio;
                        else
                            self.Trio:SetPos(pos);
                            self.Trio:SetAngles(ang);
                            self.Trio:ComeUp();
                            self.Trio.DoSomething = (CurTime() + math.Rand(2, 3.2));
                        end
                        
                    end);
                    
                end
                
            else
                timer.Simple(.52, function()
                    if (ValidEntity(self)) then
                        self:EmitSound("diglett/diglett.mp3", 75, math.random(94, 105));
                    end
                end);
            end
            
            if (self.Num < 4) then
                self.Num = (self.Num + 1);
            end
            
        end
        
    end
    
    
    //shamelessly taken from blackops' portal camera, dont hate me  ;_;
    
    local ply = (self:GetClosestPlayer() || self)
    
        local goodpos = self:WorldToLocal( ply:GetShootPos() ):Angle()
    
    if (goodpos.p < 180) then
        goodpos.p = math.Clamp((goodpos.p + 24), -40, 40);
    else
        goodpos.p = math.Clamp((goodpos.p - 336), -40, 40);
    end
    
    if goodpos.y < 0 then
        goodpos.y = 360 + goodpos.y
    end
    
    if goodpos.y > 180 then
        goodpos.y = goodpos.y - 360
    end
    
    self:SetPoseParameter( "head_pitch", goodpos.p )
    self:SetPoseParameter( "head_yaw", goodpos.y )
    
    
    local anim = self.Anim;
    anim = self:LookupSequence(anim);
    
    if (self:GetSequence() == anim) then
        self:NextThink(CurTime());
        return true;
    end
    
    self:ResetSequence(anim);
    
    self:NextThink(CurTime());
    return true;
    
    
end

else

ENT.CanDraw = false;
function ENT:Initialize()
    timer.Simple(.2, function()
        self.CanDraw = true;
    end);
end
    
    
function ENT:Clip()
        
    local norm = self:GetUp();
    local pos = self:GetPos();
    local dis = norm:Dot(pos);    
        
    self:SetRenderClipPlaneEnabled(true);
    self:SetRenderClipPlane(norm, dis);

end

function ENT:Draw()
    
    if (!self.CanDraw) then
        return;
    end
        
    self:Clip(); 
    
    if (!self:GetNWBool("IsDown")) then
        self:DrawModel();
    end
    
end

end

local DIGLETT = {};

DIGLETT.Type   = "anim"
DIGLETT.Base             = "base_anim";
DIGLETT.PrintName        = "Diglett";
DIGLETT.Author            = "Aska";
DIGLETT.Purpose            = "Diglett-dig Diglett-dig";
DIGLETT.RenderGroup         = RENDERGROUP_TRANSLUCENT

DIGLETT.AutomaticFrameAdvance = true;

if (SERVER) then

AddCSLuaFile("shared.lua");

DIGLETT.Anim = "down_idle";

function DIGLETT:Initialize()
    self:SetModel("models/diglett/diglett.mdl");
    self:PhysicsInit(SOLID_VPHYSICS);
    self:SetMoveType(MOVETYPE_NONE);
    self:SetSolid(SOLID_NONE);
    self:SetColor(255, 255, 255, 255);
    
    self.Remove = false;
    
    self:DrawShadow(false);
    
    timer.Simple(0, self.SetCycle, self, 0);
    self:ComeUp();
    
end

function DIGLETT:ReturnToIdle(time)
    
    if (!ValidEntity(self)) then
        return
    end
    
    self:SetNWBool("IsDown", false);
    timer.Simple(time, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        self.Anim = "idle2";
        
    end);
end

function DIGLETT:ComeUp()
    timer.Simple(0, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        self:SetNWBool("IsDown", false);
        self.Anim = "up";
        self:SetCycle(.1);
        self:ResetSequence(self:LookupSequence(self.Anim));
        self:ReturnToIdle((self:SequenceDuration() * .8));
        
    end);
end

function DIGLETT:GoDown()
    timer.Simple(0, function()
    
        if (!ValidEntity(self)) then
            return
        end
        
        self.Anim = "down";
        self:SetCycle(0);
        self:ResetSequence(self:LookupSequence(self.Anim));
        
        local time = (self:SequenceDuration() * .9);
        self.DoSomething = (CurTime() + time);
        timer.Simple(time, function()
            
            if (!ValidEntity(self)) then
                return
            end
            
            self:SetNWBool("IsDown", true);
            self.Anim = "down_idle";
            self:ResetSequence(self:LookupSequence(self.Anim));
            
        end);
        
        self.DoSomething = (CurTime() + 125);
        
    end);
end

function DIGLETT:IsUp()
    return (self:GetNWBool("IsDown", false) == false);
end

function DIGLETT:IsDown()
    return (self:GetNWBool("IsDown", false) == true);
end

function DIGLETT:GetClosestPlayer()
    local Target
    for k, v in pairs(player:GetAll()) do
        if (v:IsPlayer()) then
            if !Target then
                Target = v
            else
                if v:GetPos():Distance(self:GetPos()) < Target:GetPos():Distance(self:GetPos()) then
                    Target = v
                end
            end
        end
    end
    return Target
end

function DIGLETT:Think()
    
    
    if (self:WaterLevel() > 1) then
        self:Remove();
    end
    
    
    if (CurTime() >= self.DoSomething) then
        
        if (self:IsUp()) then //going down!
        
            self:GoDown();
            
        end
        
    end
    
    
    local ply = self:GetClosestPlayer()
    
    local goodpos = self:WorldToLocal( ply:GetShootPos() ):Angle()
    
    if (goodpos.p < 180) then
        goodpos.p = math.Clamp((goodpos.p + 24), -40, 40);
    else
        goodpos.p = math.Clamp((goodpos.p - 336), -40, 40);
    end
    
    if goodpos.y < 0 then
        goodpos.y = 360 + goodpos.y
    end
    
    if goodpos.y > 180 then
        goodpos.y = goodpos.y - 360
    end
    
    self:SetPoseParameter( "head_pitch", goodpos.p )
    self:SetPoseParameter( "head_yaw", goodpos.y )
    
    
    local anim = self.Anim;
    anim = self:LookupSequence(anim);
    
    
    if (self:GetSequence() == anim) then
        self:NextThink(CurTime());
        return true;
    end
    
    self:ResetSequence(anim);
    
    self:NextThink(CurTime());
    return true;
    
    
end

else

DIGLETT.CanDraw = false;
function DIGLETT:Initialize()
    timer.Simple(.2, function()
        self.CanDraw = true;
    end);
end

function DIGLETT:Clip()
        
    local norm = self:GetUp();
    local pos = self:GetPos();
    local dis = norm:Dot(pos);    
        
    self:SetRenderClipPlaneEnabled(true);
    self:SetRenderClipPlane(norm, dis);

end

function DIGLETT:Draw()
    
    if (!self.CanDraw) then
        return;
    end
        
    self:Clip(); 
    
    if (!self:GetNWBool("IsDown")) then
        self:DrawModel();
    end
    
end

end

scripted_ents.Register(DIGLETT, "diglett_follow");

local DUGTRIO = {};

DUGTRIO.Type   = "anim"
DUGTRIO.Base             = "base_anim";
DUGTRIO.PrintName        = "Dugtio";
DUGTRIO.Author            = "Aska";
DUGTRIO.Purpose            = "TRIO TRIO TRIO";
DUGTRIO.RenderGroup         = RENDERGROUP_TRANSLUCENT

DUGTRIO.AutomaticFrameAdvance = true;

if (SERVER) then

AddCSLuaFile("shared.lua");

DUGTRIO.Anim = "down_idle";

function DUGTRIO:Initialize()
    self:SetModel("models/diglett/dugtrio.mdl");
    self:PhysicsInit(SOLID_VPHYSICS);
    self:SetMoveType(MOVETYPE_NONE);
    self:SetSolid(SOLID_NONE);
    self:SetColor(255, 255, 255, 255);
    
    self:DrawShadow(false);
    
    self.DoSomething = (CurTime() + math.Rand(2, 3.2));
    
    timer.Simple(0, self.SetCycle, self, 0);
    self:ComeUp();
    
end

function DUGTRIO:ReturnToIdle(time)
    
    if (!ValidEntity(self)) then
        return
    end
    
    self:SetNWBool("IsDown", false);
    timer.Simple(time, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        self.Anim = "idle2";
        
    end);
end

function DUGTRIO:ComeUp()
    timer.Simple(0, function()
        
        if (!ValidEntity(self)) then
            return
        end
        
        self:SetNWBool("IsDown", false);
        self.Anim = "up";
        self:SetCycle(.1);
        self:ResetSequence(self:LookupSequence(self.Anim));
        self:ReturnToIdle((self:SequenceDuration() * .8));
        
        local ply = self:GetClosestPlayer()
    
        local goodpos = self:WorldToLocal( ply:GetShootPos() ):Angle()
        
        if goodpos.y < 0 then
            goodpos.y = 360 + goodpos.y
        end
        
        if goodpos.y > 180 then
            goodpos.y = goodpos.y - 360
        end
        self.Yaw = goodpos.y;
        
        timer.Simple(.5, function()
            if (ValidEntity(self)) then
                self:EmitSound("diglett/triotriotrio.mp3", 75, math.random(94, 105));
            end
        end);
        
    end);
end

function DUGTRIO:GoDown()
    timer.Simple(0, function()
    
        if (!ValidEntity(self)) then
            return
        end
        
        self.Anim = "down";
        self:SetCycle(0);
        self:ResetSequence(self:LookupSequence(self.Anim));
        
        local time = (self:SequenceDuration() * .9);
        self.DoSomething = (CurTime() + time);
        timer.Simple(time, function()
            
            if (!ValidEntity(self)) then
                return
            end
            
            self:SetNWBool("IsDown", true);
            self.Anim = "down_idle";
            self:ResetSequence(self:LookupSequence(self.Anim));
            
        end);
        
        self.DoSomething = (CurTime() + 125);
        
    end);
end

function DUGTRIO:IsUp()
    return (self:GetNWBool("IsDown", false) == false);
end

function DUGTRIO:IsDown()
    return (self:GetNWBool("IsDown", false) == true);
end

function DUGTRIO:GetClosestPlayer()
    local Target
    for k, v in pairs(player:GetAll()) do
        if (v:IsPlayer()) then
            if !Target then
                Target = v
            else
                if v:GetPos():Distance(self:GetPos()) < Target:GetPos():Distance(self:GetPos()) then
                    Target = v
                end
            end
        end
    end
    return Target
end

function DUGTRIO:Think()
    
    
    if (self:WaterLevel() > 1) then
        self:Remove();
    end
    
    
    if (CurTime() >= self.DoSomething) then
        
        if (self:IsUp()) then //going down!
        
            self:GoDown();
            
        end
        
    end
    
    
    local ply = self:GetClosestPlayer()
    
    local goodpos = self:WorldToLocal( ply:GetShootPos() ):Angle()
    
    if (goodpos.p < 180) then
        goodpos.p = math.Clamp((goodpos.p + 24), -40, 40);
    else
        goodpos.p = math.Clamp((goodpos.p - 336), -40, 40);
    end
    
    if goodpos.y < 0 then
        goodpos.y = 360 + goodpos.y
    end
    
    if goodpos.y > 180 then
        goodpos.y = goodpos.y - 360
    end
    
    self:SetPoseParameter( "head_pitch", goodpos.p )
    self:SetPoseParameter( "head_yaw", goodpos.y )
    
    if (self.Yaw) then
        self:SetPoseParameter("aim_yaw", self.Yaw);
    end
    
    
    local anim = self.Anim;
    anim = self:LookupSequence(anim);
    
    
    if (self:GetSequence() == anim) then
        self:NextThink(CurTime());
        return true;
    end
    
    self:ResetSequence(anim);
    
    self:NextThink(CurTime());
    return true;
    
    
end

else

DUGTRIO.CanDraw = false;
function DUGTRIO:Initialize()
    timer.Simple(.2, function()
        self.CanDraw = true;
    end);
end

function DUGTRIO:Clip()
        
    local norm = self:GetUp();
    local pos = self:GetPos();
    local dis = norm:Dot(pos);    
        
    self:SetRenderClipPlaneEnabled(true);
    self:SetRenderClipPlane(norm, dis);

end

function DUGTRIO:Draw()
    
    if (!self.CanDraw) then
        return;
    end
        
    self:Clip(); 
    
    if (!self:GetNWBool("IsDown")) then
        self:DrawModel();
    end
    
end

end

scripted_ents.Register(DUGTRIO, "dugtrio");