make keyboard use vkey codes; add 4x4 rom

2021-05-25 05:18:55 -05:00
parent ce07ef3263
commit 95164ab7bf
3 changed files with 1068 additions and 93 deletions
--- a/bricks/gen/newcode/ROM
+++ b/bricks/gen/newcode/ROM
@ -0,0 +1,101 @@
+
+datablock fxDtsBrickData(LogicGate_Rom4x4_Data){
+	brickFile = $LuaLogic::Path @ "bricks/gen/newbricks/ROM 4x4.blb";
+	iconName = $LuaLogic::Path @ "bricks/gen/newicons/ROM 4x4";
+	
+	category = "Logic Bricks";
+	subCategory = "Special I/O";
+	uiName = "ROM 4x4";
+	logicUIName = "ROM 4x4";
+	logicUIDesc = "";
+	
+	hasPrint = 1;
+	printAspectRatio = "Logic";
+	
+	logicBrickSize = "4 4 1";
+	orientationFix = 3;
+	
+	isLogic = true;
+	isLogicGate = true;
+	isLogicInput = false;
+	
+	logicInit = 
+		"return function(gate) " @
+		"	gate.romdata = {} " @
+		"	for i = 0, 15 do " @
+		"		gate.romdata[i] = false " @
+		"	end " @
+		"end"
+	;
+	logicInput = 
+		"return function(gate, args) " @
+		"	local data = args[1] " @
+		"	for i = 1, #data do " @
+		"		local c = data:sub(i, i) " @
+		"		gate.romdata[i-1] = (c==\"1\") " @
+		"	end " @
+		"	Gate.queue(gate, 0) " @
+		"end"
+	;
+	logicUpdate = 
+		"return function(gate) " @
+		"	if Gate.getportstate(gate, 6) then " @
+		"		Gate.setportstate(gate, 5, gate.romdata[( " @
+		"			(Gate.getportstate(gate, 1) and 1 or 0) " @
+		"			+ (Gate.getportstate(gate, 2) and 2 or 0) " @
+		"			+ (Gate.getportstate(gate, 3) and 4 or 0) " @
+		"			+ (Gate.getportstate(gate, 4) and 8 or 0) " @
+		"		)]) " @
+		"	else " @
+		"		Gate.setportstate(gate, 5, false) " @
+		"	end " @
+		"end"
+	;
+	logicGlobal = "";
+	
+	numLogicPorts = 6;
+	
+	isLogicRom = true;
+	logicRomY = 4;
+	logicRomX = 4;
+	
+	logicPortType[0] = 1;
+	logicPortPos[0] = "3 -3 0";
+	logicPortDir[0] = 3;
+	logicPortUIName[0] = "Addr0";
+	logicPortCauseUpdate[0] = true;
+	
+	logicPortType[1] = 1;
+	logicPortPos[1] = "1 -3 0";
+	logicPortDir[1] = 3;
+	logicPortUIName[1] = "Addr1";
+	logicPortCauseUpdate[1] = true;
+	
+	logicPortType[2] = 1;
+	logicPortPos[2] = "-1 -3 0";
+	logicPortDir[2] = 3;
+	logicPortUIName[2] = "Addr2";
+	logicPortCauseUpdate[2] = true;
+	
+	logicPortType[3] = 1;
+	logicPortPos[3] = "-3 -3 0";
+	logicPortDir[3] = 3;
+	logicPortUIName[3] = "Addr3";
+	logicPortCauseUpdate[3] = true;
+	
+	logicPortType[4] = 0;
+	logicPortPos[4] = "3 3 0";
+	logicPortDir[4] = 1;
+	logicPortUIName[4] = "Out";
+	
+	logicPortType[5] = 1;
+	logicPortPos[5] = "3 -3 0";
+	logicPortDir[5] = 2;
+	logicPortUIName[5] = "In";
+	logicPortCauseUpdate[5] = true;
+	
+};
+
+function LogicGate_Rom4x4_Data::Logic_onAdd(%data, %brick) {
+	lualogic_rom_updatedata(%brick);
+}