initial commit
This commit is contained in:
Redo
292
scripts/utilities.cs
Normal file
292
scripts/utilities.cs
Normal file
@@ -0,0 +1,292 @@
|
||||
|
||||
function mClampFloat(%x, %min, %max){
|
||||
return %x<%min ? %min : (%x>%max ? %max : %x);
|
||||
}
|
||||
|
||||
function lualogic_registergatedefinition(%data){
|
||||
//lualogic_registergatedefinition_auto(%data);
|
||||
|
||||
//handled automatically now
|
||||
}
|
||||
|
||||
function lualogic_registergatedefinition_auto(%data){
|
||||
if(!isObject(%data))
|
||||
return;
|
||||
|
||||
%id = %data.getID();
|
||||
|
||||
if((%idx = $LuaLogic::GateDefinitionIDX[%id]) $= "")
|
||||
{
|
||||
%idx = $LuaLogic::NumGateDefintions+0;
|
||||
$LuaLogic::GateDefinitionIDX[%id] = %idx;
|
||||
$LuaLogic::NumGateDefintions++;
|
||||
}
|
||||
|
||||
%numports = %data.numLogicPorts;
|
||||
|
||||
%def = %id @ ";" @
|
||||
lualogic_expandescape(%data.logicUIName) @ ";" @
|
||||
lualogic_expandescape(%data.logicUIDesc) @ ";" @
|
||||
lualogic_expandescape(%data.logicInit) @ ";" @
|
||||
lualogic_expandescape(%data.logicUpdate) @ ";" @
|
||||
lualogic_expandescape(%data.logicInput) @ ";" @
|
||||
lualogic_expandescape(%data.logicGlobal) @ ";" @
|
||||
%numports
|
||||
;
|
||||
|
||||
for(%i = 0; %i < %numports; %i++)
|
||||
{
|
||||
%def = %def @ ";" @ %data.logicPortType[%i] @ ";" @ %data.logicPortPos[%i] @ ";" @ %data.logicPortDir[%i]
|
||||
@ ";" @ (%data.logicPortCauseUpdate[%i] == true) @ ";" @ %data.logicPortUIName[%i];
|
||||
}
|
||||
|
||||
$LuaLogic::GateDefintion[%idx] = %def;
|
||||
}
|
||||
|
||||
function lualogic_registerAllGateDefinitions(){
|
||||
echo("LuaLogic: Registering gate definitions");
|
||||
|
||||
for(%dbidx=0; %dbidx<DatablockGroup.getCount(); %dbidx++){
|
||||
%db = DatablockGroup.getObject(%dbidx);
|
||||
if(%db.isLogic && %db.isLogicGate){
|
||||
lualogic_registergatedefinition_auto(%db);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
schedule(1, 0, lualogic_registerAllGateDefinitions);
|
||||
|
||||
function lualogic_print(%text)
|
||||
{
|
||||
echo("LuaLogic -> ", %text);
|
||||
}
|
||||
|
||||
function lualogic_roundpos(%pos)
|
||||
{
|
||||
return mFloor(getWord(%pos, 0)*4)/4 SPC mFloor(getWord(%pos, 1)*4)/4 SPC mFloor(getWord(%pos, 2)*10)/10;
|
||||
}
|
||||
|
||||
function lualogic_roundstudpos(%pos)
|
||||
{
|
||||
return mFloor(getWord(%pos, 0)*2)/2 SPC mFloor(getWord(%pos, 1)*2)/2 SPC mFloor(getWord(%pos, 2)*5)/5;
|
||||
}
|
||||
|
||||
function lualogic_pos(%pos)
|
||||
{
|
||||
%pos = lualogic_roundpos(%pos);
|
||||
return getWord(%pos, 0)/0.25 SPC getWord(%pos, 1)/0.25 SPC getWord(%pos, 2)/0.1;
|
||||
}
|
||||
|
||||
function lualogic_studpos(%pos)
|
||||
{
|
||||
%pos = lualogic_roundstudpos(%pos);
|
||||
return getWord(%pos, 0)/0.5*2 + 1 SPC getWord(%pos, 1)/0.5*2 + 1 SPC getWord(%pos, 2)/0.2*2;
|
||||
}
|
||||
|
||||
function lualogic_postobrick(%pos)
|
||||
{
|
||||
return getWord(%pos, 0)*0.25 SPC getWord(%pos, 1)*0.25 SPC getWord(%pos, 2)*0.1;
|
||||
}
|
||||
|
||||
function lualogic_connect(%port)
|
||||
{
|
||||
if(isObject(LuaLogicTCP))
|
||||
LuaLogicTCP.delete();
|
||||
%tcp = new TCPObject(LuaLogicTCP);
|
||||
%tcp.connect("127.0.0.1:" @ %port);
|
||||
}
|
||||
|
||||
function lualogic_send(%data)
|
||||
{
|
||||
if(isObject(LuaLogicTCP) && LuaLogicTCP.isConnected)
|
||||
{
|
||||
//while(strpos(%data, ";;") != -1)
|
||||
// %data = strReplace(%data, ";;", "; ;");
|
||||
|
||||
if(strlen(LuaLogicTCP.data) + strlen(%data) >= 1024)
|
||||
LuaLogicTCP.sendData();
|
||||
|
||||
if(LuaLogicTCP.data $= "")
|
||||
LuaLogicTCP.data = %data;
|
||||
else
|
||||
LuaLogicTCP.data = LuaLogicTCP.data @ ";" @ %data;
|
||||
}
|
||||
}
|
||||
|
||||
function lualogic_sendgatedefinitions()
|
||||
{
|
||||
for(%i = 0; %i < $LuaLogic::NumGateDefintions; %i++)
|
||||
lualogic_send("GD;" @ $LuaLogic::GateDefintion[%i]);
|
||||
}
|
||||
|
||||
function lualogic_sendoptions(){
|
||||
lualogic_send("OPT;TICK_ENABLED;" @ $Pref::Server::LuaLogic::OPT_TICK_ENABLED);
|
||||
lualogic_send("OPT;TICK_TIME;" @ $Pref::Server::LuaLogic::OPT_TICK_TIME );
|
||||
lualogic_send("OPT;FX_UPDATES;" @ $Pref::Server::LuaLogic::OPT_FX_UPDATES );
|
||||
lualogic_send("OPT;FX_TIME;" @ $Pref::Server::LuaLogic::OPT_FX_TIME );
|
||||
lualogic_send("OPT;TICK_MULT;" @ $Pref::Server::LuaLogic::OPT_TICK_MULT );
|
||||
}
|
||||
|
||||
function lualogic_savedata(){
|
||||
lualogic_send("SAVE");
|
||||
}
|
||||
|
||||
function lualogic_sendinput(%gate, %argc, %arg0, %arg1, %arg2, %arg3, %arg4, %arg5, %arg6, %arg7, %arg8, %arg9, %arg10, %arg11, %arg12, %arg13, %arg14, %arg15)
|
||||
{
|
||||
%args = %arg0;
|
||||
for(%i = 1; %i < %argc; %i++)
|
||||
%args = %args @ ";" @ lualogic_expandescape(%arg[%i]);
|
||||
|
||||
if(%argc > 0)
|
||||
lualogic_send("IN;" @ %gate.getID() @ ";" @ %argc @ ";" @ %args);
|
||||
else
|
||||
lualogic_send("IN;" @ %gate.getID() @ ";" @ %argc);
|
||||
}
|
||||
|
||||
function lualogic_ss(%obj, %state)
|
||||
{
|
||||
lualogic_send("SG;" @ %obj @ ";" @ (%state == true));
|
||||
}
|
||||
|
||||
function lualogic_definecolor(%color, %rgb, %allowTransparency)
|
||||
{
|
||||
%r = getWord(%rgb, 0);
|
||||
%g = getWord(%rgb, 1);
|
||||
%b = getWord(%rgb, 2);
|
||||
|
||||
%alpha = %allowTransparency ? 0.001 : 1;
|
||||
|
||||
%bestDist = 9e9;
|
||||
|
||||
for(%i = 0; %i < 64; %i++)
|
||||
{
|
||||
%crgba = getColorIDTable(%i);
|
||||
if(getWord(%crgba, 3) >= %alpha)
|
||||
{
|
||||
%dr = getWord(%crgba, 0) - %r;
|
||||
%dg = getWord(%crgba, 1) - %g;
|
||||
%db = getWord(%crgba, 2) - %b;
|
||||
%dist = %dr*%dr + %dg*%dg + %db*%db;
|
||||
|
||||
if(%dist < %bestDist)
|
||||
{
|
||||
%bestDist = %dist;
|
||||
%bestColor = %i;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$LuaLogic::Color[%color] = %bestColor;
|
||||
return %bestColor;
|
||||
}
|
||||
|
||||
function lualogic_iscolor(%color)
|
||||
{
|
||||
return $LuaLogic::Color[%color] !$= "";
|
||||
}
|
||||
|
||||
function lualogic_getcolor(%color)
|
||||
{
|
||||
if($LuaLogic::Color[%color] !$= "")
|
||||
return $LuaLogic::Color[%color];
|
||||
return 0;
|
||||
}
|
||||
|
||||
function lualogic_defineprint(%print, %file)
|
||||
{
|
||||
%count = getNumPrintTextures();
|
||||
for(%i = 0; %i < %count; %i++)
|
||||
{
|
||||
if(getPrintTexture(%i) $= %file)
|
||||
{
|
||||
$LuaLogic::Print[%print] = %i;
|
||||
return %i;
|
||||
}
|
||||
}
|
||||
|
||||
return "";
|
||||
}
|
||||
|
||||
function lualogic_isprint(%print)
|
||||
{
|
||||
return $LuaLogic::Print[%print] !$= "";
|
||||
}
|
||||
|
||||
function lualogic_getprint(%print)
|
||||
{
|
||||
if($LuaLogic::Print[%print] !$= "")
|
||||
return $LuaLogic::Print[%print];
|
||||
return 0;
|
||||
}
|
||||
|
||||
function lualogic_readfile(%filename){
|
||||
%filestr="";
|
||||
|
||||
%file=new FileObject();
|
||||
%success=%file.openForRead(%filename);
|
||||
|
||||
if(%success){
|
||||
while(!%file.isEOF()){
|
||||
%line = %file.readLine();
|
||||
%filestr = %filestr @ %line @ "\n";
|
||||
}
|
||||
}else{
|
||||
echo("LuaLogic: Failed to read file \"" @ %filename @ "\"");
|
||||
}
|
||||
%file.close();
|
||||
%file.delete();
|
||||
|
||||
return %filestr;
|
||||
}
|
||||
|
||||
$LuaLogic::EscapeCount = 0;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = "\\"; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "b"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = "\t"; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "t"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = "\n"; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "n"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = "\r"; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "r"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = "\'"; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "a"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = "\""; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "q"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = ";" ; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "s"; $LuaLogic::EscapeCount++;
|
||||
$LuaLogic::EscapeIn[$LuaLogic::EscapeCount] = ":" ; $LuaLogic::EscapeOut[$LuaLogic::EscapeCount] = "c"; $LuaLogic::EscapeCount++;
|
||||
|
||||
function lualogic_expandescape(%str){
|
||||
%ostr = "";
|
||||
|
||||
%len = strLen(%str);
|
||||
for(%i=0; %i<%len; %i++){
|
||||
%ci = getSubStr(%str, %i, 1);
|
||||
|
||||
%co = %ci;
|
||||
for(%j=0; %j<$LuaLogic::EscapeCount; %j++){
|
||||
if(%ci$=$LuaLogic::EscapeIn[%j]){ %co = "\\" @ $LuaLogic::EscapeOut[%j]; }
|
||||
}
|
||||
|
||||
%ostr = %ostr @ %co;
|
||||
}
|
||||
|
||||
return %ostr;
|
||||
}
|
||||
|
||||
function lualogic_collapseescape(%str){
|
||||
%ostr = "";
|
||||
|
||||
%i = 0;
|
||||
%len = strLen(%str);
|
||||
while(%i<%len){
|
||||
%ci = getSubStr(%str, %i, 1);
|
||||
|
||||
%co = %ci;
|
||||
if(%ci$="\\" && %i<%len-1){
|
||||
%i++;
|
||||
%ci = getSubStr(%str, %i, 1);
|
||||
for(%j=0; %j<$LuaLogic::EscapeCount; %j++){
|
||||
if(%ci$=$LuaLogic::EscapeOut[%j]){ %co = $LuaLogic::EscapeIn[%j]; }
|
||||
}
|
||||
}
|
||||
|
||||
%ostr = %ostr @ %co;
|
||||
%i++;
|
||||
}
|
||||
|
||||
return %ostr;
|
||||
}
|
||||
Reference in New Issue
Block a user