87104693a5
[ADDED] ZASM2 [ADDED] New ZASM2 GPU macros: float scalar vector vector1f vector2f vector3f vector4f uv color [ADDED] New ZASM2 macros: offset wipe_locals wipe_labels setvar asmfile asmend function return getarg [ADDED] ZASM2 now supports local labels [FIXED] Split ZCPU into several share-able files [ADDED] CPUs now have serial numbers [ADDED] Increased max frequency [FIXED] Stool code. It's still a WIP, so this is only a temp placeholder [FIXED] Bitwise functions are now confirmed to work under 48bit precision (settable) [FIXED] Address bus requests must be 48-bit integers now [ADDED] Extended mode for CPU [ADDED] 4-byte interrupt table [IP][CS][PARAM][0] [ADDED] Interrupt parameter for error interrupts [ADDED] New opcodes: NOP CPUSET CPUGET SPP CPP SRL GRL LEA [ADDED] ZCPU now supports this kind of requests: <ANY REGISTER OR CONSTANT>:<ANYTHING> and <ANY REGISTER OR CONSTANT>:#<ANYTHING> [FIXED] Explosives range is now clamped [DELETED] Reduant files. BASIC is never gonna happen, sorry Please wait for documentation update for all the new feature description. Or look in lua files, they are neat now. ZASM2 is unretarded now, and approx 10 times faster.
327 lines
9.1 KiB
Lua
327 lines
9.1 KiB
Lua
|
|
AddCSLuaFile( "cl_init.lua" )
|
|
AddCSLuaFile( "shared.lua" )
|
|
|
|
include('shared.lua')
|
|
|
|
ENT.WireDebugName = "Explosive"
|
|
ENT.OverlayDelay = 0
|
|
|
|
/*---------------------------------------------------------
|
|
Name: Initialize
|
|
Desc: First function called. Use to set up your entity
|
|
---------------------------------------------------------*/
|
|
function ENT:Initialize()
|
|
|
|
self.Entity:PhysicsInit( SOLID_VPHYSICS )
|
|
self.Entity:SetMoveType( MOVETYPE_VPHYSICS )
|
|
self.Entity:SetSolid( SOLID_VPHYSICS )
|
|
|
|
local phys = self.Entity:GetPhysicsObject()
|
|
if (phys:IsValid()) then
|
|
phys:Wake()
|
|
end
|
|
|
|
self.exploding = false
|
|
self.reloading = false
|
|
self.NormInfo = ""
|
|
self.count = 0
|
|
self.ExplodeTime = 0
|
|
self.ReloadTime = 0
|
|
self.CountTime = 0
|
|
|
|
self.Inputs = Wire_CreateInputs(self.Entity, { "Detonate", "ResetHealth" })
|
|
|
|
self.Entity:SetMaxHealth(100)
|
|
self.Entity:SetHealth(100)
|
|
self.Outputs = Wire_CreateOutputs(self.Entity, { "Health" })
|
|
end
|
|
|
|
/*---------------------------------------------------------
|
|
Name: TriggerInput
|
|
Desc: the inputs
|
|
---------------------------------------------------------*/
|
|
function ENT:TriggerInput(iname, value)
|
|
if (iname == "Detonate") then
|
|
if ( !self.exploding && !self.reloading ) then
|
|
if ( math.abs(value) == self.key ) then
|
|
self:Trigger()
|
|
end
|
|
end
|
|
elseif (iname == "ResetHealth") then
|
|
self:ResetHealth()
|
|
end
|
|
end
|
|
|
|
/*---------------------------------------------------------
|
|
Name: Setup
|
|
Desc: does a whole lot of setting up
|
|
---------------------------------------------------------*/
|
|
function ENT:Setup( damage, delaytime, removeafter, doblastdamage, radius, affectother, notaffected, delayreloadtime, maxhealth, bulletproof, explosionproof, fallproof, explodeatzero, resetatexplode, fireeffect, coloreffect, invisibleatzero, nocollide )
|
|
|
|
self.Damage = math.Clamp( damage, 0, 1500 )
|
|
self.Delaytime = delaytime
|
|
self.Removeafter = removeafter
|
|
self.DoBlastDamage = doblastdamage
|
|
self.Radius = math.min(512,math.max(radius, 1))
|
|
self.Affectother = affectother
|
|
self.Notaffected = notaffected
|
|
self.Delayreloadtime = delayreloadtime
|
|
|
|
self.BulletProof = bulletproof
|
|
self.ExplosionProof = explosionproof
|
|
self.FallProof = fallproof
|
|
|
|
self.ExplodeAtZero = explodeatzero
|
|
self.ResetAtExplode = resetatexplode
|
|
|
|
self.FireEffect = fireeffect
|
|
self.ColorEffect = coloreffect
|
|
self.NoCollide = nocollide
|
|
self.InvisibleAtZero = invisibleatzero
|
|
|
|
self.Entity:SetMaxHealth(maxhealth)
|
|
self:ResetHealth()
|
|
|
|
|
|
//self.Entity:SetHealth(maxhealth)
|
|
//Wire_TriggerOutput(self.Entity, "Health", maxhealth)
|
|
|
|
//reset everthing back and try to stop exploding
|
|
//self.exploding = false
|
|
//self.reloading = false
|
|
//self.count = 0
|
|
//self.Entity:Extinguish()
|
|
//if (self.ColorEffect) then self.Entity:SetColor(255, 255, 255, 255) end
|
|
|
|
self.NormInfo = "Explosive"
|
|
if (self.DoBlastDamage) then self.NormInfo = self.NormInfo.." (Damage: "..self.Damage..")" end
|
|
if (self.Radius > 0 || self.Delaytime > 0) then self.NormInfo = self.NormInfo.."\n" end
|
|
if (self.Radius > 0 ) then self.NormInfo = self.NormInfo.." Rad: "..self.Radius end
|
|
if (self.Delaytime > 0) then self.NormInfo = self.NormInfo.." Delay: "..self.Delaytime end
|
|
|
|
self:ShowOutput()
|
|
|
|
end
|
|
|
|
function ENT:ResetHealth( )
|
|
self.Entity:SetHealth( self.Entity:GetMaxHealth() )
|
|
Wire_TriggerOutput(self.Entity, "Health", self.Entity:GetMaxHealth())
|
|
|
|
//put the fires out and try to stop exploding
|
|
self.exploding = false
|
|
self.reloading = false
|
|
self.count = 0
|
|
self.Entity:Extinguish()
|
|
|
|
if (self.ColorEffect) then self.Entity:SetColor(255, 255, 255, 255) end
|
|
|
|
self.Entity:SetNoDraw( false )
|
|
|
|
if (self.NoCollide) then
|
|
self.Entity:SetCollisionGroup(COLLISION_GROUP_WORLD)
|
|
else
|
|
self.Entity:SetCollisionGroup(COLLISION_GROUP_NONE)
|
|
end
|
|
|
|
self:ShowOutput()
|
|
end
|
|
|
|
|
|
/*---------------------------------------------------------
|
|
Name: OnTakeDamage
|
|
Desc: Entity takes damage
|
|
---------------------------------------------------------*/
|
|
function ENT:OnTakeDamage( dmginfo )
|
|
|
|
if ( dmginfo:GetInflictor():GetClass() == "gmod_wire_explosive" && !self.Affectother ) then return end
|
|
|
|
if ( !self.Notaffected ) then self.Entity:TakePhysicsDamage( dmginfo ) end
|
|
|
|
if (dmginfo:IsBulletDamage() && self.BulletProof) ||
|
|
(dmginfo:IsExplosionDamage() && self.ExplosionProof) ||
|
|
(dmginfo:IsFallDamage() && self.FallProof) then return end //fix fall damage, it doesn't happen
|
|
|
|
if (self.Entity:Health() > 0) then //don't need to beat a dead horse
|
|
local dammage = dmginfo:GetDamage()
|
|
local h = self.Entity:Health() - dammage
|
|
if (h < 0) then h = 0 end
|
|
self.Entity:SetHealth(h)
|
|
Wire_TriggerOutput(self.Entity, "Health", h)
|
|
self:ShowOutput()
|
|
if (self.ColorEffect) then
|
|
if (h == 0) then c = 0 else c = 255 * (h / self.Entity:GetMaxHealth()) end
|
|
self.Entity:SetColor(255, c, c, 255)
|
|
end
|
|
if (h == 0) then
|
|
if (self.ExplodeAtZero) then self:Trigger() end //oh shi--
|
|
end
|
|
end
|
|
|
|
end
|
|
|
|
/*---------------------------------------------------------
|
|
Name: Trigger
|
|
Desc: Start exploding
|
|
---------------------------------------------------------*/
|
|
function ENT:Trigger()
|
|
if ( self.Delaytime > 0 ) then
|
|
//self.exploding = true
|
|
self.ExplodeTime = CurTime() + self.Delaytime
|
|
if (self.FireEffect) then self.Entity:Ignite((self.Delaytime + 3),0) end
|
|
/* timer.Simple( self.Delaytime, self.Explode, self )
|
|
//self.count = self.Delaytime
|
|
//self:Countdown()
|
|
//else
|
|
//self.exploding = true
|
|
//self:Explode()
|
|
*/
|
|
end
|
|
self.exploding = true
|
|
// Force reset of counter
|
|
self.CountTime = 0
|
|
end
|
|
|
|
/*---------------------------------------------------------
|
|
Name: Think
|
|
Desc: Thinks :P
|
|
---------------------------------------------------------*/
|
|
function ENT:Think()
|
|
self.BaseClass.Think(self)
|
|
|
|
if (self.exploding) then
|
|
if (self.ExplodeTime < CurTime()) then
|
|
self:Explode()
|
|
end
|
|
elseif (self.reloading) then
|
|
if (self.ReloadTime < CurTime()) then
|
|
self.reloading = false
|
|
if (self.ResetAtExplode) then
|
|
self:ResetHealth()
|
|
else
|
|
self:ShowOutput()
|
|
end
|
|
end
|
|
end
|
|
|
|
// Do count check to ensure that
|
|
// ShowOutput() is called every second
|
|
// when exploding or reloading
|
|
if ((self.CountTime or 0) < CurTime()) then
|
|
local temptime = 0
|
|
if (self.exploding) then
|
|
temptime = self.ExplodeTime
|
|
elseif (self.reloading) then
|
|
temptime = self.ReloadTime
|
|
end
|
|
|
|
if (temptime > 0) then
|
|
self.count = math.ceil(temptime - CurTime())
|
|
self:ShowOutput()
|
|
end
|
|
|
|
self.CountTime = CurTime() + 1
|
|
end
|
|
|
|
self.Entity:NextThink(CurTime() + 0.05)
|
|
return true
|
|
end
|
|
|
|
/*---------------------------------------------------------
|
|
Name: Explode
|
|
Desc: is one needed?
|
|
---------------------------------------------------------*/
|
|
function ENT:Explode( )
|
|
|
|
if ( !self.Entity:IsValid() ) then return end
|
|
|
|
self.Entity:Extinguish()
|
|
|
|
if (!self.exploding) then return end //why are we exploding if we shouldn't be
|
|
|
|
ply = self:GetPlayer() or self.Entity
|
|
if(not ValidEntity(ply)) then ply = self.Entity end;
|
|
|
|
if (self.InvisibleAtZero) then
|
|
ply:SetCollisionGroup(COLLISION_GROUP_DEBRIS)
|
|
ply:SetNoDraw( true )
|
|
ply:SetColor(255, 255, 255, 0)
|
|
end
|
|
|
|
if ( self.DoBlastDamage ) then
|
|
util.BlastDamage( self.Entity, ply, self.Entity:GetPos(), self.Radius, self.Damage )
|
|
end
|
|
|
|
local effectdata = EffectData()
|
|
effectdata:SetOrigin( self.Entity:GetPos() )
|
|
util.Effect( "Explosion", effectdata, true, true )
|
|
|
|
if ( self.Removeafter ) then
|
|
self.Entity:Remove()
|
|
return
|
|
end
|
|
|
|
self.exploding = false
|
|
|
|
self.reloading = true
|
|
self.ReloadTime = CurTime() + math.max(1, self.Delayreloadtime)
|
|
// Force reset of counter
|
|
self.CountTime = 0
|
|
self:ShowOutput()
|
|
|
|
/*if ( self.Delayreloadtime > 0 ) then
|
|
//t = self.Delayreloadtime + 1
|
|
self.reloading = true
|
|
//timer.Simple( self.Delayreloadtime, self.Reloaded, self )
|
|
//self.count = self.Delayreloadtime
|
|
//self:Countdown()
|
|
else //keep it from going off again for at least another second
|
|
self.reloading = true
|
|
timer.Simple( 1, self.Reloaded, self )
|
|
self:ShowOutput(0)
|
|
end*/
|
|
|
|
end
|
|
|
|
/* Don't need these anymore
|
|
function ENT:Reloaded( )
|
|
self.reloading = false
|
|
if (self.ResetAtExplode) then self:ResetHealth() end
|
|
end
|
|
|
|
function ENT:Countdown( )
|
|
self:ShowOutput()
|
|
self.count = self.count - 1
|
|
if ( self.count > 0 ) then //theres still time left
|
|
timer.Simple( 1, self.Countdown, self )
|
|
else //will be done after this second
|
|
timer.Simple( 1, self.ShowOutput, self )
|
|
end
|
|
end
|
|
*/
|
|
|
|
/*---------------------------------------------------------
|
|
Name: ShowOutput
|
|
Desc: don't foreget to call this when changes happen
|
|
---------------------------------------------------------*/
|
|
function ENT:ShowOutput( )
|
|
local txt = ""
|
|
if (self.reloading && self.Delayreloadtime > 0) then
|
|
txt = "Rearming... "..self.count
|
|
if (self.ColorEffect && !self.InvisibleAtZero) then
|
|
if (self.count == 0) then c = 255 else c = 255 * ((self.Delayreloadtime - self.count) / self.Delayreloadtime) end
|
|
self.Entity:SetColor(255, c, c, 255)
|
|
end
|
|
if (self.InvisibleAtZero) then
|
|
ply:SetNoDraw( false )
|
|
if (self.count == 0) then c = 255 else c = 255 * ((self.Delayreloadtime - self.count) / self.Delayreloadtime) end
|
|
self.Entity:SetColor(255, 255, 255, c)
|
|
end
|
|
elseif (self.exploding) then
|
|
txt = "Triggered... "..self.count
|
|
else
|
|
txt = self.NormInfo.."\nHealth: "..self.Entity:Health().."/"..self.Entity:GetMaxHealth()
|
|
end
|
|
self:SetOverlayText(txt)
|
|
end
|