Show Posts
16
Development / New Pew Pew code
« on: November 05, 2015, 05:19:15 pm »Code: [Select]
local BULLET = {} -- Important Information BULLET.Version = 2 -- General Information BULLET.Name = "Gau-540" BULLET.Author = "Keeves" BULLET.Description = "Good for fighters" BULLET.AdminOnly = false BULLET.SuperAdminOnly = false -- Appearance BULLET.Model = "models/combatmodels/tankshell_25mm.mdl" -- Effects / Sounds BULLET.FireSound = {"chippy/m134d.wav"} BULLET.ExplosionSound = nil BULLET.FireEffect = nil BULLET.ExplosionEffect = nil -- Movement BULLET.Speed = 130 --BULLET.Gravity = 0 BULLET.RecoilForce = 1350 BULLET.Spread = 0.1 BULLET.AffectedBySBGravity = true -- Damage BULLET.DamageType = "PointDamage" BULLET.Damage = 450 -- Reloading/Ammo BULLET.Reloadtime = 0.02 BULLET.Ammo = 200 BULLET.AmmoReloadtime = 2 -- Other BULLET.EnergyPerShot = 80 -- Wire Input (This is called whenever a wire input is changed) (Is run on: Cannon) function BULLET:WireInput( name, value ) if (name == "Fire") then if (value != 0) then self.Firing = true else self.Firing = false end if (value != 0 and self.CanFire == true) then self.LastFired = CurTime() self.CanFire = false if WireLib then WireLib.TriggerOutput(self.Entity, "Can Fire", 0) end end elseif (name == "Reload") then if (self.Ammo and self.Ammo > 0 and self.Ammo < self.Bullet.Ammo) then if (self.Bullet.Ammo and self.Bullet.Ammo > 0 and self.Bullet.AmmoReloadtime and self.Bullet.AmmoReloadtime > 0) then if (value != 0) then if (self.Ammo and self.Ammo > 0) then self.Ammo = 0 self.LastFired = CurTime() + self.Bullet.Reloadtime self.CanFire = false if WireLib then WireLib.TriggerOutput( self.Entity, "Can Fire", 0) WireLib.TriggerOutput( self.Entity, "Ammo", 0 ) end end end end end end end -- Cannon Think (Is run on: Cannon) function BULLET:CannonThink() if (!self.ChargeSound) then self.ChargeSound = CreateSound( self.Entity, "ambient/machines/spin_loop.wav" ) end if (!self.ChargeUpTime) then self.ChargeUpTime = 0 end if (CurTime() - self.LastFired > self.Bullet.Reloadtime and self.CanFire == false) then -- if you can fire if (self.Ammo <= 0 and self.Bullet.Ammo > 0) then -- check for ammo -- if we don't have any ammo left... if (self.Firing) then -- if you are holding down fire -- Sound if (self.Bullet.EmptyMagSound and self.SoundTimer and CurTime() > self.SoundTimer) then self.SoundTimer = CurTime() + self.Bullet.Reloadtime local soundpath = "" if (table.Count(self.Bullet.EmptyMagSound) > 1) then soundpath = table.Random(self.Bullet.EmptyMagSound) else soundpath = self.Bullet.EmptyMagSound[1] end self:EmitSound( soundpath ) end end self.CanFire = false if WireLib then WireLib.TriggerOutput( self.Entity, "Can Fire", 0) end if (CurTime() - self.LastFired > self.Bullet.AmmoReloadtime) then -- check ammo reloadtime self.Ammo = self.Bullet.Ammo if WireLib then WireLib.TriggerOutput( self.Entity, "Ammo", self.Ammo ) end self.CanFire = true if (self.Firing) then self.LastFired = CurTime() self.CanFire = false elseif WireLib then WireLib.TriggerOutput( self.Entity, "Can Fire", 1) end end else -- if we DO have ammo left self.CanFire = true if (self.Firing) then self.LastFired = CurTime() self.CanFire = false if (self.ChargeUpTime >= 0) then self:FireBullet() else self.ChargeUpTime = self.ChargeUpTime + 5 end if (!self.ChargeSound:IsPlaying()) then self.ChargeSound:Play() end self.ChargeSound:ChangePitch(math.max(self.ChargeUpTime,1),0) elseif WireLib then WireLib.TriggerOutput( self.Entity, "Can Fire", 1 ) end end end if (!self.Firing or self.Ammo == 0) then if (self.ChargeUpTime > 0) then self.ChargeUpTime = self.ChargeUpTime - 2 self.ChargeSound:ChangePitch(math.max(self.ChargeUpTime,1),0) else self.ChargeSound:Stop() end end if (self.Bullet.Reloadtime and self.Bullet.Reloadtime < 0.5) then -- Run more often! self.Entity:NextThink( CurTime() ) return true end end function BULLET:OnRemove() if (self.ChargeSound:IsPlaying()) then self.ChargeSound:Stop() end end pewpew:AddWeapon( BULLET )
