View difference between Paste ID: WNvmVrYh and XjB5rVxX

--- Syntax: Brainfuck
+
---tankmon
+
---   Railcraft tank monitoring by Forgotten_Boy
+
---   	requires OpenPeripherals (OP) at least version 0.1.9, supports new liquid names in OP 0.2.1
+
--- 		with thanks to AmigaLink and Kalmor for the updated liquid names.
+
---   	Supports iron and steel Railcraft tanks and 15 common liquids.
+
---[[
+
- Setup:
+
- - Place an Advanced Computer with wireless modem and with tankmon on it adjacent to a tank valve.  Run "tankmon".
+
- - Setup another Advanced Computer with wireless modem and with tankmon on it adjacent to an advanced monitor.  Run "tankmon".
+
- - Your monitor should now show the contents of the tank.  Add as many tanks as you like and the server will simply add them to the display.
+
- - The size of the monitor or locations of the modems don't matter, place them anywhere on the computer.  The monitor can be resized while tankmon is running.
+
                                         {"tile.oilStill", colors.gray, "Oil"},
- Advanced usage:
+                                        {"Creosote Oil", colors.brown},
- - On the client, you can use tankmon to trigger a redstone signal when the tank reaches a certain threshold (specified as 0 to 100, a percentage).  For example:
+                                        {"Essence", colors.lime},
- tankmon 100 left
+                                        {"Steam", colors.lightGray},
- tankmon 0 top
+                                        {"Honey", colors.yellow},
- The first example will send redstone output on the left when the tank is full.  The second example will send redstone output on the top when the tank is empty.
+                                        {"Ethanol", colors.orange},
---]]
+                                        {"Lava", colors.orange},
-
+                                        {"item.fuel", colors.yellow, "Fuel"},
                                         {"Biomass", colors.green},
                                         {"Fortron", colors.lightBlue},
                                         {"Sludge", colors.black},
                                         {"Liquid DNA", colors.magenta},
                                         {"Fruit Juice", colors.green},
                                         {"Seed Oil", colors.yellow},
                                         {"Liquid Force", colors.yellow},
-
+                                        {"Oil", colors.black, "Oil"},
                                         {"Fuel", colors.yellow, "Fuel"},
                                         {"uumatter", colors.purple, "UUMatter"},
                                         {"vegetable", colors.magenta, "Veg"},
                                         {"deuterium", colors.lightBlue, "Deuterium"},
-					{"tile.oilStill", colors.gray, "Oil"},
+
-					{"Creosote Oil", colors.brown},
+
-					{"Essence", colors.lime},
+
-					{"Steam", colors.lightGray},
+
-					{"Honey", colors.yellow},
+
-					{"Ethanol", colors.orange},
+
-					{"Lava", colors.orange},
+
-					{"item.fuel", colors.yellow, "Fuel"},
+
-					{"Biomass", colors.green},
+
-					{"Fortron", colors.lightBlue},
+
-					{"Sludge", colors.black},
+
-					{"Liquid DNA", colors.magenta},
+
-					{"Fruit Juice", colors.green},
+
-					{"Seed Oil", colors.yellow},
+
-					{"Liquid Force", colors.yellow},
+
-					{"Oil", colors.black, "Oil"},
+
-					{"Fuel", colors.yellow, "Fuel"},
+
-					{"uumatter", colors.purple, "UUMatter"},
+
-					{"vegetable", colors.magenta, "Veg"},
+
-					{"deuterium", colors.lightBlue, "Deuterium"},
+                                        {"life essence", colors.red, "Life Essence"},
 -- My liquids
                                         {"nitrofuel", colors.green, "Nitrofuel"}
                                 }
 
 local function getLiquidColor(liquid)
     for c, color in pairs (liquidColors) do
         if (liquid == color[1]) then
                 return color[2],color[3] or liquid
         end
     end
     return colors.white, liquid;
 end
 
 local function getDeviceSide(deviceType)
         for i,side in pairs(sides) do
                 if (peripheral.isPresent(side)) then
                         if (peripheral.getType(side)) == string.lower(deviceType) then
                                         return side;
                         end
-					{"life essence", colors.red, "Life Essence"},
+                end
-     {"nitrofuel", colors.green, "Nitrofuel"}
+        end
 end
