Player Module

---------------------------------------------------
-- Player Module for CraftNanny
--  by Demethan
--  www.breakfastcraft.com
--  www.mrjohndowe.com/craftnanny
--  2015-08-13
--      - Fixed inventory compare.
--      - post inventory addition with quantities.
---------------------------------------------------


-- pastebin for installer
local installer = "PTGLduYm"
-- players ignored by senors
local allowedPlayerArray={}
-- inventory arrays to compare
local snapShot={}
local snapShot2={}
local itemString={}
-- players currently inside sensor range
local flag={}
-- counter for scanning animation
local heart = 0
-- counter for phone_home()
local time = 0
-- user token to send to server
local token = '0'
-- this scanners name
local scanner = ''
-- owenrs username on website
local username = ''
-- currently installed version
local version = 2

--Cleanup
if fs.exists("log.txt") then
    ok,msg = pcall (fs.delete,"log.txt")
        if msg~=nil then
            os.reboot()
        end
end

-- write text to the terminal screen
function draw_text_term(x, y, text, text_color, bg_color)
  term.setTextColor(text_color)
  term.setBackgroundColor(bg_color)
  term.setCursorPos(x,y)
  write(text)
end

-- draw a line on the terminal screen
function draw_line_term(x, y, length, color)
    term.setBackgroundColor(color)
    term.setCursorPos(x,y)
    term.write(string.rep(" ", length))
end

function bars()
    draw_line_term(1, 1, 51, colors.lime)
    draw_line_term(1, 19, 51, colors.lime)
    draw_text_term(20, 1, 'Base Scanner', colors.gray, colors.lime)
    draw_text_term(13, 19, 'mrjohndowe.com/craftnanny', colors.gray, colors.lime)
end

function scanner_screen()
    term.clear()

    -- scanner info
    bars()
    draw_text_term(1, 2, 'Scanner: ', colors.lime, colors.black)
    draw_text_term(10, 2, scanner, colors.white, colors.black)
    draw_text_term(1, 3, 'Owner: ', colors.lime, colors.black)
    draw_text_term(8, 3, username, colors.white, colors.black)
    draw_text_term(1, 4 , string.rep("-", 51), colors.lime, colors.black)

    -- scanning graphuc
    heart = heart + 1
    draw_text_term(3, 10, 'Scanning ', colors.red, colors.black)
    draw_text_term(12, 10 , string.rep(".", heart), colors.red, colors.black)
    if heart == 15 then
        heart = 1
    end
end

-- retrieves token from local text file
-- called at startup if config.txt exists
-- token is used to authorize the scanner to post to users log
function load_config()
  sr = fs.open("config.txt", "r")
    token = sr.readLine()
    scanner = sr.readLine()
    username = sr.readLine()
  sr.close()
end

-- called for new installations and when the scanner needs to be updated
function run_installer()
    if fs.exists("install") then
        fs.delete("install")
      end
      shell.run("pastebin get "..installer.." install")
      sleep(1)
      shell.run("install")
end

-- called every 30 seconds when scanner is running
-- tells the server that the scanner is online
-- checks version and automtically updates
function phone_home()
    response = http.post("http://mrjohndowe.com/craftnanny/code/ping.php",
                "token="..token.."&id="..os.getComputerID())
    current_version = response.readAll()

    if tonumber(current_version) > version then
            run_installer()
    end
end

function round(what, precision)
   if what==nil then return 0 end
   return math.floor(what*math.pow(10,precision)+0.5) / math.pow(10,precision)
end

