Player Detector MC1.8.9/CC1.79/LIP

local sVersion = "v0.8.5"
local nBuild = 85

-- Variables par défaut

local sLogFormat = "#y#m#d.log"
local sLogDir = "/playerd_logs/"
local nRange = 16
local nX = -211
local nY = 74
local nZ = 424

local useChatInterface = true
local printLog = true
local disableTerminateEvent = false
local disableAutomaticUpdates = false

--[[
Liste des variables pour les messages du chat :

#p : Nom du joueur qui entre/sort
#M : Minute réelle
#h : Heure réelle
#d : Jour réel
#m : Mois réel
#y : Année réelle
--]]

local joinMessage = "#p joined"
local leftMessage = "#p left"
local chatTo = {"your_name"}
local chatName = "Player Probe "..sVersion.." on "..os.computerID()
local canUseCommands = {"your_name"}

local tWhitelist = {}

local joinProgram = ""
local leftProgram = ""

-- Fin des variables par défaut

-- Déclaration de la fonction au centre du programme

local function getTableDifference(oldTable, newTable)
  if not newTable then
    return false
  end

  local tDifference = {}

  --[[

  print("oldTable :")

  for i = 1, #oldTable do
    print(oldTable[i])
  end

  print("newTable :")

  for i = 1, #newTable do
    print(newTable[i])
  end

  print("Différences :")

  --]]

  for i = 1, #oldTable do
    local isOK = false

    local selectedTable = oldTable[i]
    --print("J'ai "..selectedTable.." actuellement")

    for i = 1, #newTable do
      --print("Je compare "..selectedTable.." avec "..newTable[i])

      if selectedTable == newTable[i] then
        --print("OK")
        isOK = true
        break
      end
    end

    if isOK == false then
      --print(selectedTable.." n'est pas dans table2")
      table.insert(tDifference, selectedTable)
    end
  end

  return tDifference
end

-- Fin de la déclaration

-- Init Environment

term.setBackgroundColor(colors.black)
term.setTextColor(colors.white)
term.clear()
term.setCursorPos(1, 1)
print("Player Detector Init Environment")
term.setCursorPos(1, 2)

for i = 1, term.getSize() do
  write(string.char(131))
end

term.setCursorPos(1, 4)

if not fs.exists("player_detector.conf") then
  print("\nNo config file found, init setup...")
  local configFile = fs.open("player_detector.conf", "w")
  configFile.write("{\nLogFormat = \"#y#m#d.log\", \nLogDir = \"/playerd_logs/\", \nnRange = 16, \nnX = -211, \nnY = 74, \nnZ = 424, \nuseChatInterface = true, \nprintLog = true, \ndisableTerminateEvent = false, \ndisableAutomaticUpdates = false, \njoinMessage = \"§r#p §3joined\", \nleftMessage = \"§r#p §6left\", \nchatTo = {\"your_name\"}, \nchatName = \"".."§r§oPlayer Probe on "..os.computerID().."\", \ncanUseCommands = {\"your_name\"}, \ntWhitelist = {}, \njoinProgram = \"\", \nleftProgram = \"\", \n}")
  configFile.close()
  print("\nFile created, a text editor will be prompt to edit settings, please save before quit the editor.")
  print("Press any key to continue...")
  os.pullEvent("key")

  shell.run("edit player_detector.conf")

  term.setBackgroundColor(colors.black)
  term.setTextColor(colors.white)
  term.clear()
  term.setCursorPos(1, 1)
  print("Player Detector Init Environment")
  term.setCursorPos(1, 2)

  for i = 1, term.getSize() do
    write(string.char(131))
  end

  term.setCursorPos(1, 4)
else
  print("\nConfig file found")
end

print("Loading settings...")
settings.load("player_detector.conf")

sLogFormat = settings.get("LogFormat", sLogFormat)
sLogDir = settings.get("LogDir", sLogDir)
nRange = settings.get("nRange", nRange)
nX = settings.get("nX", nX)
nY = settings.get("nY", nY)
nZ = settings.get("nZ", nZ)
useChatInterface = settings.get("useChatInterface", useChatInterface)
printLog = settings.get("printLog", printLog)
disableTerminateEvent = settings.get("disableTerminateEvent", disableTerminateEvent)
disableAutomaticUpdates = settings.get("disableAutomaticUpdates", disableAutomaticUpdates)
joinMessage = settings.get("joinMessage", joinMessage)
leftMessage = settings.get("leftMessage", leftMessage)
chatTo = settings.get("chatTo", chatTo)
chatName = settings.get("chatName", chatName)
canUseCommands = settings.get("canUseCommands", canUseCommands)
tWhitelist = settings.get("tWhitelist", tWhitelist)
joinProgram = settings.get("joinProgram", joinProgram)
leftProgram = settings.get("leftProgram", leftProgram)

