add io brick, misc fixes

This commit is contained in:
Redo
2024-06-22 18:17:21 -06:00
parent 38351b8a3e
commit a25f184c94
21 changed files with 12570 additions and 46 deletions

View File

@ -1,3 +1,4 @@
//bls 2
if($Pref::Server::LuaLogic::OPT_TICK_ENABLED $= "") $Pref::Server::LuaLogic::OPT_TICK_ENABLED = true;
if($Pref::Server::LuaLogic::OPT_TICK_TIME $= "") $Pref::Server::LuaLogic::OPT_TICK_TIME = 0.032;
@ -38,4 +39,8 @@ function llr(){
//schedule(1000, 0, llc);
}
function AddOn_Brick_LuaLogic_Reload() {
llr();
}
schedule(10000, 0, llc);

View File

@ -1,4 +1,4 @@
//bls 2
function mClampFloat(%x, %min, %max){
return %x<%min ? %min : (%x>%max ? %max : %x);
}
@ -203,21 +203,35 @@ function lualogic_setPrintDomain(%domain) {
}
function lualogic_defineprint(%name, %file) {
%count = getNumPrintTextures();
%domain = $LuaLogic::Print_Domain;
%print = $LuaLogic::PrintsByFile[%file];
if(%print $= "") { warn("LuaLogic_definePrint: No print named " @ %file @ " (" @ $LuaLogic::Print_Domain @ "." @ %name @ ")"); return; }
$LuaLogic::Print[$LuaLogic::Print_Domain, %name] = %print;
if(%print $= "") {
%printd = $LuaLogic::Print["default", %name];
if(%printd $= "") {
warn("LuaLogic_definePrint: No print named " @ %file @ " (" @ $LuaLogic::Print_Domain @ "." @ %name @ ")");
} else {
$LuaLogic::Print[%domain, %name] = %printd;
}
} else {
$LuaLogic::Print[%domain, %name] = %print;
}
}
function lualogic_isprint(%print, %domain) {
return $LuaLogic::Print[%domain, %print] !$= "";
}
function lualogic_getprint(%print, %domain) {
function lualogic_getprint(%name, %domain) {
if(%domain $= "") %domain = "default";
%print = $LuaLogic::Print[%domain, %print];
if(%print !$= "") return %print;
else return 0;
%print = $LuaLogic::Print[%domain, %name];
if(%print !$= "") {
return %print;
} else if (%domain !$= "default") {
return lualogic_getprint(%name, "default");
} else {
echo("lualogic_getprint: not found: " @ %domain @ "." @ %name);
return 0;
}
}
function lualogic_readfile(%filename){
@ -318,6 +332,12 @@ function lualogic_loadprintsandcolors() {
lualogic_defineprint("COLOR" @ %a @ %b @ %c, "Add-Ons/Print_Logic_Default/prints/color_" @ %a @ %b @ %c @ ".png");
}
%hex = "0123456789ABCDEF";
for(%i=1; %i<=0xE; %i++) {
%h = getSubStr(%hex, %i, 1);
lualogic_defineprint("pixel2x2_" @ %h, "Add-Ons/Print_Logic_Default/prints/pixel2x2_" @ %h @ ".png");
}
lualogic_loadPrints_default ("default" );
lualogic_loadPrints_terminal("terminal" , "" );
lualogic_loadPrints_terminal("terminalInv", "-inv");
@ -416,14 +436,14 @@ function lualogic_loadPrints_default(%domain) {
lualogic_defineprint("apostrophe2" , "Add-Ons/Print_Letters_Extra/prints/-apostrophe2.png" );
lualogic_defineprint("colon" , "Add-Ons/Print_Letters_Extra/prints/-colon.png" );
lualogic_defineprint("comma" , "Add-Ons/Print_Letters_Extra/prints/-comma.png" );
lualogic_defineprint("curlybracketleft" , "Add-Ons/Print_Letters_Extra/prints/-curlybracketleft.png" );
lualogic_defineprint("curlybracketright" , "Add-Ons/Print_Letters_Extra/prints/-curlybracketright.png" );
lualogic_defineprint("roundbracketleft" , "Add-Ons/Print_Letters_Extra/prints/-roundbracketleft.png" );
lualogic_defineprint("roundbracketright" , "Add-Ons/Print_Letters_Extra/prints/-roundbracketright.png" );
lualogic_defineprint("curlybracketright" , "Add-Ons/Print_Letters_Extra/prints/-curlybracketleft.png" );
lualogic_defineprint("curlybracketleft" , "Add-Ons/Print_Letters_Extra/prints/-curlybracketright.png" );
lualogic_defineprint("roundbracketright" , "Add-Ons/Print_Letters_Extra/prints/-roundbracketleft.png" );
lualogic_defineprint("roundbracketleft" , "Add-Ons/Print_Letters_Extra/prints/-roundbracketright.png" );
lualogic_defineprint("slashleft" , "Add-Ons/Print_Letters_Extra/prints/-slashleft.png" );
lualogic_defineprint("slashright" , "Add-Ons/Print_Letters_Extra/prints/-slashright.png" );
lualogic_defineprint("squarebracketleft" , "Add-Ons/Print_Letters_Extra/prints/-squarebracketleft.png" );
lualogic_defineprint("squarebracketright", "Add-Ons/Print_Letters_Extra/prints/-squarebracketright.png");
lualogic_defineprint("squarebracketright" , "Add-Ons/Print_Letters_Extra/prints/-squarebracketleft.png" );
lualogic_defineprint("squarebracketleft", "Add-Ons/Print_Letters_Extra/prints/-squarebracketright.png");
lualogic_defineprint("tilde" , "Add-Ons/Print_Letters_Extra/prints/-tilde.png" );
lualogic_defineprint("underscore" , "Add-Ons/Print_Letters_Extra/prints/-underscore.png" );
lualogic_defineprint("verticalbar" , "Add-Ons/Print_Letters_Extra/prints/-verticalbar.png" );