wiremod-svn-archive/wire/lua/entities/gmod_wire_button/init.lua
tad2020 2d55b88a90 [changed] moved some I/O tools to single file (adv input, adv pod, button)
[changed] wire material select (works better in gmod 2007)
[fixed] error with gate tool in gmod 2007
[changed] wire version output
[changed] moved sound emitter sounds defines to modplug file
2008-01-04 07:56:43 +00:00

111 lines
2.6 KiB
Lua

AddCSLuaFile( "cl_init.lua" )
AddCSLuaFile( "shared.lua" )
include('shared.lua')
ENT.WireDebugName = "Button"
ENT.OverlayDelay = 0
function ENT:Initialize()
self.Entity:PhysicsInit( SOLID_VPHYSICS )
self.Entity:SetMoveType( MOVETYPE_VPHYSICS )
self.Entity:SetSolid( SOLID_VPHYSICS )
self.Entity:SetUseType( SIMPLE_USE )
self.Outputs = Wire_CreateOutputs(self.Entity, { "Out" })
end
function ENT:Use(ply)
if (not ply:IsPlayer()) then return end
if (self.PrevUser) and (self.PrevUser:IsValid()) then return end
if (self:IsOn()) then
if (self.Toggle) then self:Switch(false) end
return
end
self:Switch(true)
self.PrevUser = ply
end
function ENT:Think()
self.BaseClass.Think(self)
if ( self:IsOn() ) then
if (not self.PrevUser) or (not self.PrevUser:IsValid()) or (not self.PrevUser:KeyDown(IN_USE)) then
if (not self.Toggle) then
self:Switch(false)
end
self.PrevUser = nil
end
self.Entity:NextThink(CurTime()+0.05)
return true
end
end
function ENT:Setup(toggle, value_off, value_on)
self.Toggle = toggle
self.ValueOff = value_off
self.ValueOn = value_on
self.Value = value_off
self:SetOn( false )
self:ShowOutput(self.ValueOff)
Wire_TriggerOutput(self.Entity, "Out", self.ValueOff)
end
function ENT:Switch(on)
if (not self.Entity:IsValid()) then return end
self:SetOn( on )
if (on) then
self:ShowOutput(self.ValueOn)
self.Value = self.ValueOn
else
self:ShowOutput(self.ValueOff)
self.Value = self.ValueOff
end
Wire_TriggerOutput(self.Entity, "Out", self.Value)
return true
end
function ENT:ShowOutput(value)
self:SetOverlayText( "(" .. self.ValueOff .. " - " .. self.ValueOn .. ") = " .. value )
end
function MakeWireButton( pl, Model, Pos, Ang, toggle, value_off, value_on, description, Vel, aVel, frozen )
if ( !pl:CheckLimit( "wire_buttons" ) ) then return false end
local wire_button = ents.Create( "gmod_wire_button" )
if (!wire_button:IsValid()) then return false end
wire_button:SetModel( Model )
wire_button:SetAngles( Ang )
wire_button:SetPos( Pos )
wire_button:Spawn()
wire_button:Setup(toggle, value_off, value_on )
wire_button:SetPlayer( pl )
local ttable = {
toggle = toggle,
value_off = value_off,
value_on = value_on,
pl = pl
}
table.Merge(wire_button:GetTable(), ttable )
pl:AddCount( "wire_buttons", wire_button )
return wire_button
end
duplicator.RegisterEntityClass("gmod_wire_button", MakeWireButton, "Model", "Pos", "Ang", "toggle", "value_off", "value_on", "description", "Vel", "aVel", "frozen" )