disableAutomaticUpdates = true

-- Check new version

if not disableAutomaticUpdates then
  print("\nChecking for updates...")

  local sBuildNet = http.get("http://pastebin.com/raw/yL1P3anx")
  local nBuildNet = tonumber(sBuildNet.readAll())
  sBuildNet.close()

  if nBuildNet > nBuild then
    print("A new version is available ! (build "..nBuildNet..")")
      --print("I'm running "..shell.getRunningProgram())
      print("Downloading new version...")

      local sNewSoftware = http.get("http://pastebin.com/raw/7Jg670Ra")

      local sTempFile = fs.open(".temp", "w")
      sTempFile.write(sNewSoftware.readAll())
      sTempFile.close()

      sNewSoftware.close()

      if fs.exists(".temp") then
        print("Downloaded succesfully, updating...")
        fs.delete(shell.getRunningProgram())
        fs.move(".temp", shell.getRunningProgram())
        fs.delete(".temp")
        write("Rebooting")
      write(".")
      sleep(1)
      write(".")
      sleep(1)
      write(".")
      sleep(1)
      os.reboot()
    else
      print("Download fail...")
    end
  else
    print("You are on the latest version")
  end
else
  print("\nAutomatics updates are disabled.")
end

print("")

if nRange > 20 then
  printError("[WARN] Range is out of bound ("..nRange..")")
  nRange = 20

  for i = 1, 5 do
    write(".")
    sleep(1)
  end
elseif nRange < 1 then
  printError("[WARN] Range is out of bound ("..nRange..")")
  nRange = 1

  for i = 1, 5 do
    write(".")
    sleep(1)
  end
end

print("Checking config file...")
local tKeyAllowed = {"{", "LogFormat", "LogDir", "nRange", "nX", "nY", "nZ", "useChatInterface", "printLog", "disableTerminateEvent", "disableAutomaticUpdates", "joinMessage", "leftMessage", "chatTo", "chatName", "canUseCommands", "tWhitelist", "joinProgram", "leftProgram", "}"}
local tPresentKeys = {}
local tErroredKey = {}
local tConfigLines = {}
local sActualLine = ""
local sScanningLine = ""
local sScanningKey = ""
local bScanResult = false

local configCheck = fs.open("player_detector.conf", "r")

while sActualLine ~= nil do
  sActualLine = configCheck.readLine()
  table.insert(tConfigLines, sActualLine)
end

configCheck.close()