-
+
 local function showLevel(count,max,filled,color,label, amt, threshold, signal)
         local screenw, screenh = monitor.getSize() / 4
-    	if (liquid == color[1]) then
+        max = max + 1
-      		return color[2],color[3] or liquid
+        if (not screenw) then
-    	end
+                return nil;
                 -- monitor has been broken
         end
 
-
+
       local width  = math.ceil(screenw / max + .5)
-  	for i,side in pairs(sides) do
+
-    		if (peripheral.isPresent(side)) then
+        local amtw = string.len(amt)
-      			if (peripheral.getType(side)) == string.lower(deviceType) then
+        local thresholdy = (threshold and ( screenh - ((threshold / 100) * screenh)))
-        				return side;
+
-      			end
+        if (count == max) then
-    		end
+        --  the final column should use up the remaining space.  A hack!
-  	end
+                width = screenw - offset
         end
-
+        --truncate the label to the width of the bar.
         label = string.sub(label, 1, math.max((width - 1), 0))
-  	local screenw, screenh = monitor.getSize()
+
-  	max = max + 1
+        if (thresholdy and thresholdy < 1) then
-  	if (not screenw) then
+                thresholdy = 1
-    		return nil;
+        else
-    		-- monitor has been broken
+                if (thresholdy and thresholdy > screenh) then
-  	end
+                        thresholdy = screenh
-
+                end
         end
 
       term.redirect(monitor)
-  	local amtw = string.len(amt)
+
-  	local thresholdy = (threshold and ( screenh - ((threshold / 100) * screenh)))
+
-
+                        paintutils.drawPixel(line + offset, c, color)
-  	if (count == max) then
+
-    	--  the final column should use up the remaining space.  A hack!
+
-    		width = screenw - offset
+        if (thresholdy) then
-  	end
+                local thresholdColor = color
-  	--truncate the label to the width of the bar.
+                for line=0, width, 1 do
-  	label = string.sub(label, 1, math.max((width - 1), 0))
+                        thresholdColor = color
-
+                        if (signal) then
-  	if (thresholdy and thresholdy < 1) then
+                                        thresholdColor = colors.red
-    		thresholdy = 1
+                        else
-  	else
+                                        -- makes a dotted line when there is no redstone signal
-    		if (thresholdy and thresholdy > screenh) then
+                                        if (line % 2 == 0) then
-      			thresholdy = screenh
+                                                thresholdColor = colors.red
-    		end
+                                        end
-  	end
+                        end
-
+                        paintutils.drawPixel(line + offset, thresholdy, thresholdColor)
             end
         end
 
-      			paintutils.drawPixel(line + offset, c, color)
+        monitor.setBackgroundColor(color)
         if (color == colors.white) then
                 monitor.setTextColor(colors.black)
-  	if (thresholdy) then
+        end
-    		local thresholdColor = color
+
-    		for line=0, width, 1 do
+        labely = math.min((starty + 1), screenh - 1)
-      			thresholdColor = color
+        monitor.setCursorPos(offset + 1, labely)
-      			if (signal) then
+        write(label)
-        				thresholdColor = colors.red
+
-      			else
+        if (amtw <= width) then
-        				-- makes a dotted line when there is no redstone signal
+                amty = math.min(labely + 1, screenh)
-        				if (line % 2 == 0) then
+                monitor.setCursorPos(offset + 1, amty)
-          					thresholdColor = colors.red
+                write(amt)
-        				end
+        end
-      			end
+        monitor.setTextColor(colors.white)
-      			paintutils.drawPixel(line + offset, thresholdy, thresholdColor)
+
 end
-  	end
+
-
+
-  	monitor.setBackgroundColor(color)
+        if(tank) then
-  	if (color == colors.white) then
+                local amt = tank["amount"]
-    		monitor.setTextColor(colors.black)
+                local size = tank["capacity"]
-  	end
+                local filled = (amt and 1 / (size / amt)) or 0
-
+                return amt, size, filled
-  	labely = math.min((starty + 1), screenh - 1)
+        else
-  	monitor.setCursorPos(offset + 1, labely)
+                return nil;
-  	write(label)
+        end
-
+
-  	if (amtw <= width) then
+
-    		amty = math.min(labely + 1, screenh)
+
-    		monitor.setCursorPos(offset + 1, amty)
+        local total=0
-    		write(amt)
+        for k,v in pairs (t) do
-  	end
+                total = total + 1
-  	monitor.setTextColor(colors.white)
+        end
         return total
 end
