Upload

lua/entities/obj_vj_blasterrod.lua

@@ -0,0 +1,92 @@
+--[[
+| 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/
+--]]
+
+/*--------------------------------------------------
+	*** Copyright (c) 2012-2023 by DrVrej, All rights reserved. ***
+	No parts of this code or any of its contents may be reproduced, copied, modified or adapted,
+	without the prior written consent of the author, unless otherwise indicated for stand-alone materials.
+--------------------------------------------------*/
+AddCSLuaFile()
+if (!file.Exists("autorun/vj_base_autorun.lua","LUA")) then return end
+
+ENT.Type 			= "anim"
+ENT.Base 			= "obj_vj_projectile_base"
+ENT.PrintName		= "Blaster Rod"
+ENT.Author 			= "DrVrej"
+ENT.Contact 		= "http://steamcommunity.com/groups/vrejgaming"
+ENT.Information		= "Projectiles for my addons"
+ENT.Category		= "Projectiles"
+---------------------------------------------------------------------------------------------------------------------------------------------
+if CLIENT then
+	local Name = "Blaster Rod"
+	local LangName = "obj_vj_blasterrod"
+	language.Add(LangName, Name)
+	killicon.Add(LangName,"HUD/killicons/default",Color(255,80,0,255))
+	language.Add("#"..LangName, Name)
+	killicon.Add("#"..LangName,"HUD/killicons/default",Color(255,80,0,255))
+end
+------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+if !SERVER then return end
+
+ENT.Model = {"models/weapons/w_missile_launch.mdl"} -- The models it should spawn with | Picks a random one from the table
+/*ENT.DoesRadiusDamage = true -- Should it do a blast damage when it hits something?
+ENT.RadiusDamageRadius = 10 -- How far the damage go? The farther away it's from its enemy, the less damage it will do | Counted in world units
+ENT.RadiusDamage = 10 -- How much damage should it deal? Remember this is a radius damage, therefore it will do less damage the farther away the entity is from its enemy
+ENT.RadiusDamageUseRealisticRadius = true -- Should the damage decrease the farther away the enemy is from the position that the projectile hit?
+ENT.RadiusDamageType = DMG_SHOCK -- Damage type
+ENT.RadiusDamageForce = 50 -- Put the force amount it should apply | false = Don't apply any force
+ENT.RadiusDamageForceTowardsPhysics = 1000 -- How much force should it deal to props?*/
+ENT.DoesDirectDamage = true -- Should it do a direct damage when it hits something?
+ENT.DirectDamage = 10 -- How much damage should it do when it hits something
+ENT.DirectDamageType = DMG_SHOCK -- Damage type
+ENT.DecalTbl_DeathDecals = {"fadingscorch"}
+ENT.SoundTbl_OnCollide = {"ambient/energy/spark4.wav"}
+---------------------------------------------------------------------------------------------------------------------------------------------
+function ENT:CustomOnInitialize()
+	self:SetMaterial("models/effects/vol_light001.mdl")
+	self:DrawShadow(false)
+	self:SetColor(Color(255,0,0))
+	
+	util.SpriteTrail(self, 0, Color(255,0,0,255), false, 15, 15, 0.2, 1/(10+1)*0.5, "VJ_Base/sprites/vj_trial1.vmt") //cable/redlaser.vmt
+	//util.SpriteTrail(self,6,Color(200,0,0),true,6,6,0.1,1/(6+6)*0.5,"VJ_Base/sprites/vj_trial1.vmt")
+	//ParticleEffectAttach("vj_rpg1_smoke", PATTACH_ABSORIGIN_FOLLOW, self, 0)
+	
+	local eyeglow2 = ents.Create("env_sprite")
+	eyeglow2:SetKeyValue("model","vj_base/sprites/vj_glow1.vmt")
+	eyeglow2:SetKeyValue("scale","0.04")
+	eyeglow2:SetKeyValue("rendermode","5")
+	eyeglow2:SetKeyValue("rendercolor","255 0 0")
+	eyeglow2:SetKeyValue("spawnflags","1") -- If animated
+	eyeglow2:SetPos(self:GetPos())
+	eyeglow2:SetParent(self)
+	//eyeglow2:Fire("SetParentAttachment","eye2",0)
+	eyeglow2:Spawn()
+	eyeglow2:Activate()
+	self:DeleteOnRemove(eyeglow2)
+
+	/*self.StartLight1 = ents.Create("light_dynamic")
+	self.StartLight1:SetKeyValue("brightness", "1")
+	self.StartLight1:SetKeyValue("distance", "200")
+	self.StartLight1:SetLocalPos(self:GetPos())
+	self.StartLight1:SetLocalAngles( self:GetAngles() )
+	self.StartLight1:Fire("Color", "255 0 0")
+	self.StartLight1:SetParent(self)
+	self.StartLight1:Spawn()
+	self.StartLight1:Activate()
+	self.StartLight1:Fire("TurnOn", "", 0)
+	self:DeleteOnRemove(self.StartLight1)*/
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+function ENT:DeathEffects(data, phys)
+	local effectData = EffectData()
+	effectData:SetOrigin(data.HitPos)
+	//effectData:SetMagnitude(500)
+	util.Effect("StunstickImpact", effectData)
+end