Build an Adventure with ComputerCraft

local w,h = term.getSize()
graph = {}
function drawBorder()
term.setBackgroundColour(colours.blue)
term.setTextColour(colours.white)
for i = 1,h do
  term.setCursorPos(1,h-i+1)
  if i % 4 == 0 then
   local val = ""..(i/4)
   term.write(string.sub(val, 1, 1))
  elseif i % 2 == 0 then
   term.write("-")
  else
   term.write(" ")
  end
end

term.setCursorPos(2, h)
term.write(string.rep("   |", w/2))
end
function drawGraph()
if math.random(1,50) == 1 then graph = { } end
table.insert(graph, 1, math.random(1, h-1))
if #graph >= w/2+1 then table.remove(graph, #graph) end

for i=1,#graph do
  if graph[i] <= h/4 then
   term.setBackgroundColour(colours.lime)
  elseif graph[i] <= h/2 then
   term.setBackgroundColour(colours.yellow)
  elseif graph[i] <= (3 * h)/4 then
   term.setBackgroundColour(colours.orange)
  else
   term.setBackgroundColour(colours.red)
  end

  for nh=1,graph[i] do
   term.setCursorPos((i*2), h - nh)
   term.write("  ")
  end
end
end
while true do
term.setBackgroundColour(colours.black)
term.clear()
drawBorder()
drawGraph()
sleep(1)
end

