API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 10th, 2014
247
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 17.35 KB | None | 0 0
raw download clone embed print report diff
  1. -- supported: macerator,electric furnace,extractor,compressor,
  2. -- supported: ore washing,thermal centrifuge, metal former,canning,
  3. -- supported: recycler,powered furnace,pulverizer,sawmill, induction smelter
  4. -- supported: batbox,mfe,cesu,mfsu,capacitor bank
  5. -- supported: RC tanks, OpenBlock Tank, Dynamic Tank (Mekanism), raintank,
  6. -- supported: me controller
  7. -- MC 1.6.4
  8. -- bitowa paleta kolorów.
  9. local palette = {["white"] = 1, ["orange"] = 2, ["magenta"] = 4, ["lightBlue"] = 8, ["yellow"] = 16,
  10. ["lime"] = 32, ["pink"] = 64, ["gray"] = 128, ["lightGray"] = 256, ["cyan"] = 512, ["purple"] = 1024,
  11. ["blue"] = 2048, ["brown"] = 4096, ["green"] = 8192, ["red"] = 16384, ["black"] = 32768}
  12.  
  13. -- *** CONFIG **
  14. -- zmienne
  15. local version = "0.6.5"
  16.  
  17. local activeMsg, inactiveMsg, pendingMsg = "USING", "IDLE", "PENDI"
  18. local textSize = 1
  19. local name_mfsu = "BatBox"
  20. -- Monitory
  21. local powerMon = "monitor_0" -- pierwszy monitor "ENERGIA i MASZYNY"
  22. local tankMon = "monitor_1" -- drugi monitor "Tanki RC"
  23. local AEMon = "monitor_2" -- monitor AE
  24. local machMon = "monitor_3"
  25. local monitor_0 = peripheral.wrap(powerMon)
  26. local monitor_1 = peripheral.wrap(tankMon)
  27. local monitor_2 = peripheral.wrap(AEMon)
  28. local monitor_3 = peripheral.wrap(machMon)
  29. monitor_0.clear()
  30. monitor_1.clear()
  31. monitor_2.clear()
  32. monitor_3.clear()
  33. monitor_0.setTextScale(textSize)
  34. monitor_1.setTextScale(textSize)
  35. monitor_2.setTextScale(textSize)
  36. monitor_3.setTextScale(textSize)
  37. -- Maszyny --
  38. -- IC2
  39. local name_comp = "COMPRESSOR"
  40. local name_furnace = "E.FURNACE"
  41. local name_ext = "EXTRCTOR"
  42. local name_mace = "MACERTOR"
  43. local name_recycler = "RECYCLR"
  44. local name_canning = "CAN_MCHINE"
  45. local name_washer = "ORWASHR"
  46. local name_centrifuge = "THR. CENTRI"
  47. local name_former = "METAL FOREM"
  48. local name_recycler = "RECYCLER"
  49. -- GT
  50. local name_pbm = "PLATE BEND.M."
  51. local name_asseM = "ASSEMBL M."
  52. local name_ind_grin = "IND.GRINDER"
  53. local name_ind_BF = "BLAST.FURN."
  54. -- TE
  55. local name_REC = "ENERGY CELL"
  56. local name_pow_furnance = "POW.FURNANCE"
  57. local name_pulverizer = "PULVERIZER"
  58. local name_sawmill = "SAWMILL"
  59. local name_ind_smel = "IND.SMELTER"
  60.  
  61. -- Kolory
  62. local hc = palette.lightBlue -- domyslny kolor nagłówka
  63. local tc = palette.white -- domyslny kolor textu
  64. local color_reading = palette.lime
  65. local color_inactive = palette.gray
  66. local color_active = palette.lime
  67. local color_machines = palette.orange
  68. local color_ores = palette.pink
  69. -- Pozycje tekstów
  70. local pwrX_Reading = 25
  71. local machineDisplayXPos = 14
  72. local offsetPos = 2
  73. local mStatusPos = 28
  74. local orePos = 36
  75. -- SPECIAL CHARACTERS
  76. local separator = " | "
  77. local spacer = " : "
  78. -- Inne ustawienia
  79. local waitTime = {9,13}
  80. local timer = {0,0,0,0,0,0,0,0,0,0,0}
  81. local supported_Power = {"mfsu","mfe","batbox", "redstone_energy_cell"} --brak
  82. local supported_Machines = {"macerator","electric_furnace", "extractor", "compressor", "orewashing","thermalcentrifuge", "metalformer", "canning", "recycler", "tile_thermalexpansion_machine_furnace_name", "tile_thermalexpansion_machine_pulverizer_name", "tile_thermalexpansion_machine_sawmill_name", "tile_thermalexpansion_machine_smelter_name"}
  83. local sleepTime = 3
  84. local numFormat = 1
  85. -- sloty maszyn --
  86. local ic2ItemUsed = 7
  87. local ic2ItemCreated = 1
  88. local gtItemInput = 2
  89. local gtItemInd = 0
  90. local teItemInput = 0
  91. local oreWashItemUsed = 9
  92. local thermCentrItemUsed = 9
  93. -- Load API ---
  94. if fs.exists("enu") then else shell.run("pastebin get Mpk9yubJ enu") end
  95.  
  96.  
  97. os.loadAPI("enu")
  98. ---------------
  99.  
  100. term.clear()
  101.  
  102. function upMachines(mnitPeri)
  103. term.clear()
  104. term.setCursorPos(1,1)
  105. machines = peripheral.getNames()
  106. table.sort(machines)
  107. if mnitPeri then
  108. for k, v in pairs(machines) do
  109. print(tostring(k)..": "..tostring(v))
  110. end
  111. end
  112. end
  113. function procenty(capa, stor)
  114. if capa and stor ~= 0 then
  115. local proc = 100 / capa * stor
  116. local a = math.floor(proc*1000 + 0.5)/ 1000
  117. tempProc = string.format("%.2f",a)
  118. else
  119. tempProc = 0
  120. end
  121. return tempProc
  122. end
  123. function advList(getPeriph) -- lista dostepnych funkcji dla perip.
  124. uused = getPeriph["getAdvancedMethodsData"]()
  125. for key, value in pairs(uused) do
  126. print(value.name)
  127. sleep(1)
  128. end
  129. end
  130.  
  131. function disTankBar(tankProc,monBar,x1PosBar,x2PosBar,yPosBar)
  132. monBar.setCursorPos(x1PosBar,yPosBar)
  133. lengBar = x2PosBar - x1PosBar
  134. widthBar = lengBar / 100 * tankProc
  135. monBar.write("|")
  136. if tankProc <= 29 then
  137. monBar.setBackgroundColor(colors.red)
  138. elseif tankProc >= 30 and tankProc <= 79 then
  139. monBar.setBackgroundColor(colors.lime)
  140. elseif tankProc >= 80 and tankProc <= 99 then
  141. monBar.setBackgroundColor(colors.green)
  142. elseif tankProc >= 100 then
  143. monBar.setBackgroundColor(colors.blue)
  144. end
  145.  
  146. for k = x1PosBar, x1PosBar + widthBar do
  147. monBar.write(" ")
  148. end
  149.  
  150. monBar.setBackgroundColor(colors.black)
  151. monBar.setCursorPos(x2PosBar + 2,yPosBar)
  152. monBar.write("|")
  153. end
  154.  
  155. machines = peripheral.getNames()
  156. table.sort(machines)
  157.  
  158. -- MONITOR 1 x,y Pos
  159. local machinesInfoCol = 1
  160.  
  161. -- MONITOR 2 x,y Pos
  162. local tankPosStart = 1
  163.  
  164. -- *** FUNKCJE ***
  165. function pFormat(pName) -- formatowanie nazwy
  166. if string.find(pName, "compressor") then pName = name_comp
  167. elseif string.find(pName, "electric_furnace") then pName = name_furnace
  168. elseif string.find(pName, "extractor") then pName = name_ext
  169. elseif string.find(pName, "macerator") then pName = name_mace
  170. elseif string.find(pName, "canning") then pName = name_canning
  171. elseif string.find(pName, "recycler") then pName = name_recycler
  172. elseif string.find(pName, "former") then pName = name_former
  173. elseif string.find(pName, "orewashing") then pName = name_washer
  174. elseif string.find(pName, "thermalcentrifuge") then pName = name_centrifuge
  175. elseif string.find(pName, "batbox") then pName = name_mfsu
  176. elseif string.find(pName, "cofh_thermalexpansion_energycell") then pName = name_REC
  177. elseif string.find(pName, "tile_thermalexpansion_machine_furnace_name") then pName = name_pow_furnance
  178. elseif string.find(pName, "tile_thermalexpansion_machine_pulverizer_name") then pName = name_pulverizer
  179. elseif string.find(pName, "tile_thermalexpansion_machine_sawmill_name") then pName = name_sawmill
  180. elseif string.find(pName, "tile_thermalexpansion_machine_smelter_name") then pName = name_ind_smel
  181. end
  182. return pName
  183. end
  184.  
  185. function dispAE()
  186. monitor_2.setCursorPos(offsetPos,2)
  187. local AEy = 14
  188. for j=1, #machines do
  189. -- AE
  190. if string.find(machines[j], "appeng_me_tilecontroller") then
  191. AEperiph = peripheral.wrap(machines[j])
  192.  
  193. local storedAE = AEperiph["getUnusedBytes"]()
  194. local capacityAE = AEperiph["getTotalBytes"]()
  195. local itemCountAE = AEperiph["getStoredItemCount"]()
  196. local itemSTypeAE = AEperiph["getStoredItemTypes"]()
  197. local itemTTypeAE = AEperiph["getTotalItemTypes"]()
  198.  
  199. local aeJobs = AEperiph["getJobList"]()
  200.  
  201. enu.appendString(AEMon, tc, " Memory Stored " .. separator, true, offsetPos, 3)
  202. enu.appendString(AEMon, color_reading, (enu.dot(storedAE)), false, pwrX_Reading, 3)
  203. enu.appendString(AEMon, tc, " Memory State " .. separator, true, offsetPos, 4)
  204. enu.appendString(AEMon, color_reading, procenty(capacityAE,storedAE).."%", false, pwrX_Reading, 4)
  205. enu.appendString(AEMon, tc, " Memory Capacity " .. separator, true, offsetPos, 5)
  206. enu.appendString(AEMon, color_reading, (enu.dot(capacityAE)), false, pwrX_Reading,5 )
  207.  
  208. enu.appendString(AEMon, tc, " Items " .. separator, true, offsetPos, 7)
  209. enu.appendString(AEMon, color_reading, (enu.dot(itemCountAE)), false, pwrX_Reading,7 )
  210.  
  211. enu.appendString(AEMon, tc, " Stored Types " .. separator, true, offsetPos, 9)
  212. enu.appendString(AEMon, color_reading, (enu.dot(itemSTypeAE)), false, pwrX_Reading,9 )
  213. enu.appendString(AEMon, tc, " Stored Types State " .. separator, true, offsetPos, 10)
  214. enu.appendString(AEMon, color_reading, procenty(itemTTypeAE,itemSTypeAE).."%", false, pwrX_Reading,10)
  215. enu.appendString(AEMon, tc, " Total Types " .. separator, true, offsetPos, 11)
  216. enu.appendString(AEMon, color_reading, (enu.dot(itemTTypeAE)), false, pwrX_Reading,11)
  217.  
  218. enu.appendString(AEMon, tc, " Currently Crafting:" .. separator, true, offsetPos, 13)
  219. for key, value in pairs(aeJobs) do
  220. enu.appendString(AEMon, palette.lightBlue,tostring(value.qty), false, 4,AEy )
  221. enu.appendString(AEMon, palette.lightBlue,"- "..value.name, false,12 ,AEy )
  222. AEy = AEy +1
  223. end
  224. end
  225. end
  226. for i=1,10,1 do
  227. monitor_2.setCursorPos(1,AEy)
  228. monitor_2.clearLine()
  229. AEy = AEy + 1
  230. end
  231. end
  232.  
  233. function dispTanks()
  234. monitor_1.setCursorPos(offsetPos,2)
  235.  
  236. for i=1, #machines do
  237. -- Tanks
  238. if string.find(machines[i], "rcirontankvalvetile")
  239. or string.find(machines[i], "rcsteeltankvalvetile")
  240. or string.find(machines[i], "openblocks_tank")
  241. or string.find(machines[i], "tile_basicblock_dynamic_valve_name")
  242. or string.find(machines[i], "factory2_1")
  243. or string.find(machines[i], "water_tank") then
  244. -- print(machines[i])
  245. if peripheral.isPresent(machines[i]) then
  246. periph = peripheral.wrap(machines[i])
  247.  
  248. fluidRaw, fluidName, fluidAmount, fluidCapacity, fluidID = enu.getTank(periph)
  249.  
  250. if fluidName == nil then
  251. -- brak fluidu nie wyswietli tanka
  252. elseif fluidName ~= nil then
  253. mon2.setTextColor(tc)
  254. tankProc1 = procenty(fluidCapacity,fluidAmount)
  255. x,y = mon2.getCursorPos()
  256. monitor_1.setCursorPos(offsetPos, (y+1))
  257. mmonitor_1.clearLine()
  258. -- monitor_1.write(" (" .. fluidName .. ") : " ..enu.dot(fluidAmount) .. " / " ..enu.dot(fluidCapacity) .. " mb (" ..procenty(fluidCapacity,fluidAmount).."%)"))
  259. monitor_1.write(" (" .. fluidName .. ") : (" ..tankProc1.."%)")
  260. disTankBar(tonumber(tankProc1),mon2,28,58,(y+1))
  261. monitor_1.setCursorPos(offsetPos, (y+2))
  262. end
  263. end
  264. end
  265. end
  266. x,y = monitor_1.getCursorPos()
  267. for i=1,10,1 do
  268. y = y + 1
  269. monitor_1.setCursorPos(1,y)
  270. monitor_1.clearLine()
  271. end
  272.  
  273. end
  274.  
  275. function dispPower()
  276. local EUProc = 0
  277. local RFProc = 0
  278. local MJProc = 0
  279. local couMJM = 0
  280. local couRFM = 0
  281. local couEUM = 0
  282. local totalStorage = 0
  283. local totalCapacity = 0
  284. local totalStoredRF = 0
  285. local totalCapacityRF = 0
  286. local totalStoredMJ = 0
  287. local totalCapacityMJ = 0
  288. for i=1, #machines do
  289. if string.find(machines[i], "batbox") or string.find(machines[i], "mfsu") or string.find(machines[i], "mfe") or string.find(machines[i], "cesu") then -- IC2 Power
  290. periph = peripheral.wrap(machines[i])
  291. local storedEU = periph.getEUStored()
  292. local capacity = periph.getEUCapacity()
  293. if storedEU <= 100 then
  294. print(machines[i])
  295. end
  296. totalStorage = totalStorage + storedEU
  297. totalStorage = math.floor(totalStorage)
  298. totalCapacity = capacity + totalCapacity
  299. EUProc = procenty(totalCapacity,totalStorage)
  300. couEUM = couEUM + 1
  301. end
  302. if string.find(machines[i], "cofh_thermalexpansion_energycell") then -- TE Power
  303. periph = peripheral.wrap(machines[i])
  304.  
  305. local storedRF = periph.getEnergyStored("all")
  306. local capacityRF = periph.getMaxEnergyStored("all")
  307. if storedRF<= 100 then
  308. print(machines[i])
  309. end
  310. totalStoredRF = storedRF + totalStoredRF
  311. totalStoredRF = math.floor(totalStoredRF)
  312. totalCapacityRF = capacityRF + totalCapacityRF
  313. RFProc = procenty(totalCapacityRF,totalStoredRF)
  314. couRFM = couRFM +1
  315. end
  316. if string.find(machines[i], "blockcapacitorbank") then
  317. periph = peripheral.wrap(machines[i])
  318. --advList(periph)
  319. local storedMJ = periph.getMJStored("all")
  320. local capacityMJ = periph.getMaxEnergyStored("all")
  321. local maxMJInput = periph.getMaxMJReceived("all")
  322. local MJ = periph.getActivationEnergy("all")
  323. if storedMJ <= 100 then
  324. print(machines[i])
  325. end
  326. totalStoredMJ = storedMJ + totalStoredMJ
  327. totalStoredMJ = math.floor(totalStoredMJ)
  328. totalCapacityMJ = capacityMJ + totalCapacityMJ
  329. MJProc = procenty(totalCapacityMJ,totalStoredMJ)
  330. couMJM = couMJM +1
  331. end
  332. end
  333. enu.appendString(powerMon, palette.lime, " * EU - "..EUProc.."%" , true, offsetPos, 3)
  334. disTankBar(tonumber(EUProc),mon,23,37,3)
  335. enu.appendString(powerMon, tc, " Stored EU " .. separator, true, offsetPos, 5)
  336. enu.appendString(powerMon, color_reading, (enu.dot(totalStorage)), false, pwrX_Reading, 5)
  337. enu.appendString(powerMon, tc, " Total EU Capacity " .. separator, true, offsetPos, 6)
  338. enu.appendString(powerMon, color_reading, (enu.dot(totalCapacity)), false, pwrX_Reading,6 )
  339. enu.appendString(powerMon, tc, " Number of box " .. separator, true, offsetPos, 7)
  340. enu.appendString(powerMon, color_reading, (enu.dot(couEUM)), false, pwrX_Reading, 7)
  341. -- RF
  342. enu.appendString(powerMon, palette.lime, " * RF - "..RFProc.."%", true, offsetPos, 9)
  343. disTankBar(tonumber(RFProc),mon,23,37,9)
  344. enu.appendString(powerMon, tc, " Stored RF " .. separator, true, offsetPos, 11)
  345. enu.appendString(powerMon, color_reading, (enu.dot(totalStoredRF)), false, pwrX_Reading, 11)
  346. enu.appendString(powerMon, tc, " Total RF Capacity " .. separator, true, offsetPos, 12)
  347. enu.appendString(powerMon, color_reading, (enu.dot(totalCapacityRF)), false, pwrX_Reading, 12)
  348. enu.appendString(powerMon, tc, " Energy Cells " .. separator, true, offsetPos, 13)
  349. enu.appendString(powerMon, color_reading, (enu.dot(couRFM)), false, pwrX_Reading, 13)
  350. -- MJ
  351. enu.appendString(powerMon, palette.lime, " * MJ - "..MJProc.."%", true, offsetPos, 15)
  352. disTankBar(tonumber(MJProc),mon,23,37,15)
  353. enu.appendString(powerMon, tc, " Stored MJ " .. separator, true, offsetPos, 17)
  354. enu.appendString(powerMon, color_reading, (enu.dot(totalStoredMJ)), false, pwrX_Reading, 17)
  355. enu.appendString(powerMon, tc, " Total MJ Capacity " .. separator, true, offsetPos, 18)
  356. enu.appendString(powerMon, color_reading, (enu.dot(totalCapacityMJ)), false, pwrX_Reading, 18)
  357. enu.appendString(powerMon, tc, " Capacitor Banks " .. separator, true, offsetPos, 19)
  358. enu.appendString(powerMon, color_reading, (enu.dot(couMJM)), false, pwrX_Reading, 19)
  359. end
  360.  
  361. function dispMach()
  362. machineDispStart = 2 -- machineDisplayXPos
  363. for i=1, #machines do
  364. local m
  365. for m=1, #supported_Machines do
  366. if string.find(machines[i], supported_Machines[m]) then
  367. periphM = peripheral.wrap(machines[i])
  368.  
  369. if string.find(machines[i], "thermalcentrifuge") then
  370. itemStackUsed = periphM.getStackInSlot(thermCentrItemUsed)
  371. energyTEProc = 150
  372. elseif string.find(machines[i], "orewashing") then
  373. itemStackUsed = periphM.getStackInSlot(oreWashItemUsed)
  374. energyTEProc = 150
  375. elseif string.find(machines[i], "tile_thermalexpansion_machine_furnace_name") or string.find(machines[i], "tile_thermalexpansion_machine_pulverizer_name") or string.find(machines[i], "tile_thermalexpansion_machine_sawmill_name") or string.find(machines[i], "tile_thermalexpansion_machine_smelter_name") then
  376. itemStackUsed = periphM.getStackInSlot(1)
  377. EnergyTE = periphM["getEnergy"]()
  378. EnergyMaxTE = periphM["getMaxEnergyStored"]("all")
  379. energyTEProc = procenty(EnergyMaxTE,EnergyTE)
  380. --print(energyTEProc)
  381. elseif string.find(machines[i], "electric_furnace") or string.find(machines[i], "macerator") or string.find(machines[i], "extractor") or string.find(machines[i], "compressor")or string.find(machines[i], "metalformer")or string.find(machines[i], "canning") or string.find(machines[i], "recycler") then
  382. itemStackUsed = periphM.getStackInSlot(ic2ItemUsed)
  383. energyTEProc = 150
  384. else
  385. itemStackUsed = periphM.getStackInSlot(ic2ItemUsed)
  386. energyTEProc = 150
  387. end
  388. if tonumber(energyTEProc) <= 3 then
  389. powACT = "NO ENERGY"
  390. colM = palette.red
  391. elseif tonumber(energyTEProc) >= 2 and tonumber(energyTEProc) < 120 then
  392. powACT = " POWERED"
  393. colM = palette.yellow
  394. elseif tonumber(energyTEProc) == 150 then
  395. powACT = " NO INFO"
  396. colM = color_inactive
  397. end
  398. machineDispStart = machineDispStart + 1
  399. if itemStackUsed ~= nil then
  400. itemName = enu.itemRename(itemStackUsed.name)
  401. -- timer[2] = os.clock()
  402. enu.appendString(machMon, color_ores, itemName, true, orePos, machineDispStart)
  403. str = (pFormat(peripheral.getType(machines[i])))
  404. enu.appendString(machMon, tc, str, false, offsetPos, machineDispStart)
  405. enu.appendString(machMon, colM, powACT, false, 17, machineDispStart)
  406. enu.appendString(machMon, color_active, activeMsg, false, mStatusPos, machineDispStart)
  407.  
  408. elseif itemStackUsed == nil then
  409. enu.appendString(machMon, color_inactive, inactiveMsg, true, mStatusPos, machineDispStart)
  410. str = (pFormat(peripheral.getType(machines[i])))
  411. enu.appendString(machMon, colM, powACT, false, 17, machineDispStart)
  412. enu.appendString(machMon, tc, str, false, offsetPos, machineDispStart)
  413. else
  414.  
  415. end
  416. end
  417. end
  418. end
  419. for i=1,10,1 do
  420. machineDispStart = machineDispStart + 1
  421. monitor_3.setCursorPos(1,machineDispStart)
  422. monitor_3.clearLine()
  423. end
  424.  
  425. end
  426. enu.cString(offsetPos, 1, hc, tankMon, "-- TANK INFO --")
  427. enu.cString(offsetPos, 1, hc, AEMon, "-- AE INFO --")
  428. enu.cString(offsetPos, 1, hc, powerMon, "-- POWER INFO--")
  429. enu.cString(offsetPos, machinesInfoCol, hc, machMon, "-- MACHINES INFO --")
  430. -- Start
  431. while true do
  432. upMachines(false)
  433.  
  434. dispAE()
  435. dispTanks()
  436. dispPower()
  437. dispMach()
  438. sleep(sleepTime)
  439. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!