function record()
    term.setCursorPos(1,1)
    players=s.getPlayers()
    for num,player in pairs(players) do
        for p,ign in pairs(player) do
            if p=="name" then
                playerData = s.getPlayerByName(ign)
                data = playerData.all()
                inventory=data.player.inventory
                if not allowedPlayerArray[ign] then -- check the allow array
                    draw_text_term(3, 7, ign.." is not on the allowed list        ", colors.red, colors.black)
                    invArray={} -- fresh copy
                    for a,b in pairs(inventory) do --getting player inventory
                        slot=b.all()
                        invArray[slot.name]=slot.qty
                    end
                    if flag[ign]==nil or not flag[ign] then --recording first inventory scan
                        itemString=""
                        snapShot[ign]= invArray
                        draw_text_term(3, 7, ign..": Initial Snapshot             ", colors.green, colors.black)
                        post(ign,1," has entered sensor range")
                        flag[ign]=true -- set player flag for later processing
                    else
                        snapShot2[ign]= invArray
                        draw_text_term(3, 7, ign..": Updated Snapshot             ", colors.green, colors.black)
                        found,Items=compare(snapShot[ign],snapShot2[ign])

                        if found then
                            for i,v in pairs(Items) do --building string
                                if v~="" or v~=nil then
                                    itemString=" "..v..":"..i..itemString
                                    draw_text_term(6, 7, ign..itemString.." is extra since last snapshot of inventory", colors.orange, colors.black)
                                    post(ign,3,itemString)
                                end
                            end
                            snapShot[ign]=snapShot2[ign]--inventory has been logged, can now reset the initial snapshot
                            itemString=""
                        else
                            --print(ign," - No item found")
                        end
                        sleep(1)

                        if snapShot2[ign]~= nil then --recoding newer inventory until player leaves.
                        snapShot2[ign]= nil
                    end
                end

                end


            end

        end
    end
    --Cleanup
    playerData={}
    data={}
    inventory={}
    found=nil

end

-- iterate through all players with an active flag
-- see if they're still in range of the scanner
function leaveCheck()
    for ign,v in pairs(flag) do
    --  print("Did ",ign," leave?")
        local ok,msg=pcall(function ()s.getPlayerByName(ign) end)
        --print(msg) --debug
        if not ok and flag[ign] then
            --print(ign," has left.")
            flag[ign]=false
            snapShot[ign]=nil
            snapShot2[ign]=nil
            post(ign,2," has left sensor range")
        end
    end
end

-- records a log entry on the server
-- passes to server:
    -- token and computer ID (used to verify source)
    -- event type: 1 = player entering, 2 = player leaving, 3 = inventory change
    -- ign, players name
    -- discription of event


function logging(ign, event, description)
    if peripheral.getType("right")== "monitor" then
        mon = peripheral.wrap("right")
    elseif peripheral.getType("left")~="monitor" then
        mon = peripheral.wrap("left")
    else
        return
    end
  if mon then
    mon.clear()
    mon.setTextScale(0.5)
    monMaxX,monMaxY = mon.getSize()
    print(monMaxX,monMaxY)
    if monMaxX < 61 then
        mon.write("monitor too small. Min 4 wide")
        return
    end
    sw = fs.open("log.txt",fs.exists("log.txt") and "a" or "w")
    line=ign.." "..description
    sw.writeLine(os.day().."/"..os.time()..": "..ign.." "..description)
    sw.close()
    sr = fs.open("log.txt","r")
    monY=1
    msg="starting log..."
    while msg~=nil do
        ok,msg = pcall(sr.readLine)
        mon.setCursorPos(1,monY)
        mon.write(msg)
        monY=monY+1
    end
    sr.close()
end

end



-- e.g. post('tom', 2, ' has left sensor range')
function post(ign, event, description)

            http.post("http://mrjohndowe.com/craftnanny/code/log.php",
            "token="..token.."&ign="..ign.."&id="..os.getComputerID().."&event="..event.."&description="..description)
            logging(ign, event, description)
end

function tablelength(T) --get real count of table
  local count = 0
  for _ in pairs(T) do count = count + 1 end
  return count
end

function compare(t1,t2)
    local ai = {}
    local r = {}
    table.sort(t1) --sorting by name
    table.sort(t2) --sorting by name

    for k,v in pairs(t2) do
        r[k] = v; ai[v]=true
    end
    for k,v in pairs(t1) do
        if ai[v]~=nil then   --if item match, remove it from temp table r
            r[k]=nil
        end
    end

    if tablelength(r) > 0 then --if there are items left in r
         return true,r
    else
        return false,nil
    end
end

function start_recording()
    -- main loop
    while true do
        -- run scan
        ok,msg=pcall(record)
        if not ok then
            print(msg)
            break
        end
        leaveCheck()

        -- animate screen and delay
        scanner_screen()
        sleep(0.5)
        scanner_screen()
        sleep(0.5)

        -- main active status with server
        time = time + 1
        if time > 30 then
            time=0
            phone_home()
        end
    end
end

function start()
    s=peripheral.wrap("top")
    heart=0
    term.clear()
    term.setCursorPos(1,1)

  if fs.exists("config.txt") then
      load_config()
      start_recording()
  else
      run_installer()
  end
end

start()