zr SaveNameChicago ExpressEpochTimej 4gDate11/12/2024 6:05:30 PMVersionNumberv13.3GameModeChicago ExpressGameTypeGameGameComplexityMedium ComplexityPlayingTime01<PlayerCounts01TagsB0 Board Games1Strategy Games2 Components3Rules4English5Wabash Cannonball6Bohrer7Winsome8Train9Trains10Shares11Stock12 Economic13Auction / Bidding14 Investment15Network16Route Building17 Cube RailsGravity?PlayArea?Table Table_NoneSky Sky_MuseumNoteWTo rotate dials: click, hold, and then use the rotate buttons to rotate by 30 degrees TabStates1ntitleWhitebodycolorWhitevisibleColor&r?g?b?id2ntitleBrownbodycolorBrownvisibleColor&rZ?gh?b= ?id3jtitleRedbodycolorRedvisibleColor&r Zd?g?b@b?id4ptitleOrangebodycolorOrangevisibleColor&r@?g ?b`?id5ptitleYellowbodycolorYellowvisibleColor&r?gj?b?id6ntitleGreenbodycolorGreenvisibleColor&rt?gn?b ?id7ltitleBluebodycolorBluevisibleColor&r?5?g?b?id8ltitleTealbodycolorTealvisibleColor&r`?g?5?b@l?id9ptitlePurplebodycolorPurplevisibleColor&r@b?g?b?id 10ltitlePinkbodycolorPinkvisibleColor&rQ?g?b?id 11ntitleBlackbodycolorBlackvisibleColor&r?g?b?id GridTypeLinesColor&rgbOpacity?ThickLinesSnappingOffsetBothSnappingxSize?ySize?PosOffset&xy?zLightingjLightIntensity G?LightColor&r?go_?b|?AmbientIntensity?AmbientTypeAmbientSkyColor&r?g?b?AmbientEquatorColor&r?g?b?AmbientGroundColor&r?g?b?ReflectionIntensity?LutIndexLutContribution?Hands*EnableDisableUnusedHidingComponentTagslabels00displayedScorenormalizedscore10displayedSharenormalizedshare20displayedHousenormalizedhouse3&displayednormalized4&displayednormalized5&displayednormalized6&displayednormalized7&displayednormalized8&displayednormalized9&displayednormalized10&displayednormalized11&displayednormalized12&displayednormalized13&displayednormalized140displayedBoardnormalizedboard150displayedMoneynormalizedmoneyTurnspEnableTypeTurnOrderReverseSkipEmptyDisableInteractionsPassTurnsTurnColorDecalPalletLuaScriptA--[[ Lua code. See documentation: https://api.tabletopsimulator.com/ --]] --[[ The onLoad event is called after the game save finishes loading. --]] function onLoad() --[[ print('onLoad!') --]] end --[[ The onUpdate event is called once per frame. --]] function onUpdate() --[[ print('onUpdate loop!') --]] endLuaScriptStateXmlUIRSnapPointsE0MPosition&xI@yph?z@Tags0Board1MPosition&xI@yph?zTags0Board2MPosition&xI@yph?z 6Tags0Board3MPosition&xSI@yph?zx6@Tags0BoardObjectStatesa 02GUIDafc863NameCustom_AssetbundleTransformposXKposY$posZ5rotX>rotY@WrotZ@K$оscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978795929/723C50F43FAB3DE3DC12CB8460536E8CB34B60A3/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI12GUIDc8edcaNameCustom_AssetbundleTransformposXKposY$posZ5@rotX>rotYV@rotZ@K$оscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978795929/723C50F43FAB3DE3DC12CB8460536E8CB34B60A3/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI22GUID393bf7NameCustom_AssetbundleTransformposXK@posY$posZ5@rotX>rotYf@rotZ@K$оscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978795929/723C50F43FAB3DE3DC12CB8460536E8CB34B60A3/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI32GUID12c65eNameCustom_AssetbundleTransformposXK@posY$posZ5rotX>rotYp@rotZ@K$оscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978795929/723C50F43FAB3DE3DC12CB8460536E8CB34B60A3/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI4DGUIDbd69bdNameChinese_Checkers_PieceTransformposX=JR@posY(posZ)ErotXb$_?rotYf@rotZ8?scaleXef?scaleYef?scaleZef?NicknameFlex Table ControlDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexLuaScript?tableHeightOffset = -9.5 function onSave() saved_data = JSON.encode({tid=tableImageData, cd=checkData}) --saved_data = "" return saved_data end function onload(saved_data) --Loads the tracking for if the game has started yet if saved_data ~= "" then local loaded_data = JSON.decode(saved_data) tableImageData = loaded_data.tid checkData = loaded_data.cd else tableImageData = {} checkData = {move=false, scale=false} end --Disables interactable status of objects with GUID in list for _, guid in ipairs(ref_noninteractable) do local obj = getObjectFromGUID(guid) if obj then obj.interactable = false end end --Establish references to table parts obj_leg1 = getObjectFromGUID("afc863") obj_leg2 = getObjectFromGUID("c8edca") obj_leg3 = getObjectFromGUID("393bf7") obj_leg4 = getObjectFromGUID("12c65e") obj_surface = getObjectFromGUID("4ee1f2") obj_side_top = getObjectFromGUID("35b95f") obj_side_bot = getObjectFromGUID("f938a2") obj_side_lef = getObjectFromGUID("9f95fd") obj_side_rig = getObjectFromGUID("5af8f2") controlActive = false createOpenCloseButton() end --Activation/deactivation of control panel --Activated by clicking on function click_toggleControl(_, color) if permissionCheck(color) then if not controlActive then --Activate control panel controlActive = true self.clearButtons() createOpenCloseButton() createSurfaceInput() createSurfaceButtons() createScaleInput() createScaleButtons() else --Deactivate control panel controlActive = false self.clearButtons() self.clearInputs() createOpenCloseButton() end end end --Table surface control --Changes table surface function click_applySurface(_, color) if permissionCheck(color) then updateSurface() broadcastToAll("New Table Image Applied", {0.2,0.9,0.2}) end end --Saves table surface function click_saveSurface(_, color) if permissionCheck(color) then local nickname = self.getInputs()[1].value local url = self.getInputs()[2].value if nickname == "" then --No nickname broadcastToAll("Please supply a nickname for this save.", {0.9,0.2,0.2}) else --Nickname exists if findInImageDataIndex(url, nickname) == nil then --Save doesn't exist already table.insert(tableImageData, {url=url, name=nickname}) broadcastToAll("Image URL saved to memory.", {0.2,0.9,0.2}) --Refresh buttons self.clearButtons() createOpenCloseButton() createSurfaceButtons() createScaleButtons() else --Save exists already broadcastToAll("Memory already contains a save with this Name or URL. Delete it first.", {0.9,0.2,0.2}) end end end end --Loads table surface function click_loadMemory(_, color, index) if permissionCheck(color) then self.editInput({index=0, value=tableImageData[index].name}) self.editInput({index=1, value=tableImageData[index].url}) updateSurface() broadcastToAll("Table Image Loaded", {0.2,0.9,0.2}) end end --Deletes table surface function click_deleteMemory(_, color, index) if permissionCheck(color) then table.remove(tableImageData, index) self.clearButtons() createOpenCloseButton() createSurfaceButtons() createScaleButtons() broadcastToAll("Element Removed from Memory", {0.2,0.9,0.2}) end end --Updates surface from the values in the input field function updateSurface() local customInfo = obj_surface.getCustomObject() customInfo.diffuse = self.getInputs()[2].value obj_surface.setCustomObject(customInfo) obj_surface = obj_surface.reload() end --Table Scale control --Applies Scale to table pieces function click_applyScale(_, color) if permissionCheck(color) then local newWidth = tonumber(self.getInputs()[3].value) local newDepth = tonumber(self.getInputs()[4].value) if type(newWidth) ~= "number" then broadcastToAll("Invalid Width", {0.9,0.2,0.2}) return elseif type(newDepth) ~= "number" then broadcastToAll("Invalid Depth", {0.9,0.2,0.2}) return elseif newWidth<0.1 or newDepth<0.1 then broadcastToAll("Scale cannot go below 0.1", {0.9,0.2,0.2}) return elseif newWidth>12 or newDepth>12 then broadcastToAll("Scale should not go over 12 (world size limitation)", {0.9,0.2,0.2}) return else changeTableScale(math.abs(newWidth), math.abs(newDepth)) broadcastToAll("Scale applied.", {0.2,0.9,0.2}) end end end --Checks/unchecks move box for hands function click_checkMove(_, color) if permissionCheck(color) then local find_func = function(o) return o.click_function=="click_checkMove" end if checkData.move == true then checkData.move = false local buttonEntry = findButton(self, find_func) self.editButton({index=buttonEntry.index, label=""}) else checkData.move = true local buttonEntry = findButton(self, find_func) self.editButton({index=buttonEntry.index, label=string.char(10008)}) end end end --Checks/unchecks scale box for hands --This button was disabled for technical reasons --[[ function click_checkScale(_, color) if permissionCheck(color) then local find_func = function(o) return o.click_function=="click_checkScale" end if checkData.scale == true then checkData.scale = false local buttonEntry = findButton(self, find_func) self.editButton({index=buttonEntry.index, label=""}) else checkData.scale = true local buttonEntry = findButton(self, find_func) self.editButton({index=buttonEntry.index, label=string.char(10008)}) end end end ]] --Alters scale of elements and moves them function changeTableScale(width, depth) --Scaling factors used to translate scale to position offset local width2pos = (width-1) * 18 local depth2pos = (depth-1) * 18 --Hand zone movement if checkData.move == true then for _, pc in ipairs(ref_playerColor) do if Player[pc].getHandCount() > 0 then moveHandZone(Player[pc], width2pos, depth2pos) end end end --Hand zone scaling --The button to enable this was disabled for technical reasons if checkData.scale == true then for _, pc in ipairs(ref_playerColor) do if Player[pc].getHandCount() > 0 then scaleHandZone(Player[pc], width, depth) end end end --Resizing table elements obj_side_top.setScale({width, 1, 1}) obj_side_bot.setScale({width, 1, 1}) obj_side_lef.setScale({depth, 1, 1}) obj_side_rig.setScale({depth, 1, 1}) obj_surface.setScale({width, 1, depth}) --Moving table elements to accomodate new scale obj_side_lef.setPosition({-width2pos,tableHeightOffset,0}) obj_side_rig.setPosition({ width2pos,tableHeightOffset,0}) obj_side_top.setPosition({0,tableHeightOffset, depth2pos}) obj_side_bot.setPosition({0,tableHeightOffset,-depth2pos}) obj_leg1.setPosition({-width2pos,tableHeightOffset-0.5,-depth2pos}) obj_leg2.setPosition({-width2pos,tableHeightOffset-0.5, depth2pos}) obj_leg3.setPosition({ width2pos,tableHeightOffset-0.5, depth2pos}) obj_leg4.setPosition({ width2pos,tableHeightOffset-0.5,-depth2pos}) self.setPosition(obj_leg4.positionToWorld({-22.12, 8.74,-19.16})) --Only enabled when changing tableHeightOffset obj_surface.setPosition({0,tableHeightOffset,0}) end --Move hand zone, p=player reference, facts are scaling factors function moveHandZone(p, width2pos, depth2pos) local widthX = obj_side_rig.getPosition().x local depthZ = obj_side_top.getPosition().z for i=1, p.getHandCount() do local handT = p.getHandTransform() local pos = handT.position local y = handT.rotation.y if y<45 or y>320 or y>135 and y<225 then if pos.z > 0 then pos.z = pos.z + depth2pos - depthZ else pos.z = pos.z - depth2pos + depthZ end else if pos.x > 0 then pos.x = pos.x + width2pos - widthX else pos.x = pos.x - width2pos + widthX end end --Only enabled when changing tableHeightOffset --pos.y = tableHeightOffset + 14 handT.position = pos p.setHandTransform(handT, i) end end ---Scales hand zones, p=player reference, facts are scaling factors function scaleHandZone(p, width, depth) local widthFact = width / obj_side_top.getScale().x local depthFact = depth / obj_side_lef.getScale().x for i=1, p.getHandCount() do local handT = p.getHandTransform() local scale = handT.scale local y = handT.rotation.y if y<45 or y>320 or y>135 and y<225 then scale.x = scale.x * widthFact else scale.x = scale.x * depthFact end handT.scale = scale p.setHandTransform(handT, i) end end --Information gathering --Checks if a color is promoted or host function permissionCheck(color) if Player[color].host==true or Player[color].promoted==true then return true else return false end end --Locates a string saved within memory file function findInImageDataIndex(...) for _, str in ipairs({...}) do for i, v in ipairs(tableImageData) do if v.url == str or v.name == str then return i end end end return nil end --Round number (num) to the Nth decimal (dec) function round(num, dec) local mult = 10^(dec or 0) return math.floor(num * mult + 0.5) / mult end --Locates a button with a helper function function findButton(obj, func) if func==nil then error("No func supplied to findButton") end for _, v in ipairs(obj.getButtons()) do if func(v) then return v end end return nil end --Creation of buttons/inputs function createOpenCloseButton() local tooltip = "Open Table Control Panel" if controlActive then tooltip = "Close Table Control Panel" end self.createButton({ click_function="click_toggleControl", function_owner=self, position={0,0,0}, rotation={-45,0,0}, height=400, width=400, color={1,1,1,0}, tooltip=tooltip }) end function createSurfaceInput() local currentURL = obj_surface.getCustomObject().diffuse local nickname = "" if findInImageDataIndex(currentURL) ~= nil then nickname = tableImageData[findInImageDataIndex(currentURL)].name end self.createInput({ label="Nickname", input_function="none", function_owner=self, alignment=3, position={0,0,2}, height=224, width=4000, font_size=200, tooltip="Enter nickname for table image (only used for save)", value=nickname }) self.createInput({ label="URL", input_function="none", function_owner=self, alignment=3, position={0,0,3}, height=224, width=4000, font_size=200, tooltip="Enter URL for tabletop image", value=currentURL }) end function createSurfaceButtons() --Label self.createButton({ label="Tabletop Surface Image", click_function="none", position={0,0,1}, height=0, width=0, font_size=300, font_color={1,1,1} }) --Functional self.createButton({ label="Apply Image\nTo Table", click_function="click_applySurface", function_owner=self, tooltip="Apply URL as table image", position={2,0,4}, height=440, width=1400, font_size=200, }) self.createButton({ label="Save Image\nTo Memory", click_function="click_saveSurface", function_owner=self, tooltip="Record URL into memory (requires nickname)", position={-2,0,4}, height=440, width=1400, font_size=200, }) --Label self.createButton({ label="Load From Memory", click_function="none", position={0,0,5.5}, height=0, width=0, font_size=300, font_color={1,1,1} }) --Saves, created dynamically from memory file for i, memoryEntry in ipairs(tableImageData) do --Load local funcName = i.."loadMemory" local func = function(x,y) click_loadMemory(x,y,i) end self.setVar(funcName, func) self.createButton({ label=memoryEntry.name, click_function=funcName, function_owner=self, tooltip=memoryEntry.url, font_size=200, position={-0.6,0,6.5+0.5*(i-1)}, height=240, width=3300, }) --Delete local funcName = i.."deleteMemory" local func = function(x,y) click_deleteMemory(x,y,i) end self.setVar(funcName, func) self.createButton({ label="DELETE", click_function=funcName, function_owner=self, tooltip="", position={3.6,0,6.5+0.5*(i-1)}, height=240, width=600, font_size=160, font_color={1,0,0}, color={0.8,0.8,0.8} }) end end function createScaleInput() self.createInput({ label=string.char(8644), input_function="none", function_owner=self, alignment=3, position={-8.5,0,2}, height=224, width=400, font_size=200, tooltip="Table Width", value=round(obj_side_top.getScale().x, 1) }) self.createInput({ label=string.char(8645), input_function="none", function_owner=self, alignment=3, position={-7.5,0,2}, height=224, width=400, font_size=200, tooltip="Table Depth", value=round(obj_side_lef.getScale().x, 1) }) end function createScaleButtons() --Labels self.createButton({ label="Table Scale", click_function="none", position={-8,0,1}, height=0, width=0, font_size=300, font_color={1,1,1} }) self.createButton({ label=string.char(8644).." "..string.char(8645), click_function="none", position={-8,0,2}, height=0, width=0, font_size=300, font_color={1,1,1} }) self.createButton({ label="Move Hands:", click_function="none", position={-8.3,0,3}, height=0, width=0, font_size=200, font_color={1,1,1} }) --Disabled due to me removing the feature for technical reasons --[[ self.createButton({ label="Scale Hands:", click_function="none", position={-8.3,0,4}, height=0, width=0, font_size=200, font_color={1,1,1} }) ]] --Checkboxes local label = "" if checkData.move == true then label = string.char(10008) end self.createButton({ label=label, click_function="click_checkMove", function_owner=self, tooltip="Check to move hands when table is rescaled", position={-6.8,0,3}, height=224, width=224, font_size=200, }) --[[ local label = "" if checkData.scale == true then label = string.char(10008) end self.createButton({ label=label, click_function="click_checkScale", function_owner=self, tooltip="Check to scale the width of hands when table is rescaled", position={-6.8,0,4}, height=224, width=224, font_size=200, }) ]] --Apply button self.createButton({ label="Apply Scale", click_function="click_applyScale", function_owner=self, tooltip="Apply width/depth to table", position={-8,0,4}, height=440, width=1400, font_size=200, }) end --Data tables ref_noninteractable = { "afc863","c8edca","393bf7","12c65e","f938a2","9f95fd","35b95f", "5af8f2","4ee1f2","bd69bd" } ref_playerColor = { "White", "Brown", "Red", "Orange", "Yellow", "Green", "Teal", "Blue", "Purple", "Pink", "Black" } --Dummy function, absorbs unwanted triggers function none() endLuaScriptState{"cd":{"move":false,"scale":false},"tid":[{"name":"Felt - Green","url":"https://steamusercontent-a.akamaihd.net/ugc/1020573844624825793/FF91D48AB5415E01B8E9EFF7E2421C05AE05ACD2/"},{"name":"Felt - Gray","url":"https://steamusercontent-a.akamaihd.net/ugc/1836902512978660357/7A32A39FD692F3CEE69729A5B7E2C6AF1D00970E/"},{"name":"Felt - Red","url":"https://steamusercontent-a.akamaihd.net/ugc/5107676531851159442/76366CE0E933214A24710553DB94CEEDB3A4F629/"}]}XmlUI52GUIDf938a2NameCustom_AssetbundleTransformposXposY#posZ5rotX ܥ<rotYrotZscaleX@scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978796471/14ED0DBD593370733A0309B0950004F33EB9FACA/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI62GUID9f95fdNameCustom_AssetbundleTransformposXKposY#posZrotXrotYV@rotZscaleX@scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978796471/14ED0DBD593370733A0309B0950004F33EB9FACA/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI72GUID35b95fNameCustom_AssetbundleTransformposXposY#posZ5@rotX ܥ<rotYf@rotZscaleX@scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978796471/14ED0DBD593370733A0309B0950004F33EB9FACA/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI82GUID5af8f2NameCustom_AssetbundleTransformposXK@posY#posZrotXrotYp@rotZscaleX@scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomAssetbundleAssetbundleURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978796471/14ED0DBD593370733A0309B0950004F33EB9FACA/AssetbundleSecondaryURLMaterialIndexTypeIndexLoopingEffectIndexLuaScriptLuaScriptStateXmlUI9NGUIDe81db6NameScriptingTriggerTransformposX6posYQ?posZrotXrotYrotZscaleX@Ƙ?scaleY ?scaleZ#@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI10NGUIDc5bb7cNameScriptingTriggerTransformposX;6posYQ?posZrotXrotYrotZscaleX@Ƙ?scaleY ?scaleZ#@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI11NGUID43ae52NameScriptingTriggerTransformposX5posYQ?posZrotXrotYrotZscaleX@Ƙ?scaleY ?scaleZ#@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI12NGUID3c5749NameScriptingTriggerTransformposX4posYQ?posZrotXrotYrotZscaleX@Ƙ?scaleY ?scaleZ#@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI13NGUID07b4a6NameScriptingTriggerTransformposX94posYQ?posZrotXrotYrotZscaleX@Ƙ?scaleY ?scaleZ#@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI142GUID4ee1f2Name Custom_ModelTransformposXposY#posZrotXrotYC _rotZscaleX@scaleY?scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/879750610978796176/4A5A65543B98BCFBF57E910D06EC984208223D38/DiffuseURLjhttps://steamusercontent-a.akamaihd.net/ugc/2059887766553038876/B11CE198C7F4820FEE547D4665CA8364A2029385/NormalURLColliderURLConvexMaterialIndexTypeIndexCustomShaderSpecularColor&r?g?b?SpecularIntensitySpecularSharpness@FresnelStrengthCastShadowsLuaScriptLuaScriptStateXmlUI15IGUIDe2cf9bName BlockSquareTransformposX@ BposY?posZ+rotXvO>rotY ~f@rotZ`xscaleXm?scaleY@?scaleZm?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?gbaLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI16IGUIDd06145Name BlockSquareTransformposX@ BposY?posZL2rotXپrotY~f@rotZ t>scaleXm?scaleY@?scaleZm?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?gbaLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI17NGUIDd84035NameScriptingTriggerTransformposXFposYף @posZ"@rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI18NGUID29a37cNameScriptingTriggerTransformposXCposYף @posZ"@rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI19NGUIDce9f59NameScriptingTriggerTransformposX@posYף @posZ"@rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI20NGUID98984bNameScriptingTriggerTransformposXFposYף @posZ@rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI21NGUIDd2bb17NameScriptingTriggerTransformposXCposYף @posZ@rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI22NGUIDa19d78NameScriptingTriggerTransformposX@posYף @posZ@rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI23NGUID109f5cNameScriptingTriggerTransformposXFposYף @posZrotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI24NGUID5dc8aaNameScriptingTriggerTransformposXCposYף @posZrotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI25NGUID08a5e8NameScriptingTriggerTransformposX@posYף @posZrotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI26NGUID6bad00NameScriptingTriggerTransformposXFposYף @posZ"rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI27NGUIDa2aee6NameScriptingTriggerTransformposXCposYף @posZ"rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI28NGUID71d038NameScriptingTriggerTransformposX@posYף @posZ"rotXrotYrotZscaleX`ff@scaleY`ff@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a`PP?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsLuaScriptLuaScriptStateXmlUI29GUIDfa3559NameFogOfWarTriggerTransformposX;(CposY7posZ_?rotXrotYrotZscaleX`k1@scaleY`ff@scaleZ@c8@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?a?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorBlackFogHidePointersFogReverseHidingFogSeethroughLuaScriptLuaScriptStateXmlUI30GUID674887Name Custom_BoardTransformposX\sposY?posZ@9rotX`KrotYf@rotZ>scaleX @scaleY @scaleZ @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r --?g --?b --?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238774745/141CA79CC14C3F25E6EAE74E11D33F6EA065140F/ImageSecondaryURLImageScalar?WidthScale?LuaScriptLuaScriptStateXmlUIAttachedSnapPoints0}Position&x |Ay?z@Rotation&x>y v@zTags0Share1}Position&x@Qy?z6@Rotation&x0>yv@z>Tags0Money25Position&x@y?z`@35Position&x?W@y?z_b@45Position&xv@y@?z n@55Position&x @y?zMi@65Position&x2@y@?zDg@75Position&x@y?zWb@85Position&xc@y?z Fg@95Position&xM?y?zi@105Position&x">?y?za@115Position&x?y ?z`}e@125Position&x?y ?z c@135Position&x@Uy ?zA`@145Position&x 8޿y?z]@155Position&x*y ?z .a@165Position&xT(y ?zIb@175Position&xy ?za@185Position&x@[y ?z `@195Position&xhy ?z 4c@205Position&x`Gy@?z e@215Position&xf y@?zb`@225Position&x >y?z5d@235Position&x y?z``@245Position&x`4y?zg@255Position&xm|y?zd@265Position&xz$y@?zb@275Position&xy?z@\b@285Position&xy?zoc@295Position&x*y ?z@e@305Position&x@gy ?z5b@315Position&xފy ?z@?_@325Position&xy@?z@P@335Position&xਛy ?z`@345Position&x y@?z@355Position&xy`?za@365Position&xy@?z @375Position&xy?z@385Position&x3y?z]@395Position&xy?z@405Position&x@y?zH @415Position&xNy?z@J @425Position&xy?z1J@435Position&xy?zp@445Position&x&y?zu?455Position&x@ͦy?z?465Position&xy ?zI?475Position&xy@?zΌ?485Position&xy ?z"??495Position&x5y@?z`п505Position&x¢y?z6515Position&x|y@?zZd52}Position&x@ ?y@?z`m@Rotation&x`T{>ym?z>Tags0House53}Position&x`n?y@?z`@Rotation&xv>ym?z@>Tags0House54}Position&x`4y@?z1@Rotation&xϋ>ym?z M>Tags0House55}Position&xkV?y@?z @Rotation&x@ľym?zxy>Tags0House56}Position&xO?y@?z` @Rotation&x >ym?z@ۧ>Tags0House57}Position&x?y ?z`1 @Rotation&x"W>ym?zDZTags0House58}Position&x ?y ?zu@Rotation&xn>y 6n?zV>Tags0House59}Position&x @y`?z b4@Rotation&x೗>ym?zP.~>Tags0House60}Position&x @y?z>@Rotation&x v{>ym?zI>Tags0House61}Position&x #?y?z`?@Rotation&xou>ym?z>Tags0House62}Position&x`?y?z@o@@Rotation&x>ym?z`r>Tags0House63}Position&xf?y?z\A@Rotation&x>yVm?z'>Tags0House64}Position&x@j?y@?zE@Rotation&x4>yVm?z >Tags0House65}Position&x`ỿy@?zC@Rotation&xE>ym?z@>Tags0House66}Position&xDy@?z@=@Rotation&x">yVm?z@n>Tags0House31~GUID902839Name Custom_TileTransformposXSI@posYWf?posZx6@rotXYH?rotY~f@rotZ`y`scaleX@scaleY?scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0BoardLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238777041/1E030D00E69722643E35E1D631C7DD4D8F75BCFE/ImageSecondaryURLImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUIAttachedSnapPoints0}Position&xD?y?zpi?Rotation&x`>y v@zaپTags0Share1}Position&x@ay ?z`L?Rotation&x`mjy`v@zHTags0Money2}Position&x@p|y ?z?Rotation&x?^*yv@z@2`>Tags0Money3}Position&xy ?z@3Rotation&xSEy ?zf@Tags0Money32GUID7f7dc1Name Custom_TileTransformposX 9(6@posYW@posZ rotXlzrotYf@rotZz>scaleX?scaleY?scaleZ?NicknameDescription+50 Point MarkerGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImagekImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238780161/9C63452379D2177EE224A60FD5F8A5720CEBC463/ImageSecondaryURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238780242/A29F4429B7A7DB6DB47654D5864B0BC5D29AE846/ImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUI33GUID1b6a60Name Custom_TileTransformposX@h7@posYW@posZQrotX M{rotYf@rotZQscaleX?scaleY?scaleZ?NicknameDescription+50 Point MarkerGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImagekImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238780557/53DFBEC2640DE837F3B4657CF1742299A2B49A77/ImageSecondaryURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238780836/B8AB52576CB8BBD5F2E5B2B6A3664C0E949B716D/ImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUI34GUID980900Name Custom_TileTransformposXHs6@posY@W@posZ >="rotXrotYf@rotZ@OscaleX?scaleY?scaleZ?NicknameDescription+50 Point MarkerGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImagekImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238781406/CFD902B709210D236120A521D2ACDD84A2F297DC/ImageSecondaryURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238781511/012FF93AE4A621F7F5A91998BDB7263944CA3E46/ImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUI35~GUID98b24aName Custom_TileTransformposXI@posY "f?posZ@rotX`ӶJ?rotY f@rotZ@=bscaleX@scaleY?scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0BoardLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238821690/843E4A601680BC0D4367A8A35C3B251FCF5974CD/ImageSecondaryURLImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUIAttachedSnapPoints0}Position&x`w?y?z/p?Rotation&x|>y }v@zhXھTags0Share1}Position&x Iy ?z@8?Rotation&xc>yv@z 9%R>Tags0Money2}Position&x@cy ?z 껈?Rotation&x,yv@zLTags0Money3}Position&x@ry ?z`5HRotation&x@"Q>y@VQ?zf@Tags0Money36~GUID5dfd5dName Custom_TileTransformposX@I@posY@e?posZ 6rotXL?rotY|f@rotZYcscaleX@scaleY?scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0BoardLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238824928/20A473482A4737895BAD988965A15C17771CE0D7/ImageSecondaryURLImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUIAttachedSnapPoints0}Position&x`M?y@?z#A?Rotation&x@v%>yv@zlپTags0Share1}Position&x y?z?Rotation&x@i>yEv@zN>Tags0Money2}Position&xy?zm?Rotation&x@,>yEv@zXTags0Money3}Position&xmy?zRotation&x߼g>y`v@zf@Tags0Money37~GUIDed8925Name Custom_TileTransformposXI@posY@e?posZ rotX>P?rotY`f@rotZ`,fscaleX@scaleY?scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0BoardLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238828343/6E17EA6810DDD6A91AD0865F92125702B8B87F33/ImageSecondaryURLImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUIAttachedSnapPoints0}Position&x`~?y?zuF?Rotation&xy>yv@z?پTags0Share1}Position&x]y@?z?Rotation&x6>yv@zjYdTags0Money2}Position&xvy@?z`X?Rotation&xHn>yv@zGTags0Money3}Position&x`y ?z0Rotation&x%byhMzf@Tags0Money38!GUID6cb52eName Custom_ModelTransformposXF@posY?posZ@(@rotXJrotY`v@rotZ Cb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI39!GUID5983b2Name Custom_ModelTransformposX @posYE @posZ(rotX>rotYE?rotZ7>scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI40!GUID348b8fName Custom_ModelTransformposX!8@posYC @posZ+@rotX0>rotY`yHsrotZ?JscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI41!GUID520849Name Custom_ModelTransformposXQ 3@posYE @posZ@ rotX >rotY >rotZ F>scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI42JGUIDfd7eccName Custom_ModelTransformposX(posY V@posZ!rotXP4rotYf@rotZb>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI438GUID4a4d11Name Custom_ModelTransformposXW posY`y @posZ8rotX>rotY ^f@rotZf@scaleX@ff?scaleY@ff?scaleZ@ff?NicknameB&ODescriptionGMNotesAltLookAngle&xyzColorDiffuse&r '?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL'http://pastebin.com/raw.php?i=Kp1EgH5cDiffuseURL https://i.imgur.com/bEPzdCi.jpgNormalURLColliderURL'http://pastebin.com/raw.php?i=Kp1EgH5cConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI448GUID173655Name Custom_ModelTransformposX [#posYy @posZ 8rotX@վrotY~f@rotZf@scaleX@ff?scaleY@ff?scaleZ@ff?NicknameC&ODescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL'http://pastebin.com/raw.php?i=Kp1EgH5cDiffuseURL https://i.imgur.com/bEPzdCi.jpgNormalURLColliderURL'http://pastebin.com/raw.php?i=Kp1EgH5cConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI458GUIDa32a5aName Custom_ModelTransformposXposY@y @posZ`88rotXs۾rotY`|f@rotZf@scaleX@ff?scaleY@ff?scaleZ@ff?NicknameNYCDescriptionGMNotesAltLookAngle&xyzColorDiffuse&ri?gn?b@?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL'http://pastebin.com/raw.php?i=Kp1EgH5cDiffuseURL https://i.imgur.com/bEPzdCi.jpgNormalURLColliderURL'http://pastebin.com/raw.php?i=Kp1EgH5cConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI46;GUID9916d5Name Custom_ModelTransformposX`2posYy @posZ@x8rotX >rotY~f@rotZf@scaleX@ff?scaleY@ff?scaleZ@ff?NicknameWabashDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL'http://pastebin.com/raw.php?i=Kp1EgH5cDiffuseURL https://i.imgur.com/bEPzdCi.jpgNormalURLColliderURL'http://pastebin.com/raw.php?i=Kp1EgH5cConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI478GUIDb3cbcfName Custom_ModelTransformposXposYy @posZ`8rotX?C>rotYf@rotZf@scaleX@ff?scaleY@ff?scaleZ@ff?NicknamePRRDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b J?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL'http://pastebin.com/raw.php?i=Kp1EgH5cDiffuseURL https://i.imgur.com/bEPzdCi.jpgNormalURLColliderURL'http://pastebin.com/raw.php?i=Kp1EgH5cConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI48GUIDbc1e88Name Custom_TileTransformposXm7@posYW@posZ@rotX`/qrotYf@rotZ>scaleX?scaleY?scaleZ?NicknameDescription+50 Point MarkerGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImagekImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238808552/0FE226D2E10AC009D9904250A9D05AA84AE38DC4/ImageSecondaryURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238799730/8F7A64E183AA018C9C479CBECB6D9F27FE606F76/ImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUI49GUID22ac9cName Custom_TileTransformposX2@posY@W@posZ"rotX@aԾrotYf@rotZ@:qscaleX?scaleY?scaleZ?NicknameDescription+50 Point MarkerGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImagekImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238779172/A099658D44636C0518C8F1823D042DFC09812DA0/ImageSecondaryURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238779774/05CCDCBC309A985486EE8F31118FE64ADE39C44B/ImageScalar?WidthScaleCustomTile8TypeThickness?StackableStretchLuaScriptLuaScriptStateXmlUI50!GUID987d9aName Custom_ModelTransformposX`5@posY D @posZ @rotX`>rotYv@rotZ QscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI51!GUID16dff8Name Custom_ModelTransformposXF@posYҌ?posZ(@rotX3JrotYHў?rotZAb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI52!GUIDaada55Name Custom_ModelTransformposXG@posY?posZ(@rotXhJrotYv@rotZOAb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI53!GUID61ba9eName Custom_ModelTransformposXG@posY?posZ@"@rotX@ JrotY࿷?rotZ Ab?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI54!GUIDc01eeeName Custom_ModelTransformposX@_H@posYL?posZ(@rotXJrotY@s?rotZ Ab?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI55!GUID7295caName Custom_ModelTransformposX@H@posY@!?posZ$@rotXJrotY`=?rotZ`@b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI56!GUID41d871Name Custom_ModelTransformposX@E@posY`?posZ '@rotX`zJrotY`v@rotZBb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI57!GUIDeb4380Name Custom_ModelTransformposXF@posY@?posZ@'@rotX`OIrotYс?rotZ28b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI58!GUID298bc1Name Custom_ModelTransformposX G@posY`?posZ'@rotXJrotY?rotZ=Bb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI59!GUID33b4fbName Custom_ModelTransformposX@G@posY?posZ%@rotX`JrotY`ﯦ?rotZ@b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI60!GUID429a58Name Custom_ModelTransformposX`?H@posY7?posZ'@rotXIrotY&?rotZ 6b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI61!GUIDfd304dName Custom_ModelTransformposX `H@posY6?posZ`%@rotX JrotY@?rotZ=Bb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI62!GUID4412c1Name Custom_ModelTransformposX F@posY ?posZ%@rotX@QJrotY9?rotZ?b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI63!GUIDa5ae36Name Custom_ModelTransformposXU-3@posY`D @posZ?rotX`;>rotY@q?rotZscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI64!GUID4f9d72Name Custom_ModelTransformposXF@posY@?posZ`%@rotX`yJrotY;?rotZhAb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI65!GUID833c52Name Custom_ModelTransformposXF@posY?posZ$@rotXJrotYNØ?rotZ@A@b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI66!GUIDc4c846Name Custom_ModelTransformposXF@posY?posZ@"@rotX JrotYޙ?rotZAb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI67!GUID997e99Name Custom_ModelTransformposX`H@posY@ ?posZ"@rotX yJrotYv@rotZCb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI68!GUID58f9ecName Custom_ModelTransformposX`G@posY ?posZ$@rotX *JrotY+?rotZ>b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI69!GUID630f41Name Custom_ModelTransformposX@F@posYh?posZ"@rotXSJrotY`?rotZBb?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI70!GUID7c23e0Name Custom_ModelTransformposXE@posYi?posZ$@rotXcJrotYZ?rotZ`?b?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r%5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI71!GUID9185a5Name Custom_ModelTransformposX%@posYE @posZ*rotX$>rotY`ف?rotZ >scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI72!GUID75bc8bName Custom_ModelTransformposXF)@posY`E @posZ*rotX>rotY`v@rotZ% scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI73!GUIDa56a7dName Custom_ModelTransformposX(@posY`E @posZ(rotXiT>rotY.?rotZ >scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI74!GUID757d36Name Custom_ModelTransformposX$@posYE @posZ(rotX>rotY?rotZ@scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI75!GUID0f275dName Custom_ModelTransformposX z(@posYE @posZV,rotX>rotY`x@?rotZ ^žscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI76!GUID4efa7aName Custom_ModelTransformposX$@posYE @posZ,rotXZ>rotY@?rotZƺscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI77!GUID9cc854Name Custom_ModelTransformposX!@posYE @posZ*rotXk>rotY?rotZscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI78!GUID7b0d97Name Custom_ModelTransformposX @posYE @posZ,rotXt>rotY?rotZscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI79!GUID1baa2eName Custom_ModelTransformposX#@posYE @posZ.rotX`>rotY`?rotZ6öscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI80!GUIDd76b13Name Custom_ModelTransformposX'@posYE @posZ.rotX>rotY`?rotZscaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI81!GUID1cbc82Name Custom_ModelTransformposXF@posY`y?posZ`1rotX`LrotYv@rotZ@Yc?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI82!GUID8198c8Name Custom_ModelTransformposX@F@posY ?posZ 1rotXLrotY Pv@rotZ@%Wc?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI83!GUIDabbec0Name Custom_ModelTransformposXG@posY@?posZ`1rotX;LrotYv@rotZ@Zc?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI84!GUID0098f4Name Custom_ModelTransformposX@F@posY`x?posZ2rotX`-LrotY`Ov@rotZ [c?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI85!GUID61ce94Name Custom_ModelTransformposX F@posY ?posZ2rotX@\LrotY v@rotZZc?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI86!GUID46c6b4Name Custom_ModelTransformposX@G@posY?posZ2rotXLrotY`v@rotZ`Yc?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rh?gn?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI87!GUID469947Name Custom_ModelTransformposX`_H@posYHrotY`v@rotZ`{`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI111!GUID18d6bfName Custom_ModelTransformposXG@posY?posZ9@rotXHHrotY?rotZ|`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI112!GUID3224ccName Custom_ModelTransformposXE@posY?posZ9@rotX`1HrotY@ǒ?rotZy`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI113!GUID101289Name Custom_ModelTransformposXH@posYS?posZ`@;@rotX"JHrotY?rotZy`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI114!GUID39ea18Name Custom_ModelTransformposX ?H@posYR?posZ@:@rotX?HrotYv@rotZ |`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI115!GUID452493Name Custom_ModelTransformposX` H@posY`??posZ9@rotX @HrotYv@rotZ x|`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI116!GUID9aa379Name Custom_ModelTransformposX @H@posY>?posZ8@rotXdwHrotY x?rotZv`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI117!GUID759b5eName Custom_ModelTransformposXF@posY Ќ?posZ9@rotXtKHrotY-R?rotZ|z`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI118!GUIDe7c6c8Name Custom_ModelTransformposXG@posY@?posZ9@rotX@PHrotYc?rotZy`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI119!GUIDcb65adName Custom_ModelTransformposXE@posY?posZ9@rotX :HrotYvv@rotZ {`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI120!GUIDd7c656Name Custom_ModelTransformposX_G@posY?posZ`@8@rotX*DHrotY v@rotZ@}`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI121!GUIDb6c016Name Custom_ModelTransformposX F@posY?posZ@8@rotXCHrotY@v@rotZ"z`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI122!GUID3cd30eName Custom_ModelTransformposX@H@posY`+?posZ@8@rotXBHrotYv@rotZ,{`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI123!GUIDbf2fa9Name Custom_ModelTransformposX E@posY?posZ@8@rotXMHrotYv@rotZz`?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r Zd?g?b I?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI124!GUID4570aaName Custom_ModelTransformposX_F@posY@H?posZrotX .ProtY@}k?rotZ 0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI125!GUID12cd88Name Custom_ModelTransformposX G@posY?posZ`KrotX`pProtYvv@rotZ/f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI126!GUIDf7b575Name Custom_ModelTransformposXF@posY`G?posZo rotX&ProtYv@rotZ f0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI127!GUID4833edName Custom_ModelTransformposX?G@posY?posZ rotX ProtY@v@rotZ@0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI128!GUIDdf793fName Custom_ModelTransformposXE@posY?posZ l rotX@_0ProtY?rotZ?.f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI129!GUID641187Name Custom_ModelTransformposXG@posY܌?posZ rotX ProtY y5?rotZ <1f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI130!GUID1bbef9Name Custom_ModelTransformposXH@posY܌?posZ@3 rotX:0ProtY@鉙?rotZ-f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI131!GUID937599Name Custom_ModelTransformposXG@posY@Œ?posZ rotX *ProtY ?rotZP/f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI132!GUIDb3cbc2Name Custom_ModelTransformposX_F@posY-?posZrotXh(ProtYv@rotZ 2f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI133!GUID6de7a5Name Custom_ModelTransformposXG@posYw?posZ rotX,ProtY*frotZ@_.f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI134!GUIDd1d097Name Custom_ModelTransformposX@E@posY ?posZrotX v)ProtY`v@rotZ.f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI135!GUIDcf3c4aName Custom_ModelTransformposX`H@posY`'?posZ@RrotXProtYp?rotZA,f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI136!GUIDfdc817Name Custom_ModelTransformposXH@posY@&?posZ3 rotX)ProtY?rotZ 0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI137!GUIDbddffaName Custom_ModelTransformposXH@posY` ?posZ'rotX*ProtY`?rotZ .f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI138!GUID87a112Name Custom_ModelTransformposXE@posY?posZrotX&ProtYhB?rotZl,f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI139!GUIDcc573cName Custom_ModelTransformposXH@posY` ?posZ/rotX@.ProtYh ?rotZ@~/f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI140!GUID94fcaaName Custom_ModelTransformposX@@G@posYv?posZ -rotX@/ProtYF?rotZ`-f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI141!GUID5b5ffdName Custom_ModelTransformposXH@posY ?posZ0rotX#$ProtY`2?rotZ.f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI142!GUIDc81e53Name Custom_ModelTransformposXF@posY`,?posZ1rotX@o,ProtY?rotZ|0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI143!GUID6535c8Name Custom_ModelTransformposX G@posY@?posZ+rotX'ProtYc?rotZ <.f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI144!GUID2c5a22Name Custom_ModelTransformposX G@posY\?posZ1rotX[ProtY`?rotZe0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI145!GUID1d9f02Name Custom_ModelTransformposXH@posY@?posZ1rotX`S2ProtYd̡?rotZ`}-f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI146!GUID13d831Name Custom_ModelTransformposX `F@posY`?posZ`+rotXb-ProtY 0?rotZ 1f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI147!GUIDd0d7d3Name Custom_ModelTransformposXE@posY ?posZprotX/ProtYfB?rotZ 0f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI148!GUID5478c0Name Custom_ModelTransformposX@E@posY ȋ?posZ.rotXtOrotY`?rotZe+f?scaleXff?scaleYff?scaleZff?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?gj?b@ ?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURL!http://pastebin.com/raw/yL8Jjhz3DiffuseURL8https://www.dropbox.com/s/2xndsk443ltldq3/Tren.jpg?dl=1NormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI149JGUID0f3c9dName Custom_ModelTransformposX (!posYV@posZ@.rotX`žɾrotYf@rotZscaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI150JGUID15294fName Custom_ModelTransformposX+posYV@posZrotX`+׾rotYf@rotZ >scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI151JGUIDca1d72Name Custom_ModelTransformposXi'posYV@posZ`-rotX@[4־rotY f@rotZ1scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI152JGUID30ffc4Name Custom_ModelTransformposX.posYV@posZ rotXG̾rotY Bf@rotZ6H>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI153JGUID8d3e80Name Custom_ModelTransformposX*5+posYV@posZ,rotXFrotYf@rotZ࡟>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI154JGUIDfc6ea0Name Custom_ModelTransformposX-posYV@posZ'rotX`BrotYf@rotZ>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI155JGUIDbbada3Name Custom_ModelTransformposX+posYV@posZ$rotXwrotYf@rotZA>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI156JGUID361c22Name Custom_ModelTransformposX&posYV@posZ)rotX y>rotYf@rotZ@scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI157GUIDb6661fName Custom_ModelTransformposX d+#posYV@posZ 2rotXrotY`f@rotZi>scaleX33?scaleY33?scaleZ33?NicknameDescriptionMoves forward 1 space automatically at the end of each Dividend Phase and income of companies present there increase by 1. CANNOT be developed by players.GMNotesAltLookAngle&xyzColorDiffuse&r ?gKC?b ?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI158JGUID078554Name Custom_ModelTransformposX'posY`V@posZ&rotX^rotYf@rotZn>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI159JGUID320083Name Custom_ModelTransformposX"posYV@posZ+rotX$ ӾrotYf@rotZkڀ>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI160JGUID848a1fName Custom_ModelTransformposX)posY`V@posZ(rotX >rotY@f@rotZ\a>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI161JGUID7ac685Name Custom_ModelTransformposX#posYV@posZ'rotXC>rotYf@rotZ 8>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI162JGUID693351Name Custom_ModelTransformposX$posYV@posZ#rotXRrotYf@rotZ>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI163JGUID8b9d70Name Custom_ModelTransformposX posYV@posZ%rotX 3rotYf@rotZ>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI164JGUID57edebName Custom_ModelTransformposX posYV@posZ`M4rotX>rotYf@rotZ`1iscaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI165JGUIDee3253Name Custom_ModelTransformposXposY`V@posZ&rotXӾrotYf@rotZ@>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI166JGUIDaaa55aName Custom_ModelTransformposXposYV@posZ(rotXrotYf@rotZ>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI167JGUID089ab3Name Custom_ModelTransformposXVposYV@posZd,rotX=>rotYf@rotZ_>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI168JGUIDbaeaa3Name Custom_ModelTransformposXposYV@posZ)rotX 7rotYf@rotZ?`>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI169JGUID029c81Name Custom_ModelTransformposXposY V@posZ`8w6rotXrotY`f@rotZM|>scaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI170JGUIDebfdd7Name Custom_ModelTransformposX@KposYV@posZ`i-rotX@ >rotYf@rotZscaleX33?scaleY33?scaleZ33?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&rv%?gv%?b`EF?Tags0HouseLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomMeshMeshURLihttps://steamusercontent-a.akamaihd.net/ugc/792009307529829815/A991E5D11C638DB9B6D78BFDCD4455D67E01C895/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUI171GUIDf1d8eeNameDeckTransformposXPG@posYv?posZ=4@rotX@+H?rotY?f@rotZx`scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsSidewaysCardDeckIDs012CustomDeck?156FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIContainedObjects? 0GUIDac5053Name CardCustomTransformposX pGposY,?posZfrotX@ 3?rotY Bf@rotZG?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?156FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI1GUIDa21386Name CardCustomTransformposX pGposY ?posZrotX DrotY@f@rotZ`?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?156FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI2GUID9f1761Name CardCustomTransformposX pGposYT?posZrotX 7grotY@f@rotZ`?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?156FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812775/CD4025465F21A1E2699821DF17176C2976CC4EF5/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI172lGUID2c6c24NameDeckTransformposX@G@posY(?posZh}#rotX@P?rotY 8f@rotZ4-fscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsSidewaysCardDeckIDs/0@1@2@3@4@5@CustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIContainedObjectsy0GUIDb9a269Name CardCustomTransformposXG@posYg@posZ 9rotX@M?rotYUf@rotZP`scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID@SidewaysCardCustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI1GUIDf2b880Name CardCustomTransformposX@G@posY@posZf!9rotX@`k?rotYxf@rotZ [?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID@SidewaysCardCustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI2GUID600241Name CardCustomTransformposX@G@posY@posZ 6'9rotX9 ?rotY xf@rotZqscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID@SidewaysCardCustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI3GUID8a81b2Name CardCustomTransformposXG@posY@@posZ@u%9rotX+p?rotY@pf@rotZ[r?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID@SidewaysCardCustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI4GUID6a7101Name CardCustomTransformposX@G@posYL?posZh}#rotX`P?rotY8f@rotZ=-fscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID@SidewaysCardCustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI5GUID691668Name CardCustomTransformposX@G@posY?posZh}#rotX؆?rotYDf@rotZ`v@scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID@SidewaysCardCustomDeck?166FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238813063/56AC2674BAFE22420ABDCEB6CB94295203856FEB/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI173GUIDd98f9aNameDeckTransformposXG@posY?posZ8rotX@L?rotYf@rotZHUcscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsSidewaysCardDeckIDs(0X1X2X3X4XCustomDeck>66FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDf736eaName CardCustomTransformposX MposY :?posZrotXc?rotYf@rotZ'{?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDXSidewaysCardCustomDeck>66FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI1GUID8148e0Name CardCustomTransformposX MposY?posZ 8rotX,^?rotY@}f@rotZe{?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDXSidewaysCardCustomDeck>66FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI2GUID2d6a09Name CardCustomTransformposX`MposY`?posZrotX=QrotYf@rotZ bscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDXSidewaysCardCustomDeck>66FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI3GUID6b6130Name CardCustomTransformposX:MposY \?posZrotXFa?rotYDvf@rotZ/{?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDXSidewaysCardCustomDeck>66FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI4GUIDacbf86Name CardCustomTransformposXG@posY?posZ8rotXP?rotY 8f@rotZdscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDXSidewaysCardCustomDeck>66FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812571/4B947EE4A66CDD2079A9A3ADBA17D3DB703215A4/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI174U GUIDe5cf2fNameDeckTransformposX`e2@posY@`@posZ@H3rotXkܽ>rotYRf@rotZ`?>scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsSidewaysCardDeckIDs01CustomDeck>46FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812039/13C3BF0D026C838883B3B8DD065868D1B89985FC/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812039/13C3BF0D026C838883B3B8DD065868D1B89985FC/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIContainedObjects0GUID0211f0Name CardCustomTransformposXB0@posY7C@posZV4rotXg3rotYRf@rotZ GM(scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck>46FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812039/13C3BF0D026C838883B3B8DD065868D1B89985FC/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812039/13C3BF0D026C838883B3B8DD065868D1B89985FC/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI1GUID9a265dName CardCustomTransformposX L0@posY_@posZY4rotX3rotY4f@rotZ"J(scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck>46FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812039/13C3BF0D026C838883B3B8DD065868D1B89985FC/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812039/13C3BF0D026C838883B3B8DD065868D1B89985FC/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI175[GUID87e89eName HandTriggerTransformposX FposY3@posZCrotXrotY5!-rotZscaleX 0@scaleY@scaleZ}@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r Zd?g ?ba?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorRedLuaScriptLuaScriptStateXmlUI176\GUIDc92b45Name HandTriggerTransformposX@4posY3@posZ CrotXrotY}v@rotZscaleX0@scaleY@scaleZ V@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r ?5?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorBlueLuaScriptLuaScriptStateXmlUI177 GUID4a7322NameCustom_Model_Infinite_BagTransformposX&@posY@?posZ@@rotX֥rotYif@rotZi>scaleX@C@scaleYܛ?scaleZ23 @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexMeshIndexCustomMeshMeshURLjhttps://steamusercontent-a.akamaihd.net/ugc/1666858152071990826/9AD455F2CBAEC01B2CBCDDB8B6DC4CE48D14B545/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDd0a0fbName CardCustomTransformposXGj&@posY`Ζ?posZi@@rotXSProtY v@rotZ#scaleXj?scaleY?scaleZj?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?206FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIChildObjects0GUIDd0a0fbName CardCustomTransformposX@MS>posY}ZposZڬrotXhrotYVrotZ`ҾscaleX`?scaleY\@scaleZ`?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?206FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI178 GUID06f562NameCustom_Model_Infinite_BagTransformposX5@posY ?posZ@@rotX=>rotYf@rotZ>scaleX@scaleYܛ?scaleZ23 @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexMeshIndexCustomMeshMeshURLjhttps://steamusercontent-a.akamaihd.net/ugc/1666858152071990826/9AD455F2CBAEC01B2CBCDDB8B6DC4CE48D14B545/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDf6e878Name CardCustomTransformposX5@posY?posZ@@rotXL >rotY+?rotZ>scaleXj?scaleY?scaleZj?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID4SidewaysCardCustomDeck?216FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIChildObjects0GUIDf6e878Name CardCustomTransformposXhposY:=posZ?\̽rotX@`1rotY_ɾrotZp;scaleX@?scaleY\@scaleZ`?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID4SidewaysCardCustomDeck?216FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI179 GUIDe0d618NameCustom_Model_Infinite_BagTransformposX?posY ?posZ@@rotX pW>rotY@Cf@rotZyyscaleX C@scaleYܛ?scaleZ23 @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexMeshIndexCustomMeshMeshURLjhttps://steamusercontent-a.akamaihd.net/ugc/1666858152071990826/9AD455F2CBAEC01B2CBCDDB8B6DC4CE48D14B545/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDe00f3eName CardCustomTransformposX?posY?posZ@@rotX ghrotY`v@rotZ>scaleXj?scaleY?scaleZj?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?226FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIChildObjects0GUIDe00f3eName CardCustomTransformposX`McposY 7=posZ}=rotXQ+=rotYE>rotZ,;scaleX`?scaleY\@scaleZ`?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?226FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI180 GUIDe06783NameCustom_Model_Infinite_BagTransformposX5@posY ?posZ@rotXLnrotYf@rotZ~scaleX@scaleYܛ?scaleZ23 @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexMeshIndexCustomMeshMeshURLjhttps://steamusercontent-a.akamaihd.net/ugc/1666858152071990826/9AD455F2CBAEC01B2CBCDDB8B6DC4CE48D14B545/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDf6e878Name CardCustomTransformposX5@posY ?posZ@rotXWq>rotYqɕ?rotZCscaleXj?scaleY?scaleZj?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID4SidewaysCardCustomDeck?216FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIChildObjects0GUIDf6e878Name CardCustomTransformposXhposY:=posZ?\̽rotX@`1rotY_ɾrotZp;scaleX@?scaleY\@scaleZ`?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardID4SidewaysCardCustomDeck?216FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862213/71346EF831DA637123C13A263C6CEC620A234E19/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI181 GUID260026NameCustom_Model_Infinite_BagTransformposX?posY ?posZ@rotXÎ>rotY Cf@rotZ pscaleX C@scaleYܛ?scaleZ23 @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexMeshIndexCustomMeshMeshURLjhttps://steamusercontent-a.akamaihd.net/ugc/1666858152071990826/9AD455F2CBAEC01B2CBCDDB8B6DC4CE48D14B545/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDe00f3eName CardCustomTransformposX?posY?posZ@rotX܂rotY/d?rotZ ascaleXj?scaleY?scaleZj?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?226FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIChildObjects0GUIDe00f3eName CardCustomTransformposX`McposY 7=posZ}=rotXQ+=rotYE>rotZ,;scaleX`?scaleY\@scaleZ`?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?226FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238862438/D1CF0ACC0C1290540C18729AF3FE1FCC47619650/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI182 GUID72ae63NameCustom_Model_Infinite_BagTransformposX&@posY@?posZ@rotX@rotYif@rotZ !p>scaleX@C@scaleYܛ?scaleZ23 @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsMaterialIndexMeshIndexCustomMeshMeshURLjhttps://steamusercontent-a.akamaihd.net/ugc/1666858152071990826/9AD455F2CBAEC01B2CBCDDB8B6DC4CE48D14B545/DiffuseURLNormalURLColliderURLConvexMaterialIndexTypeIndexCastShadowsLuaScriptLuaScriptStateXmlUIContainedObjects0GUIDd0a0fbName CardCustomTransformposX %@posYٖ?posZ@h@rotXlS>rotYarotZ yɒscaleXj?scaleY?scaleZj?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?206FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIChildObjects0GUIDd0a0fbName CardCustomTransformposX@MS>posY}ZposZڬrotXhrotYVrotZ`ҾscaleX`?scaleY\@scaleZ`?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0MoneyLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck?206FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238861976/502B4798038A999F0E7880FC8B14E754097CCAB1/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI183iGUID5e6aabName Custom_TokenTransformposXK6posY@$ @posZ`{rotX ~>rotY]@rotZ@c?scaleX2?scaleY?scaleZ2?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567239330776/E73DC0E6C62F66D90A499BE3E77315C437ABB387/ImageSecondaryURLImageScalar?WidthScaleCustomTokenKThickness?MergeDistancePixels.@StandUpStackableLuaScriptLuaScriptStateXmlUIPhysicsMaterialrStaticFriction?DynamicFriction?BouncinessFrictionCombineBounceCombineRigidbodyCMass?Drag?AngularDrag@@UseGravityJointHinge*UseLimitsLimitsminBouncemaxBounceminmaxbouncinessbounceMinVelocity?contactDistanceUseMotorMotor7targetVelocityforcefreeSpinUseSpringSpring=springdampertargetPositionConnectedBodyGUID674887EnableCollisionAxis&xy?zAnchor&xyzConnectedAnchor&xl@y@?z@?BreakForceBreakTorgue184iGUID9116cdName Custom_TokenTransformposX6K6posY$ @posZ|Z*rotX@>rotY ^@rotZl>scaleX2?scaleY?scaleZ2?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567239330776/E73DC0E6C62F66D90A499BE3E77315C437ABB387/ImageSecondaryURLImageScalar?WidthScaleCustomTokenKThickness?MergeDistancePixels.@StandUpStackableLuaScriptLuaScriptStateXmlUIPhysicsMaterialrStaticFriction?DynamicFriction?BouncinessFrictionCombineBounceCombineRigidbodyCMass?Drag?AngularDrag@@UseGravityJointHinge*UseLimitsLimitsminBouncemaxBouncer.8minmaxbouncinessbounceMinVelocity?contactDistanceUseMotorMotor7targetVelocityforcefreeSpinUseSpringSpring=springdampertargetPositionConnectedBodyGUID674887EnableCollisionAxis&xy?zAnchor&xyzConnectedAnchor&x 0l@y ?z7@BreakForceBreakTorgue185iGUIDf7d6e6Name Custom_TokenTransformposX@M6posY@$ @posZ5rotX;?rotY`^@rotZ`>scaleX2?scaleY?scaleZ2?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomImageImageURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567239330776/E73DC0E6C62F66D90A499BE3E77315C437ABB387/ImageSecondaryURLImageScalar?WidthScaleCustomTokenKThickness?MergeDistancePixels.@StandUpStackableLuaScriptLuaScriptStateXmlUIPhysicsMaterialrStaticFriction?DynamicFriction?BouncinessFrictionCombineBounceCombineRigidbodyCMass?Drag?AngularDrag@@UseGravityJointHinge*UseLimitsLimitsminBouncemaxBounce8/8minmaxbouncinessbounceMinVelocity?contactDistanceUseMotorMotor7targetVelocityforcefreeSpinUseSpringSpring=springdampertargetPositionConnectedBodyGUID674887EnableCollisionAxis&xy?zAnchor&xyzConnectedAnchor&x`3o@y?zU@BreakForceBreakTorgue186^GUID7ac8f1Name HandTriggerTransformposXFposY@posZ/C@rotXrotY8 ?rotZscaleXn/@scaleY@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?gj?b@?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorYellowLuaScriptLuaScriptStateXmlUI187GUIDc1dcefName Custom_PDFTransformposX@t?posYZ*@posZ:O@rotX!@@rotY@ǂf@rotZ4r?scaleX7&@scaleY?scaleZ7&@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCustomPDFPDFUrljhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238837876/AE35BF5DFCA3E3C6B9427D3F512BDF0570BF9C57/PDFPasswordPDFPagePDFPageOffsetLuaScriptLuaScriptStateXmlUI188ӥGUID6714adNameCounterTransformposXA@posY\?posZ6rotX`(1r>rotY TrotZ%scaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&rs?gn?b@?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI189ӥGUID36ea67NameCounterTransformposXA@posY \?posZrotX ucrotY@TrotZiscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r?gj?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI190ӥGUID263d1bNameCounterTransformposXA@posY\?posZ@rotX)rotY@@TrotZTscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r <5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI191ӥGUID3171d7NameCounterTransformposXA@posY@\?posZ6@rotXI>rotY@@TrotZjDscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r Zd?g ?b`^?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI192ӥGUID4e97f5NameCounterTransformposX#posY \?posZ@@rotX {>rotY@ATrotZzscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r <5?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI193ӥGUIDe9e95dNameCounterTransformposX@@posY`\?posZ@@rotXǰrotY RrotZ!scaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r Zd?g ?b`^?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI194ӥGUIDb8baacNameCounterTransformposX@posY[?posZA@rotX`hL>rotYjRrotZ iscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r?gj?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI195ӥGUID0636a6NameCounterTransformposXLposY`\?posZ,@rotXp|>rotYQrotZrscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&rs?gn?b@?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI196ӥGUID3f2ca3NameCounterTransformposXLposY \?posZ%rotXrotY QrotZУscaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r@b?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI197ӥGUID0ca435NameCounterTransformposX LposY\?posZ@@rotXD>rotY@bqProtZ@>scaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI198]GUID939525Name HandTriggerTransformposX~PposY@posZ 8@rotXrotY ̉V@rotZscaleX3/@scaleY@scaleZ $ @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1rt?gn?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorGreenLuaScriptLuaScriptStateXmlUI199^GUIDe564acName HandTriggerTransformposX@PposY@posZ@̡?rotXrotY ̉V@rotZscaleX`E/@scaleY@scaleZ@NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r@b?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorPurpleLuaScriptLuaScriptStateXmlUI200]GUID5034b1Name HandTriggerTransformposX@PposY@posZF7rotXrotY ̉V@rotZscaleXH0@scaleY@scaleZ @NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse1r?g?b?aLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsFogColorWhiteLuaScriptLuaScriptStateXmlUI201GUID520c57NameDeckTransformposX@G@posY?posZ@rotX@J?rotYf@rotZ@?bscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsSidewaysCardDeckIDs!0123CustomDeck>56FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUIContainedObjects0GUID4cf444Name CardCustomTransformposX@G@posY`/?posZ@rotX`|L?rotYvf@rotZ cscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck>56FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI1GUID37b6dbName CardCustomTransformposX@4I@posYN@posZ@lrotX0?rotYf@rotZSKscaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck>56FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI2GUID29d607Name CardCustomTransformposXnJ@posYmX@posZorotXJbrotY}f@rotZoF?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck>56FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI3GUID011e92Name CardCustomTransformposXJ@posY }@posZ]xrotX crotY 8f@rotZM?scaleX-?scaleY?scaleZ-?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?Tags0ShareLayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCardIDSidewaysCardCustomDeck>56FaceURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/BackURLjhttps://steamusercontent-a.akamaihd.net/ugc/2424718567238812337/4AE27DA3F5E94ABAD1449F23214A6B0849B20536/NumWidthNumHeightBackIsHiddenUniqueBackTypeLuaScriptLuaScriptStateXmlUI202GUIDe4cf97Name3DTextTransformposX L{A@posY@f?posZ^2rotXV@rotY}v@rotZscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsTextSTextNYCcolorstate&rt?gn?b ?fontSizeLuaScriptLuaScriptStateXmlUI203GUID4ca0e9Name3DTextTransformposX@fA@posY e?posZ b rotXV@rotY}v@rotZscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsTextSTextC&Ocolorstate&r?gj?b?fontSizeLuaScriptLuaScriptStateXmlUI204GUID9a8a00Name3DTextTransformposX 9A@posYf?posZ'@rotXV@rotY}v@rotZscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsTextSTextB&Ocolorstate&r?5?g?b?fontSizeLuaScriptLuaScriptStateXmlUI205GUIDb7aebaName3DTextTransformposX%A@posY@pg?posZ =:@rotXV@rotY}v@rotZscaleX?scaleY?scaleZ?NicknameDescriptionGMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsTextSTextPRRcolorstate&r Zd?g?b@b?fontSizeLuaScriptLuaScriptStateXmlUI206ӥGUIDa21f0cNameCounterTransformposX%@posYC@posZ`2rotX`(1r>rotY TrotZ%scaleX?scaleY?scaleZ?NicknameMoneyDescription 2,5,10,25GMNotesAltLookAngle&xyzColorDiffuse&r?g?b?LayoutGroupSortIndexValueLockedGridSnapIgnoreFoWMeasureMovementDragSelectableAutoraiseStickyTooltipGridProjectionHideWhenFaceDownHandsCountervalueLuaScriptqfunction onLoad(str) --In code settings-- invertcoin=false --old negative value is now positive and old positive value is now negative coinzero=-2 --0 > toggle when beond zero, -1 > zero is negative, 1 > zero is positive, 2 > toggle when reached zero, -2 > zero is special autoconnect=true --allow autoconnecting by putting counters next to each other howfaraconn=0.6 --how far autoconnect works (object scale affects this) showcalcround=true --show autocalculation list on hover --End of settings--- savechanged=false local start=false SETTINGS_POS=string.find(self.script_code,"--End of settings---") self.setVar("SETTINGS_POS",SETTINGS_POS) if str != "" and str != nil then local data=JSON.decode(str) for name, info in pairs(data) do if name == "extendCounterObjs" then if type(info).."" == "table" then if #info > 1 then extendCounterObjs={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(extendCounterObjs,obj) end end if #extendCounterObjs < 2 then extendCounterObjs=nil end end end end if name == "extendCounterCoin" then local obj=getObjectFromGUID(info) if obj then extendCounterCoin=obj end end if name == "autoCalculateList" then if type(info).."" == "table" then if #info > 2 then autoCalculateList={} for _, guid in ipairs(info) do local obj=getObjectFromGUID(guid) if obj then table.insert(autoCalculateList,obj) end end if #autoCalculateList < 3 then autoCalculateList=nil else start=true end end end end end end self.setVar("whatIAm","Counter") self.setVar("Supports_getTotalValue",true) self.setVar("whatIAmSpecfically","[finmod]Advanced Counter Mark II") watchDesc() updateContextMenu() if start then autoCalculateActive=false; autocalcOperation(); end end function onSave() local objs={} local autol={} local rettab={} local coin if savechanged then if extendCounterCoin then coin=extendCounterCoin.getGUID() end if type(extendCounterObjs).."" == "table" then for _, obj in ipairs(extendCounterObjs) do if obj then table.insert(objs,obj.getGUID()) end end end if type(autoCalculateList).."" == "table" then for _, obj in ipairs(autoCalculateList) do if obj then table.insert(autol,obj.getGUID()) end end end if #objs > 1 then rettab["extendCounterObjs"]=objs end if coin then rettab["extendCounterCoin"]=coin end if #autol > 2 then rettab["autoCalculateList"]=autol end savechanged=false return JSON.encode(rettab) else return self.script_state end end function getAnyVar(tab) return _G[tab[1]] end function setAnyVar(tab) _G[tab[1]]=tab[2] end function onHover(col) if autoCalculateList != nil and showcalcround then local showme={ color=Color(1,1,1), thickness=0.1, rotation=Vector(0,0,0), points={} } local pos=self.getPosition()+Vector(0,0.5,0) local ipos=self.getPosition()-Vector(0,1.5,0) local prevvec=vectorToLocal(pos,self.getPosition(),self.getScale(),self.getRotation()) local list={} i=#autoCalculateList while i > 0 do showme.color=Color(1,1,1):lerp(Color(0,0,1),(#autoCalculateList-i)/(#autoCalculateList-1)) table.insert(list,makecopytab(showme,1)) list[#autoCalculateList-i+1].points[1]=prevvec local obj=autoCalculateList[i] list[#autoCalculateList-i+1].points[2]=vectorToLocal(obj.getPosition(),ipos,self.getScale()*Vector(3,3,3),self.getRotation()) prevvec=list[#autoCalculateList-i+1].points[2] i=i-1 end self.setVectorLines(list) Wait.time(function() self.setVectorLines() end, 3.0) end end function onPickUp(color) if type(extendCounterObjs).."" == "table" then local amount=#extendCounterObjs local selob=Player[color].getSelectedObjects() if selob then if #selob == amount then for i=1, amount do local test = false for x=1, amount do if selob[i] == extendCounterObjs[x] then test=true end end if test then return end end end end for i, obj in ipairs(extendCounterObjs) do if obj then if string.sub(obj.script_code,obj.getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or obj.getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then obj.call("extflash",{nil}) obj.call("updateContextMenu") else local guid=obj.getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end end end end printToAll("broke connection of ".. amount .." counters.") end end function onDrop(color) startChecking() end function startChecking() if autoconnect then preCheck(os.time()+3) end end function preCheck(secs) if os.time() < secs then if not self.resting and checkWait == nil then checkWait=Wait.time(function() preCheck(secs) end,0.1) else checkWait=nil checkConnections() end else checkWait=nil end end function checkConnections() local finallist={self} local bd=self.getBounds() local scale=self.getScale() local x=bd.size.x / 2.0 local rot=self.getRotation() local left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) local right=Vector()-left local cpos=self.getPosition() local tmppos=cpos local test=true while test do local list=findInRadiusBy(tmppos+left,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 left=Vector(-(x+(howfaraconn+0.5)*scale.x),-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,list[1]) else test=false end end tmppos=cpos test=true while test do local list=findInRadiusBy(tmppos+right,1.0,function(obj) return obj.type == "Counter" end) if #list > 0 then tmppos=list[1].getPosition() bd=list[1].getBounds() scale=list[1].getScale() x=bd.size.x / 2.0 right=Vector(x+(howfaraconn+0.5)*scale.x,-bd.offset.y,0):rotateOver("y",rot.y) table.insert(finallist,1,list[1]) else test=false end end if #finallist <= 1 then return end local coin=extendCounterCoin for i=1,#finallist do if string.sub(finallist[i].script_code,finallist[i].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or finallist[i].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then finallist[i].call("extflash",{finallist}) if coin then finallist[i].call("scriptcoin",{coin,invertcoin,coinzero}) end else local guid=finallist[i].getGUID() for i=1, 7 do Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end end printToAll("Connected ".. #finallist .." counters.") end function watchDesc() if savedDesc != self.getDescription() then local a,b=readDesc() createButtons(a,b) savedDesc=self.getDescription() end if savedTint != self.getColorTint() then local a,b=readDesc() createButtons(a,b) savedTint=self.getColorTint() end Wait.time(watchDesc,0.5) end function updateContextMenu() self.clearContextMenu() self.addContextMenuItem("extend counter",extendc) if extendCounterObjs != nil then self.addContextMenuItem("clear",function() local a,minus,c=getTotalValue(); if coinzero == -1 then minus=true elseif coinzero == 1 then minus=false elseif coinzero == 2 then minus=not minus end setTotalValue({0,minus}) end) end self.addContextMenuItem("make autocalc",autocalc) savechanged=true end function extendc(col) if col == nil then extendCounterObjs=nil return end extendCounterObjs=Player[col].getSelectedObjects() extendCounterCoin=nil if extendCounterObjs != nil then if #extendCounterObjs <= 1 then extendCounterObjs=nil elseif #extendCounterObjs >= 2 then -- if self != extendCounterObjs[1] then -- printToAll("[ff0000]ERROR:[-]select smallest counter first, and from smallest counter right click menu.") -- return -- end if extendCounterObjs[i].type.."" != "Counter" then local i=1 while i <= #extendCounterObjs do if string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) and extendCounterObjs[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then local typetest=extendCounterObjs[i].type.."" == "Counter" or (extendCounterObjs[i].getVar("whatIAm") == "Counter") if i == 2 then if i == #extendCounterObjs then extendCounterCoin=extendCounterObjs[#extendCounterObjs] extendCounterObjs=nil return end elseif i == #extendCounterObjs and not typetest then log("LinkkingCounters:we assume this is coin (negitve display)") extendCounterCoin=extendCounterObjs[#extendCounterObjs] table.remove(extendCounterObjs) elseif typetest then printToAll("[ff0000]ERROR:[-]Unknown counter (possibly unexpected behaviour).") else table.remove(extendCounterObjs,i) i=i-1 end elseif string.sub(self.script_code,SETTINGS_POS) != string.sub(extendCounterObjs[i].script_code,extendCounterObjs[i].getVar("SETTINGS_POS") or SETTINGS_POS) then printToAll("[ff0000]ERROR:[-]Counters not the same version (Advanced Counter Mark II) (possibly unexpected behaviour).") end i=i+1 end if #extendCounterObjs >= 2 then extendCounterObjs[1].call("scriptext",{extendCounterObjs,1}) end for i=1, #extendCounterObjs do if extendCounterObjs[i] != self then extendCounterObjs[i].call("scriptcoin",{extendCounterCoin,invertcoin,coinzero}) end end end end updateContextMenu() end function autocalc(col) savechanged=true autoCalculateList=nil if col == nil then return end autoCalculateList=Player[col].getSelectedObjects() Player[col].clearSelectedObjects() if autoCalculateList == nil then return end local i=1 while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i != #autoCalculateList then local test=isOperator(autoCalculateList[i].getName()) if not test then test=isOperator(autoCalculateList[i].getDescription()) end if not test then printToAll("[ff0000]ERROR:[-]autocalc: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) else local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,0),0.45) end, i*0.3+0.7) end else if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" then log("non Advanced Counter Mark II detected (or too old version). "..i) else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then log("other version of Advanced Counter Mark II detected. "..i) else log("[00ff00]OK:[-]same version of Advanced Counter Mark II detected. "..i) end end local guid=autoCalculateList[i].getGUID() Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.45) end, i*0.3+0.7) end i=i+1 end log(autoCalculateList) table.remove(autoCalculateList) -- remove self if #autoCalculateList > 1 and ((#autoCalculateList % 2) == 1) then autoCalculateActive=false autocalcOperation() else printToAll("[ff0000]ERROR:[-] ".. #autoCalculateList .." long list failed (dropped). Select odd number of objects, starting from counter, then finally select counter to display the value (paired number of selected objects).") autoCalculateList=nil end end function autocalcOperation() if autoCalculateList != nil then if not autoCalculateActive then autoCalculateActive=true local i=1 local lastop local mycalc,myminus=0,false while i <= #autoCalculateList do local isop=i%2 == 0 if isop then if i == #autoCalculateList then printToAll("[ff0000]ERROR:[-]autocalcOperation: last one cannot be operator.") end local test=isOperator(autoCalculateList[i].getName()) if test then lastop=autoCalculateList[i].getName() else test=isOperator(autoCalculateList[i].getDescription()) if test then lastop=autoCalculateList[i].getDescription() else printToAll("[ff0000]ERROR:[-]autocalcOperation: ".. i .." index selected not an operator. (dropped)") table.remove(autoCalculateList,i) i=i-1 end end else local var,minus,index if autoCalculateList[i].getVar("whatIAmSpecfically") != "[finmod]Advanced Counter Mark II" and not autoCalculateList[i].getVar("Supports_getTotalValue") then var=autoCalculateList[i].getValue() minus=var < 0 else if string.sub(autoCalculateList[i].script_code,autoCalculateList[i].getVar("SETTINGS_POS") or SETTINGS_POS) != string.sub(self.script_code,SETTINGS_POS) then var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) else var,minus,index=autoCalculateList[i].call("getTotalValue") var=math.floor(var / math.pow(10000,index-1)) end end if i == 1 then mycalc=math.abs(var) myminus=minus else mycalc,myminus=rawCalcOperation(lastop,mycalc,var,myminus,minus) end end i=i+1 end setTotalValue({mycalc,myminus}) autoCalculateActive=false autoCalculateWait=Wait.time(autocalcOperation,1.0) end end end function debugme() log(extendCounterObjs) log(extendCounterCoin) if autoCalculateList != nil then for i, obj in ipairs(autoCalculateList) do local guid=obj.getGUID() local times=#autoCalculateList Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 0) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 1) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 2) Wait.time(function() getObjectFromGUID(guid).highlightOn(Color(1,1,1),0.3) end,0.1 + 0.3*i + times * 0.3 * 3) end else log("nil") end local a,b=readDesc() log(a) log(b) end function extflash(tab) if tab[1] == nil then for i=1, 7 do Wait.time(function() self.highlightOn(Color(1,0,0),0.2) end,(-0.2)+0.4*i) end else for i=1, 7 do Wait.time(function() self.highlightOn(Color(0,1,0),0.2) end,(-0.2)+0.4*i) end end extset(tab) end function extset(tab) extendCounterObjs=tab[1] updateContextMenu() end function scriptext(tab) if #tab[1] >= tab[2] then extendCounterObjs=tab[1] if #tab[1] > tab[2] then if string.sub(tab[1][tab[2]+1].script_code,tab[1][tab[2]+1].getVar("SETTINGS_POS") or SETTINGS_POS) == string.sub(self.script_code,SETTINGS_POS) or tab[1][tab[2]+1].getVar("whatIAmSpecfically") == "[finmod]Advanced Counter Mark II" then tab[1][tab[2]+1].call("scriptext",{tab[1],tab[2]+1}) else -- end end updateContextMenu() end end function scriptcoin(coin) extendCounterCoin=coin[1] if #coin > 1 then if coin[2] != nil then invertcoin=coin[2] end if #coin > 2 then if coin[3] != nil then coinzero=coin[3] end end end end function createButtons(buttonlist,whatlist) self.clearButtons() local bgcol=self.getColorTint() local test=(bgcol.r * 0.3 + bgcol.r * 0.3 * (1-bgcol.g) + bgcol.g + bgcol.b * 0.4 > 0.925) local txtcol=test and Color(1,1,1) or Color(0,0,0) local buttcol=test and Color(0.2,0.2,0.2) or Color(0.8,0.8,0.8) local butthov=Color(0.5,0.5,0.5) --[[ self.createButton({ click_function=nil, function_owner=self, label=" ", position=Vector(0,0.2,-0.4-(math.ceil(#buttonlist/2)*0.08-0.08)), scale=Vector(0.1,1,0.1), width=4500, height=800*math.ceil(#buttonlist/2)+200, color={bgcol.r,bgcol.g,bgcol.b}, hover_color={bgcol.r,bgcol.g,bgcol.b}, press_color={bgcol.r,bgcol.g,bgcol.b} })]] local buttonorginpos=Vector(0.32,0.201,-0.41) local frame={ click_function="button", function_owner=self, label=" ", font_size=400, position=buttonorginpos, rotation=Vector(0,180,0), scale=Vector(0.1,1,0.1), width=1000, height=600, color={buttcol.r,buttcol.g,buttcol.b}, hover_color={butthov.r,butthov.g,butthov.b}, press_color={butthov.r,butthov.g,butthov.b}, font_color={txtcol.r,txtcol.g,txtcol.b} } local i=1 local slot=0 local line=0 local halfi=0 local function slothand(slot,lablen) if lablen == 1 then if slot == 0 then return 0 elseif slot == 1 then return -0.21 elseif slot == 2 then return -0.43 elseif slot == 3 then return -0.64 end elseif lablen == 2 then if slot == 0 then return -0.105 elseif slot == 1 then return -0.32 elseif slot == 2 then return -0.535 end elseif lablen == 3 then if slot == 0 then return -0.21 elseif slot == 1 then return -0.43 end elseif lablen == 4 then return -0.32 end end while i <= #buttonlist do local lastone=i == #buttonlist local curra,currb local test=whatlist[i] == "" if test then curra,currb=makecopytab(frame,1),makecopytab(frame,1) else curra=makecopytab(frame,1) end local formatted local formtype=numinter(buttonlist[i],nil,true) if formtype == "1" then formatted=string.format("%d",buttonlist[i]) else formatted=buttonlist[i] end local poslab=(test and "+" or (whatlist[i]))..formatted local neglab="-"..formatted local lablen=math.ceil(string.len(poslab)/4.5) if lablen > 4 then lablen=4; end curra.click_function=curra.click_function..(i-1+halfi)*2 if test then currb.click_function=currb.click_function..(i-1+halfi)*2+1 attachIndex("button",(i-1+halfi)*2) attachIndex("button",(i-1+halfi)*2+1) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=neglab if slot+lablen > 4 then line=line+1; slot=0; end currb.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) currb.width=lablen * currb.width currb.label=poslab self.createButton(curra) self.createButton(currb) else attachIndex("button",(i-1+halfi)*2) if slot+lablen > 4 then line=line+1; slot=0; end curra.position=buttonorginpos+Vector(slothand(slot,lablen),0,-(line*0.16)) slot=(slot+lablen) curra.width=lablen * curra.width curra.label=poslab self.createButton(curra) halfi=halfi-0.5 end i=i+1 end end function dummy() end function attachIndex(click_function, index) -- function to create multiple versions of function local fn_name = click_function .. index _G[fn_name] = function(obj, player_color, alt_click) _G[click_function](obj, player_color, alt_click, index) end return fn_name end function getTotalValue() if extendCounterObjs == nil then if extendCounterCoin == nil then local var=tonumber(self.getValue()) or 0 return var,var < 0,1 else local minus local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end return (minus and -math.abs(tonumber(self.getValue()) or 0) or math.abs(tonumber(self.getValue()) or 0)),minus,1 end else local meCounterIndex local i=1 while i <= #extendCounterObjs do if extendCounterObjs[i] == self then meCounterIndex=i end if extendCounterObjs[i] == nil then log("linked counter operation, counter "..i.." removed.") table.remove(extendCounterObjs,i) i=i-1 end i=i+1 end if #extendCounterObjs <= 1 then printToAll("[ff0000]ERROR:[-]Only one counter left, and started linkked counter operation.") extendCounterObjs=nil updateContextMenu() return getTotalValue() end if meCounterIndex == nil then printToAll("[ff0000]ERROR:[-]did not find index of counter."); return nil,nil,nil end local var=0 i=#extendCounterObjs local minus if extendCounterCoin == nil then minus=false else local vec=vectorRotate(Vector(0,1,0),extendCounterCoin.getRotation()) if vec.y <= -0.15 then minus=false != invertcoin elseif vec.y >= 0.15 then minus=true != invertcoin else minus=false != invertcoin end end while i >= 1 do var=math.abs(tonumber(extendCounterObjs[i].getValue()) or 0) + var * 10000 i=i-1 end return (minus and -var or var),minus,meCounterIndex end end function setTotalValue(tab) local var,minus if type(tab).."" == "table" then if #tab >= 1 then var=tab[1] end if #tab >= 2 then minus=tab[2] end else log("setTotalValue:not a table") end if extendCounterObjs == nil then if minus == nil then minus=var < 0 end if minus and extendCounterCoin == nil then var=math.abs(var) % (minus and 1000 or 10000) elseif extendCounterCoin != nil then var=math.abs(var) % 10000 local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end if extendCounterCoin == nil then self.setValue(minus and -var or var) else self.setValue(var) end else if minus == nil then minus=var < 0 end var=var % math.pow(10000,#extendCounterObjs) if minus and extendCounterCoin == nil then var=math.pow(10000,#extendCounterObjs) - var elseif extendCounterCoin != nil then local tmpminus if invertcoin then tmpminus=not minus else tmpminus=minus end if coinzero == -2 and var == 0 then extendCounterCoin.setRotation(Vector(0,0,90)) elseif tmpminus then extendCounterCoin.setRotation(Vector(0,0,0)) else extendCounterCoin.setRotation(Vector(0,0,180)) end end i=#extendCounterObjs while i >= 1 do extendCounterObjs[i].setValue(math.floor(var/math.pow(10000,i-1)) % 10000) i=i-1 end end end function button(obj, col, alt_click, index) local list=self.getButtons() local var,minus,meCounterIndex=getTotalValue() local currlabel=list[index+1].label local oplett=string.sub(currlabel,1,1) local addable=numinter(string.sub(currlabel,2),0) var,minus=rawCalcOperation(oplett,var,addable * math.pow(10000,meCounterIndex-1),minus,false) setTotalValue({var,minus}) end function wrapCalcOperation(tab) local a,b,c,d,e if type(tab).."" == "table" then if #tab >= 1 then a=tab[1] end if #tab >= 2 then b=tab[2] end if #tab >= 3 then c=tab[3] end if #tab >= 4 then d=tab[4] end if #tab >= 5 then e=tab[5] end for name, item in pairs(tab) do if name == "oplett" then a=item elseif name == "var" then b=item elseif name == "addable" then c=item elseif name == "minus" then d=item elseif name == "addmeg" then e=item end end local var,minus=rawCalcOperation(a,b,c,d,e) return var,minus else log("wrapCalcOperation:not a table") return nil,nil end end function rawCalcOperation(oplett,var,addable,minus,addneg) if minus == nil then if var < 0 then minus=true else minus=false end end if addneg == nil then if addable < 0 then addneg=true else addneg=false end end if isOperator(oplett) then -- if oplett == "+" or oplett == "-" then -- if oplett == "-" and minus then -- oplett="+" -- elseif oplett == "+" and minus then -- oplett="-" -- end -- end else log("rawCalcOperation:Wrong operator") end if minus == addneg then local pah if oplett == "-" and minus then oplett = "+" end pah,var=isOperator(oplett,var,addable) else local pah if oplett == "-" then oplett = "+" elseif oplett == "+" then oplett = "-" end if minus then -- addable positive, var negative pah,var=isOperator(oplett,var,addable) else -- addable negative, var positive pah,var=isOperator(oplett,var,addable) end end if coinzero == 0 then if var < 0 then minus=not minus end elseif coinzero == -1 then if var < 0 then minus=not minus elseif 0 == var then minus=true end elseif coinzero == 1 then if var < 0 then minus=not minus elseif 0 == var then minus=false end elseif coinzero == 2 then if var >= 0 then minus=not minus end elseif coinzero == -2 then if var < 0 then minus=not minus end end return math.abs(var),minus end function isOperator(str,a,b) if type(str).."" == "string" then if string.len(str) == 1 then if type(a).."" == "number" and type(b).."" == "number" then a,b=math.abs(a),math.abs(b) if str == "+" then return true,a+b elseif str == "-" then return true,a-b elseif str == "*" then local pa,pb=a%100000000,b%100000000 local ba,bb=(a-pa)/100000000,(b-pb)/100000000 return true,pa*pb + ((ba*pb)%100000000)*100000000 + ((bb*pa)%100000000)*100000000 elseif str == "/" then return true,math.floor(a/b) elseif str == "&" then local ta,tb=a,b local i=0 local num=0 while ta != 0 and tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == cb and ca == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "|" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if ca == 1 or cb == 1 then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "^" then local ta,tb=a,b local i=0 local num=0 while ta != 0 or tb != 0 do local ca,cb=ta%2,tb%2 ta,tb=(ta-ca)/2,(tb-cb)/2 if (ca == 1 and cb == 0) or (ca == 0 and cb == 1) then num=num+math.pow(2,i) end i=i+1 end return true,num elseif str == "%" then return true,a%b elseif str == "<" then if b == 0 then return true,a end return true,a * math.pow(2,b) elseif str == ">" then if b == 0 then return true,a end return true,math.floor(a / math.pow(2,b)) elseif str == "p" then return true,math.floor(math.pow(a,b)) elseif str == "r" then return true,math.floor(math.pow(a,1.0/b)) end else if str == "+" then return true end if str == "-" then return true end if str == "*" then return true end if str == "/" then return true end if str == "&" then return true end if str == "|" then return true end if str == "^" then return true end if str == "%" then return true end if str == "<" then return true end if str == ">" then return true end if str == "p" then return true end if str == "r" then return true end end else log("isOperator:only one mark accepted ("..str..")") end else log("isOperator:only strings (of one character) accepted") end return false end function numinter(num,default,indentify) if type(num).."" == "number" then return num end if type(num).."" == "string" then local check="0123456789abcdefghijklmnopqrstuvwxyz" local out=nil if string.sub(num,1,1) == "0" then --hex or octaconal if string.sub(num,2,2) == "x" then --hex (base 16) if indentify then return "x" end local i=3 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:hex:not regonized character (".. c ..")"); elseif f >= 1 and f <= 16 then out=(out or 0) * 16 + f - 1 else log("numinter:hex:character out of bounds (".. (f-1) .. ")") end i=i+1 end else --octaconal (base 8) if indentify then return "0" end local i=2 local slen=string.len(num) while i <= slen do local c=string.sub(num,i,i) local f=string.find(check,c) if f == nil then log("numinter:octa:not regonized character (".. c ..")"); elseif f >= 1 and f <= 8 then out=(out or 0) * 8 + f - 1 else log("numinter:octa:character out of bounds (".. (f-1) .. "),(".. c ..")") end i=i+1 end end else if indentify then return "1" end out=tonumber(num) end if out == nil then return default else return out end end return default end function readDesc() local buttonlist={} local whatlist={} local desc=self.getDescription() or "" local txtstep=string.find(desc,",",1,true) if txtstep != nil then local prevstep repeat local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),txtstep-1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end prevstep=txtstep txtstep=string.find(desc,",",txtstep+1,true) until txtstep == nil or txtstep == string.len(desc) if textstep == nil then local poper=string.sub(desc,(prevstep or 0)+1,(prevstep or 0)+1) local test=isOperator(poper) local num=string.sub(desc,(prevstep or 0)+1+(test and 1 or 0),string.len(desc)) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end elseif string.len(desc) > 0 then local poper=string.sub(desc,1,1) local test=isOperator(poper) local num=string.sub(desc,test and 2 or 1) or "" if string.len(num) != 0 then if test then table.insert(whatlist,poper) else table.insert(whatlist,"") end table.insert(buttonlist,num) end end return buttonlist,whatlist end function makecopytab(tab,depth) local mydepth=depth or 0 if mydepth < 0 then log("this should not have been called. makecopytab") log(tab) return nil end local newtab={} if type(tab).."" == "table" then for x, val in pairs(tab) do if type(x).."" == "number" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then table.insert(newtab,x,Vector(tab[x])) else if mydepth > 0 then table.insert(newtab,x,makecopytab(tab[x],mydepth-1)) else table.insert(newtab,x,{}) end end else table.insert(newtab,x,tab[x]) end elseif type(x).."" == "string" then if type(tab[x]).."" == "table" then if type(tab[x].x).."" == "number" and type(tab[x].y).."" == "number" and type(tab[x].z).."" == "number" then newtab[x]=Vector(tab[x]) else if mydepth > 0 then newtab[x]=makecopytab(tab[x],mydepth-1) else newtab[x]={} end end else newtab[x]=tab[x] end end end else return tab end return newtab end function vectorRotate(vec,rot) return vec:rotateOver("z",rot.z):rotateOver("x",rot.x):rotateOver("y",rot.y) end function vectorIRotate(vec,rot) return vec:rotateOver("y",rot.y):rotateOver("x",rot.x):rotateOver("z",rot.z) end function vectorToLocal(target,objvec,objscale,objrot) local copy=Vector(target) copy=copy-(objvec or Vector(0,0,0)) copy=vectorIRotate(copy,(objrot or Vector(0,0,0)):inverse()) local tmp=objscale or Vector(1,1,1) copy=Vector(copy.x / tmp.x,copy.y / tmp.y, copy.z / tmp.z) return copy end function wrapVectorToLocal(tab) return vectorToLocal(tab[1],tab[2],tab[3],tab[4]) end function findInRadiusBy(pos, radius, func, debug) --by MrStump https://steamcommunity.com/sharedfiles/filedetails/?id=752690530&searchtext=lua --if DEBUG then log(" findInRadiusBy(): just called") end local radius = (radius or 1) local objList = Physics.cast({ origin=pos, direction={0,1,0}, type=2, size={radius,radius,radius}, max_distance=0, debug=(debug or false) }) local refinedList = {} for _, obj in ipairs(objList) do if func == nil then if obj.hit_object.type != "Surface" then -- Finaryman Mod table.insert(refinedList, obj.hit_object) end else if func(obj.hit_object) and obj.hit_object.type != "Surface" then --Finaryman Mod table.insert(refinedList, obj.hit_object) end end end return refinedList endLuaScriptState[]XmlUI