Scrap Mechanic ModsMathBlock.lua Part LUA Script File
Asset Details
Name = MathBlock.lua
Description = Part LUA Script File for 289e08ef-e3d8-4f1b-bc10-a0bcf36fa0ce (MathBlock.lua)
Tags = script, scripted, lua
Author = 76561198014346778
RequiredAssets = 127
FileContents =
Description = Part LUA Script File for 289e08ef-e3d8-4f1b-bc10-a0bcf36fa0ce (MathBlock.lua)
Tags = script, scripted, lua
Author = 76561198014346778
RequiredAssets = 127
FileContents =
--[[
Copyright (c) 2020 Modpack Team
Brent Batch#9261
]]--
dofile "../Libs/LoadLibs.lua"
mpPrint("loading MathBlock.lua")
-- MathBlock.lua --
MathBlock = class( nil )
MathBlock.maxParentCount = -1
MathBlock.maxChildCount = -1
MathBlock.connectionInput = sm.interactable.connectionType.power + sm.interactable.connectionType.logic + sm.interactable.connectionType.seated
MathBlock.connectionOutput = sm.interactable.connectionType.power + sm.interactable.connectionType.logic
MathBlock.colorNormal = sm.color.new( 0x0E388Cff )
MathBlock.colorHighlight = sm.color.new( 0x214DA5ff )
MathBlock.poseWeightCount = 1
MathBlock.mode = 1
MathBlock.modetable = {--"value" aka "savevalue", gets saved, gets loaded.
--change order of following array to change cycle order:
{value = 00, name = "+" ,description = "\nadds all number inputs together and outputs the sum of them"},
{value = 01, name = "-" ,description = "\nsubtracts white input from black input and outputs the number, \neither of the 2 can be colored white or black to work, \nnot coloring either the appropriate color will cause subtraction of first connected - 2nd connected"},
{value = 02, name = "x" ,description = "\noutputs the multiplication of all inputs"},
{value = 03, name = "/" ,description = "\noutputs the division of white input by non-white input, \nwhen more than 2 inputs be sure to color appropriate inputs white!"},
{value = 04, name = "modulus" ,description = "\noutputs the rest after dividing white input by non-white input, \nwhen more than 2 inputs: adds together whites and gets rest after dividing by non-whites"},
{value = 05, name = "squared" ,description = "\noutputs white to the power of non-white\n1 input: input squared\n2+inputs: whites added together to the power of (sum of non-whites)"},
{value = 06, name = "root" ,description = "\noutputs white to the root of non-white\n1 input: input square-root\n2+inputs: whites added together to the root of (sum of non-whites)"},
{value = 17, name = "absolute" ,description = "\noutputs the positive value of the input (-5 -> 5, 5-> 5)\nmoreinputs: sums all positive values of the inputs (-3,-2,1->output=6)"},
{value = 28, name = "hypotenuse",description = "\noutputs the hypotenuse of the 2 inputs\noutput=(a^2+b^2)^(1/2)"},
{value = 23, name = "log" ,description = "\noutputs the logarithm of the non-white input with base white input\n1 input: base defaults to 'e'"},
{value = 24, name = "exp" ,description = "\noutputs value of 'e' to the power of input(s)\nno inputs: output will be e^1 aka 'e'"},
{value = 33, name = "factorial" ,description = "\ntakes the factorial of the floored sum of the inputs\n('floor' in case there are inputs like 1.5)"},
{value = 32, name = "bitmem" ,description = "\ninputs: white / non-white\nwhite input defines the action: 0=flip, 1=set, 2=reset, no white= flip\nwhen all non-white inputs are active(not 0 for numbers), the action will be taken,\nin case of flip it'll flip every tick all inputs are on, set will turn it on, reset will turn it off.\n\nnifty replacedment for selfwired xor/other memorory's"},
{value = 18, name = "floor" ,description = "\nfloors the input(0.9999->0)\nmore than one input: floors inputs , then adds together\nwhite input: round by value"},
{value = 19, name = "round" ,description = "\nrounds the input(0.499->0, 0.5->1)\nmore than one input: rounds inputs, then adds together\nwhite input: round by value"},
{value = 20, name = "ceil" ,description = "\nrounds the inputs up(0.01->1)\nmore than one input: floors inputs up, then adds together\nwhite input: round by value"},
{value = 21, name = "min" ,description = "\noutputs the lowest input value"},
{value = 22, name = "max" ,description = "\noutputs the higest input value"},
{value = 34, name = "PID" ,description = "proportional integral derivative \nblack: process value \nwhite: set value \norange: P multiplier\nred: I multiplier \npurple: D multiplier \n3rd row orange: limit output(default: 4096) \n3rd row red: i time(between 10-1200 ticks)(default value:400) \n3rd row purple: d time(between 1-20 ticks)"},
{value = 12, name = "sinus" ,description = "\noutputs the sinus of the input, input in degrees\nmultiple inputs: sinus(sum of inputs)"},
{value = 13, name = "cosinus" ,description = "\noutputs the cosinus of the input, input in degrees\nmultiple inputs: cosinus(sum of inputs)"},
{value = 14, name = "tan" ,description = "\noutputs the tangens of the input, input in degrees\nmultiple inputs: tangens(sum of inputs)"},
{value = 25, name = "arcsin" ,description = "\noutputs the inverse sinus of the input in degrees, input between -1 and 1\nmultiple inputs: arcsinus(sum of inputs)"},
{value = 26, name = "arccos" ,description = "\noutputs the inverse cosinus of the input in degrees, input between -1 and 1\nmultiple inputs: arccosinus(sum of inputs)"},
{value = 27, name = "arctan" ,description = "\noutputs the inverse tangens of the input in degrees\nmultiple inputs: arctangens(sum of inputs)"},
{value = 35, name = "arctan2" ,description = "\noutputs the inverse tangens of the inputs (white & black) in degrees\nmultiple inputs: arctangens2(whites, blacks)\narctan*2* because it works for all 4 quadrants -> 2 inputs!(black&white)"},
{value = 15, name = "pi" ,description = "\nno inputs, outputs PI \n(3.141592653589793238462643383279502884197169399375\n10582097494459230781640628620899862803482534211706\n79821480865132823066470938446095505822317253594081\n28481117450284102701938521105559644622948954930381\n9644288109756659334461284756482337867831652712019)"},
{value = 16, name = "random" ,description = "\ninputs: logic, number\nno inputs: outputs random value between 0 and 1,\nlogic input will let it generate a new random number\nnumber input(s) define the range within to generate an integer value\n(input: 5 -> output 1/2/3/4/5, input: -2, 3 -> output: -2/-1/0/1/2/3)"},
{value = 36, name = "sign" ,description = "\noutputs 1 if the inputs > 0\noutputs -1 if the inputs < 0\noutputs 0 if the inputs are 0"},
{value = 10, name = ">=" ,description = "\nbecomes active(1) when the white input is bigger or equal than the non-white input\nmore parents: active when sum of whites is bigger or equal sum of non-whites"},
{value = 11, name = "<=" ,description = "\nbecomes active(1) when the white input is smaller or equal than the non-white input\nmore parents: active when sum of whites is smaller or equal sum of non-whites"},
{value = 07, name = ">" ,description = "\nbecomes active(1) when the white input is bigger than the non-white input\nmore parents: active when sum of whites is bigger than sum of non-whites"},
{value = 08, name = "<" ,description = "\nbecomes active(1) when the white input is smaller than the non-white input\nmore parents: active when sum of whites is smaller than sum of non-whites"},
{value = 09, name = "=" ,description = "\nbecomes active(1) when all inputs are equal"},
{value = 37, name = "!=" ,description = "\nbecomes active(1) when inputs are not equal"},
{value = 38, name = "X{Y}?" ,description = "\nbecomes active(1) when any of the black inputs is equal any of the white inputs"},
{value = 29, name = "seated" ,description = "\nbecomes active and outputs the value of input seats occupied"},
{value = 30, name = "A/D" ,description = "\noutputs the A/D value, range: -1 to 1\nmultiple driverseat inputs: average of A/D output of inputs,\nexcellent for teamwork"},
{value = 31, name = "W/S" ,description = "\noutputs the W/S value, range: -1 to 1\nmultiple driverseat inputs: average of W/S output of inputs,\nexcellent for teamwork"},
}
MathBlock.savemodes = {}
for k,v in pairs(MathBlock.modetable) do
MathBlock.savemodes[v.value]=k
end
MathBlock.modeFunctions = {
[0] = function(self, parents) -- add
local power = 0
for k,v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
self:server_setValue(power)
end,
[1] = function(self, parents) -- subtr
local power = 0
if #parents == 1 then
power = 0 - (sm.interactable.getValue(parents[1]) or parents[1].power)
elseif #parents == 2 then
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
power = (sm.interactable.getValue(parents[2]) or parents[2].power) - (sm.interactable.getValue(parents[1]) or parents[1].power)
else
power = (sm.interactable.getValue(parents[1]) or parents[1].power) - (sm.interactable.getValue(parents[2]) or parents[2].power)
end
elseif #parents > 2 then
local whiteinput = 0
local nonwhiteinput = 0
local haswhite = false
local hasnonwhite = false
for k, v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whiteinput = whiteinput + (sm.interactable.getValue(v) or v.power)
haswhite = true
else
nonwhiteinput = nonwhiteinput + (sm.interactable.getValue(v) or v.power)
hasnonwhite = true
end
end
if haswhite and hasnonwhite then
power = whiteinput - nonwhiteinput
else
power = -1*(whiteinput + nonwhiteinput)
end
end
self:server_setValue(power)
end,
[2] = function(self, parents)-- mult
local power = 1
for k,v in pairs(parents) do
power = power * (sm.interactable.getValue(v) or v.power)
end
self:server_setValue(power)
end,
[3] = function(self, parents) -- divide
local power = 1
if #parents == 2 then
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
power = (sm.interactable.getValue(parents[2]) or parents[2].power) / (sm.interactable.getValue(parents[1]) or parents[1].power)
else
power = (sm.interactable.getValue(parents[1]) or parents[1].power) / (sm.interactable.getValue(parents[2]) or parents[2].power)
end
if ((sm.interactable.getValue(parents[1]) or parents[1].power) == 0 and (sm.interactable.getValue(parents[2]) or parents[2].power) == 0) then power = 1 end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = whitevalue/othervalue
end
self:server_setValue(power)
end,
[4] = function(self, parents) -- modulus
local power = 0
if #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[2]:getShape().color) == "222222ff" or tostring(parents[1]:getShape().color) == "eeeeeeff" then
power = pow1%pow2
else
power = pow2%pow1
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = whitevalue%othervalue
end
self:server_setValue(power)
end,
[5] = function(self, parents) -- square
local power = 0
if #parents == 1 then
power = (sm.interactable.getValue(parents[1]) or parents[1].power) ^ 2
elseif #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- switch p1 p2
power = pow2 ^ pow1
else
power = pow1 ^ pow2
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = whitevalue^othervalue
end
self:server_setValue(power)
end,
[6] = function(self, parents) -- sqrt
local power = 0
if #parents == 1 then
power = (sm.interactable.getValue(parents[1]) or parents[1].power) ^ (1/2)
elseif #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- switch p1 p2
power = pow2 ^ (1/pow1)
else
power = pow1 ^ (1/pow2)
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = whitevalue ^ (1/othervalue)
end
self:server_setValue(power)
end,
[7] = function(self, parents) -- gtr
local power = 0
if #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- parent 1 = black
if pow2 > pow1 then power = 1 end
else
if pow1 > pow2 then power = 1 end
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = (whitevalue>othervalue and 1 or 0)
end
self:server_setValue(power)
end,
[8] = function(self, parents) -- smlr
local power = 0
if #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- parent 1 = black
if pow2 < pow1 then power = 1 end
else
if pow1 < pow2 then power = 1 end
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = (whitevalue<othervalue and 1 or 0)
end
self:server_setValue(power)
end,
[9] = function(self, parents) -- eq
local power = 1
local amount = (#parents>0 and (sm.interactable.getValue(parents[1]) or parents[1].power))
for k,v in pairs(parents) do
if (sm.interactable.getValue(v) or v.power) ~= amount then
power = 0
break
end
end
self:server_setValue(power)
end,
[10] = function(self, parents) -- bigger than or eq
local power = 0
if #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- parent 1 = black
if pow2 >= pow1 then power = 1 end
else
if pow1 >= pow2 then power = 1 end
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = (whitevalue>=othervalue and 1 or 0)
end
self:server_setValue(power)
end,
[11] = function(self, parents) -- smaller than or eq
local power = 0
if #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- parent 1 = black
if pow2 <= pow1 then power = 1 end
else
if pow1 <= pow2 then power = 1 end
end
elseif #parents> 2 then
local whitevalue = 0
local othervalue = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
whitevalue = whitevalue + (sm.interactable.getValue(v) or v.power)
else
othervalue = othervalue + (sm.interactable.getValue(v) or v.power)
end
end
power = (whitevalue<=othervalue and 1 or 0)
end
self:server_setValue(power)
end,
[12] = function(self, parents) -- sin
local power = 0
if #parents > 0 then
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = math.sin(math.rad(power))
end
self:server_setValue(power)
end,
[13] = function(self, parents) -- cos
local power = 0
if #parents >0 then
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = math.cos(math.rad(power))
end
self:server_setValue(power)
end,
[14] = function(self, parents) -- tan
local power = 0
if #parents >0 then
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = math.tan(math.rad(power))
end
self:server_setValue(power)
end,
[15] = function(self, parents) -- pi
local power = #parents>0 and 0 or 1
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = power * math.pi
self:server_setValue(power)
end,
[16] = function(self, parents) -- random
local power = self.power or 0
if self.lastmode ~= self.mode then
power = math.random() -- generate new number upon cycling to this and no parents connected
end
if #parents == 1 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
if parents[1]:getType() == "scripted" and tostring(parents[1]:getShape():getShapeUuid()) ~= "6f2dd83e-bc0d-43f3-8ba5-d5209eb03d07" then
if ( self.lastparentvalue ~= pow1) then
power = math.random(pow1)
end
self.lastparentvalue = pow1
elseif pow1 ~= 0 or self.lastmode ~= self.mode then
power = math.random() -- button, logic, whatever, when on, generate new number
end
elseif #parents == 2 then
local inputvalues = {}
local generate = false
for k,v in pairs(parents) do
if v:getType() == "scripted" and tostring(v:getShape():getShapeUuid()) ~= "6f2dd83e-bc0d-43f3-8ba5-d5209eb03d07" then
table.insert(inputvalues, (sm.interactable.getValue(v) or v.power) )
else
generate = generate or ((sm.interactable.getValue(v) or v.power) ~= 0)
end
end
if generate or (self.lastparentvalues == nil or not tablevaluesequal(self.lastparentvalues, inputvalues)) then
if #inputvalues == 0 then
power = math.random()
elseif #inputvalues == 1 then
power = math.random(inputvalues[1])
else
if inputvalues[1] > inputvalues[2] then
power = math.random(inputvalues[2], inputvalues[1])
elseif #inputvalues == 2 then
power = math.random(inputvalues[1], inputvalues[2])
end
end
end
self.lastparentvalues = inputvalues
elseif #parents == 3 then
local inputvalues = {}
local generate = false
for k,v in pairs(parents) do
if v:getType() == "scripted" and tostring(v:getShape():getShapeUuid()) ~= "6f2dd83e-bc0d-43f3-8ba5-d5209eb03d07" then
table.insert(inputvalues, (sm.interactable.getValue(v) or v.power) )
else
generate = generate or ((sm.interactable.getValue(v) or v.power) ~= 0)
end
end
if generate or (self.lastparentvalues == nil or not tablevaluesequal(self.lastparentvalues, inputvalues)) then
if #inputvalues == 0 then
power = math.random()
elseif #inputvalues == 1 then
power = math.random(inputvalues[1])
elseif #inputvalues == 2 then
if inputvalues[1] > inputvalues[2] then
power = math.random(inputvalues[2], inputvalues[1])
else
power = math.random(inputvalues[1], inputvalues[2])
end
end
end
self.lastparentvalues = inputvalues
end
self:server_setValue(power)
end,
[17] = function(self, parents) -- abs
local power = 0
if #parents == 1 then
power = math.abs((sm.interactable.getValue(parents[1]) or parents[1].power))
elseif #parents > 1 then
power = 0
for k, v in pairs(parents) do
power = power + math.abs((sm.interactable.getValue(v) or v.power))
end
end
self:server_setValue(power)
end,
[18] = function(self, parents) -- floor
local power = 0
if #parents > 0 then
local floorby = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
floorby = floorby + (sm.interactable.getValue(v) or v.power)
else
power = power + (sm.interactable.getValue(v) or v.power)
end
end
if not floorby or floorby == 0 then floorby = 1 end
power = math.floor(power/floorby)*floorby
end
self:server_setValue(power)
end,
[19] = function(self, parents) -- round
local power = 0
if #parents>0 then
local roundby = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
roundby = roundby + (sm.interactable.getValue(v) or v.power)
else
power = power + (sm.interactable.getValue(v) or v.power)
end
end
if not roundby or roundby == 0 then roundby = 1 end
power = math.round(power/roundby)*roundby
end
self:server_setValue(power)
end,
[20] = function(self, parents) -- ceil
local power = 0
if #parents > 0 then
local roundby = 0
for k,v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then
roundby = roundby + (sm.interactable.getValue(v) or v.power)
else
power = power + (sm.interactable.getValue(v) or v.power)
end
end
if not roundby or roundby == 0 then roundby = 1 end
power = math.floor(power/roundby + (power/roundby%1 > 0 and 1 or 0) )*roundby
end
self:server_setValue(power)
end,
[21] = function(self, parents) -- min
local power = math.huge
for k, v in pairs(parents) do
if v.power < power then power = (sm.interactable.getValue(v) or v.power) end
end
if power == math.huge then power = 0 end
self:server_setValue(power)
end,
[22] = function(self, parents) -- max
local power = 0-math.huge
for k, v in pairs(parents) do
if v.power > power then power = (sm.interactable.getValue(v) or v.power) end
end
if power == 0-math.huge then power = 0 end
self:server_setValue(power)
end,
[23] = function(self, parents) -- log
local power = 0
if #parents == 1 then
power = math.log((sm.interactable.getValue(parents[1]) or parents[1].power))
elseif #parents == 2 then
local pow1 = (sm.interactable.getValue(parents[1]) or parents[1].power)
local pow2 = (sm.interactable.getValue(parents[2]) or parents[2].power)
if tostring(parents[1]:getShape().color) == "222222ff" or tostring(parents[2]:getShape().color) == "eeeeeeff" then
-- parent 2 = white
power = math.log(pow1)/ math.log(pow2)
else
power = math.log(pow2)/ math.log(pow1)
end
end
self:server_setValue(power)
end,
[24] = function(self, parents) -- exp
local power = math.exp(1)
if #parents > 0 then
power = 0
for k,v in pairs(parents) do
power = power + math.exp((sm.interactable.getValue(v) or v.power))
end
end
self:server_setValue(power)
end,
[25] = function(self, parents) -- arcsin
local power = 0
if #parents >0 then
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = math.asin(power)/math.pi*180.0
end
self:server_setValue(power)
end,
[26] = function(self, parents) -- arccos
local power = 0
if #parents >0 then
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = math.acos(power)/math.pi*180.0
end
self:server_setValue(power)
end,
[27] = function(self, parents) -- arctan
local power = 0
if #parents >0 then
for k, v in pairs(parents) do
power = power + (sm.interactable.getValue(v) or v.power)
end
power = math.atan(power)/math.pi*180.0
end
self:server_setValue(power)
end,
[28] = function(self, parents) -- hypotenuse
local power = 0
for k, v in pairs(parents) do
power = power + math.pow((sm.interactable.getValue(v) or v.power),2)
end
if #parents > 0 then
power = math.pow(power, 1/2)
end
self:server_setValue(power)
end,
[29] = function(self, parents) -- seated
local power = 0
for k, v in pairs(parents) do
if (v:getType() == "seat" or v:getType() == "steering") then
power = power + (v:isActive() and 1 or 0)
end
end
self:server_setValue(power)
end,
[30] = function(self, parents) -- AD
self:server_setValue(self.ADValue or 0)
end,
[31] = function(self, parents) -- WS
local power = 0
local amountofparents = 0
for k, v in pairs(parents) do
amountofparents = amountofparents + 1
power = power + v.power
end
if amountofparents>0 then
power = math.min(1,math.max(-1,power/amountofparents))
end
self:server_setValue(power)
end,
[32] = function(self, parents) -- bitmem
local power = self.power or 0
local value = 0
local logicon = 1
local haslogic = false
for k, v in pairs(parents) do
local typeparent = v:getType()
if tostring(v:getShape().color) == "eeeeeeff" and tostring(v:getShape():getShapeUuid()) ~= "6f2dd83e-bc0d-43f3-8ba5-d5209eb03d07"--[[tickbutton]] then
--if v:getType() == "scripted" and tostring(v:getShape():getShapeUuid()) ~= "6f2dd83e-bc0d-43f3-8ba5-d5209eb03d07"--[[tickbutton]] then
-- number input
value = value + math.floor(v.power)
else
haslogic = true
-- logic input
logicon = logicon * v.power --'ands'
end
end
if logicon ~= 0 and haslogic then
if value == 0 then
power = (power == 0 and 1 or 0)
elseif value == 1 then
power = 1
else
power = 0
end
end
self:server_setValue(power)
end,
[33] = function(self, parents) -- factorial function
local power = 0
local value = 0
for k,v in pairs(parents) do
value = value + v.power
end
value = math.floor(value)
if value > 0 then
power = 1
while value >1 do
power = power * value
value = value - 1
end
end
self:server_setValue(power)
end,
[34] = function(self, parents) -- pid
local power = 0
local processvalue = 0
local setvalue = 0
local p = 0
local i = 0
local d = 0
local deltatime_i = nil
local deltatime_d = nil
local limit = nil
local on = true
for k,v in pairs(parents) do
if sm.interactable.isNumberType(v) then
if tostring(v:getShape().color) == "720a74ff" then -- 3rd purple
if deltatime_d == nil then deltatime_d = 0 end
deltatime_d = deltatime_d + v.power
elseif tostring(v:getShape().color) == "7c0000ff" then --3rd red
if deltatime_i == nil then deltatime_i = 0 end
deltatime_i = deltatime_i + v.power
elseif tostring(v:getShape().color) == "cf11d2ff" then --purple
d = d + v.power
elseif tostring(v:getShape().color) == "d02525ff" then -- red
i = i + v.power
elseif tostring(v:getShape().color) == "df7f00ff" then -- orange
p = p + v.power
elseif tostring(v:getShape().color) == "df7f01ff" then -- orange 2
p = p + v.power
elseif tostring(v:getShape().color) == "eeeeeeff" then --white
setvalue = setvalue + v.power
elseif tostring(v:getShape().color) == "222222ff" then --black
processvalue = processvalue + v.power
elseif tostring(v:getShape().color) == "673b00ff" then --black
if limit == nil then limit = 0 end
limit = limit + math.abs(v.power)
end
else
on = (v.power ~= 0 and on)
end
end
if limit == nil then limit = 4096 end
if deltatime_d == nil then deltatime_d = 1 end --default value
if deltatime_i == nil then deltatime_i = 10*40 end --default value
deltatime_d = math.max(math.min(math.floor(math.abs(deltatime_d)), 20), 1)
deltatime_i = math.max(math.min(math.floor(math.abs(deltatime_i)), 40*30), 10)
if on then
local _error = setvalue - processvalue
if self.bufferindex == nil then self.bufferindex = 0 end
if self.buffer_d == nil then self.buffer_d = {} end
self.buffer_d[self.bufferindex] = _error
local lasterror = (self.buffer_d[(self.bufferindex - deltatime_d)%20] == nil) and _error or self.buffer_d[(self.bufferindex - deltatime_d)%20]
power = _error * p + self:runningAverage({num = _error, count = deltatime_i}) * i + (_error - lasterror) * d
power = math.max(-limit, math.min(limit, power))
self.bufferindex = (self.bufferindex + 1)%20
end
self:server_setValue(power)
end,
[35] = function(self, parents) -- atan2
-- add all white inputs, add all blackinputs, atan2( white, black), output in angles (at least one input needs to be black or white)
local power = 0
if #parents >1 then
local whiteinput = nil
local blackinput = nil
local otherinput = nil
for k, v in pairs(parents) do
if tostring(v:getShape().color) == "eeeeeeff" then --white
whiteinput = (whiteinput and whiteinput or 0) + (sm.interactable.getValue(v) or v.power)
elseif tostring(v:getShape().color) == "222222ff" then --black
blackinput = (blackinput and blackinput or 0) + (sm.interactable.getValue(v) or v.power)
else
otherinput = (otherinput and otherinput or 0) + (sm.interactable.getValue(v) or v.power)
end
if not whiteinput then
whiteinput = otherinput
elseif not blackinput then
blackinput = otherinput
end
end
if whiteinput and blackinput then
power = math.atan2(whiteinput, blackinput)/math.pi*180.0
else
power = 0
end
elseif #parents == 1 then
local quadrant24 = (tostring(parents[1]:getShape().color) == "222222ff")
power = math.atan((sm.interactable.getValue(parents[1]) or parents[1].power))/math.pi*180.0 + (quadrant24 and 90 or 0)
else
power = 0
end
self:server_setValue(power)
end,
[36] = function(self, parents) -- sign
local sum = 0
for k, parent in pairs(parents) do
sum = sum + (sm.interactable.getValue(parent) or parent.power)
end
local power = (sum > 0 and 1) or (sum < 0 and -1) or 0
self:server_setValue(power)
end,
[37] = function(self, parents) -- Neq
local power = 0
local firstvalue = (#parents > 0) and (sm.interactable.getValue(parents[1]) or parents[1].power)
for k, parent in pairs(parents) do
if (sm.interactable.getValue(parent) or parent.power) ~= firstvalue then
power = 1
end
end
self:server_setValue(power)
end,
[38] = function(self, parents) -- if x{} has any of y{}
local power = 0
local whitevalues = {}
local blackvalues = {}
for k, parent in pairs(parents) do
if tostring(parent:getShape().color) == "eeeeeeff" then
table.insert(whitevalues, (sm.interactable.getValue(parent) or parent.power))
elseif tostring(parent:getShape().color) == "222222ff" then
table.insert(blackvalues, (sm.interactable.getValue(parent) or parent.power))
end
end
for k,v in pairs(whitevalues) do
for k2,v2 in pairs(blackvalues) do
if v == v2 then
power = 1
end
end
end
self:server_setValue(power)
end
}
function MathBlock.server_onRefresh( self )
sm.isDev = true
self:server_onCreate()
end
function MathBlock.server_onCreate( self )
local stored = self.storage:load()
if stored then
if type(stored) == "number" then
self.mode = self.savemodes[stored]
elseif type(stored) == "table" then
self.mode = self.savemodes[stored.mode] -- backwards compatibility
end
else
self.storage:save(self.modetable[self.mode].value)
end
sm.interactable.setValue(self.interactable, 0)
end
function MathBlock.server_onFixedUpdate( self, dt )
local parents = self.interactable:getParents()
local mode = self.modetable[self.mode].value
self.modeFunctions[mode](self, parents)
self.lastmode = self.mode
end
function MathBlock.server_setValue(self, value)
self.power = value
if value ~= value then value = 0 end
if math.abs(value) >= 3.3*10^38 then
if value < 0 then value = -3.3*10^38 else value = 3.3*10^38 end
end
if value ~= self.interactable.power then
self.interactable:setActive(value > 0)
self.interactable:setPower(value)
sm.interactable.setValue(self.interactable, value)
end
end
function MathBlock.server_changemode(self, crouch)
local parents = self.interactable:getParents()
for k,v in pairs(parents) do
if (v:getType() == "seat" or v:getType() == "steering") and v:isActive() then
return 0 -- DENIED
end
end
self.mode = (self.mode + (crouch and -1 or 1) - 1 )%#self.modetable + 1
self.storage:save(self.modetable[self.mode].value)
self:server_senduvtoclient(true)
end
function MathBlock.server_senduvtoclient(self, msg)
self.network:sendToClients("client_setMode", {self.mode, msg})
end
function MathBlock.client_onCreate(self)
self.uv = 0
self.network:sendToServer("server_senduvtoclient")
end
function MathBlock.client_onInteract(self, character, lookAt)
if not lookAt then return end
local crouching = sm.localPlayer.getPlayer().character:isCrouching()
self.network:sendToServer("server_changemode", crouching)
end
function MathBlock.client_setMode(self, data)
local mode = data[1]
self.uv = self.modetable[mode].value
self.interactable:setUvFrameIndex(self.uv + (self.interactable.power > 0 and 128 or 0))
if data[2] then
sm.audio.play("GUI Inventory highlight", self.shape:getWorldPosition())
print('mode:', self.modetable[mode].name)
print('description:', self.modetable[mode].description,'\n')
end
end
function MathBlock.client_canInteract(self)
sm.gui.setInteractionText( "", sm.gui.getKeyBinding( "Use" ), "to cycle forward")
sm.gui.setInteractionText( "", sm.gui.getKeyBinding( "Crawl").." + "..sm.gui.getKeyBinding( "Use" ), "to cycle backwards")
return true
end
function MathBlock.client_onFixedUpdate(self, dt)
if sm.isHost then
local parents = self.interactable:getParents()
-- host only ('self.mode')
if self.modetable[self.mode].value == 30 then -- AD
local power = 0
local amountofparents = 0
for k, v in pairs(parents) do
if v:getType() == "steering" or tostring(v:getShape():getShapeUuid()) == "ccaa33b6-e5bb-4edc-9329-b40f6efe2c9e" or tostring(v:getShape():getShapeUuid()) == "e627986c-b7dd-4365-8fd8-a0f8707af63d" then
amountofparents = amountofparents + 1
power = power + (v:getPoseWeight(0)-0.5)*2
else
amountofparents = amountofparents + 1
power = power + v.power
end
end
if amountofparents>0 then
power = math.min(1,math.max(-1,power/amountofparents))
end
self.interactable:setPoseWeight(0,power/2+0.5)
self.ADValue = power
end
end
if (self.interactable.power > 0 and not self.waspos) or (self.interactable.power <= 0 and self.waspos) then
self.interactable:setUvFrameIndex(self.uv + (self.interactable.power > 0 and 128 or 0))
self.waspos = self.interactable.power>0
end
end
function MathBlock.runningAverage(self, data)
local runningAverageCount = data.count
if self.runningAverageBuffer == nil then self.runningAverageBuffer = {} end
if self.nextRunningAverage == nil then self.nextRunningAverage = 0 end
self.runningAverageBuffer[self.nextRunningAverage] = data.num;
self.nextRunningAverage = (self.nextRunningAverage + 1)%runningAverageCount
local runningAverage = 0
for k, v in pairs(self.runningAverageBuffer) do
if k>=runningAverageCount then
v = 0
else
runningAverage = runningAverage + v
end
end
return runningAverage / runningAverageCount;
end
function tablevaluesequal(sometable, table2) -- used by 'random function in mathblock'
if #sometable ~= #table2 then return false end
for k, v in pairs(sometable) do
if v ~= table2[k] then return false end
end
return true
end