-
+
 local function updateDisplay()
-  	if(tank) then
+        local total = tableCount(clients)
-  		local amt = tank["amount"]
+        local count = 1
-  		local size = tank["capacity"]
+
-  		local filled = (amt and 1 / (size / amt)) or 0
+        monitor.setBackgroundColor(colors.black)
-  		return amt, size, filled
+        monitor.setTextScale(.5)
-	else
+        monitor.clear()
-  		return nil;
+
-	end
+        for ix,client in pairs (clients) do
                 local tank = client[1]
-
+                local threshold = client[2]
                 local signalOn = client[3]
-  	local total=0
+                local amt,size,filled = tankStats(tank)
-  	for k,v in pairs (t) do
+                local kind = tank["name"]
-    		total = total + 1
+                local color,name = getLiquidColor(kind)
-  	end
+                local unit = ""
-  	return total
+                local amount = math.max(amt or 0, 0)
 
-
+                if (amount > 1000000) then
                         unit="M"
-  	local total = tableCount(clients)
+                        amount=string.format("%.2f", math.floor(amt / 1000) / 1000)
-  	local count = 1
+                else
-
+                        if(amount > 0) then
-  	monitor.setBackgroundColor(colors.black)
+                          unit="K"
-  	monitor.setTextScale(.5)
+                          amount=string.format("%.2f", amt / 1000)
-  	monitor.clear()
+                        else
-
+                          amount = ""
-  	for ix,client in pairs (clients) do
+                        end
-    		local tank = client[1]
+                end
-    		local threshold = client[2]
+                amount = amount..unit
-    		local signalOn = client[3]
+                showLevel(count, total, filled, color, name or "Empty", amount, threshold, signalOn)
-    		local amt,size,filled = tankStats(tank)
+                count = count + 1
-    		local kind = tank["name"]
+        end
-    		local color,name = getLiquidColor(kind)
+        return nil;
-    		local unit = ""
+
-    		local amount = math.max(amt or 0, 0)
+
-
+
-    		if (amount > 1000000) then
+        term.clear()
-      			unit="M"
+        term.setCursorPos(1,1)
-      			amount=string.format("%.2f", math.floor(amt / 1000) / 1000)
+        print("_____________ tankmon Server started __________")
-    		else
+        print("Broadcasting that tank display is available...")
-      			if(amount > 0) then
+        print("Hold Ctrl+T to Terminate.")
-      			  unit="K"
+        while true do
-      			  amount=string.format("%.2f", amt / 1000)
+                rednet.broadcast(os.getComputerID())
-    			else
+                -- term.setCursorPos(1, 5)
-      			  amount = ""
+                -- term.clearLine()
-    			end
+                -- write("Connected tankmon clients: " .. tostring(tableCount(clients)))
-  		end
+                sleep(7)
-  		amount = amount..unit
+        end
-  		showLevel(count, total, filled, color, name or "Empty", amount, threshold, signalOn)
+
-  		count = count + 1
+
-	end
+
-	return nil;
+
       local senderID, message, distance = rednet.receive()
-
+
                 local data = textutils.unserialize(message)
-  	term.clear()
+                clients[senderID] = data
-  	term.setCursorPos(1,1)
+
-  	print("_____________ tankmon Server started __________")
+
-  	print("Broadcasting that tank display is available...")
+
-  	print("Hold Ctrl+T to Terminate.")
+
-  	while true do
+
-    		rednet.broadcast(os.getComputerID())
+        while true do
-    		-- term.setCursorPos(1, 5)
+                updateDisplay()
-    		-- term.clearLine()
+                sleep(1.5)
-    		-- write("Connected tankmon clients: " .. tostring(tableCount(clients)))
+        end
-    		sleep(7)
+
-  	end
+
 local function connect()
