View difference between Paste ID: 1DUrVHN6 and HErbu4yP

-local tX,tY,cX,cY
+-- Coz Core functions and utilities API
 -- Author: theonlycozzy
 -- July 31 2013
-  ver = "0.1"
+
-  return ver
+local button = {}
 
 -- INITIALATION FUNCTIONS
 
 function getVersion()
-function clear(delay)
+  local build = 53
-  if delay == true then
+  return build
-    os.sleep(1)
+
 
-  term.clear()
+function detectPeripherals()
-  term.setCursorPos(1,1)
+  for i,side in pairs(rs.getSides()) do
     if peripheral.isPresent(side) then
       if peripheral.getType(side) == "sensor" then
-function newLine(indent)
+        if sensor == nil then
-  if indent == nil then
+          os.loadAPI("ocs/apis/sensor")
-    indent = 0
+          if sensor == nil then
             error("function detectPeripherals: Sensor API not installed")
           end
-  cX,cY = term.getCursorPos()
+          colorText("OCS LOADED",colors.black,colors.lime)
-  term.setCursorPos(1+indent,cY+1)
+        else
           colorText("OCS ALREADY LOADED",colors.black,colors.red)
         end
-function cPrint(text,line)
+
-  if line == nil then
+        colorText("hardware found: OCS Sensor",colors.red,nil,true)
-    cX,cY = term.getCursorPos()
+        SENSOR = sensor.wrap(side)
-    line = cY
+        colorText("  wrapped",colors.lime)
 
       elseif peripheral.getType(side) == "monitor" then