for i = 1, #tConfigLines do
  sScanningLine = tConfigLines[i]
  bScanResult = false

  for i = 1, #tKeyAllowed do
    sScanningKey = sScanningLine:sub(1, #tKeyAllowed[i])
    if sScanningKey == tKeyAllowed[i] then
      bScanResult = true
      break
    end
  end

  if bScanResult == false then
    if not sScanningLine:sub(1, 7) == "LogFile" then
      table.insert(tErroredKey, "L"..i.." > \""..sScanningLine.."\"")
    end
  else
    table.insert(tPresentKeys, sScanningKey)
  end
end

if #tErroredKey > 0 then
  if #tErroredKey == 1 then
    printError("Errored key found :")
  else
    printError("Errored keys found :")
  end
  print("")

  textutils.pagedTabulate(tErroredKey)
  print("\nPress any key to continue...")
  os.pullEvent("key")
else
  print("No errored key found !")
end

local tKeyDifference = getTableDifference(tKeyAllowed, tPresentKeys)

if #tKeyDifference > 0 then
  if #tKeyDifference == 1 then
    printError("Missing key found :")
  else
    printError("Missing keys found :")
  end

  print("")
  textutils.pagedTabulate(tKeyDifference)
  print("")

  print("<          >")

  local nCurX, nCurY = term.getCursorPos()
  term.setCursorPos(2, nCurY - 1)

  for i = 1, 10 do
    sleep(1)
    write("=")
  end

  sleep(1)
else
  print("No missing key found !")
end

--sleep(5)

-- End Init Environment

local bRun = true

local monX, monY = term.getSize()
local oldMonX, oldMonY = term.getSize()

if monX < 29 then
  printError("Resolution is too low !")
  sleep(5)
end

if disableTerminateEvent == true then
  local oldPullEvent = os.pullEvent
  os.pullEvent = os.pullEventRaw
end

if not fs.exists("date") then
  shell.run("pastebin get 8GiE70cH date")
end

os.loadAPI("date")

local t = peripheral.find("EntityDetector")
local p = peripheral.find("WorldInterface")
local c = peripheral.find("ChatInterface")

local tSide = ""
local pSide = ""
local cSide = ""

local bScrollEffectDone = false

local chatInterfaceConnected = true

if not t then
  error("No EntityDetector found !")
end

if not p then
  error("No WorldInterface found !")
end

if not c then
  chatInterfaceConnected = false
else
  c.setName(chatName)
end

for i = 1, #peripheral.getNames() do
  local sPeripheralType = peripheral.getType(peripheral.getNames()[i])

  if sPeripheralType == "EntityDetector" then
    tSide = peripheral.getNames()[i]
  elseif sPeripheralType == "WorldInterface" then
    pSide = peripheral.getNames()[i]
  elseif sPeripheralType == "ChatInterface" then
    cSide = peripheral.getNames()[i]
  end
end

local tPlayers = {}
local tOldPlayers = {}
local tInventoryPlayers = {}

if not fs.exists(sLogDir) then
  fs.makeDir(sLogDir)
end

term.clear()
term.setCursorPos(1, 1)

if monX >= 51 then
  print("Player detector "..sVersion)
  term.setCursorPos(monX - string.len(string.char(169).." arc13") + 1, 1)
  term.write(string.char(169).." arc13")

  if term.isColor() then
    term.setTextColor(colors.lightGray)
  end

  term.setCursorPos(1, 3)
  print("Listening at "..nX..", "..nY..", "..nZ.." (radius "..nRange..")")
  print(p.getBlockInfos(nX, nY, nZ)["blockName"]..", "..p.getBiome(nX, nY, nZ).." biome")

  term.setCursorPos(1, 5)
elseif monX < 51 and monX >= 29 then
  print("Player detector "..sVersion)
  term.setCursorPos(monX - string.len(string.char(169).." arc13") + 1, 1)
  term.write(string.char(169).." arc13")
  term.setCursorPos(1, 3)
  print("X:"..nX..", Y:"..nY..", Z:"..nZ.." (R:"..nRange..")")

  term.setCursorPos(1, 4)
end

if term.isColor() then
  term.setTextColor(colors.gray)
end

for i = 1, term.getSize() do
  write(string.char(131))
end

term.setTextColor(colors.white)

print("\n")

if not printLog then
  print("Log here is disabled !")
end

local function redrawHeader()
  local oldCurX, oldCurY = term.getCursorPos()

  term.setCursorPos(1, 1)
  term.clearLine()
  print("Player detector "..sVersion)
  term.setCursorPos(monX - string.len(string.char(169).." arc13") + 1, 1)
  term.write(string.char(169).." arc13")

  if term.isColor() then
    term.setTextColor(colors.gray)
  end

  if bScrollEffectDone == true then
    term.setCursorPos(1, 2)
  else
    if monX >= 51 then
      term.setCursorPos(1, 5)
    elseif monX < 51 and monX >= 29 then
      term.setCursorPos(1, 4)
    end
  end

  for i = 1, term.getSize() do
    write(string.char(131))
  end

  term.setTextColor(colors.white)

  if monX < 29 then
    term.clear()
    term.setCursorPos(1, 1)
    print("Resolution too low !")
  end

  term.setCursorPos(oldCurX, oldCurY)
end

local function scrollEffect()
  sleep(5)

  local oldCurX, oldCurY = term.getCursorPos()

  for i = 1, 2 do
    term.scroll(1)

    term.setCursorPos(1, 1)
    print("Player detector "..sVersion)
    term.setCursorPos(monX - string.len(string.char(169).." arc13") + 1, 1)
    term.write(string.char(169).." arc13")
    paintutils.drawLine(1, 2, monX, 2, colors.black)

    if monX < 51 and monX >= 29 and i == 2 then
      term.setCursorPos(1, 2)

      if term.isColor() then
        term.setTextColor(colors.gray)
      end

      for i = 1, term.getSize() do
        write(string.char(131))
      end

      term.setTextColor(colors.white)
    end

    sleep(0.2)
  end
  term.scroll(1)

  term.setCursorPos(1, 1)
  print("Player detector "..sVersion)
  term.setCursorPos(monX - string.len(string.char(169).." arc13") + 1, 1)
  term.write(string.char(169).." arc13")

  if monX < 51 and monX >= 29 then
    term.setCursorPos(1, 2)

    if term.isColor() then
      term.setTextColor(colors.gray)
    end

    for i = 1, term.getSize() do
      write(string.char(131))
    end

    term.setTextColor(colors.white)
  end

  bScrollEffectDone = true

  redrawHeader()

  if monX >= 51 then
    term.setCursorPos(oldCurX, oldCurY - 3)
  elseif monX < 51 and monX >= 29 then
    term.setCursorPos(oldCurX, oldCurY - 2)
  end
end

local function isInWhitelist(sPlayerName)
  for i = 1, #tWhitelist do
    if sPlayerName == tWhitelist[i] then
      --c.sendPlayerMessage("arc13", "whitelisted")
      return true
    end
  end

  --c.sendPlayerMessage("arc13", "not whitelisted")
  return false
end

local function getInventorySize(tInventory)
  local i = 0

  for k, v in pairs(tInventory) do
    i = i + 1
  end

  return i
end

local function getPlayers(range, x, y, z)
  if not z then
    return false
  end

  local playerList = {}
  local f = t.getEntityList(range, x, y, z)

  for k, v in pairs(f) do
    if v.type == "EntityPlayerMP" then
      table.insert(playerList, v.name)
    end
  end

  return playerList
end

local function logJoin(sPlayerJoined)
  if printLog then
    if term.isColor() then
      term.setTextColor(colors.lightGray)
    end

    local sFormattedPlayer = ""

    if #tPlayers > 1 then
      sFormattedPlayer = "players"
    else
      sFormattedPlayer = "player"
    end

    write("["..date.formatDateTime("%h:%M")..", "..#tPlayers.." "..sFormattedPlayer.."] ")
    term.setTextColor(colors.white)
    print(sPlayerJoined.." join")
  end

  local sLogName = sLogFormat
  sLogName = sLogName:gsub("#m", date.formatDateTime("%m"))
  sLogName = sLogName:gsub("#h", date.formatDateTime("%h"))
  sLogName = sLogName:gsub("#d", date.formatDateTime("%d"))
  sLogName = sLogName:gsub("#M", date.formatDateTime("%M"))
  sLogName = sLogName:gsub("#y", date.formatDateTime("%y"))

  local file = fs.open(sLogDir..sLogName, fs.exists(sLogDir..sLogName) and "a" or "w")

  file.writeLine("["..date.formatDateTime("%h:%M").."] "..sPlayerJoined.." join")
  file.close()

  tInventoryPlayers[sPlayerJoined] = {inventory = {}}
  tInventoryPlayers[sPlayerJoined]["inventorySize"] = getInventorySize(t.getPlayerDetail(sPlayerJoined)[sPlayerJoined].inventory)

  for k, v in pairs(t.getPlayerDetail(sPlayerJoined)[sPlayerJoined].inventory) do
    table.insert(tInventoryPlayers[sPlayerJoined]["inventory"], v.displayName)
  end

  if useChatInterface == true and chatInterfaceConnected == true then
    for i = 1, #chatTo do
      local sMsg = string.gsub(joinMessage, "#p", "§l"..sPlayerJoined.."§r")
      sMsg = sMsg:gsub("#M", date.formatDateTime("%M"))
      sMsg = sMsg:gsub("#h", date.formatDateTime("%h"))
      sMsg = sMsg:gsub("#d", date.formatDateTime("%d"))
      sMsg = sMsg:gsub("#m", date.formatDateTime("%m"))
      sMsg = sMsg:gsub("#y", date.formatDateTime("%y"))
      c.sendPlayerMessage(chatTo[i], sMsg)
    end
  end
end

local function logLeft(sPlayerLeft)
  if printLog then
    if term.isColor() then
      term.setTextColor(colors.lightGray)
    end

    local sFormattedPlayer = ""

    if #tPlayers > 1 then
      sFormattedPlayer = "players"
    else
      sFormattedPlayer = "player"
    end

    write("["..date.formatDateTime("%h:%M")..", "..#tPlayers.." "..sFormattedPlayer.."] ")
    term.setTextColor(colors.white)
    print(sPlayerLeft.." left")
  end

  local sLogName = sLogFormat
  sLogName = sLogName:gsub("#m", date.formatDateTime("%m"))
  sLogName = sLogName:gsub("#h", date.formatDateTime("%h"))
  sLogName = sLogName:gsub("#d", date.formatDateTime("%d"))
  sLogName = sLogName:gsub("#M", date.formatDateTime("%M"))
  sLogName = sLogName:gsub("#y", date.formatDateTime("%y"))

  local file = fs.open(sLogDir..sLogName, fs.exists(sLogDir..sLogName) and "a" or "w")

  file.writeLine("["..date.formatDateTime("%h:%M").."] "..sPlayerLeft.." left")

  if tInventoryPlayers[sPlayerLeft]["inventorySize"] ~= getInventorySize(t.getPlayerDetail(sPlayerLeft)[sPlayerLeft].inventory) then
    print("Inventory has changed ! ("..getInventorySize(t.getPlayerDetail(sPlayerLeft)[sPlayerLeft].inventory).." items now, "..tInventoryPlayers[sPlayerLeft]["inventorySize"].." before)")

    local tCurrentInventory = {}

    for k, v in pairs(t.getPlayerDetail(sPlayerLeft)[sPlayerLeft].inventory) do
      table.insert(tCurrentInventory, v.displayName)
    end

    if getInventorySize(t.getPlayerDetail(sPlayerLeft)[sPlayerLeft].inventory) > tInventoryPlayers[sPlayerLeft]["inventorySize"] then
      -- Un/plusieurs item(s) à/ont été(s) ajouté(s)
      local tDifference = getTableDifference(tCurrentInventory, tInventoryPlayers[sPlayerLeft]["inventory"])

      file.writeLine("Inventory has changed (+) : ")

      file.write("/")

      for i = 1, #tDifference do
        file.write(tDifference[i].."/")
      end

      file.write("\n")
    elseif getInventorySize(t.getPlayerDetail(sPlayerLeft)[sPlayerLeft].inventory) < tInventoryPlayers[sPlayerLeft]["inventorySize"] then
      -- Un/plusieurs item(s) à/ont été(s) enlevée(s)
      local tDifference = getTableDifference(tInventoryPlayers[sPlayerLeft]["inventory"], tCurrentInventory)

      file.writeLine("Inventory has changed (-) : ")

      file.write("/")

      for i = 1, #tDifference do
        file.write(tDifference[i].."/")
      end

      file.write("\n")
    end
  end

  file.close()

  if useChatInterface == true and chatInterfaceConnected == true then
    for i = 1, #chatTo do
      local sMsg = string.gsub(leftMessage, "#p", "§l"..sPlayerLeft.."§r")
      sMsg = sMsg:gsub("#M", date.formatDateTime("%M"))
      sMsg = sMsg:gsub("#h", date.formatDateTime("%h"))
      sMsg = sMsg:gsub("#d", date.formatDateTime("%d"))
      sMsg = sMsg:gsub("#m", date.formatDateTime("%m"))
      sMsg = sMsg:gsub("#y", date.formatDateTime("%y"))
      c.sendPlayerMessage(chatTo[i], sMsg)
    end
  end
end

local function playerJoin(tPlayers, tOldPlayers)
  local tDifference = getTableDifference(tPlayers, tOldPlayers)

  if joinProgram ~= "" and multishell then
    local sTempPlayers = ""

    for i = 1, #tDifference do
      sTempPlayers = sTempPlayers..tDifference[i]..","
    end

    shell.openTab(joinProgram.." "..sTempPlayers)
  end

  for i = 1, #tDifference do
    if not isInWhitelist(tDifference[i]) then
      logJoin(tDifference[i])

      redrawHeader()
    else
      if printLog then
        print("Whitelisted : "..tDifference[i])
      end
    end
  end
end

local function playerLeft(tPlayers, tOldPlayers)
  local tDifference = getTableDifference(tOldPlayers, tPlayers)

  if leftProgram ~= "" and multishell then
    local sTempPlayers = ""

    for i = 1, #tDifference do
      sTempPlayers = sTempPlayers..tDifference[i]..","
    end

    shell.openTab(leftProgram.." "..sTempPlayers)
  end

  for i = 1, #tDifference do
    if not isInWhitelist(tDifference[i]) then
      logLeft(tDifference[i])

      redrawHeader()
    else
      if printLog then
        print("Whitelisted : "..tDifference[i])
      end
    end
  end
end

local function main()
  while bRun do
    tOldPlayers = tPlayers
    tPlayers = getPlayers(nRange, nX, nY, nZ)

    if #tPlayers ~= #tOldPlayers then
      if #tPlayers > #tOldPlayers then
        os.queueEvent("player_join", tPlayers, tOldPlayers)

        threadJoin = coroutine.create(playerJoin)
        coroutine.resume(threadJoin, tPlayers, tOldPlayers)
      elseif #tPlayers < #tOldPlayers then
        os.queueEvent("player_left", tPlayers, tOldPlayers)

        threadLeft = coroutine.create(playerLeft)
        coroutine.resume(threadLeft, tPlayers, tOldPlayers)
      end
    end

    sleep(0.1)
  end
end

-- Inutilisable avant que les events soit fixés
local function peripheralHandler()
  while bRun do
    redrawHeader()

    local sEvent, sSide = os.pullEvent()

    if sEvent == "peripheral" or sEvent == "peripheral_detach" then
      print(sSide)
      print(pSide)
      print(tSide)
      print(cSide)
    end

    if sEvent == "peripheral" then
      if peripheral.getType(sSide) == "ChatInterface" then
        chatInterfaceConnected = true
        print("[SYSTEM] ChatInterface connected")
        cSide = sSide
      end
    elseif sEvent == "peripheral_detach" then
      if sSide == pSide then
        -- Le world interface à été détaché
        error("[SYSTEM] WorldInterface disconnected")
      elseif sSide == tSide then
        -- L'entity detector à été détaché
        error("[SYSTEM] EntityDetector disconnected")
      elseif sSide == cSide then
        -- Le chat interface à été détaché
        chatInterfaceConnected = false
        cSide = ""
        print("[SYSTEM] ChatInterface disconnected")
      end
    end
  end
end

local function chatHandler()
  while bRun do
    local sEvent, sPlayer, sMessage = os.pullEvent("chat_message")

    for i = 1, #canUseCommands do
      if sPlayer == canUseCommands[i] then
        if sMessage == "##disable_chat" then
          useChatInterface = false
          c.sendPlayerMessage(sPlayer, "§rChat §6§ldisabled §r!")
        elseif sMessage == "##enable_chat" then
          useChatInterface = true
          c.sendPlayerMessage(sPlayer, "§rChat §3§lenabled §r!")
        elseif sMessage == "##stop" then
          c.sendPlayerMessage(sPlayer, "§6Terminated")
          os.pullEvent = oldPullEvent
          bRun = false
        elseif sMessage == "##get_players" then
          local tPlayersToSend = getPlayers(nRange, nX, nY, nZ)

          local sMsgToSend = ""

          if #tPlayersToSend == 0 then
            c.sendPlayerMessage(sPlayer, "§6No players detected")
          elseif #tPlayersToSend == 1 then
            c.sendPlayerMessage(sPlayer, "§rPlayer : §l"..tPlayersToSend[1])
          else
            for i = 1, #tPlayersToSend - 1 do
              sMsgToSend = "§l"..sMsgToSend..tPlayersToSend[i].."§r, "
            end

            sMsgToSend = sMsgToSend.."§l"..tPlayersToSend[#tPlayersToSend]

            c.sendPlayerMessage(sPlayer, "§r"..sMsgToSend)
          end
        end
      end
    end
  end
end

local function UIRefresh()
  while bRun do
    sleep(10)

    redrawHeader()
  end
end

local function resizeHandler()
  while bRun do
    event, side = os.pullEvent("monitor_resize")

    oldMonX, oldMonY = monX, monY

    monX, monY = term.getSize()

    if monX ~= oldMonX or monY ~= oldMonY then
      -- Resolution has changed, the program run on a monitor

      if monX >= 29 then
        redrawHeader()

        if bScrollEffectDone == true then
          term.setCursorPos(1, 3)
        else
          if monX >= 51 then
            term.setCursorPos(1, 6)
          elseif monX < 51 and monX >= 29 then
            term.setCursorPos(1, 5)
          end
        end
      else
        term.setCursorPos(1, 1)
        print("Resolution too low !")
      end
    end
  end
end

parallel.waitForAll(main, chatHandler, scrollEffect, UIRefresh, resizeHandler)