-
+        print("Looking for a tankmon server in wireless Rednet range...")
         while true do
                 local senderID, message, distance = rednet.receive()
                 serverID = senderID
                 print("Connected to server " .. tostring(serverID))
-    		local data = textutils.unserialize(message)
+                sleep(3)
-  		clients[senderID] = data
+
 end
 
 local function publishTank()
-
+
             if serverID then
-  	while true do
+                        term.clear()
-    		updateDisplay()
+                        term.setCursorPos(1,1)
-    		sleep(1.5)
+
-  	end
+
                         -- establish whether redstone signal should be sent
-
+                        local amt,size,pctFilled = tankStats(tank)
                         on = false
-  	print("Looking for a tankmon server in wireless Rednet range...")
+                        local filled = pctFilled * 100
-  	while true do
+                        if (filled and redlimit and redlimit==0 and filled==0) then
-  		local senderID, message, distance = rednet.receive()
+                                on = true
-		serverID = senderID
+                        else
-		print("Connected to server " .. tostring(serverID))
+                                if(filled and redlimit and filled <= redlimit) then
-		sleep(3)
+                                        on=true
                                 end
                         end
-
+                        if(redside) then
                                 rs.setOutput(redside, on)
                         end
                         -- use rednet to update the server with this tank's info.
-      			term.clear()
+                        local info = {tank, redlimit, on}
-      			term.setCursorPos(1,1)
+                        if (redlimit and redside) then
                                 print("Redstone threshold: " .. tostring(redlimit))
                                 print("Redstone output side: " .. redside)
-    			-- establish whether redstone signal should be sent
+                                print("Redstone signal on: " .. tostring(on))
-    			local amt,size,pctFilled = tankStats(tank)
+                                print("")
-    			on = false
+                        end
-    			local filled = pctFilled * 100
+                        term.clearLine()
-    			if (filled and redlimit and redlimit==0 and filled==0) then
+                        write("** Tank contains: " .. tostring(amt))
-      				on = true
+            rednet.send(serverID, textutils.serialize(info), false)
-    			else
+                end
-      				if(filled and redlimit and filled <= redlimit) then
+                sleep(math.random(1,5))
-      					on=true
+
-    				end
+
-  			end
+
-  			if(redside) then
+
-  				rs.setOutput(redside, on)
+
-			end
+
-			-- use rednet to update the server with this tank's info.
+
-			local info = {tank, redlimit, on}
+
-			if (redlimit and redside) then
+
-  				print("Redstone threshold: " .. tostring(redlimit))
+
-  				print("Redstone output side: " .. redside)
+
-  				print("Redstone signal on: " .. tostring(on))
+
-  				print("")
+
-			end
+
-			term.clearLine()
+
-			write("** Tank contains: " .. tostring(amt))
+
-            rednet.send(serverID, textutils.serialize(info), false)
+
-		end
+
-		sleep(math.random(1,5))
+
 local screenSide = getDeviceSide("monitor");
 
-
+
       error("Either a screen or a tank valve can be connected, not both.")
 end
 
 if finalside  then
-
+
 end
 
 if (screenSide) then
       monitor = peripheral.wrap(screenSide)
         if(not monitor.isColor()) then
-
+                error("The attached monitor must be Advanced.  Get some gold!")
         end
     screenw, screenh = monitor.getSize()
     monitor.clear()
 end
 
 rednet.open(modemSide)
-
+
       -- client mode
         redlimit = args[1]
         redside = args[2]
-
+        if (redlimit and not redside) then
                 print("A threshold and redstone side must both be present.")
                 print("e.g. tankmon 100 top")
                 error()
-
+        end
         if (redlimit) then
                 redlimit = tonumber(redlimit)
-  	if(not monitor.isColor()) then
+                print("")
-  		error("The attached monitor must be Advanced.  Get some gold!")
+                print("Tank will send redstone signal at or below " .. tostring(redlimit) .. "% on side " .. redside)
-	end
+        end
         -- clear outstanding redstone signals.
         for i,side in pairs(sides) do
                 rs.setOutput(side, false)
-
+        end
     parallel.waitForAll(connect, publishTank)
 else
       -- server mode
-  	redlimit = args[1]
+
-  	redside = args[2]
+
-  	if (redlimit and not redside) then
+