wiremod-svn-archive/wire/lua/entities/gmod_wire_textscreen/init.lua
tad2020 60643226ef [added] model selection to adv pod ctrlr
[changed] cleaned up more stools' code
[fixed] some ents not keeping updated values when duplicated
[added] presets to some stools
[fixed] some ents not being added to cleanup when duplicated
[fixed] some ents not being staying frozen when duplicated
[fixed] some ents cleanup & undo text
[changed] moved many stools control panels over to DForm functions
[changed] made easier to add preset control to cp
[changed] made easier to add cleanup and undo lang to stools/bak
[changed] made easier to add
2008-02-06 01:21:09 +00:00

171 lines
5.7 KiB
Lua

--Wire text screen by greenarrow + wire team
--http://gmodreviews.googlepages.com/
--http://forums.facepunchstudios.com/greenarrow
AddCSLuaFile( "cl_init.lua" )
AddCSLuaFile( "shared.lua" )
include('shared.lua')
ENT.WireDebugName = "Text Screen"
ENT.initOn = true
ENT.firstConfig = true
ENT.clock = false
ENT.currentLine = 0
ENT.currentText = ""
ENT.currentTextnum = 0
wire_text_screen_lastCreated = nil
function ENT:Initialize()
self.Entity:PhysicsInit( SOLID_VPHYSICS )
self.Entity:SetMoveType( MOVETYPE_VPHYSICS )
self.Entity:SetSolid( SOLID_VPHYSICS )
end
function ENT:Setup(TextList, chrPl, textJust, tRed, tGreen, tBlue, numInputs, defaultOn)
self.TextList = TextList --table of text lines
self.TextList[0] = ""
self.maxLineLen = math.abs(chrPl)
self.maxLines = math.abs(chrPl) / 2
self.chrPerLine = math.abs(chrPl)
self.numInputs = math.abs(numInputs)
self.textJust = textJust
self.tRed = tRed
self.tGreen = tGreen
self.tBlue = tBlue
self.currentLine = 0
--setup input with required number of value inputs
valInputs = {}
self.Val = {}
for n=1, numInputs do
table.insert(self.Val, 0)
table.insert(valInputs, "Value "..n)
end
inputTable = {"Clk", "Text"}
table.Add(inputTable, valInputs)
self.Inputs = Wire_CreateInputs(self.Entity, inputTable)
self.defaultOn = defaultOn
--send config to client
self:SetConfig()
--format text and send to client
self:UpdateScreen()
--if option is selected, show text without the need for wire inputs
if (defaultOn == 1) then
--Msg("dfo\n")
self:TriggerInput("Clk", 1) --make text on by default
self:TriggerInput("Text", 1)
else
self:TriggerInput("Clk", 0)
self:TriggerInput("Text", 0)
end
end
--wire input routine
function ENT:TriggerInput(iname, value)
if (iname == "Text") then
self.currentTextnum = math.abs(value)
self:UpdateScreen()
elseif (iname == "Clk") then
if (math.abs(value) > 0) then
self.clock = true
self:UpdateScreen()
else
self.clock = false
end
elseif (string.sub(iname, 1, 6) == "Value ") then
self.Val[tonumber(string.sub(iname, 7, -1))] = math.abs(value)
self:UpdateScreen()
--elseif (iname == "String") then
-- print ("string = '"..value.."'\n")
end
end
--format text and send it to the client(s)
function ENT:UpdateScreen()
if (self.clock && (self.currentLine <= self.maxLines)) then
local compstring = ""
local outString = ""
local intoText = false
local basestring = self.TextList[self.currentTextnum]
if (!basestring) then return false end
for k,inp in ipairs(self.Val) do
local nString = string.format("%G", inp)
--print ("ns = "..nString.."\n")
basestring = string.gsub(basestring, "<"..k..">", nString)
end
basestring = string.gsub(basestring, "<br>", "\n")
compstring = basestring
local outString = ""
if (string.len(compstring) > self.maxLineLen) then
local lastSpace = 0
local lastBreak = 1
local numLines = 1
for chrNum = 1, string.len(compstring) do
--Msg(string.format("insepecting chr num %d = %s (%d)\n", chrNum, string.sub(compstring, chrNum, chrNum), string.byte(string.sub(compstring, chrNum, chrNum))))
--if (string.byte(string.sub(compstring, chrNum, chrNum)) == 92) && (string.byte(string.sub(compstring, chrNum + 1, chrNum + 1)) == 110) && (numLines <= self.maxLines) then
if (string.byte(string.sub(compstring, chrNum, chrNum)) == 10) && (numLines <= self.maxLines) then
outString = outString..string.Left(string.sub(compstring, lastBreak, chrNum), self.chrPerLine)
--Msg(string.format("<br> partial out = '%s'\n", outString))
lastBreak = chrNum + 1
lastSpace = 0
numLines = numLines + 1
end
if (string.sub(compstring, chrNum, chrNum) == " ") then
lastSpace = chrNum
end
--Msg(string.format("lastspace = %d\n", lastSpace))
if (chrNum >= lastBreak + self.maxLineLen) && (numLines <= self.maxLines) then --if we've gone past a line length since the last break and line is still on screen
--Msg("due for a break\n")
if (lastSpace > 0) then
--Msg("breaking\n")
outString = outString..string.Left(string.sub(compstring, lastBreak, lastSpace), self.chrPerLine).."\n"
--Msg(string.format("<exp> partial out = '%s'\n", outString))
lastBreak = lastSpace + 1
lastSpace = 0
numLines = numLines + 1
end
end
end
if (numLines <= self.maxLines) then
local foff = 0
--if (lastSpace > 0) then foff = 1 end
outString = outString..string.Left(string.sub(compstring, lastBreak + foff, string.len(compstring)), self.chrPerLine).."\n"
end
else
outString = compstring
end
self:SetText (outString)
end
end
function MakeWireTextScreen( pl, Ang, Pos, Smodel, TextList, chrPerLine, textJust, tRed, tGreen, tBlue, numInputs, defaultOn, frozen)
if ( !pl:CheckLimit( "wire_textscreens" ) ) then return false end
local wire_textscreen = ents.Create( "gmod_wire_textscreen" )
if (!wire_textscreen:IsValid()) then return false end
wire_textscreen:SetModel(Smodel)
wire_textscreen:Setup(TextList, chrPerLine, textJust, tRed, tGreen, tBlue, numInputs, defaultOn)
wire_textscreen:SetAngles( Ang )
wire_textscreen:SetPos( Pos )
wire_textscreen:Spawn()
if wire_textscreen:GetPhysicsObject():IsValid() then
local Phys = wire_textscreen:GetPhysicsObject()
Phys:EnableMotion(!frozen)
end
wire_textscreen:SetPlayer(pl)
wire_textscreen.pl = pl
pl:AddCount( "wire_textscreens", wire_textscreen )
return wire_textscreen
end
duplicator.RegisterEntityClass("gmod_wire_textscreen", MakeWireTextScreen, "Ang", "Pos", "Model", "TextList", "chrPerLine", "textJust", "tRed", "tGreen", "tBlue", "numInputs", "defaultOn", "frozen")