wiremod-svn-archive/wire/lua/weapons/gmod_tool/stools/wire_dataport.lua
blackphoenix 4f32b835f3 Added:
Console Screen (30x18 dos-like console)
Address Bus (To join up to 4 address spaces)
Data Port (Aka old ports in CPU, but external)
Data Plug (Connects address spaces)
32KB RAM module
CPU Protected Mode (Simple)
CPU Interrupts (in PM)
Strings supported in DB macro.
Lots more I forgot.
CPU Frequency limit to 5000Hz
Fixed:
CPU is now V2.00, added lots and lots of opcodes, around 100 (but 8 are disabled due to some reasons)
Digital Screen (new inputs)
Wired Numpad (Hi-Speed link added, acts as buffer)
New examples for CPU
CPU supports writing to ROM, i.e. program will be restored each reset.
ZCPU & ZASM bugs.

Known bugs:
Address Bus settings do not save when duping
Console screen does not dupe (duplications of it result in things connected to old copy)
Removed in-game editor, reworking it into VGUI. You can always use notepad, or my editor, it might be posted on forum
Some other misc little bugs.
2007-04-12 19:16:47 +00:00

125 lines
3.5 KiB
Lua

TOOL.Category = "Wire - Advanced"
TOOL.Name = "Data Port"
TOOL.Command = nil
TOOL.ConfigName = ""
if ( CLIENT ) then
language.Add( "Tool_wire_dataport_name", "Data port tool (Wire)" )
language.Add( "Tool_wire_dataport_desc", "Spawns data port consisting of 8 ports" )
language.Add( "Tool_wire_dataport_0", "Primary: Create/Update data ports unit" )
language.Add( "sboxlimit_wire_dataports", "You've hit data porns limit!" )
language.Add( "undone_wiredigitalscreen", "Undone Data Port" )
end
if (SERVER) then
CreateConVar('sbox_maxwire_dataports', 20)
end
TOOL.ClientConVar[ "model" ] = "models/jaanus/wiretool/wiretool_gate.mdl"
cleanup.Register( "wire_dataports" )
function TOOL:LeftClick( trace )
if trace.Entity && trace.Entity:IsPlayer() then return false end
if (CLIENT) then return true end
if ( !self:GetSWEP():CheckLimit( "wire_dataports" ) ) then return false end
if (not util.IsValidModel(self:GetClientInfo( "model" ))) then return false end
if (not util.IsValidProp(self:GetClientInfo( "model" ))) then return false end
local ply = self:GetOwner()
local Ang = trace.HitNormal:Angle()
local Smodel = self:GetClientInfo( "model" )
Ang.pitch = Ang.pitch + 90
wire_dataport = MakeWireDataPort( ply, Ang, trace.HitPos, Smodel )
local min = wire_dataport:OBBMins()
wire_dataport:SetPos( trace.HitPos - trace.HitNormal * min.z )
local const = WireLib.Weld(wire_dataport, trace.Entity, trace.PhysicsBone, true)
undo.Create("WireDataPort")
undo.AddEntity( wire_dataport )
undo.SetPlayer( ply )
undo.Finish()
ply:AddCleanup( "wire_dataports", wire_dataport )
return true
end
if (SERVER) then
function MakeWireDataPort( pl, Ang, Pos, Smodel )
if ( !pl:CheckLimit( "wire_dataports" ) ) then return false end
local wire_dataport = ents.Create( "gmod_wire_dataport" )
if (!wire_dataport:IsValid()) then return false end
wire_dataport:SetModel(Smodel)
wire_dataport:SetAngles( Ang )
wire_dataport:SetPos( Pos )
wire_dataport:Spawn()
wire_dataport:SetPlayer(pl)
local ttable = {
pl = pl,
Smodel = Smodel,
}
table.Merge(wire_dataport:GetTable(), ttable )
pl:AddCount( "wire_dataports", wire_dataport )
return wire_dataport
end
duplicator.RegisterEntityClass("gmod_wire_dataport", MakeWireDataPort, "Ang", "Pos", "Smodel")
end
function TOOL:UpdateGhostWireDataPort( ent, player )
if ( !ent ) then return end
if ( !ent:IsValid() ) then return end
local tr = utilx.GetPlayerTrace( player, player:GetCursorAimVector() )
local trace = util.TraceLine( tr )
if (!trace.Hit) then return end
if (trace.Entity && trace.Entity:GetClass() == "gmod_wire_dataport" || trace.Entity:IsPlayer()) then
ent:SetNoDraw( true )
return
end
local Ang = trace.HitNormal:Angle()
Ang.pitch = Ang.pitch + 90
local min = ent:OBBMins()
ent:SetPos( trace.HitPos - trace.HitNormal * min.z )
ent:SetAngles( Ang )
ent:SetNoDraw( false )
end
function TOOL:Think()
if (!self.GhostEntity || !self.GhostEntity:IsValid() || self.GhostEntity:GetModel() != self:GetClientInfo( "model" ) || (not self.GhostEntity:GetModel()) ) then
self:MakeGhostEntity( self:GetClientInfo( "model" ), Vector(0,0,0), Angle(0,0,0) )
end
self:UpdateGhostWireDataPort( self.GhostEntity, self:GetOwner() )
end
function TOOL.BuildCPanel(panel)
panel:AddControl("Header", { Text = "#Tool_wire_dataport_name", Description = "#Tool_wire_dataport_desc" })
end