-  tX,tY = term.getSize()
+        colorText("hardware found: Monitor",colors.red,nil,true)
-  term.setCursorPos( (tX/2) - (#text/2), line  )
+        MONITOR = peripheral.wrap(side)
         colorText("  wrapped",colors.lime)
-  term.write(text)
+
       elseif peripheral.getType(side) == "modem" then
         colorText("hardware found: Modem",colors.red,nil,true)
         MODEM = peripheral.wrap(side)
         colorText("  wrapped",colors.lime)
-function drawAlertBox()
+
-  tX,tY = term.getSize()
+      elseif peripheral.getType(side) == "drive" then
-  temp = (tY/2)-4
+        colorText("hardware found: Disk Drive",colors.red,nil,true)
         DRIVE = peripheral.wrap(side)
-  term.setCursorPos(1,temp)
+        colorText("  wrapped",colors.lime)
-  for i=1,7 do
+
-    if i%7 == 0 or i%7 == 1 then
+      elseif peripheral.getType(side) == "printer" then
-      cPrint("*******************************") newLine()
+        colorText("hardware found: Printer",colors.red,nil,true)
         PRINTER = peripheral.wrap(side)
-      cPrint("*                             *") newLine()
+        colorText("  wrapped",colors.lime)
 
       end
     end
   end
-function alertBox(info)
+  return SENSOR,MONITOR,MODEM,DRIVE,PRINTER
-  drawAlertBox()
+
-  term.setCursorPos(1,(tY/2)-2)
+
-  cPrint(info)
+-- END OF INITIALATION FUNCTIONS
-  term.setCursorPos(1,tY-1)
+
 
 function getCursorPos(TYPE)
--- FILE HANDLES
+  if TYPE == "terminal" then
     local X,Y = term.getCursorPos()
-function addLinetoFile(text,file)
+    return X,Y
-  temp = {}
+  elseif TYPE == "monitor" then
-    if not fs.exists(file) then
+    if MONITOR == nil then
-      print("Creating file")
+      SENSOR,MONITOR,MODEM,DRIVE,PRINTER = detectPeripherals()
-      clear(true)
+
-      f = io.open(file,"w")
+      local X,Y = MONITOR.getCursorPos()
-      f:close()
+      return X,Y
     end
-  f = io.open(file,"r")
+  else
-    if f == nil then
+    error("function getCursorPos: Type unknown")
-      error("Failed to load")
+
-      return nil
+
 
 function cPrint(TXT,LINE,TYPE)
-    for line in f:lines() do
+  if TYPE == nil then
-      temp[#temp+1] = line
+    TYPE = "terminal"
   end
-  temp[#temp+1] = text
+  if LINE == nil and TYPE == "terminal" then
-  f:close()
+    local X,Y = term.getCursorPos()
-  f = fs.open(file,"w")
+    LINE = Y
-    for i=1,#temp do
+  elseif LINE == nil and TYPE == "monitor" then
-      f.writeLine(temp[i])
+    local X,Y = MONITOR.getCursorPos()
     LINE = Y
-  f:close()
+
   if TYPE == "terminal" then
     local X,Y = term.getSize()
-function delLinefromFile(text,file)
+    term.setCursorPos(((X/2)+1)-(#TXT/2),LINE)
-  temp = {}
+    term.write(TXT)
-  f = io.open(file,"r")
+  elseif TYPE == "monitor" then
-    if f == nil then
+    local X,Y = MONITOR.getSize()
-      error("File not Found")
+    MONITOR.setCursorPos(((X/2)+1)-(#TXT/2),LINE)
-      return nil
+    MONITOR.write(TXT)
   else
     error("function cPrint: type is null")
-    for line in f:lines() do
+  end
-      if not(string.lower(line) == string.lower(text)) then
+
-        temp[#temp+1] = line
+
 function colorText(TXT,txtColor,bgColor,CURLINE)
   local Format = print
-  f:close()
+  if CURLINE == true then
-  f = fs.open(file,"w")
+    Format = write
-    if f == nil then
+
-      return nil
+
   local isA = term.isColor and term.isColor()
   if isA then
-    for i=1,#temp do
+    term.setTextColor(txtColor)
-      f.writeLine(temp[i])
+      if bgColor == nil then
         term.setBackgroundColor(colors.black)
-  f.close()
+      else
-end
+        term.setBackgroundColor(bgColor)
       end
     Format(TXT)
 
     term.setBackgroundColor(colors.black)
     term.setTextColor(colors.white)
   else
     Format(TXT)
   end
 end
 
 function findDate()
   local _time = textutils.formatTime(os.time())
   local day = os.day()
   local dayofWeek = (day%7)+1
   local days = {"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"}
   local month = {"January","February","March","April","May","June","July","August","September","October","November","December"}
   local daysinMonth = {31,28,31,30,31,30,31,31,30,31,30,31}
   local daysinYear = 365
   local year = math.ceil(day/daysinYear)
   local leap = year%4
   local searching = true
   local curMonth = nil
   local curDayinMonth = nil
 
   while searching do
     -- if Current year is a Laep year
     if leap == 0 then
       daysinMonth[2] = 29
       daysinYear = 366
     else
       daysinMonth[2] = 28
       daysinYear = 365
     end
 
     -- Find the current Month the Game is in
     for i,MONTH in pairs(month) do
       if day > daysinMonth[i] then
         day = day - daysinMonth[i]
       else
         curMonth = MONTH
         curDayinMonth = day % daysinMonth[i]
         searching = false
         break
       end
     end
 
     -- Format the Day in the month to a string
     if curDayinMonth == 1 or curDayinMonth == 21 or curDayinMonth == 31 then
       curDayinMonth = tostring(curDayinMonth).."st"
     elseif curDayinMonth == 2 or curDayinMonth == 22 then
       curDayinMonth = tostring(curDayinMonth).."nd"
     elseif curDayinMonth == 3 or curDayinMonth == 23 then
       curDayinMonth = tostring(curDayinMonth).."rd"
     else
       curDayinMonth = tostring(curDayinMonth).."th"
     end
   end
   -- RETURN Time of Day, Day of week, month, day in month, year
   return _time,days[dayofWeek],curMonth,curDayinMonth,year
 end
 
 function splitString(STRING)
   local t = {}
   for token in string.gmatch(STRING,"[^%s]+") do
     t[#t+1] = token
   end
 
   return t
 end
 
 -- END OF BASIC FUNCTIONS
 -- BEGIN GUI HANDLES
 
 function createButton(name,func,xPos,yPos,width,height)
    button[name] = {}
    button[name]["func"] = func
    button[name]["xPos"] = xPos
    button[name]["yPos"] = yPos
    button[name]["width"] = width
    button[name]["height"] = height
 end
 
 function drawButton(text, color, bData)
   if MONITOR == nil then
     SENSOR,MONITOR,MODEM,DRIVE,PRINTER = detectPeripherals()
   end
   MONITOR.setBackgroundColor(color)
   local widthPos = bData["xPos"] + bData["width"]
   local heightPos = bData["yPos"] + bData["height"]
   local xSpot = math.floor((bData["width"]-string.len(text))/2) +1
 
   for j = bData["yPos"],heightPos do  -- height of the button
     MONITOR.setCursorPos(bData["xPos"], j)
     if j == bData["yPos"]+1 then  -- if the text needs to go on this line
       for k = 0, widthPos - bData["xPos"] - string.len(text) +1 do
         if k == xSpot then
           MONITOR.write(text)
         else
           MONITOR.write(" ")
         end
       end
     else
       for i = bData["xPos"], widthPos do -- draw a single line of button
         MONITOR.write(" ")
       end
     end
   end
   MONITOR.setBackgroundColor(colors.black)
 end
 
 function checkButtonHit(X,Y)
   for name,data in pairs(button) do
     local widthPos = data["xPos"] + data["width"]
     local heightPos = data["yPos"] + data["height"]
     if Y >= data["yPos"] and Y <= heightPos then
       if X >= data["xPos"] and X <= widthPos then
         data["func"]()
       end
     end
   end
 end
 
 function drawAllButtons()
    for name,data in pairs(button) do
       drawButton(name, colors.gray, data)
    end
 end
 
 function alert(LN1,LN2)
   local H = 6
   local isA = MONITOR.isColor and MONITOR.isColor()
   local X,Y = MONITOR.getSize()
   local yCenter = Y/2
   local xCenter = (X/2)+1
   local W = nil
   if LN2 == nil then
     H = 5
     W = #LN1+4
   else
     if #LN1 > #LN2 then
       W = #LN1+4
     else
       W = #LN2+4
     end
   end
   if isA then
     MONITOR.setBackgroundColor(colors.white)
     MONITOR.setTextColor(colors.black)
   end
   for i=1,H do
     if i%H == 0 or i%H == 1 then
       MONITOR.setCursorPos(xCenter-(W/2),(yCenter-(H/2))+i)
       for x=1,W do
         MONITOR.write("#")
       end
     else
       MONITOR.setCursorPos(xCenter-(W/2),(yCenter-(H/2))+i)
       for x=1,W do
         if x%W == 1 or x%W == 0 then
           MONITOR.write("#")
         else
           MONITOR.write(" ")
         end
       end
     end
   end
   MONITOR.setCursorPos(xCenter-(W/2)+2,yCenter-(H/2)+3)
   MONITOR.write(LN1)
   if LN2 ~= nil then
     MONITOR.setCursorPos(xCenter-(W/2)+2,yCenter-(H/2)+4)
     MONITOR.write(LN2)
   end
   if isA then
     MONITOR.setBackgroundColor(colors.black)
     MONITOR.setTextColor(colors.white)
   end
 end
 
 
 -- END OF GUI HANDLES
 -- BEGIN FILE HANDLES
 
 function saveTable(PATH,TABLE)
   local txt = textutils.serialize(TABLE)
   local file = fs.open(PATH,"w")
   file.write(txt)
   file.close()
 end
 
 function openTable(PATH)
   if not fs.exists(PATH) then
     print("file not found, creating one")
     local file = fs.open(PATH,"w")
     file.close()
   end
   local file = fs.open(PATH,"r")
   local txt = file.readAll()
   file.close()
   local TAB = textutils.unserialize(txt)
 
   return TAB
 end
 
 -- END OF FILE HANDLES
 -- BEGIN REDNET SECURITY
 
 local contains = function(tbl, val)
   for k,v in pairs(tbl) do
     if v == val then return true end
   end
   return false
 end
 
 local hash = function(str)
   local out = {}
   for s in str:gmatch(".") do
     if not contains(out, s) then out[#out+1] = s end
   end
   return table.concat(out)
 end
 
 function encryption(decrypt,txt,key,password)
   local encrypted = ""
   local encryptedTXT = ""
   local base = 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789=+[]{}_,." '
   local baseLength = #base
 
   if key ~= nil and key > baseLength then  -- keep the key within bounds of the length of the base
     key = key % baseLength
   end
 
   if password ~= nil then  -- place the password at the front of the encrypted without duplicates
     encrypted = hash(password)
   end
 
   for i=1,baseLength do -- create the encrypted
     local char = string.sub(base,(key+i)%baseLength,(key+i)%baseLength)
 
     if password ~= nil then
       for I=1,#password do -- find the same letter in password and remove it
         local pasChar = string.sub(password,I,I)
 
         if pasChar == char then
           char = ""
         end
       end
     end
     encrypted = encrypted..char
   end
 
   for i=1,#txt do -- loop through the text to be encrypteded
     local letter = string.sub(txt,i,i)
 
     for I=1,baseLength do
       local baseKey = string.sub(base,I,I)
       local hashKey = string.sub(encrypted,I,I)
 
       if decrypt == true then -- if decrypting the flip flop the baseKey and hashKey
         if letter == hashKey then
           encryptedTXT = encryptedTXT..baseKey
         end
       else
         if letter == baseKey then -- encrypted baseKey with hashKey
           encryptedTXT = encryptedTXT..hashKey
         end
       end
     end
   end
   return encryptedTXT
 end
 
 -- END OF REDNET SECURITY