local args = {...}
if #args < 2 then
print("USAGE: decryptor [key] [side]")
end
local key = tonumber(args[1])
math.randomseed(os.time())
local chars = {
"a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"k",
"l",
"m",
"n",
"o",
"p",
"q",
"r",
"s",
"t",
"u",
"v",
"w",
"x",
"y",
"z",
" ",
"_",
"#",
"@",
"!",
"*",
"^",
"1",
"2",
"3",
"4",
"5",
"6",
"7",
"8",
"9",
"0",
"+",
"-",
"~",
"`",
"%",
"$",
"{",
"}",
"\\",
"/",
">",
"<",
";",
":",
}
local function generateRandomChar(includeUpper)
local char = chars[math.random(1,#chars)]
if includeUpper then
  local doUpper = math.random(1,2)
  if doUpper == 2 then
   char = string.upper(char)
  end
end
return char
end
local function doDecrypt(side)
local lines = {}
local currentLine = ""
local path = fs.combine(disk.getMountPath(side), "data")
local handle = fs.open(path, "rb")
while true do
  local byte = handle.read()
  if byte then
   byte = bit.bxor(byte, key)
   currentLine = currentLine..string.char(byte)
   if string.char(byte) == "\n" then
	table.insert(lines, currentLine)
	currentLine = ""
   end
  else
   break
  end
end
handle.close()
return lines
end
local function lookCool(lines)
for i,v in ipairs(lines) do
  local coolStr = ""
  for progress=1, 20 do
   for i=1, #v do
	coolStr = coolStr..generateRandomChar(true)
   end
   term.clear()
   term.setCursorPos(1,1)
   print("Currently decrypting line "..i.."...")
   print("Line Progress: "..math.floor((progress/20)*100).."%")
   print("Total Progress: "..math.floor((i/#lines)*100).."%")
   print("Current Attempt:")
   print(coolStr)
   coolStr = ""
   os.sleep(0.5)
  end
  local handle = fs.open("decrypted.data", "a")
  handle.write(v)
  handle.close()
end
term.clear()
term.setCursorPos(1,1)
print("Done!")
print("Data written to \"decrypted.data\".")
end
lookCool(doDecrypt(args[2]))

local args = {...}
if #args < 2 then
print("USAGE: encryptor [file] [key]")
end
local key = tonumber(args[2])
local bytes = {}
local handle = fs.open(args[1], "rb")
while true do
local byte = handle.read()
if byte then
  table.insert(bytes, bit.bxor(byte, key))
else
  break
end
end
handle.close()
local enc_handle = fs.open("data", "wb")
for i,v in ipairs(bytes) do
enc_handle.write(v)
end
enc_handle.close()

local function split( _sInput, _sDelimiter )
    local tReturn = {}
    local delimiter = string.gsub( _sDelimiter, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1" )
    local searchPattern = "([^"..delimiter.."]+)"..delimiter.."?"

    for match in string.gmatch( _sInput, searchPattern ) do
	    table.insert( tReturn, match )
    end
    return tReturn
end




local function getColor(ch)
    local chCol = {}
    chCol["+"] = colors.blue
    chCol["#"] = colors.orange
    chCol["@"] = colors.white
    chCol[":"] = colors.green
    chCol["."] = colors.lightBlue
    return chCol[ch]
end

local function drawMap(map, offset)
    local pos = map.player
    for y=1,map.height do
        local xln = map[y]
        for x=1,map.width do
            local ch = string.sub(xln, x, x)
            if ch ~= nil then
                local col = getColor(ch)
                if col == nil then col = colors.white end
                term.setCursorPos(offset[1]+x, offset[2]+y)
                term.setTextColor(col)
                term.write(ch)
            end
        end
    end
    term.setCursorPos(pos[1]+offset[1], pos[2]+offset[2])
    local col = getColor(".")
    if col == nil then col = colors.lightBlue end
    term.setTextColor(col)
    term.write(".")
end

local function loadMap(dir)
    if fs.exists(dir) then
        print("found dir...")
        local file = fs.open(dir, "r")
        local line = file.readLine()
        local lines = {}
        while line ~= nil do
            lines[#lines + 1] = line
            line = file.readLine()
        end
        file.close()
        print("loaded dir...")
        local map = {}
        map["height"] = #lines
        if #lines > 0 then
            for y=1,#lines do
                local line = lines[y]
                map["width"] = string.len(line)
                for x=1,string.len(line) do
                    local sub = string.sub(line, x, x)
                    if sub == ":" then map["player"] = {x,y,0,0} end
                end
                map[y] = line
            end
        end
        print("loaded map...")
        return map
    end
    return nil
end

local function checkPlayer(map, oldx, oldy)
    local player = map.player
    if player ~= nil then
        for y=1,#map do
            local line = map[y]
            for x=1,string.len(line) do
                if y == player[2] and x == player[1] then
                    local ch = string.sub(line, x, x)
                    if ch == "#" then return 1
                    elseif ch == "@" then return 2
                    elseif ch == "+" then
                        player[1] = oldx
                        player[2] = oldy
                        player[3] = 0
                        player[4] = 0
                    end
                end
            end
        end
    end
    return 0
end

local function updatePlayer(map)
    local player = map.player
    local nplayer = {player[1], player[2], player[3], player[4]}
    local oldpos = {nplayer[1], nplayer[2]}
    if player ~= nil then
        local mom = {nplayer[3], nplayer[4]}
        nplayer[1] = nplayer[1] + mom[1]
        nplayer[2] = nplayer[2] + mom[2]
    end
    map.player = nplayer
    return checkPlayer(map, oldpos[1], oldpos[2])
end

local function setMom(map, dirx, diry)
    local player = map["player"]
    if player ~= nil then
        if dirx ~= nil then
            player[3] = dirx
        end
        if diry ~= nil then
            player[4] = diry
        end
    end
end

local stuff = {...}
local dirln = ""
for i=1,#stuff do
    if i == 1 then dirln = stuff[1] else dirln = dirln.." "..stuff[1] end
end

local dirs = split(dirln, ":")
local dir = dirs[1]
local run_dir = dirs[2]

local function fail()
    print("HACK FAILED...")
    sleep(1)
    term.clear()
    term.setCursorPos(1,1)
end

local function win()
    print("HACK SUCEEDED...")
    sleep(1)
    term.clear()
    term.setCursorPos(1,1)
    os.run({}, run_dir)
end

local map = loadMap(dir)
if map ~= nil then
    if #map > 0 then
        local on = true
        local interval = 0.1
        
        local timer = os.startTimer(0)
        while on do
            local event, p1 = os.pullEvent()
            if event == "timer" and p1 == timer then
                term.clear()
                term.setCursorPos(1,1)
                local result = updatePlayer(map)
                if result == 0 then
                    drawMap(map, {0,0})
                    timer = os.startTimer(interval)
                elseif result == 1 then
                    fail()
                    on = false
                elseif result == 2 then
                    win()
                    on = false
                end
            elseif event == "key" then
                local key = p1
                if key == 200 then --up
                    setMom(map, 0, -1)
                elseif key == 203 then --left
                    setMom(map, -1, 0)
                elseif key == 208 then --down
                    setMom(map, 0, 1)
                elseif key == 205 then --right
                    setMom(map, 1, 0)
                elseif key == 29 then
                    on = false
                end
            end
        end
    end
end

++++++++++
+  :+@ +++
+ ++++ #++
+ #+++   #
+    +++ +
++++	 +
++++++++++

-- 2 by 5 monitor recommended
while true do
term.setTextColor(1)
w, h = term.getSize()
h2 = h/2 - 1
h3 = h2 + 2
term.clear()
term.setCursorPos (1,h2)
print ("loading...")
print ("+------------------------------------------------+")
print ("|												|")
print ("+------------------------------------------------+")
term.setTextColor(16384)
term.setCursorPos (1,1)
for i = 2,49 do
term.setTextColor(16384)
term.setCursorPos (i,h3)
write '>'
sleep (0.3)
end
end

-- 2 by 5 monitor reccomended
while true do
term.setTextColor(1)
w, h = term.getSize()
h2 = h/2 - 1
h3 = h2 + 2
term.clear()
term.setCursorPos (1,h2)
print ("connecting to rednet servers...")
print ("+------------------------------------------------+")
print ("|												|")
print ("+------------------------------------------------+")
term.setCursorPos (1,1)
for i = 2,49 do
term.setTextColor(32)
term.setCursorPos (i,h3)
write '>'
sleep (0.3)
end
end

while true do
print ("server connected rednet port 3")
sleep (0.5)
print ("start download antivirus")
sleep (0.5)
print ("download complete")
sleep (0.8)
print ("scanning computer for potential threats")
print ("searching files/emails/attatchedfiles")
term.setTextColor (16384)
sleep (0.8)
print ("virus detected")
term.setTextColor (1)
sleep (0.8)
print ("virus removed")
sleep (0.8)
print ("begining server log")
sleep (0.8)
print ("email received rednet port 36")
sleep (0.8)
print ("assigning tree branch server 2 to email procesing")
print ("security turtle 47 out of fuel sending maintenence")
sleep (0.8)
print ("CPU core at 37% heat")
sleep (0.8)
print ("RAM usage at 59%")
sleep (0.8)
term.setTextColor (16384)
print ("printer 21 out of ink")
term.setTextColor (1)
sleep (0.8)
print ("turtle 16 replacing ink")
sleep (0.8)
print ("disk 12 scanned")
sleep (0.8)
print ("disk 12 ejected")
sleep (0.8)
print ("data logs updating")
sleep (0.8)
print ("data logs updated")
sleep (0.8)
term.setTextColor (16384)
print ("data log core corrupted attemting to salvage data")
sleep (1)
print("data recovery failed 3 TB data lost")
term.setTextColor (1)
sleep (0.8)
print ("waiting on backup data to load")
sleep (0.8)
print ("data loaded")
sleep (0.8)
print ("file system loaded rebooting")
term.clear()
term.setCursorPos (1,1)
sleep (2)
end