wiremod-svn-archive/wire/lua/entities/gmod_wire_radio/init.lua

AddCSLuaFile( "cl_init.lua" )
AddCSLuaFile( "shared.lua" )

include('shared.lua')

ENT.WireDebugName = "Radio"

local MODEL = Model( "models/props_lab/binderblue.mdl" )

function ENT:Initialize()
	self.Entity:PhysicsInit( SOLID_VPHYSICS )
	self.Entity:SetMoveType( MOVETYPE_VPHYSICS )
	self.Entity:SetSolid( SOLID_VPHYSICS )

	self.Inputs = Wire_CreateInputs(self, { "Channel"})
	self.Outputs = Wire_CreateOutputs(self, { "ERRORS!!!" })
	
	self.Channel = 0
	self.Values = 4
	self.RecievedData = {}
	for i=0,31 do
		self.RecievedData[i] = {}
		self.RecievedData[i].Owner = nil
		self.RecievedData[i].Data = 0
	end
	self.SentData = {}
	for i=0,31 do
		self.SentData[i] = 0
	end
	
	Radio_Register(self)
	Radio_RecieveData(self)
end

function ENT:Setup(channel,values,secure)
	channel = math.floor(tonumber(channel) or 0)
	self.Secure = secure
	self.Old = false
	if (tonumber(values) == nil) then
		values = 4
		self.Old = true
	else
		values = math.Clamp(math.floor(values),1,32)
	end

	self.Values = values
	local onames = {}
	if (self.Old == false) then
		for i = 1,self.Values do
			onames[i] = tostring(i) //without tostring() you kill the debugger.
		end
	else
		onames = {"A","B","C","D"}
	end

	Wire_AdjustOutputs(self,onames)
	table.insert(onames,"Channel")
	Wire_AdjustInputs(self,onames)

	self.Channel = channel
	Radio_ChangeChannel(self)
end

function ENT:TriggerInput(iname, value)
	if (iname == "Channel") then
	    	self.Channel = math.floor(value)
		Radio_ChangeChannel(self)

	elseif (iname != nil && value != nil) then
		if (self.Old == true) then
			if (iname == "A") then
				Radio_SendData(self,self.Channel,0,value)
			elseif (iname == "B") then
				Radio_SendData(self,self.Channel,1,value)
			elseif (iname == "C") then
				Radio_SendData(self,self.Channel,2,value)
			elseif (iname == "D") then
				Radio_SendData(self,self.Channel,3,value)
			end
		else
			Radio_SendData(self,tonumber(iname)-1,value)
		end
	end
	self:ShowOutput()
end

function ENT:NotifyDataRecieved(subch)
	Wire_TriggerOutput(self,tostring(subch+1),self.RecievedData[subch].Data)
end

function ENT:ReadCell(Address)
	if (Address >= 0) && (Address < self.Values) then
		return self.RecievedData[Address].Data
	else
		return nil
	end
end

function ENT:WriteCell(Address, value)
	if (Address >= 0) && (Address < self.Values) then
		Radio_SendData(self,Address,value)
		return true
	else
		return false
	end
end

function ENT:ShowOutput()
	if (self.Old == true) then
		self:SetOverlayText( "(Channel " .. self.Channel .. ") Transmit A: " .. (self.Inputs.A.Value or 0) .. " B: " .. (self.Inputs.B.Value or 0) ..  " C: " .. (self.Inputs.C.Value or 0) ..  " D: " .. (self.Inputs.D.Value or 0) .. "\nReceive A: " .. (self.Outputs.A.Value or 0) .. " B: " .. (self.Outputs.B.Value or 0) ..  " C: " .. (self.Outputs.C.Value or 0) ..  " D: " .. (self.Outputs.D.Value or 0) )
	else
		local overlay = "(Channel " .. self.Channel .. ") Transmit"
		for i=1,self.Values do
			overlay = overlay .. " " .. i .. ":" .. 
				math.Round((self.SentData[i-1])*1000)/1000
		end
		overlay = overlay .. "\nReceive"
		for i=1,self.Values do
			overlay = overlay .. " " .. i .. ":" .. 
				math.Round((self.RecievedData[i-1].Data)*1000)/1000
		end
		if (self.Secure == true) then overlay = overlay .. "\nSecured" end
		self:SetOverlayText(overlay)
	end
end

function ENT:OnRestore()
	self.BaseClass.OnRestore(self)
	Radio_Register(self)
end

function ENT:OnRemove()
	if (!self.Channel) then return end
	Radio_Unregister(self)
end