add io brick, misc fixes

bricks/inputs/iobrick-init.lua

@@ -0,0 +1,5 @@
+
+return function(gate)
+	gate.queueIn = {}
+	gate.outputToggle = true
+end

bricks/inputs/iobrick-input.lua

@@ -0,0 +1,12 @@
+
+return function(gate, argv)
+	local arg = argv[1]
+	for i = 1, #arg, 2 do
+		local d = arg:sub(i, i+1)
+		local v = tonumber(d, 16) or 0
+		if #gate.queueIn < 2048 then
+			table.insert(gate.queueIn, 1, v)
+		end
+	end
+	Gate.queue(gate, 0)
+end

bricks/inputs/iobrick-update.lua

@@ -0,0 +1,49 @@
+
+local function outputByte(gate, v)
+	local p = 256
+	for i = 1, 8 do
+		p = p/2
+		local port = 17 - i
+		if v>=p then
+			v = v - p
+			Gate.setportstate(gate, port, 1)
+		else
+			Gate.setportstate(gate, port, 0)
+		end
+	end
+end
+local function inputByte(gate)
+	local v = 0
+	local p = 256
+	for i = 1, 8 do
+		p = p/2
+		local port = 9 - i
+		v = v + p*Gate.getportstate(gate, port)
+	end
+	return v
+end
+
+return function(gate)
+	-- input
+	if #gate.queueIn > 0 and gate.outputToggle then
+	--if #gate.queueIn > 0 then
+		local v = table.remove(gate.queueIn, #gate.queueIn)
+		outputByte(gate, v)
+		Gate.setportstate(gate, 18, 1)
+		gate.outputToggle = false
+		Gate.queue(gate, 1)
+	else
+		outputByte(gate, 0)
+		Gate.setportstate(gate, 18, 0)
+		gate.outputToggle = true
+		if #gate.queueIn > 0 then
+			Gate.queue(gate, 1)
+		end
+	end
+	
+	-- output
+	if Gate.getportisrising(gate, 17) then
+		local v = inputByte(gate)
+		Gate.cbQueue(gate, string.format("%02X", v), 1024)
+	end
+end

bricks/inputs/iobrick.cs

@@ -0,0 +1,290 @@
+//bls 3
+
+datablock fxDtsBrickData(LogicGate_ClientIOBrick_Data){
+	brickFile = $LuaLogic::Path @ "bricks/blb/serialport.blb";
+	iconName = $LuaLogic::Path @ "icons/serialport";
+	
+	category = "Logic Bricks";
+	subCategory = "Special I/O";
+	uiName = "Client I/O Brick";
+	logicUIName = "Client I/O Brick";
+	logicUIDesc = "Allows clients to connect and share data with logic bricks.";
+	orientationFix = 2;
+	hasPrint = 0;
+	
+	isLogic = true;
+	isLogicGate = true;
+	isLogicInput = true;
+	
+	logicInit   = lualogic_readfile($LuaLogic::Path @ "bricks/inputs/iobrick-init.lua"  );
+	logicInput  = lualogic_readfile($LuaLogic::Path @ "bricks/inputs/iobrick-input.lua" );
+	logicUpdate = lualogic_readfile($LuaLogic::Path @ "bricks/inputs/iobrick-update.lua");
+	//logicGlobal = lualogic_readfile($LuaLogic::Path @ "bricks/inputs/iobrick-global.lua");
+	
+	numLogicPorts = 18;
+	
+	logicPortPos[ 0] = "-8 1 -3";
+	logicPortPos[ 1] = "-6 1 -3";
+	logicPortPos[ 2] = "-4 1 -3";
+	logicPortPos[ 3] = "-2 1 -3";
+	logicPortPos[ 4] =  "0 1 -3";
+	logicPortPos[ 5] =  "2 1 -3";
+	logicPortPos[ 6] =  "4 1 -3";
+	logicPortPos[ 7] =  "6 1 -3";
+	
+	logicPortPos[16] =  "-8 1 -3";
+	
+	logicPortPos[ 8] = "-8 -1 -3";
+	logicPortPos[ 9] = "-6 -1 -3";
+	logicPortPos[10] = "-4 -1 -3";
+	logicPortPos[11] = "-2 -1 -3";
+	logicPortPos[12] =  "0 -1 -3";
+	logicPortPos[13] =  "2 -1 -3";
+	logicPortPos[14] =  "4 -1 -3";
+	logicPortPos[15] =  "6 -1 -3";
+	
+	logicPortPos[17] = "-8 -1 -3";
+	
+	logicPortType[0] = 1;
+	logicPortDir[0] = 1;
+	logicPortUIName[0] = "In0";
+	
+	logicPortType[1] = 1;
+	logicPortDir[1] = 1;
+	logicPortUIName[1] = "In1";
+	
+	logicPortType[2] = 1;
+	logicPortDir[2] = 1;
+	logicPortUIName[2] = "In2";
+	
+	logicPortType[3] = 1;
+	logicPortDir[3] = 1;
+	logicPortUIName[3] = "In3";
+	
+	logicPortType[4] = 1;
+	logicPortDir[4] = 1;
+	logicPortUIName[4] = "In4";
+	
+	logicPortType[5] = 1;
+	logicPortDir[5] = 1;
+	logicPortUIName[5] = "In5";
+	
+	logicPortType[6] = 1;
+	logicPortDir[6] = 1;
+	logicPortUIName[6] = "In6";
+	
+	logicPortType[7] = 1;
+	logicPortDir[7] = 1;
+	logicPortUIName[7] = "In7";
+	
+	logicPortType[8] = 0;
+	logicPortDir[8] = 3;
+	logicPortUIName[8] = "Out0";
+	
+	logicPortType[9] = 0;
+	logicPortDir[9] = 3;
+	logicPortUIName[9] = "Out1";
+	
+	logicPortType[10] = 0;
+	logicPortDir[10] = 3;
+	logicPortUIName[10] = "Out2";
+	
+	logicPortType[11] = 0;
+	logicPortDir[11] = 3;
+	logicPortUIName[11] = "Out3";
+	
+	logicPortType[12] = 0;
+	logicPortDir[12] = 3;
+	logicPortUIName[12] = "Out4";
+	
+	logicPortType[13] = 0;
+	logicPortDir[13] = 3;
+	logicPortUIName[13] = "Out5";
+	
+	logicPortType[14] = 0;
+	logicPortDir[14] = 3;
+	logicPortUIName[14] = "Out6";
+	
+	logicPortType[15] = 0;
+	logicPortDir[15] = 3;
+	logicPortUIName[15] = "Out7";
+	
+	logicPortType[16] = 1;
+	logicPortDir[16] = 0;
+	logicPortUIName[16] = "InClk";
+	logicPortCauseUpdate[16] = true;
+	
+	logicPortType[17] = 0;
+	logicPortDir[17] = 0;
+	logicPortUIName[17] = "OutClk";
+	logicPortCauseUpdate[17] = true;
+};
+
+// Input
+function serverCmdLogicIO(%client, %data) {
+	if(isObject(%brick = %client.LogicIO_Brick)) {
+		%brick.LogicIO_input(%data);
+	}
+}
+function fxDtsBrick::LogicIO_input(%brick, %data) {
+	lualogic_sendInput(%brick, 1, %data);
+}
+
+// Output
+function fxDtsBrick::LogicIO_output(%brick, %data) {
+	if(isObject(%client = %brick.LogicIO_Client)) {
+		%maxLen = 250;
+		%len = strLen(%data);
+		
+		commandToClient(%client, 'LogicIO', getSubStr(%data, 0, %maxLen));
+		
+		//if(%len > %maxLen) {
+		//	%brick.LogicIO_output(getSubStr(%data, 0, %maxLen));
+		//	%brick.LogicIO_output(getSubStr(%data, %maxLen, %len - %maxLen));
+		//} else {
+		//	commandToClient(%client, 'LogicIO', %data);
+		//}
+	}
+}
+function LogicGate_ClientIOBrick_Data::LuaLogic_Callback(%db, %brick, %data) {
+	%brick.LogicIO_output(%data);
+}
+
+// Binding
+function LogicGate_ClientIOBrick_Data::Logic_OnInput(%db, %brick, %pos, %norm, %client){
+	if(isObject(%client)) {
+		if(%client.LogicIO_Brick == %brick) {
+			%client.LogicIO_unbind();
+		} else {
+			%brick.LogicIO_bindClient(%client);
+		}
+	}
+}
+function GameConnection::LogicIO_unbind(%client) {
+	if(isObject(%brick = %client.LogicIO_Brick)) %brick.LogicIO_unbindClient(%brick);
+}
+function fxDtsBrick::LogicIO_unbindClient(%brick) {
+	if(isObject(%client = %brick.LogicIO_Client)) {
+		%client.LogicIO_Brick = "";
+		messageClient(%client, 0, "\c6Logic I/O: Unbound from \c3" @ %brick);
+		if(isObject(%player = %client.player)) serverPlay3D(LogicIO_PlugOutSound, %player.getHackPosition());
+	}
+	%brick.LogicIO_Client = "";
+	serverPlay3D(LogicIO_PlugOutSound, %brick.getPosition());
+	
+	//SerialLink_delete(%brick.LogicIO_bindLink);
+	//%brick.LogicIO_bindLink = "";
+}
+function fxDtsBrick::LogicIO_bindClient(%brick, %client) {
+	%brick.LogicIO_unbindClient();
+	%client.LogicIO_unbind();
+	
+	%client.LogicIO_Brick = %brick;
+	%brick.LogicIO_Client = %client;
+	messageClient(%client, 0, "\c6Logic I/O: Bound to \c3" @ %brick);
+	
+	serverPlay3D(LogicIO_PlugInSound, %player.getHackPosition());
+	serverPlay3D(LogicIO_PlugInSound, %brick.getPosition());
+	
+	//%linkPos = vectorAdd(%brick.getPosition(), LogicIO_rotateVector("0 2 0", %brick.angleId));
+	//%linkRot = "0 0 1" SPC ($math.pi/2*%brick.angleId);
+	//%brick.LogicIO_bindLink = SerialLink_create(%linkPos, %linkRot, %client.player);
+}
+
+// Util
+function LogicIO_rotateVector(%vector, %steps) {
+	switch(%steps % 4) {
+		case 0: return %vector;
+		case 1: return  getWord(%vector, 1) SPC -getWord(%vector, 0) SPC getWord(%vector, 2);
+		case 2: return -getWord(%vector, 0) SPC -getWord(%vector, 1) SPC getWord(%vector, 2);
+		case 3: return -getWord(%vector, 1) SPC  getWord(%vector, 0) SPC getWord(%vector, 2);
+	}
+}
+
+// Serial link visuals
+
+datablock AudioProfile(LogicIO_PlugInSound) {
+	filename    = "./plugIn.wav";
+	description = MediumClose3D;
+	preload     = true;
+};
+
+datablock AudioProfile(LogicIO_PlugOutSound) {
+	filename    = "./plugOut.wav";
+	description = MediumClose3D;
+	preload     = true;
+};
+
+function SerialLink_delete(%link) {
+	if(!isObject(%link)) return;
+	cancel(%link.updateSched);
+	%link.end0.delete();
+	%link.end1.delete();
+	%link.wire.delete();
+}
+function SerialLink_createEnd() {
+	%shape = new StaticShape() {
+		// todo
+	};
+	return %shape;
+}
+function SerialLink_createPlayerEnd() {
+	%shape = new StaticShape() {
+		// todo
+	};
+	return %shape;
+}
+function SerialLink_createWire() {
+	%shape = new StaticShape() {
+		// todo
+	};
+	return %shape;
+}
+function SerialLink_create(%pos1, %rot1, %player) {
+	%link = new ScriptObject();
+	%link.end0 = SerialLink_createEnd();
+	%link.end1 = SerialLink_createPlayerEnd();
+	%link.wire = SerialLink_createWire();
+	%link.endPlayer0 = %player;
+	SerialLink_update(%link);
+}
+function SerialLink_moveEndToPlayer(%shape, %player) {
+	%shape.setTransform(%player.getSlotTransform(2)); // todo
+}
+function SerialLink_moveWire(%shape, %pos1, %pos2) {
+	// todo
+	%midPos = vectorScale(vectorAdd(%pos1, %pos2), 0.5);
+	%shape.setTransform(%midPos SPC "0 0 1 0");
+}
+function SerialLink_update(%link) {
+	cancel(%link.updateSched);
+	for(%i=0; %i<=1; %i++) {
+		%player = %link.endPlayer[%i];
+		if(%player) {
+			//if(!isObject(%player) || %player.getState() $= "Dead") {
+			if(!isObject(%player)) {
+				if(isObject(%client = %player.client)) %client.LogicIO_Unbind();
+				SerialLink_delete(%link);
+				return;
+			} else {
+				SerialLink_moveEndToPlayer(%link.end[%i], %player);
+				%moved = 1;
+			}
+		}
+	}
+	if(%moved) {
+		%dist = vectorLen(vectorSub(%pos1, %pos2));
+		if(%dist > $SerialLink_maxDistance) { // If link is stretched too long, break it
+			for(%i=0; %i<=1; %i++) { // Unbind client(s)
+				if(isObject(%player = %link.endPlayer[%i]) && isObject(%client = %player.client)) {
+					%client.LogicIO_Unbind();
+				}
+			}
+			SerialLink_delete(%link); // Delete link
+			return;
+		} else { // Link moved, not too stretched -> update position
+			SerialLink_moveWire(%link.wire, %link.end[0].getPosition(), %link.end[1].getPosition());
+		}
+	}
+	%link.updateSched = schedule(32, 0, SerialLink_update, %link);
+}