demonkenny/wiremod-svn-archive
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
85ee998311
wiremod-svn-archive/wire/lua/weapons/gmod_tool/stools/wire_adv.lua
avon cf36180b41 Fixed issue where you can't scroll away from the toolgun anymore using the mousewheel. 
Coder of the "Wire Advanced" tool: Please take a review at the changes near lines 175. I commented out a part which seemed to have no effect on the tool but produced this bug.
2008-09-12 12:44:51 +00:00

922 lines
28 KiB
Lua
Raw Blame History

TOOL.Category = "Wire - Tools"
TOOL.Name = "Wire Advanced"
TOOL.Command = nil
TOOL.ConfigName = ""
if ( CLIENT ) then
language.Add( "Tool_wire_adv_name", "Advanced Wiring Tool" )
language.Add( "Tool_wire_adv_desc", "Used to connect wirable props." )
language.Add( "Tool_wire_adv_0", "Primary: Attach to selected input.\nSecondary: Next input.\nReload: Unlink selected input." )
language.Add( "Tool_wire_adv_1", "Primary: Attach to output.\nSecondary: Attach but continue.\nReload: Cancel." )
language.Add( "Tool_wire_adv_2", "Primary: Confirm attach to output.\nSecondary: Next output.\nReload: Cancel." )
language.Add( "WireTool_scrollwithoutmod", "Scroll without modifier key:" )
end
TOOL.ClientConVar[ "width" ] = "2"
TOOL.ClientConVar[ "material" ] = "cable/cable2"
TOOL.ClientConVar[ "color_r" ] = "255"
TOOL.ClientConVar[ "color_g" ] = "255"
TOOL.ClientConVar[ "color_b" ] = "255"
TOOL.ClientConVar[ "scrollwithoutmod" ] = "1"
TOOL.CurrentComponent = nil
TOOL.CurrentInput = nil
TOOL.Inputs = nil
TOOL.CurrentOutput = nil
TOOL.Outputs = nil
util.PrecacheSound("weapons/pistol/pistol_empty.wav")
cleanup.Register( "wireconstraints" )
function TOOL:LeftClick( trace )
if (trace.Entity:IsValid()) and (trace.Entity:IsPlayer()) then return end
local stage = self:GetStage()
if (stage == 0) then
if (CLIENT) then
if (self:GetWeapon():GetNetworkedString("WireCurrentInput")) then
self:SetStage(0)
return true
end
elseif (self.CurrentInput) then
local material = self:GetClientInfo("material")
local width = self:GetClientNumber("width")
local color = Color(self:GetClientNumber("color_r"), self:GetClientNumber("color_g"), self:GetClientNumber("color_b"))
if (Wire_Link_Start(self:GetOwner():UniqueID(), trace.Entity, trace.Entity:WorldToLocal(trace.HitPos), self.CurrentInput, material, color, width)) then
self:SetStage(1)
self:GetWeapon():SetNetworkedInt("WireAdvStage",1)
return true
end
end
return
elseif (stage == 1) then
if (CLIENT) then
self:SetStage(0)
return true
end
if (not trace.Entity.Outputs) then
self:SetStage(0)
self:GetWeapon():SetNetworkedInt("WireAdvStage",0)
Wire_Link_Cancel(self:GetOwner():UniqueID())
self:GetOwner():SendLua( "GAMEMODE:AddNotify('Wire source invalid!', NOTIFY_GENERIC, 7);" )
return
end
self.Outputs = {}
self.OutputsDesc = {}
self.OutputsType = {}
for key,v in pairs(trace.Entity.Outputs) do
if v.Num then
self.Outputs[v.Num] = key
if (v.Desc) then
self.OutputsDesc[key] = v.Desc
end
if (v.Type) then
self.OutputsType[key] = v.Type
end
else
table.insert(self.Outputs, key)
end
end
local oname = nil
for k,_ in pairs(trace.Entity.Outputs) do
if (oname) then
self:SelectComponent(nil)
self.CurrentOutput = self.Outputs[1] //oname
self.OutputEnt = trace.Entity
self.OutputPos = trace.Entity:WorldToLocal(trace.HitPos)
//New
local tab = table.concat(self.Outputs,",")..table.concat(self.OutputsDesc,",")..table.concat(self.OutputsType,",")
if self.LastInputs ~= tab then
umsg.Start("wireoutputlist",self:GetOwner())
umsg.String(self.OutputEnt:GetClass())
umsg.Short(#self.Outputs)
for k,v in pairs(self.Outputs) do
local txt = v
if (self.OutputsDesc) and (self.OutputsDesc[v]) then
txt = txt.." ("..self.OutputsDesc[v]..")"
end
if (self.OutputsType) and (self.OutputsType[v])
and (self.OutputsType[v] != "NORMAL") then
txt = txt.." ["..self.OutputsType[v].."]"
end
umsg.String(txt)
end
umsg.End()
self.LastInputs = tab
end
//Old
local txt = "Output: "..self.CurrentOutput
if (self.OutputsDesc) and (self.OutputsDesc[self.CurrentOutput]) then
txt = txt.." ("..self.OutputsDesc[self.CurrentOutput]..")"
end
if (self.OutputsType) and (self.OutputsType[self.CurrentOutput])
and (self.OutputsType[self.CurrentOutput] != "NORMAL") then
txt = txt.." ["..self.OutputsType[self.CurrentOutput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
self:SetStage(2)
self:GetWeapon():SetNetworkedInt("WireAdvStage",2)
return true
end
oname = k
end
Wire_Link_End(self:GetOwner():UniqueID(), trace.Entity, trace.Entity:WorldToLocal(trace.HitPos), oname, self:GetOwner())
self:SelectComponent(nil)
self:SetStage(0)
self:GetWeapon():SetNetworkedInt("WireAdvStage",0)
else
if (CLIENT) then
self:SetStage(0)
return true
end
Wire_Link_End(self:GetOwner():UniqueID(), self.OutputEnt, self.OutputPos, self.CurrentOutput, self:GetOwner())
self:GetWeapon():SetNetworkedString("WireCurrentInput", "")
self.CurrentOutput = nil
self.OutputEnt = nil
self.OutputPos = nil
self:SelectComponent(nil)
self:SetStage(0)
self:GetWeapon():SetNetworkedInt("WireAdvStage",0)
end
return true
end
if CLIENT then hook.Add("PlayerBindPress","wire_wire_adv",function(pl,bind,pressed)
local valid = false
for k,v in pairs(pl:GetWeapons()) do
if v:GetClass() == "gmod_tool" then
valid = v
end
end
if valid then
local self = valid.Tool.wire_adv
local tr = utilx.GetPlayerTrace(LocalPlayer(), LocalPlayer():GetCursorAimVector())
local trace = util.TraceLine(tr)
local override = self:GetClientInfo("scrollwithoutmod") == "1" and trace.Entity and trace.Entity:IsValid() and (trace.Entity:GetClass() == self.InputEntClass or trace.Entity:GetClass() == self.OutputEntClass)
-- This is the issue why you can't scroll anymore after you pressed the context menu. I have no idea what it's purpose was.
-- But it's better to remove this crap instead of having this annoying bug when you can't switch away anymore from the toolgun using the scrollwheel
-- The reason is, "-menu_context" is never called if you close the context menu. No idea why.
--[[
if string.find(bind,"+menu_context") then
self.keyMOD = pressed
elseif string.find(bind,"-menu_context") then
self.keyMOD = false
elseif pl:GetActiveWeapon() == valid then
--]]
if pl:GetActiveWeapon() == valid then
if string.find(bind,"invnext") and pressed then
if override or self.keyMOD then
pl:ConCommand("wire_adv_next\n")
return true
end
elseif string.find(bind,"invprev") and pressed then
if override or self.keyMOD then
pl:ConCommand("wire_adv_prev\n")
return true
end
end
end
end
end) end
if SERVER then
concommand.Add("wire_adv_next",function(pl)
if !pl:GetWeapon("gmod_tool"):IsValid() then return end
local self = pl:GetWeapon("gmod_tool").Tool.wire_adv
local stage = self:GetStage()
if stage == 0 then
if (not self.Inputs) or (not self.CurrentInput) then return end
local iNextInput
for k,v in pairs(self.Inputs) do
if (v == self.CurrentInput) then iNextInput = k+1 end
end
if (iNextInput) then
self:GetOwner():EmitSound("weapons/pistol/pistol_empty.wav")
if (iNextInput > table.getn(self.Inputs)) then iNextInput = 1 end
self.CurrentInput = self.Inputs[iNextInput]
if (self.CurrentInput) then self.LastValidInput = self.CurrentInput end
/*if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
self:GetWeapon():SetNetworkedString("WireCurrentInput", (self.CurrentInput or ""))
else
self:GetWeapon():SetNetworkedString("WireCurrentInput", self.CurrentInput or "")
end*/
local txt = ""
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
txt = (self.CurrentInput or "")
else
txt = self.CurrentInput or ""
end
if (self.InputsDesc) and (self.InputsDesc[self.CurrentInput]) then
txt = txt.." ("..self.InputsDesc[self.CurrentInput]..")"
end
if (self.InputsType) and (self.InputsType[self.CurrentInput])
and (self.InputsType[self.CurrentInput] != "NORMAL") then
txt = txt.." ["..self.InputsType[self.CurrentInput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) then
self.CurrentComponent:SetNetworkedBeamString("BlinkWire", self.CurrentInput)
end
end
elseif (self.Outputs) then
//New
local tab = table.concat(self.Outputs,",")..table.concat(self.OutputsDesc,",")..table.concat(self.OutputsType,",")
if self.LastInputs ~= tab then
umsg.Start("wireoutputlist",self:GetOwner())
umsg.String("")
umsg.Short(#self.Outputs)
for k,v in pairs(self.Outputs) do
local txt = v
if (self.OutputsDesc) and (self.OutputsDesc[v]) then
txt = txt.." ("..self.OutputsDesc[v]..")"
end
if (self.OutputsType) and (self.OutputsType[v])
and (self.OutputsType[v] != "NORMAL") then
txt = txt.." ["..self.OutputsType[v].."]"
end
umsg.String(txt)
end
umsg.End()
self.LastInputs = tab
end
//Old
local iNextOutput
for k,v in pairs(self.Outputs) do
if (v == self.CurrentOutput) then iNextOutput = k+1 end
end
if (iNextOutput) then
self:GetOwner():EmitSound("weapons/pistol/pistol_empty.wav")
if (iNextOutput > table.getn(self.Outputs)) then iNextOutput = 1 end
self.CurrentOutput = self.Outputs[iNextOutput] or "" --if that's nil then somethis is wrong with the ent
local txt = "Output: "..self.CurrentOutput
if (self.OutputsDesc) and (self.OutputsDesc[self.CurrentOutput]) then
txt = txt.." ("..self.OutputsDesc[self.CurrentOutput]..")"
end
if (self.OutputsType) and (self.OutputsType[self.CurrentOutput])
and (self.OutputsType[self.CurrentOutput] != "NORMAL") then
txt = txt.." ["..self.OutputsType[self.CurrentOutput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
end
end
end)
concommand.Add("wire_adv_prev",function(pl)
if !pl:GetWeapon("gmod_tool"):IsValid() then return end
local self = pl:GetWeapon("gmod_tool").Tool.wire_adv
local stage = self:GetStage()
if stage == 0 then
if (not self.Inputs) or (not self.CurrentInput) then return end
local iNextInput
for k,v in pairs(self.Inputs) do
if (v == self.CurrentInput) then iNextInput = k-1 end
end
if (iNextInput) then
self:GetOwner():EmitSound("weapons/pistol/pistol_empty.wav")
if (iNextInput < 1) then iNextInput = #self.Inputs end
self.CurrentInput = self.Inputs[iNextInput]
if (self.CurrentInput) then self.LastValidInput = self.CurrentInput end
/*if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
self:GetWeapon():SetNetworkedString("WireCurrentInput", (self.CurrentInput or ""))
else
self:GetWeapon():SetNetworkedString("WireCurrentInput", self.CurrentInput or "")
end*/
local txt = ""
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
txt = (self.CurrentInput or "")
else
txt = self.CurrentInput or ""
end
if (self.InputsDesc) and (self.InputsDesc[self.CurrentInput]) then
txt = txt.." ("..self.InputsDesc[self.CurrentInput]..")"
end
if (self.InputsType) and (self.InputsType[self.CurrentInput])
and (self.InputsType[self.CurrentInput] != "NORMAL") then
txt = txt.." ["..self.InputsType[self.CurrentInput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) then
self.CurrentComponent:SetNetworkedBeamString("BlinkWire", self.CurrentInput)
end
end
elseif (self.Outputs) then
if (CLIENT) then return end
//New
local tab = table.concat(self.Outputs,",")..table.concat(self.OutputsDesc,",")..table.concat(self.OutputsType,",")
if self.LastInputs ~= tab then
umsg.Start("wireoutputlist",self:GetOwner())
umsg.String("")
umsg.Short(#self.Outputs)
for k,v in pairs(self.Outputs) do
local txt = v
if (self.OutputsDesc) and (self.OutputsDesc[v]) then
txt = txt.." ("..self.OutputsDesc[v]..")"
end
if (self.OutputsType) and (self.OutputsType[v])
and (self.OutputsType[v] != "NORMAL") then
txt = txt.." ["..self.OutputsType[v].."]"
end
umsg.String(txt)
end
umsg.End()
self.LastInputs = tab
end
//Old
local iNextOutput
for k,v in pairs(self.Outputs) do
if (v == self.CurrentOutput) then iNextOutput = k-1 end
end
if (iNextOutput) then
self:GetOwner():EmitSound("weapons/pistol/pistol_empty.wav")
if (iNextOutput < 1) then iNextOutput = #self.Outputs end
self.CurrentOutput = self.Outputs[iNextOutput] or "" --if that's nil then somethis is wrong with the ent
local txt = "Output: "..self.CurrentOutput
if (self.OutputsDesc) and (self.OutputsDesc[self.CurrentOutput]) then
txt = txt.." ("..self.OutputsDesc[self.CurrentOutput]..")"
end
if (self.OutputsType) and (self.OutputsType[self.CurrentOutput])
and (self.OutputsType[self.CurrentOutput] != "NORMAL") then
txt = txt.." ["..self.OutputsType[self.CurrentOutput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
end
end
end)
end
function TOOL:RightClick( trace )
local stage = self:GetStage()
if (stage < 2) then
if (not trace.Entity:IsValid()) or (trace.Entity:IsPlayer()) then return end
end
if (stage == 0) then
if (CLIENT) then return end
if (trace.Entity:IsValid()) then
self:SelectComponent(trace.Entity)
else
self:SelectComponent(nil)
end
if (not self.Inputs) or (not self.CurrentInput) then return end
local iNextInput
for k,v in pairs(self.Inputs) do
if (v == self.CurrentInput) then iNextInput = k+1 end
end
if (iNextInput) then
self:GetOwner():EmitSound("weapons/pistol/pistol_empty.wav")
if (iNextInput > table.getn(self.Inputs)) then iNextInput = 1 end
self.CurrentInput = self.Inputs[iNextInput]
if (self.CurrentInput) then self.LastValidInput = self.CurrentInput end
/*if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
self:GetWeapon():SetNetworkedString("WireCurrentInput", (self.CurrentInput or ""))
else
self:GetWeapon():SetNetworkedString("WireCurrentInput", self.CurrentInput or "")
end*/
local txt = ""
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
txt = (self.CurrentInput or "")
else
txt = self.CurrentInput or ""
end
if (self.InputsDesc) and (self.InputsDesc[self.CurrentInput]) then
txt = txt.." ("..self.InputsDesc[self.CurrentInput]..")"
end
if (self.InputsType) and (self.InputsType[self.CurrentInput])
and (self.InputsType[self.CurrentInput] != "NORMAL") then
txt = txt.." ["..self.InputsType[self.CurrentInput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) then
self.CurrentComponent:SetNetworkedBeamString("BlinkWire", self.CurrentInput)
end
end
elseif (stage == 1) then
if (SERVER) then
Wire_Link_Node(self:GetOwner():UniqueID(), trace.Entity, trace.Entity:WorldToLocal(trace.HitPos+trace.HitNormal))
end
elseif (self.Outputs) then
if (CLIENT) then return end
//New
local tab = table.concat(self.Outputs,",")..table.concat(self.OutputsDesc,",")..table.concat(self.OutputsType,",")
if self.LastInputs ~= tab then
umsg.Start("wireoutputlist",self:GetOwner())
umsg.String(self.OutputEnt:GetClass())
umsg.Short(#self.Outputs)
for k,v in pairs(self.Outputs) do
local txt = v
if (self.OutputsDesc) and (self.OutputsDesc[v]) then
txt = txt.." ("..self.OutputsDesc[v]..")"
end
if (self.OutputsType) and (self.OutputsType[v])
and (self.OutputsType[v] != "NORMAL") then
txt = txt.." ["..self.OutputsType[v].."]"
end
umsg.String(txt)
end
umsg.End()
self.LastInputs = tab
end
//Old
local iNextOutput
for k,v in pairs(self.Outputs) do
if (v == self.CurrentOutput) then iNextOutput = k+1 end
end
if (iNextOutput) then
self:GetOwner():EmitSound("weapons/pistol/pistol_empty.wav")
if (iNextOutput > table.getn(self.Outputs)) then iNextOutput = 1 end
self.CurrentOutput = self.Outputs[iNextOutput] or "" --if that's nil then somethis is wrong with the ent
local txt = "Output: "..self.CurrentOutput
if (self.OutputsDesc) and (self.OutputsDesc[self.CurrentOutput]) then
txt = txt.." ("..self.OutputsDesc[self.CurrentOutput]..")"
end
if (self.OutputsType) and (self.OutputsType[self.CurrentOutput])
and (self.OutputsType[self.CurrentOutput] != "NORMAL") then
txt = txt.." ["..self.OutputsType[self.CurrentOutput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
end
end
end
function TOOL:Reload(trace)
if (not trace.Entity:IsValid()) or (trace.Entity:IsPlayer()) then return false end
if (CLIENT) then return true end
if (self:GetStage() == 0) then
if (not self.CurrentComponent) or (not self.CurrentComponent:IsValid()) then return end
if (not self.CurrentInput) or (self.CurrentInput == "") then return end
Wire_Link_Clear(self.CurrentComponent, self.CurrentInput)
//New
local ent = self.CurrentComponent
local tab = ""
for k,v in pairs(self.Inputs) do
tab = tab..v.."|"..((
ent and
ent:IsValid() and
ent.Inputs and
ent.Inputs[v] and
ent.Inputs[v].Src) and "1|" or "0|"
)
end
if self.LastInputs ~= tab then
umsg.Start("wireinputlist",self:GetOwner())
umsg.String(ent:GetClass())
umsg.Short(#self.Inputs)
for k,v in pairs(self.Inputs) do
local txt = v
if (self.InputsDesc) and (self.InputsDesc[v]) then
txt = txt.." ("..self.InputsDesc[v]..")"
end
if (self.InputsType) and (self.InputsType[v])
and (self.InputsType[v] != "NORMAL") then
txt = txt.." ["..self.InputsType[v].."]"
end
umsg.String(txt)
if
ent and
ent:IsValid() and
ent.Inputs and
ent.Inputs[v] and
ent.Inputs[v].Src
then
umsg.Bool(true)
else
umsg.Bool(false)
end
end
umsg.End()
self.LastInputs = tab
end
return true
end
Wire_Link_Cancel(self:GetOwner():UniqueID())
self:SetStage(0)
self:GetWeapon():SetNetworkedInt("WireAdvStage",0)
return true
end
function TOOL:Holster()
self:SelectComponent(nil)
self:GetWeapon():SetNetworkedInt("WireAdvStage",0)
end
if (CLIENT) then
function TOOL:DrawHUD()
local current_input = self:GetWeapon():GetNetworkedString("WireCurrentInput") or ""
/*
if (current_input ~= "") then
if (string.sub(current_input, 1, 1) == "%") then
draw.WordBox(8, ScrW()/2+10, ScrH()/2+10, string.sub(current_input, 2), "Default", Color(150,50,50,192), Color(255,255,255,255) )
else
draw.WordBox(8, ScrW()/2+10, ScrH()/2+10, current_input, "Default", Color(50,50,75,192), Color(255,255,255,255) )
end
end
*/
//Begin
local stage = self:GetWeapon():GetNetworkedInt("WireAdvStage")
//draw.DrawText(stage,"Trebuchet24",0,0,Color(255,255,255,255),0)
if stage == 2 and type(self.Outputs) == "table" then
surface.SetFont("Trebuchet24")
local twa = surface.GetTextSize(self.WireCurrentInput)
draw.RoundedBox(8,
ScrW()/2+20,
ScrH()/2-12-4,
twa+16,
24+8,
Color(50,50,75,192)
)
draw.DrawText(self.WireCurrentInput,"Trebuchet24",ScrW()/2+20+8,ScrH()/2-12,Color(255,255,255,255),0)
twa = twa+16
surface.SetFont("Trebuchet24")
local tw = surface.GetTextSize(table.concat(self.Outputs,"\n"))
draw.RoundedBox(8,
twa+ScrW()/2+20,
ScrH()/2-#self.Outputs*24/2-8,
tw+16,
#self.Outputs*24+16,
Color(50,50,75,192)
)
for k,v in pairs(self.Outputs) do
if self:GetWeapon():GetNetworkedString("WireCurrentInput") == "Output: "..v then
draw.RoundedBox(4,
twa+ScrW()/2+20+4,
ScrH()/2-#self.Outputs*24/2+(k-1)*24,
tw+8,
24,
Color(0,150,0,192)
)
end
draw.DrawText(
v,"Trebuchet24",
twa+ScrW()/2+20+8,
ScrH()/2-#self.Outputs*24/2+(k-1)*24,
Color(255,255,255,255),
0
)
end
elseif stage == 0 then
local tr = utilx.GetPlayerTrace(LocalPlayer(), LocalPlayer():GetCursorAimVector())
local trace = util.TraceLine(tr)
if trace.Hit and trace.Entity:IsValid() and trace.Entity:GetClass() == self.InputEntClass and type(self.Inputs) == "table" then
surface.SetFont("Trebuchet24")
local tw = surface.GetTextSize(table.concat(self.Inputs,"\n"))
draw.RoundedBox(8,
ScrW()/2+20,
ScrH()/2-#self.Inputs*24/2-8,
tw+16,
#self.Inputs*24+16,
Color(50,50,75,192)
)
for k,v in pairs(self.Inputs) do
local col = Color(255,255,255,255)
if self.InputsW[k] then
col = Color(255,0,0,255)
end
if self:GetWeapon():GetNetworkedString("WireCurrentInput") == v then
draw.RoundedBox(4,
ScrW()/2+20+4,
ScrH()/2-#self.Inputs*24/2+(k-1)*24,
tw+8,
24,
Color(0,150,0,192)
)
self.WireCurrentInput = v
end
draw.DrawText(
v,"Trebuchet24",
ScrW()/2+20+8,
ScrH()/2-#self.Inputs*24/2+(k-1)*24,
col,
0
)
end
end
elseif stage == 1 then
surface.SetFont("Trebuchet24")
local tw = surface.GetTextSize(self.WireCurrentInput)
draw.RoundedBox(8,
ScrW()/2+20,
ScrH()/2-12-4,
tw+16,
24+8,
Color(50,50,75,192)
)
draw.DrawText(self.WireCurrentInput,"Trebuchet24",ScrW()/2+20+8,ScrH()/2-12,Color(255,255,255,255),0)
end
end
end
function TOOL:Think()
if (self:GetStage() == 0) then
local player = self:GetOwner()
local tr = utilx.GetPlayerTrace(player, player:GetCursorAimVector())
local trace = util.TraceLine(tr)
if (trace.Hit) and (trace.Entity:IsValid()) then
self:SelectComponent(trace.Entity)
else
self:SelectComponent(nil)
end
end
end
function TOOL.BuildCPanel(panel)
panel:AddControl("Header", { Text = "#Tool_wire_name", Description = "#Tool_wire_desc" })
panel:AddControl("ComboBox", {
Label = "#Presets",
MenuButton = "1",
Folder = "wire_adv",
Options = {
Default = {
wire_adv_material = "cable/rope",
wire_adv_width = "3",
}
},
CVars = {
[0] = "wire_adv_width",
[1] = "wire_adv_material",
}
})
panel:AddControl("Slider", {
Label = "#WireTool_width",
Type = "Float",
Min = ".1",
Max = "5",
Command = "wire_adv_width"
})
panel:AddControl("MaterialGallery", {
Label = "#WireTool_material",
Height = "64",
Width = "24",
Rows = "1",
Stretch = "1",
Options = {
["Wire"] = { Material = "cable/rope_icon", wire_adv_material = "cable/rope" },
["Cable 2"] = { Material = "cable/cable_icon", wire_adv_material = "cable/cable2" },
["XBeam"] = { Material = "cable/xbeam", wire_adv_material = "cable/xbeam" },
["Red Laser"] = { Material = "cable/redlaser", wire_adv_material = "cable/redlaser" },
["Blue Electric"] = { Material = "cable/blue_elec", wire_adv_material = "cable/blue_elec" },
["Physics Beam"] = { Material = "cable/physbeam", wire_adv_material = "cable/physbeam" },
["Hydra"] = { Material = "cable/hydra", wire_adv_material = "cable/hydra" },
//new wire materials by Acegikmo
["Arrowire"] = { Material = "arrowire/arrowire", wire_adv_material = "arrowire/arrowire" },
["Arrowire2"] = { Material = "arrowire/arrowire2", wire_adv_material = "arrowire/arrowire2" },
},
CVars = {
[0] = "wire_adv_material"
}
})
panel:AddControl("Color", {
Label = "#WireTool_colour",
Red = "wire_adv_color_r",
Green = "wire_adv_color_g",
Blue = "wire_adv_color_b",
ShowAlpha = "0",
ShowHSV = "1",
ShowRGB = "1",
Multiplier = "255"
})
panel:AddControl("CheckBox", {
Label = "#WireTool_scrollwithoutmod",
Command = "wire_adv_scrollwithoutmod"
})
end
if CLIENT then
usermessage.Hook("wireinputlist",function(um)
local self = LocalPlayer():GetActiveWeapon().Tool.wire_adv
local temp = um:ReadString()
if temp ~= "" then
self.InputEntClass = temp
end
self.Inputs = {}
self.InputsW = {}
for i = 1, um:ReadShort() do
self.Inputs[i] = um:ReadString()
self.InputsW[i] = um:ReadBool()
end
end)
usermessage.Hook("wireoutputlist",function(um)
local self = LocalPlayer():GetActiveWeapon().Tool.wire_adv
local temp = um:ReadString()
if temp ~= "" then
self.OutputEntClass = temp
end
self.Outputs = {}
for i = 1, um:ReadShort() do
self.Outputs[i] = um:ReadString()
end
end)
end
function TOOL:SelectComponent(ent)
if (CLIENT) then return end
if (self.CurrentComponent == ent) then return end
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) then
self.CurrentComponent:SetNetworkedBeamString("BlinkWire", "")
end
self.CurrentComponent = ent
self.CurrentInput = nil
self.Inputs = {}
self.InputsDesc = {}
self.InputsType = {}
local best = nil
local first = nil
if (ent) and (ent.Inputs) then
for k,v in pairs(ent.Inputs) do
if (not first) then first = k end
if (k == self.LastValidInput) then best = k end
if v.Num then
self.Inputs[v.Num] = k
else
table.insert(self.Inputs, k)
end
if (v.Desc) then
self.InputsDesc[k] = v.Desc
end
if (v.Type) then
self.InputsType[k] = v.Type
end
end
//New
local tab = ""
for k,v in pairs(self.Inputs) do
tab = tab..v.."|"..((
ent and
ent:IsValid() and
ent.Inputs and
ent.Inputs[v] and
ent.Inputs[v].Src) and "1|" or "0|"
)
end
if self.LastInputs ~= tab then
umsg.Start("wireinputlist",self:GetOwner())
umsg.String(ent:GetClass())
umsg.Short(#self.Inputs)
for k,v in pairs(self.Inputs) do
local txt = v
if (self.InputsDesc) and (self.InputsDesc[v]) then
txt = txt.." ("..self.InputsDesc[v]..")"
end
if (self.InputsType) and (self.InputsType[v])
and (self.InputsType[v] != "NORMAL") then
txt = txt.." ["..self.InputsType[v].."]"
end
umsg.String(txt)
if
ent and
ent:IsValid() and
ent.Inputs and
ent.Inputs[v] and
ent.Inputs[v].Src
then
umsg.Bool(true)
else
umsg.Bool(false)
end
end
umsg.End()
self.LastInputs = tab
end
end
first = self.Inputs[1] or first
self.CurrentInput = best or first
if (self.CurrentInput) and (self.CurrentInput ~= "") then self.LastValidInput = self.CurrentInput end
local txt = ""
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) and (self.CurrentInput)
and (self.CurrentComponent.Inputs) and (self.CurrentComponent.Inputs[self.CurrentInput])
and (self.CurrentComponent.Inputs[self.CurrentInput].Src) then
txt = (self.CurrentInput or "")
else
txt = self.CurrentInput or ""
end
if (self.InputsDesc) and (self.InputsDesc[self.CurrentInput]) then
txt = txt.." ("..self.InputsDesc[self.CurrentInput]..")"
end
if (self.InputsType) and (self.InputsType[self.CurrentInput])
and (self.InputsType[self.CurrentInput] != "NORMAL") then
txt = txt.." ["..self.InputsType[self.CurrentInput].."]"
end
self:GetWeapon():SetNetworkedString("WireCurrentInput", txt)
if (self.CurrentComponent) and (self.CurrentComponent:IsValid()) then
self.CurrentComponent:SetNetworkedBeamString("BlinkWire", self.CurrentInput)
end
end
Reference in New Issue View Git Blame Copy Permalink