pcpack

{
  [ "redcast/setup" ] = "local w, h = term.getSize()\
function clearScr()\
  term.clear()\
  term.setCursorPos(1,1)\
end\
clearScr()\
if fs.exists(\"startup\") then\
  print(\"Press any key to boot from disk...\")\
  local timer = os.startTimer(5)\
  repeat\
    event, timer = os.pullEvent()\
    if event == \"timer\" then\
      clearScr()\
      shell.run(\"startup\")\
      clearScr()\
      term.setTextColour(colours.yellow)\
      print(\"CraftOS 1.7\")\
      return\
      --os.shutdown()\
    elseif event == \"key\" then\
      break\
    end\
  until event == \"timer\" or event == \"key\"\
end\
function printCentered(string, y)\
  local x = (w/2)-(#string/2)\
  term.setCursorPos(x,y)\
  print(string)\
end\
function renderBaseSetup()\
  term.setBackgroundColour(colours.blue)\
  term.setTextColour(colours.white)\
  clearScr()\
  print(\"RedCast Public Beta Setup\")\
  print(\"=========================\")\
end\
renderBaseSetup()\
print(\"This program will install RedCast Public Beta\")\
print(\"on your system.\")\
print()\
print(\"Press C to continue, press Q to quit.\")\
repeat\
  local event, key = os.pullEvent(\"key\")\
  if key == keys.c then\
    break\
  elseif key == keys.q then\
   os.reboot()\
  end\
until key == keys.c or key == keys.q\
renderBaseSetup()\
local file = fs.open(\"disk/eula\", \"r\")\
print(file.readAll())\
file.close()\
print()\
print(\"Press Y to agree.\")\
print(\"Press N to disagree.\")\
repeat\
  local event, key = os.pullEvent(\"key\")\
  if key == keys.y then\
    break\
  elseif key == keys.n then\
    os.reboot()\
  end\
until key == keys.y or key == keys.n\
renderBaseSetup()\
print(\"There are two types of installation.\")\
print(\"Upgrade Install\")\
print()\
print(\"This upgrades a current installation.\")\
print(\"Press U to select this.\")\
print()\
print(\"Clean Install\")\
print()\
print(\"This makes a fresh install.\")\
print(\"Press C to select this.\")\
\
function upgradeInstall()\
  renderBaseSetup()\
  printCentered(\"Checking for previous RedCast installs...\",4)\
  sleep(2)\
  if fs.exists(\"startgui\") and fs.exists(\"devconfig\") then\
    renderBaseSetup()\
    print()\
    print(\"Upgrade to the latest version? Y/N\")\
    while true do\
      local event, key = os.pullEvent(\"key\")\
      if key == keys.y then\
        break\
      elseif key == keys.n then\
        renderBaseSetup()\
        print()\
        print(\"Rebooting...\")\
        sleep(2)\
        os.reboot()\
      end\
    end\
    renderBaseSetup()\
    local files = fs.list(\"disk/files\")\
    printCentered(\"Upgrading files...\",4)\
    for i,v in pairs(files) do\
      if fs.exists(v) and v ~= \"devconfig\" then\
        fs.delete(v)\
      end\
      if v ~= \"devconfig\" then\
        fs.copy(\"disk/files/\"..v, v)\
      end\
    end\
    sleep(2)\
    renderBaseSetup()\
    print(\"Replace configuration file? Y/N\")\
    while true do\
      local event, key = os.pullEvent(\"key\")\
      if key == keys.y then\
        if fs.exists(\"devconfig\") then\
          fs.delete(\"devconfig\")\
        end\
        fs.copy(\"disk/files/devconfig\",\"devconfig\")\
        break\
      end\
    end\
    renderBaseSetup()\
    print(\"Remove the disk.\")\
    sleep(3)\
    os.reboot()\
  else\
    cleanInstall()\
  end\
end\
\
function cleanInstall()\
  renderBaseSetup()\
  print(\"Format Drive C:?\")\
  print(\"Y/N\")\
  repeat\
    local event, key = os.pullEvent(\"key\")\
    if key == keys.y then\
      local rootFiles = fs.list(\"/\")\
      for i,v in pairs(rootFiles) do\
        if v ~= \"disk\" and v ~= \"rom\" then\
          fs.delete(v)\
        end\
      end\
      break\
    elseif key == keys.n then\
      break\
    end\
  until key == keys.y or key == keys.n\
  renderBaseSetup()\
  printCentered(\"Copying files to drive C...\",4)\
  sleep(3)\
  local installFiles = fs.list(\"disk/files\")\
  for i,v in pairs(installFiles) do\
    fs.copy(\"disk/files/\"..v, v)\
  end\
  renderBaseSetup()\
  print(\"Please remove the disk.\")\
  sleep(10)\
  os.reboot()\
end\
\
while true do\
  local event, key = os.pullEvent(\"key\")\
  if key == keys.u then\
    upgradeInstall()\
    break\
  elseif key == keys.c then\
    cleanInstall()\
    break\
  end\
end",
  [ "quicktype/startgame" ] = "--     \
--  QuickType - A small mini-game.\
--     Made by UseTheForce Productions\
--     \
--     Credits:\
--     Luke M.\
--\
\
if not fs.exists(\"CCQT/UTFPro\") then\
    fs.makeDir(\"CCQT\")\
    local UTFPro = fs.open(\"CCQT/UTFPro\", \"w\")\
    UTFPro.writeLine(\"bbbbbbbbbbbbb9\")\
    UTFPro.writeLine(\"b7bb88888777b9\")\
    UTFPro.writeLine(\"b7bb7b8b7bbbb9\")\
    UTFPro.writeLine(\"b7bb7b8b77bbb9\")\
    UTFPro.writeLine(\"b7bb7b8b7bbbb9\")\
    UTFPro.writeLine(\"b7777b8b7bbbb9\")\
    UTFPro.writeLine(\"bbbbbbbbbbbbb9\")\
    UTFPro.writeLine(\"99999999999999\")\
    UTFPro.close()\
end\
\
img = paintutils.loadImage(\"CCQT/UTFPro\")\
local score = 0\
local dgtime = 5\
\
function clear()\
    term.clear()\
    term.setCursorPos(1,1)\
end\
\
clear()\
\
function saveScore(value)\
    file = fs.open(\"CCQT/highscore.txt\", \"w\")\
    file.writeLine(value)\
    file.close()\
end\
\
function getScore()\
    if not fs.exists(\"CCQT/highscore.txt\") then\
        file = fs.open(\"CCQT/highscore.txt\", \"w\")\
        file.writeLine(\"0\")\
        file.close()\
        getScore()\
    else\
        file = fs.open(\"CCQT/highscore.txt\", \"r\")\
        highscore = file.readAll()\
        file.close()\
        return tonumber(highscore)\
    end\
end\
\
function gsleep()\
    sleep(tonumber(gtime))\
    return \"HI\"\
end\
\
function easyQuestion()\
    local letters = {\"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\"}\
    local question = {letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)]}\
    return question[1]..question[2]..question[3]..question[4]..question[5]..question[6]\
end\
\
function hardQuestion()\
    local letters = {\"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\", \"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\"}\
    local question = {letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)]}\
    return question[1]..question[2]..question[3]..question[4]..question[5]..question[6]\
end\
\
function insaneQuestion()\
    local letters = {\"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\", \"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 question = {letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)], letters[math.random(1, #letters)]}\
    return question[1]..question[2]..question[3]..question[4]..question[5]..question[6]\
end\
\
function easy()\
    clear()\
    eword = easyQuestion()\
    print(\"Score: \"..score)\
    print(\"\")\
    print(eword)\
    io.write(\"> \")\
    einput = io.read()\
    if string.lower(einput) == string.lower(eword) then\
        print(\"Correct!\")\
        isCorrect = true\
    elseif string.lower(einput) ~= string.lower(eword) then\
        print(\"Incorrect! You have lost.\")\
        isCorrect = false\
        hs = getScore()\
        if tonumber(score) > tonumber(hs) then\
            print(\"New High Score!!!\")\
            saveScore(score)\
        end\
            sleep(1)\
            return false\
    end\
end\
\
function hard()\
    clear()\
    hword = hardQuestion()\
    print(\"Score: \"..score)\
    print(\"\")\
    print(hword)\
    io.write(\"> \")\
    hinput = io.read()\
    if hinput == hword then\
        print(\"Correct!\")\
        isCorrect = true\
    elseif einput ~= eword then\
        print(\"Incorrect! You have lost.\")\
        isCorrect = false\
        hs = getScore()\
        if tonumber(score) > tonumber(hs) then\
            print(\"New High Score!!!\")\
            saveScore(score)\
        end\
            sleep(1)\
            return false\
    end\
end\
\
function insane()\
    clear()\
    iword = insaneQuestion()\
    print(\"Score: \"..score)\
    print(\"\")\
    print(iword)\
    io.write(\"> \")\
    iinput = io.read()\
    if iinput == iword then\
        print(\"Correct!\")\
        isCorrect = true\
    elseif einput ~= eword then\
        print(\"Incorrect! You have lost.\")\
        isCorrect = false\
        hs = getScore()\
        if tonumber(score) > tonumber(hs) then\
            print(\"New High Score!!!\")\
            saveScore(score)\
        end\
            sleep(1)\
            return false\
    end\
end\
\
function moreInfo()\
    clear()\
    print(\"          <[QuickType for RedCast]>\")\
    print(\"                     Info\")\
    print(\"\")\
    print(\"All you have to do is copy what comes up on the screen as fast as you can. The time you typed in the beginning was how long you have to type the word in the time between when it appears and when you have to type it.\\n\")\
    print(\"Easy: Not case-sensitive. Only Letters. Just copy!\")\
    print(\"\")\
    print(\"Hard: Case-sensitive. Only letters.\")\
    print(\"\")\
    print(\"Insane: Case-sensitive. Letters, numbers, symbols.\")\
    print(\"\")\
    print(\"Press any key to continue...\")\
    while true do\
        event = os.pullEvent()\
        if event == \"key\" then\
            parallel.waitForAll(unosleep, hi)\
            start()\
        end\
    end\
end\
\
function unosleep()\
    sleep(0.5)\
end\
    \
function hi()\
    print(\"\")\
    print(\"                       ...\")\
end\
\
function start()\
    score = 0\
    gtime = htime\
    hs = getScore()\
    repeat  \
        clear()\
        print(\"             <[[[QuickType]]]>     High Score: \"..hs)\
        print(\"           Choose your Gamemode:\")\
        print(\"\")\
        print(\"                Easy (e)\")\
        print(\"                Hard (h)\")\
        print(\"               Insane (i)\")\
        print(\"              More Info (m)\")\
        print(\"                Exit (ex)\")\
        print(\"\")\
        io.write(\"                > \")\
        gamemode = string.lower(io.read())\
        \
        if gamemode == \"e\" then\
            gtype = \"easy\"\
        \
        elseif gamemode == \"h\" then\
            gtype = \"hard\"\
            \
        elseif gamemode == \"i\" then\
            gtype = \"insane\"\
        elseif gamemode == \"easter\" then\
   term.clear()\
   term.setCursorPos(2,2)\
   print(\"RedCast Easter Egg!\")\
   textutils.slowPrint(\"Thanks for choosing RedCast!\")\
   sleep(2)\
   term.setBackgroundColour(colours.red)\
   term.setTextColour(colours.white)\
        elseif gamemode == \"ex\" then\
            print(\"Goodbye!\")\
            sleep(2)\
            clear()\
            error()\
            \
        elseif gamemode == \"m\" then\
            moreInfo()\
            \
        else\
            print(\"Invalid Answer\")\
            sleep(1)\
        end\
    until gtype ~= nil\
    clear()\
    print(\"Are you ready? (y/n)\")\
    io.write(\"> \")\
    local input = string.lower(io.read())\
    if input == \"y\" then\
        clear()\
        if gtype == \"easy\" then \
            geasy()\
            start()\
        elseif gtype == \"hard\" then \
            ghard() \
            start()\
        elseif gtype == \"insane\" then \
            ginsane()\
            start()\
        else\
            print(\"An Unknown Error Occurred...\")\
            sleep(2)\
            error()\
        end\
    else\
        start()\
    end\
end\
\
function geasy()\
    x = parallel.waitForAny(gsleep, easy)\
    if x == 2 then\
        if isCorrect == false then\
            start()\
        else\
            score = score + 1\
            gtime = gtime - 0.2\
            sleep(1)\
            geasy()\
        end\
    end\
    if x == 1 then\
        print(\"\\nTime is up! You lose!\")\
        if score > hs then\
            print(\"New High Score!\")\
            saveScore(score)\
        end\
        sleep(2)\
        return \"HI\"\
    end\
end\
\
function ghard()\
    x = parallel.waitForAny(hard, gsleep)\
    if x == 1 then\
        if isCorrect == false then\
            start()\
        else\
            score = score + 1\
            gtime = gtime - 0.2\
            sleep(1)\
            geasy()\
        end\
    end\
    if x == 2 then\
        print(\"\\nTime is up! You lose!\")\
        if score > hs then\
            print(\"New High Score!\")\
            saveScore(score)\
        end\
        sleep(2)\
        return \"HI\"\
    end\
end\
\
function ginsane()\
    x = parallel.waitForAny(insane, gsleep)\
    if x == 1 then\
        if isCorrect == false then\
            start()\
        else\
            score = score + 1\
            gtime = gtime - 0.2\
            sleep(1)\
            geasy()\
        end end\
    if x == 2 then\
        print(\"\\nTime is up! You lose!\")\
        if score > hs then\
            print(\"New High Score!\")\
            saveScore(score)\
        end\
        sleep(2)\
        return \"HI\"\
    end\
end\
\
print(\"Getting highscore...\")\
hs = getScore()\
function timew()\
    io.write(\"Enter time > \")\
    htime = tonumber(io.read())\
    if htime == nil then\
        print(\"Must be a number\")\
        timew()\
    elseif htime < 0 then\
        print(\"Must be greater than 0\")\
        timew()\
    elseif htime > 10 then\
        print(\"Must be less than or equal to 10\")\
        timew()\
    else\
        gtime = htime\
    end\
end\
timew()    \
print(\"Initializing...\")\
sleep(0.82946)\
clear()\
sleep(1)\
if term.isColor() then\
    paintutils.drawImage(img, 19, 4)\
    term.setCursorPos(11, 13)\
    term.setBackgroundColor(colors.black)\
    write(\"UseTheForce Productions Presents\")\
else\
    term.setCursorPos(11, 10)\
    write(\"UseTheForce Productions Presents\")\
end\
sleep(3)\
term.setBackgroundColor(colors.black)\
clear()\
start()",
  cube = "\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee",
  [ ".copyprotect" ] = "BDFHJLNP",
  [ "goldrunner/levels/07_pyramid" ] = "        8     bbbb  0 b     b                    \
        8b bbbb    8bbb  5  b                    \
        8b        8bbb   8  b                    \
        8bbbbbbbbbbbbbbbbbbbb                    \
        8                                        \
        8                          ddd          b\
        8                         c   bbbbbbbbbcb\
        8                         c      4bbb  cb\
b       8ddd ddddddd   e   dddddddc      bbb4  cb\
bbbbbbbbb   c       bbbbbbb       c      4bbb  cb\
b       b   c      bbb444bbb      c      bbb4  cb\
b   4   b   c     bbb4   4bbb     c      4bbb  cb\
b  bbb  b   c    bbb4     4bbb    c      7777  cb\
b 4   4 b   c   bbb4       4bbb   cbbbbbbbbbbbbbb\
b bbbbb b   c  bbb           bbb  c             b\
bddd4dddb   c bbbbbbbbbbbbbbbbbbb c cbbb        b\
b4  b  4    c      e       e      c cbbb 4444   b\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  [ "goldrunner/levels/classic_002" ] = "bbbbbbbbbb   4                       5bbbbbbbbbb\
bbbbbbbbbbc77b77c           4        cbbbbbbbbbb\
bbbbbbbbbbc     c    cbbbbbbbbbc 4   cbbbbbbbbbb\
bbbbbbbbbbc 4 e c    c         cbbbb1cbbbbbbbbbb\
bbbbbbbbbbcb7b7bc    c         c     8bbbbbbbbbb\
bbbbbbbbbbc     cddddcdddddd  ec     8bbbbbbbbbb\
bbbbbbbbbbc     c    c     cbbb777777cbbbbbbbbbb\
bbbbbbbbbbc     c    c  4  c         cbbbbbbbbbb\
bbbbbbbbbbc   e c 4  cbbbbbc         cbbbbbbbbbb\
bbbbbbbbbb7bbb7bb7bb7c         cbbbcbbbbbbbbbbbb\
bbbbbbbbbb7bbb7      c         c   c  bbbbbbbbbb\
bbbbbbbbbb74  7      c   ddddddc   c 4bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbcbbb7777     c  bbbbbbbbbbbbbb\
bbbbbbbbbb        c            c      bbbbbbbbbb\
bbbbbbbbbb        c   0        c      bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/09_skyislands" ] = "                                                 \
                        05          ddddd 4e4    \
     4ddddddd           cc               bbcbb   \
  bbbc       4          ccddddd     4      c     \
   4 c       4     dddddcc     bbbb        c  4  \
  bcbb       4    4     cc     b44bddd  4  c4    \
   c4       bbbbbbbb    cc     bbbb   bbbbbbbb   \
  bbcb        4  4      ccdddddddd    b  e 44b   \
    c        4    4     cc            b cbbbbb   \
    c ddd               cc         4  b4c    b   \
  bbbb   bbbbbbbbbbbb   cc      cbbb  bbcddc b   \
         bbbbbbbbbbbb   cc    4 c4    b c  c b   \
           b4    c  ddddcc  bbbbbbb   b4c4bc4b   \
         c bbbbbbc 4b   cc            bbbbbbbb   \
         c4b4   ec  b   cc                4      \
         bbbbbbbbbbbb   cc                       \
7            e       4  cc  4                   7\
7b7b7b7b7b7b7b7b7b7b7b7b77b7b7b7b7b7b7b7b7b7b7b77",
  pack = "local function listAll(_path, _files)\
  local path = _path or \"\"\
  local files = _files or {}\
  for _, file in ipairs(fs.list(path)) do\
    local path = fs.combine(path, file)\
    if fs.isDir(path) and file ~= \"rom\" then\
      listAll(path, files)\
    else\
      if file ~= \"startup\" and file ~= \"rom\" then\
        table.insert(files, path)\
      end\
    end\
  end\
  return files\
end\
function getAll()\
  files = listAll()\
  data = {}\
  for i,v in pairs(files) do\
    f = fs.open(v,\"r\")\
    data[v] = f.readAll()\
    f.close()\
  end\
  return data\
end\
function save(table,pref)\
  for i,v in pairs(table) do\
    f = fs.open(pref..i,\"w\")\
    f.writeLine(v)\
    f.close()\
  end\
end",
  [ "redcast/files/lang/en" ] = "return {\
  start = {\
    welcome = \"Welcome to RedCast.\",\
    revolution = \"The console revolution.\",\
    setup = \"Press DEL to enter setup.\",\
    free = \"You have %free% bytes left.\"\
  },\
  disk = {\
    detect = \"Disk detected.\",\
    media = \"Media disk detected.\",\
    playquestion = \"Would you like to play the music?\",\
    play = \"Now playing %title%\"\
  },\
  gui = {\
    advancedonly = \"This GUI can not be run on monochrome computers.\",\
    menu = {\
      restart = \"Restart\",\
      shutdown = \"Shutdown\",\
      chatmanager = \"Chat\",\
      paint = \"Paint\",\
      redspace = \"RedSpace\",\
      floppy = \"Floppy\",\
      credits = \"Credits\"\
    },\
    paint = {\
      open = \"Enter new/existing file name: \"\
    },\
    redspace = {\
      id = \"Enter server ID: \"\
    }\
  }\
}",
  [ "goldrunner/startgame" ] = "--[[\
    Gold Runner\
    \
    Inspired by the game by Doug Smith\
    Collect all the gold while not being eaten by the monks!\
\
    Written by: Nitrogen Fingers\
]]--\
\
local version = 1.0\
local reponame = \"Gold Runner\"\
local requiresColour = true\
if requiresColour then\
    print(\"This game can only be played on an Advanced Computer.\")\
end\
\
local function displayNitrosoftTitle()\
    shell.run(\"clear\")\
    local _w,_h = term.getSize()\
    local _t1,_t2 = \"nitrosoft\", \"games\"\
    term.setCursorPos(math.floor(_w/2-#_t1), math.floor(_h/2))\
    if term.isColour() then term.setTextColour(colours.blue) end\
    term.write(_t1)\
    term.setCursorPos(math.floor(_w/2-#_t2/2),math.floor(_h/2)+1)\
    term.setTextColour(colours.white)\
    term.write(_t2)\
    term.setCursorPos(math.floor(_w/2-#_t1), math.floor(_h/2)+2)\
    if term.isColour() then term.setTextColour(colours.yellow) end\
    term.write(string.rep(\"$\",#_t1*2))\
    if term.isColour() then\
        term.setBackgroundColour(colours.green)\
        term.setCursorPos(_w/2+#_t1-4, math.floor(_h/2)-2)\
        term.write(\"  \")\
        term.setCursorPos(_w/2+#_t1-4, math.floor(_h/2)-1)\
        term.write(\"  \")\
        term.setBackgroundColour(colours.lime)\
        term.setCursorPos(_w/2+#_t1-3, math.floor(_h/2)-1)\
        term.write(\"  \")\
        term.setCursorPos(_w/2+#_t1-3, math.floor(_h/2))\
        term.write(\"  \")\
    end\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    term.setCursorPos(1,_h)\
    term.write(\"v\"..version)\
    os.pullEvent(\"key\")\
end\
displayNitrosoftTitle()\
\
local w,h = term.getSize()\
\
local running = true\
local started = false\
local nextLevel = false\
\
local inLevelSelect = false\
local inLevelEditor = false\
local levelEditName = nil\
local hexnums = { [10] = \"a\", [11] = \"b\", [12] = \"c\", [13] = \"d\", [14] = \"e\" , [15] = \"f\" }\
\
local titleLoaded = false\
local menSel = \"none\"\
local titleOptions = { \"New Game\", \"Select Level\", \"Create Level\", \"Quit\" }\
local inGameOptions = { \"Restart\", \"Edit Level\", \"Back to Title\", \"Quit\" }\
local levelEditOptions = { \"Save\", \"Play Level\", \"Save and Exit\", \"Discard and Exit\" }\
local menIndex = 1\
\
local maxnamelen = 14\
\
local drawOffsetX = 1\
local drawOffsetY = 0\
\
local map = {}\
local goldMap = {}\
local blockTimers = {}\
local blockIntv = 5\
\
local monks = {}\
local monkTimer = -1\
local monkSpawnIntv = 3\
local monkTrapIntv = blockIntv/2\
\
local goldCount = 0\
local maxGoldCount = 0\
local playerLives = 3\
local playerScore = 0\
local plspawnX = 0\
local plspawnY = 0\
\
local plX = 0\
local plY = 0\
local pfalling = false\
local moveTimer = -1\
local shootTimer = -1\
local spawnTimer = -1\
local moveIntv = 0.15\
\
local exX = 0\
local exY = 0\
\
local levelList = {}\
local currentLevel = 1\
local levelLot = 1\
\
local titleLevel = {\
    \"                                                 \";\
    \"                                  dddddddddddc   \";\
    \"                                 4           c   \";\
    \"      4                                    4 c   \";\
    \"  bbbbbbc                               bcbbbb   \";\
    \"  b 4 b c                                c       \";\
    \"  bbbbb c  4                  dd 0     4 c 4     \";\
    \"        bbcb                    bbb     bbbbc    \";\
    \"          c                                 c    \";\
    \"          c                             ddd c  eb\";\
    \"     dddddc                          bcb   cbbbbb\";\
    \"    c                                 c    c bbbb\";\
    \"b4  c                                4c     bb44b\";\
    \"bbb c    4  e                   bbbcbbbbbbbbbbbbb\";\
    \"bbbbbbbbbbbbbbc           4        cbbbbb 4  bbbb\";\
    \"bbbbbbfff44fbbc 4     cbbbbbbb     cbbbbbbb bbbbb\";\
    \"bbbbffffbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 4 bbbbbbb\";\
    \"bbbffbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb5  bbbbbbbbb\";\
}\
\
local function parseValue(x, y, lchar)\
if tonumber(lchar, 16) then\
    lchar = math.pow(2, tonumber(lchar,16))\
    \
    if lchar == colours.blue then\
      map[y][x] = 0\
    elseif lchar == colours.brown then\
      map[y][x] = 'H'\
    elseif lchar == colours.yellow then\
      goldMap[y][x] = 1\
      goldCount = goldCount + 1\
    elseif lchar == colours.orange then\
      map[y][x] = 'V'\
    elseif lchar == colours.green then\
      map[y][x] = '-'\
    elseif lchar == colours.lightGrey then\
      map[y][x] = 'h'\
    elseif lchar == colours.grey then\
      map[y][x] = '#'\
    elseif lchar == colours.white then\
      plX = x\
      plspawnX = x\
      plY = y\
      plspawnY = y\
    elseif lchar == colours.lime then\
      exX = x\
      exY = y\
    elseif lchar == colours.red then\
      table.insert(monks, {\
        --X and Y, clear enough\
        x = x, y = y;\
        --Where they spawn when they die\
        spawnX = x, spawnY = y;\
        -- Any gold they're carring- it's a 1 in 5\
        gold = false;\
        -- Whether or not they're falling\
        falling = false;\
        -- Timer if they're dead to respawn\
        dead = nil;\
        --Whether or not the monk has just spawned\
        justSpawned = true;\
        --Whether or not the monk has just escaped\
        justEscaped = false;\
        -- Current aim- it's \"up\", \"down\", \"across\" or \"none\"\
        behaviour = \"none\";\
        -- The desired x position to travel to, when one is necessary.\
        desX = nil;\
        -- The escape timer\
        trapped = nil;\
      })\
    end\
  end\
end\
\
local function loadMap(_sPath)\
  if not fs.exists(_sPath) then return false end\
  map = {}\
  goldMap = {}\
  monks = {}\
  goldCount = 0\
    \
  local file = fs.open(_sPath, \"r\")\
  local line = file:readLine()\
  while line do\
    goldMap[#map+1] = {}\
    map[#map+1] = {}\
    for i=1,math.min(#line,49) do\
      local lchar = string.sub(line,i,i)\
      parseValue(i, #map, lchar)\
    end\
    if #map == 18 then break end\
    line = file:readLine()\
  end\
  file:close()\
  maxGoldCount = goldCount\
  titleLoaded = false\
  return true\
end\
\
--When something moves or something needs to be drawn, we\
--just change the appropriate tile with this method.\
local function updateMap(x,y)\
    term.setCursorPos(x + drawOffsetX, y + drawOffsetY)\
    term.setBackgroundColour(colours.black)\
    if plX == x and plY == y and map[y][x] ~= 0 then\
      term.setTextColour(colours.white)\
      if map[y][x] == 1 then term.setBackgroundColour(colours.lightBlue)\
      elseif map[y][x] == \"V\" then term.setBackgroundColour(colours.blue) end\
      term.write(\"&\")\
    elseif map[y][x] == 'H' then\
      term.setTextColour(colours.brown)\
      term.write(\"H\")\
    --Level Editor stuff\
    elseif map[y][x] == 'h' and (goldCount == 0 or inLevelEditor) then\
      if inLevelEditor then term.setTextColour(colours.lightGrey)\
      else term.setTextColour(colours.brown) end\
      term.write(\"H\")\
    elseif map[y][x] == '&' and inLevelEditor then\
      term.setTextColour(colours.pink)\
      term.write('&')\
    elseif map[y][x] == 'V' then\
      term.setBackgroundColour(colours.blue)\
      if inLevelEditor then\
        term.setTextColour(colours.orange)\
        term.write(\"V\")\
      else\
        term.write(\" \")\
      end\
    elseif map[y][x] == '-' then\
      term.setTextColour(colours.brown)\
      term.write(map[y][x])\
    elseif map[y][x] == '#' then\
      term.setBackgroundColour(colours.grey)\
      term.write(\" \")\
    elseif type(map[y][x]) == \"number\" then\
      local uchar = ' '\
      if map[y][x] == 3 then\
        term.setBackgroundColour(colours.lightBlue)\
      elseif map[y][x] == 2 and goldMap[y][x] == 1 then\
        term.setTextColour(colours.yellow)\
        uchar = '$'\
      elseif map[y][x] == 1 then\
        term.setBackgroundColour(colours.lightBlue)\
      elseif map[y][x] == 0 then\
        term.setBackgroundColour(colours.blue)\
      end\
      term.write(uchar)\
    elseif goldMap[y][x] == 1 or goldMap[y][x] == 2 then\
      term.setTextColour(colours.yellow)\
      term.write(\"$\")\
    elseif exX == x and exY == y and (goldCount == 0 or inLevelEditor) then\
      term.setTextColour(colours.lime)\
      term.write(\"@\")\
    else\
      term.write(\" \")\
    end\
end\
\
--It's silly to iterate through all monks when drawing tiles, so\
--we do it separately.\
local function drawMonk(monk)\
    term.setCursorPos(monk.x + drawOffsetX, monk.y + drawOffsetY)\
    if monk.justSpawned then term.setTextColour(colours.pink)\
    else term.setTextColour(colours.red) end\
    if map[monk.y][monk.x] == 1 then term.setBackgroundColour(colours.lightBlue)\
    elseif map[monk.y][monk.x] == \"V\" then term.setBackgroundColour(colours.blue)\
    else term.setBackgroundColour(colours.black) end\
    term.write(\"&\")\
end\
\
--Draws the map for the first time. It barely changes, so we really\
--only call this the once.\
local function drawMap()\
  term.setBackgroundColour(colours.black)\
  term.clear()\
  for y=1,#map do\
    for x=1,49 do\
      updateMap(x,y)\
    end\
  end\
  for _,monk in pairs(monks) do drawMonk(monk)end\
end\
\
--When all coins have been collected, we add in invisble ladders and\
--the end game portal.\
local function drawEndgameMap()\
  for y=1,#map do\
    for x=1,49 do\
      if map[y][x] == 'h' or (exX == x and exY == y) then\
        updateMap(x,y)\
      end\
    end\
  end\
end\
\
--Sets the map back to defaults, so we can start afresh\
local function resetMap()\
    goldCount = maxGoldCount\
    for i=1,#goldMap do\
        for j=1,49 do\
            if goldMap[i][j] == 0 then goldMap[i][j] = 1 end\
            if goldMap[i][j] == 2 then goldMap[i][j] = nil end\
        end\
    end\
    for _,monk in pairs(monks) do\
        monk.justSpawned = true\
        monk.dead = nil\
        monk.trapped = nil\
        monk.justEscaped = false\
        monk.falling = false\
        monk.behaviour = \"none\"\
        monk.x = monk.spawnX\
        monk.y = monk.spawnY\
    end\
    \
    for _,timer in pairs(blockTimers) do\
        map[timer.y][timer.x] = 0\
    end\
    blockTimers = {}\
    plX = plspawnX\
    plY = plspawnY\
    \
    moveTimer = -1\
    shootTimer = -1\
    spawnTimer = -1\
    monkTimer = -1\
    pfalling = false\
end\
\
--Draws the HUD. This also rarely changes, so we update it when something happens.\
local function drawHUD()\
  term.setCursorPos(2,19)\
  term.setBackgroundColour(colours.black)\
  term.clearLine()\
  term.setTextColour(colours.blue)\
  term.write(\"Score: \")\
  term.setTextColour(colours.yellow)\
  term.write(string.rep(\"0\", 5-math.floor(math.log10(playerScore + 1)))\
    ..playerScore)\
  term.setTextColour(colours.yellow)\
  term.setCursorPos(25 - #levelList[currentLevel]/2, 19)\
  term.write(levelList[currentLevel])\
  local lstr = \"Men: \"\
  term.setCursorPos(50 - #lstr - math.floor(math.log10(playerLives)), 19)\
  term.setTextColour(colours.blue)\
  term.write(lstr)\
  term.setTextColour(colours.yellow)\
  term.write(playerLives..\"\")\
end\
\
--Draws the list of levels known, with respect to screen\
--real estate\
local function drawLevelList()\
    local minLev = ((levelLot-1) * 10 + 1)\
    local maxLev = minLev + math.min(10, #levelList - (levelLot-1) * 10) - 1\
    \
    term.setCursorPos(7, 2)\
    term.setBackgroundColour(colours.black)\
    term.clearLine()\
    for j = 1,49 do updateMap(j,2) end\
    \
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    term.setCursorPos(7, 2)\
    local msg = \"Levels \"..minLev..\" to \"..maxLev..\" of \"..#levelList\
    term.write(msg)\
    \
    term.setTextColour(colours.yellow)\
    term.setCursorPos(4, 2)\
    if levelLot > 1 then term.write(\"<-\")\
    else term.write(\"  \") end \
    \
    term.setCursorPos(8 + #msg, 2)\
    if maxLev < #levelList then term.write(\"->\")\
    else term.write(\" \") end\
    \
    for i = 1,10 do\
        term.setCursorPos(1, 3+i)\
        for j = 1,49 do updateMap(j,3+i) end\
        term.setTextColour(colours.white)\
        term.setBackgroundColour(colours.black)\
        term.setCursorPos(17, 3+i)\
        if i + (levelLot-1)*10 - 1 < maxLev then\
            term.write(levelList[10 * (levelLot-1) + i])\
        end\
    end\
end\
\
--Loads up and draws up the title screen, for a nice\
--intro to Gold Runner\
local function loadTitleScreen()\
  map = {}\
  goldMap = {}\
  monks = {}\
  goldCount = 0\
  for i=1,#titleLevel do\
    local line = titleLevel[i]\
    goldMap[#map+1] = {}\
    map[#map+1] = {}\
    for i=1,math.min(#line,49) do\
      local lchar = string.sub(line,i,i)\
      parseValue(i, #map, lchar)\
    end\
    if #map == 18 then break end\
  end\
  maxGoldCount = goldCount\
  \
  drawMap()\
  term.setCursorPos(1,19)\
  term.setBackgroundColour(colours.blue)\
  term.clearLine()\
  \
  menIndex = 1\
  titleLoaded = true\
end\
\
--Opens an in-game menu to display a series of options.\
local function inGameMenu(menuList)\
    menIndex = 1\
    \
    local squareTop,squareBottom = 4,6 + #menuList * 2\
    local squareSize = 0\
    for i=1,#menuList do squareSize = math.max(squareSize, #menuList[i] + 6) end\
    \
    for y=squareTop,squareBottom do\
        term.setCursorPos(w/2 - squareSize/2, y)\
        term.setBackgroundColour(colours.lightBlue)\
        term.write(string.rep(\" \", squareSize))\
        \
        if y ~= squareTop and y ~= squareBottom then\
            term.setCursorPos(w/2 - squareSize/2 + 1, y)\
            term.setBackgroundColour(colours.black)\
            term.write(string.rep(\" \", squareSize - 2))\
        end\
        \
        if y ~= squareTop and y ~= squareBottom and y % 2 == 0 then\
            local opt = menuList[(y - squareTop) / 2]\
            term.setCursorPos(w/2 - #opt/2, y)\
            term.setTextColour(colours.white)\
            term.write(opt)\
        end\
    end\
    \
    local p1 = nil\
    repeat\
        for i=1,#menuList do\
            term.setBackgroundColour(colours.black)\
            term.setTextColour(colours.yellow)\
            if i == menIndex then\
                term.setCursorPos(w/2 - squareSize/2 + 1, squareTop + i * 2)\
                term.write(\">\")\
                term.setCursorPos(w/2 + squareSize/2 - 2, squareTop + i * 2)\
                term.write(\"<\")\
            else\
                term.setCursorPos(w/2 - squareSize/2 + 1, squareTop + i * 2)\
                term.write(\" \")\
                term.setCursorPos(w/2 + squareSize/2 - 2, squareTop + i * 2)\
                term.write(\" \")\
            end\
        end\
        _,p1 = os.pullEvent(\"key\")\
        \
        if p1 == keys.up and menIndex > 1 then menIndex = menIndex - 1\
        elseif p1 == keys.down and menIndex < #menuList then menIndex = menIndex + 1 end\
    until p1 == keys.enter\
    \
    return menuList[menIndex]\
end\
\
--Checks to see if any given desired move is legal. Monks and players both use this.\
local function isLegalMove(initX,initY,finX,finY)\
    if finY < 1 or finY > #map or finX < 1 or finX > 49 then \
        return false \
    end\
    \
    if map[finY][finX] ~= 0 and map[finY][finX] ~= '#' then\
        --This reports 'self moves' as being illegal, but that's fine\
        for _,monk in pairs(monks) do\
            if monk.x == finX and monk.y == finY then return false end\
        end\
\
        if finY == initY-1 and (map[initY][initX] == \"H\" or (map[initY][initX] == \"h\" and goldCount == 0))\
            then return true\
        elseif finY == initY+1 and (map[finY][finX] == \"H\" or (map[finY][finX] == \"h\" and goldCount == 0)\
                or (type(map[finY][finX]) == \"number\" and map[finY][finX] > 0) or map[finY][finX] == nil or\
                map[finY][finX] == \"V\" or map[finY][finX] == \"-\" or (map[finY][finX] == 'h' and goldCount ~= 0)) \
            then return true\
        elseif finX == initX-1 or finX == initX+1 then \
            return true \
        end\
    end\
end\
\
--Moves the player to a given step.\
local function movePlayer(x,y,ignoreLegal)\
    if not ignoreLegal and not isLegalMove(plX,plY,x,y) then return false end\
    \
    local ox = plX\
    local oy = plY\
    plX = x\
    plY = y\
    \
    updateMap(ox,oy)\
    updateMap(x,y)\
    if goldMap[y][x] == 1 or goldMap[y][x] == 2 then\
        if goldMap[y][x] == 1 then goldMap[y][x] = 0\
        else goldMap[y][x] = nil end\
        goldCount = goldCount - 1\
        playerScore = playerScore + 5\
        if started then drawHUD() end\
        if (goldCount == 0) then\
            drawEndgameMap()\
        end\
    elseif exX == plX and exY == plY and goldCount == 0 then\
        started = false\
        nextLevel = true\
    end\
    \
    pfalling = (y < #map and map[y][x] ~= '-' and map[y][x] ~= 'H' and not (map[y][x] == 'h' and goldCount == 0) \
        and (map[y+1][x] == nil or map[y+1][x] == \"V\" or map[y+1][x] == 2 or map[y+1][x] == '-'))\
    if (y < #map and map[y+1][x] == 'h' and goldCount ~= 0) then pfalling = true end\
    for _,monk in pairs(monks) do\
        if monk.x == plX and monk.y == plY + 1 then pfalling = false break end\
    end\
    \
    return true\
end\
\
--This is a quick evaluation to save some space and check if the monk is either\
--picking up (or dropping) any gold.\
local function updateMonkGold(monk)\
    --When walking over gold they'll occasionally pick it up\
    if not monk.gold and (goldMap[monk.y][monk.x] == 1 or goldMap[monk.y][monk.x] == 2) then\
        --There's a 1 in 5 they pick it up\
        local pickup = math.random(1,5)\
        if pickup == 1 then\
            if goldMap[monk.y][monk.x] == 1 then\
                goldMap[monk.y][monk.x] = 0\
            else\
                goldMap[monk.y][monk.x] = nil\
            end\
            monk.gold = true\
            return\
        end\
    --When carrying gold they'll occasionally drop it\
    end if monk.gold and goldMap[monk.y][monk.x] ~= 1 and not map[monk.y][monk.x] then\
        --It's a much smaller chance that they'll drop it\
        local drop = math.random(1,30)\
        if drop == 1 then\
            if goldMap[monk.y][monk.x] == 0 then\
                goldMap[monk.y][monk.x] = 1\
            else\
                goldMap[monk.y][monk.x] = 2\
            end\
            monk.gold = false\
            return\
        end\
    end\
end\
\
local function updateMonks()\
    for _,monk in pairs(monks) do\
        --Before we start moving we check if he's falling or not. \
        if not monk.trapped and not monk.dead and not monk.justSpawed then\
            monk.falling = (monk.y < #map and map[monk.y][monk.x] ~= '-' and map[monk.y][monk.x] ~= \"H\" and not\
                (map[monk.y][monk.x] == 'h' and goldCount == 0) and (map[monk.y+1][monk.x] == nil or map[monk.y+1][monk.x] == \"V\" or\
                map[monk.y+1][monk.x] == 2 or map[monk.y+1][monk.x] == '-') and type(map[monk.y][monk.x] ~= \"number\"))\
            for _,omonk in pairs(monks) do\
                if omonk.x == monk.x and omonk.y == monk.y + 1 then monk.falling = false break end\
            end\
            if monk.x == plX and monk.y == plY + 1 then monk.falling = false end\
        end\
    \
        --Our first move check; if he's trapped or dead, he's going nowhere\
        if monk.trapped then\
            --Trapped monks also drop any gold they're carrying\
            if monk.gold then\
                if goldMap[monk.y-1][monk.x] == 0 then\
                    monk.gold = false\
                    goldMap[monk.y-1][monk.x] = 1\
                elseif goldMap[monk.y-1][monk.x] == nil then\
                    monk.gold = false\
                    goldMap[monk.y-1][monk.x] = 2\
                end\
                updateMap(monk.x,monk.y-1)\
            end\
        elseif monk.dead then\
        --He then checks immediately to see whether or not he's falling.\
        \
        --If he's just spawned he takes a second to orient himself\
        elseif monk.justSpawned then\
            monk.justSpawned = false\
            --We evaluate their falling behaviour here (as freed monks CAN stand on air)\
            monk.falling = (monk.y < #map and map[monk.y][monk.x] ~= '-' and map[monk.y][monk.x] ~= \"H\" and not\
                    (map[monk.y][monk.x] == 'h' and goldCount == 0) and (map[monk.y+1][monk.x] == nil or map[monk.y+1][monk.x] == \"V\" or\
                    map[monk.y+1][monk.x] == 2 or map[monk.y+1][monk.x] == '-') and type(map[monk.y][monk.x] ~= \"number\"))\
            for _,omonk in pairs(monks) do\
                if omonk.x == monk.x and omonk.y == monk.y + 1 then monk.falling = false break end\
            end\
            if monk.x == plX and monk.y == plY + 1 then monk.falling = false end\
        --Then we consider if he's just gotten out of a hole\
        elseif monk.justEscaped then\
            monk.justEscaped = false\
            updateMonkGold(monk)\
            --He tries the player side first\
            local playerSide = (plX-monk.x) / math.abs(plX-monk.x)\
            if isLegalMove(monk.x, monk.y, monk.x + playerSide, monk.y) then\
                monk.x = monk.x + playerSide\
                updateMap(monk.x - playerSide, monk.y)\
            elseif isLegalMove(monk.x, monk.y, monk.x - playerSide, monk.y) then\
                monk.x = monk.x - playerSide\
                updateMap(monk.x + playerSide, monk.y)\
            end\
            drawMonk(monk)\
        --Then we evaluate falling\
        elseif monk.falling then\
            monk.behaviour = \"none\"\
            updateMonkGold(monk)\
            monk.y = monk.y + 1\
            monk.desX = nil\
            --If they fall into a land tile the player has dug up (unlike holes in the terrain) the monk is considered 'trapped' and will be able to climb out again later\
            if type(map[monk.y][monk.x]) == \"number\" then\
                monk.trapped = os.startTimer(monkTrapIntv)\
                monk.falling = false\
            else\
                monk.falling = (monk.y < #map and map[monk.y][monk.x] ~= '-' and map[monk.y][monk.x] ~= \"H\" and not\
                    (map[monk.y][monk.x] == 'h' and goldCount == 0) and (map[monk.y+1][monk.x] == nil or map[monk.y+1][monk.x] == \"V\" or\
                    map[monk.y+1][monk.x] == 2 or map[monk.y+1][monk.x] == '-') and type(map[monk.y][monk.x] ~= \"number\"))\
                for _,omonk in pairs(monks) do\
                    if omonk.x == monk.x and omonk.y == monk.y + 1 then monk.falling = false break end\
                end\
                if monk.x == plX and monk.y == plY + 1 then monk.falling = false end\
                if monk.justEscaped then monk.falling = false end\
            end\
            updateMap(monk.x, monk.y-1)\
            drawMonk(monk)\
        --If he's on his feet and not trapped, he's allowed to think about where to move\
        elseif monk.y == plY then\
            --Is the monk on the same level as the player? How lucky! They'll just walk towards him\
            updateMonkGold(monk)\
            monk.desX = plX\
            monk.behaviour = \"across\"\
        --Y difference takes precedence over X (as in the original, makes them a bit smarter)\
        elseif monk.y < plY then\
            --If they can move down, they will\
            if isLegalMove(monk.x,monk.y,monk.x,monk.y+1) and not monk.justEscaped then\
                monk.y = monk.y+1\
                updateMap(monk.x, monk.y-1)\
                drawMonk(monk)\
                monk.desX = nil\
                --A down move can lead to a fall, so we check if they're now falling.\
                monk.falling = (monk.y < #map and map[monk.y][monk.x] ~= '-' and map[monk.y][monk.x] ~= \"H\" and not\
                    (map[monk.y][monk.x] == 'h' and goldCount == 0) and (map[monk.y+1][monk.x] == nil or map[monk.y+1][monk.x] == \"V\" or\
                    map[monk.y+1][monk.x] == 2 or map[monk.y+1][monk.x] == '-') and type(map[monk.y][monk.x] ~= \"number\"))\
                for _,omonk in pairs(monks) do\
                    if omonk.x == monk.x and omonk.y == monk.y + 1 then monk.falling = false break end\
                end\
                if monk.x == plX and monk.y == plY + 1 then monk.falling = false end\
            --Otherwise, it's off to the nearest ladder, monkey bars or perilous ledge to jump off\
            --assuming they haven't found one already\
            elseif monk.desX == nil then\
                updateMonkGold(monk)\
                if monk.behaviour ~= \"down\" then monk.desX = nil end\
                monk.behaviour = \"down\"\
                monk.desX = nil\
                local cmLeft = true\
                local cmRight = true\
                --We try to find the nearest by searching alternate left and right at variable distance\
                for i=1,math.max(monk.x - 1, 49 - monk.x) do\
                    if monk.x-i > 0 and cmLeft then\
                        --If a wall blocks the monks path, they can't keep going left or right\
                        cmLeft = map[monk.y][monk.x-i] ~= 0\
                        --But if it's all clear, they look for something to climb/jump down\
                        if cmLeft and (map[monk.y+1][monk.x-i] == \"H\" or (map[monk.y+1][monk.x-i] == 'h' and goldCount == 0)\
                            or map[monk.y+1][monk.x-i] == nil or map[monk.y][monk.x-i] == '-') then\
                            monk.desX = monk.x-i\
                            break\
                        end\
                    end\
                    if monk.x+i < 50 and cmRight then\
                        --If a wall blocks the monks path, they can't keep going left or right\
                        cmRight = map[monk.y][monk.x+i] ~= 0\
                        --But if it's all clear, they look for something to climb/jump down\
                        if cmRight and (map[monk.y+1][monk.x+i] == \"H\" or (map[monk.y+1][monk.x+i] == 'h' and goldCount == 0)\
                            or map[monk.y+1][monk.x+i] == nil or map[monk.y][monk.x+i] == '-') then\
                            monk.desX = monk.x+i\
                            break\
                        end\
                    end\
                end\
            end\
        --If the player isn't level or beneath them, he is above- so the monk must\
        --climb up to reach him\
        elseif monk.y > plY then\
            if monk.behaviour ~= \"up\" then monk.desX = nil end\
            monk.behaviour = \"up\"\
            --Same deal again- try moving up first\
            if isLegalMove(monk.x,monk.y,monk.x,monk.y-1) then\
                monk.y = monk.y-1\
                updateMap(monk.x, monk.y+1)\
                drawMonk(monk)\
                monk.desX = nil\
                --You can never move up and start falling, so we don't bother to check\
            --Otherwise they need ladders to climb up\
            elseif monk.desX == nil then\
                updateMonkGold(monk)\
                monk.behaviour = \"up\"\
                monk.desX = nil\
                local cmLeft = true\
                local cmRight = true\
                --We try to find the nearest by searching alternate left and right at variable distance\
                for i=1,math.max(monk.x - 1, 49 - monk.x) do\
                    if monk.x-i > 0 and cmLeft then\
                        --If a wall blocks the monks path or a pit is in the way, they can't keep going left or right\
                        cmLeft = map[monk.y][monk.x-i] ~= 0 and (monk.y == #map or map[monk.y+1][monk.x-i] ~= nil\
                                or map[monk.y][monk.x-i] == '-' or map[monk.y][monk.x-i] == \"H\" or (map[monk.y][monk.x-i] == \"h\"\
                                and goldCount == 0))\
                        --But if it's all clear, they look for a ladder\
                        if cmLeft and (map[monk.y][monk.x-i] == \"H\" or (map[monk.y][monk.x-i] == 'h' and goldCount == 0)) then\
                            monk.desX = monk.x-i\
                            break\
                        end\
                    end\
                    if monk.x+i < 50 and cmRight then\
                        cmRight = map[monk.y][monk.x+i] ~= 0 and (monk.y == #map or map[monk.y+1][monk.x+i] ~= nil\
                                or map[monk.y][monk.x+i] == '-' or map[monk.y][monk.x+i] == \"H\" or (map[monk.y][monk.x+i] == \"h\"\
                                and goldCount == 0))\
                        if cmRight and (map[monk.y][monk.x+i] == \"H\" or (map[monk.y][monk.x+i] == 'h' and goldCount == 0)) then\
                            monk.desX = monk.x+i\
                            break\
                        end\
                    end\
                end\
            end\
        end\
        \
        if not (monk.trapped or monk.dead) then\
            --Has the monk decided on moving left or right? If so we try to move him\
            if monk.desX and not monk.falling then\
                local mdir = monk.desX - monk.x\
                local mdir = mdir / math.abs(mdir)\
                if isLegalMove(monk.x,monk.y,monk.x+mdir,monk.y) then\
                    monk.x = monk.x + mdir\
                    updateMap(monk.x - mdir, monk.y)\
                    drawMonk(monk)\
                else\
                    --This allows re-evaluations if they get stuck- not ideal but good enough\
                    monk.desX = nil\
                end\
            end\
            --And of course if we've reached the player, there's no need to do\
            --anything. The monk has won.\
            if monk.x == plX and monk.y == plY and spawnTimer == -1 then\
                spawnTimer = os.startTimer(2)\
            end\
        end\
    end\
end\
\
local function updateBlockTimer(tid)\
    local remAt = nil\
    for i,v in ipairs(blockTimers) do\
        if v.timer == tid then\
            if map[v.y][v.x] == 3 then\
                for _,monk in pairs(monks) do\
                    if monk.x == v.x and monk.y == v.y-1 then\
                        map[v.y][v.x] = 0\
                        remAt = i\
                        break\
                    end\
                end\
                if not remAt then\
                    map[v.y][v.x] = 2\
                    v.timer = os.startTimer(blockIntv)\
                end\
            elseif map[v.y][v.x] == 2 then\
                map[v.y][v.x] = 1\
                v.timer = os.startTimer(0.1)\
            elseif map[v.y][v.x] == 1 then\
                map[v.y][v.x] = 0\
                --If the player is caught in a block, he dies\
                if v.y == plY and v.x == plX then\
                    spawnTimer = os.startTimer(2)\
                end\
                for _,monk in pairs(monks) do\
                    if monk.x == v.x and monk.y == v.y then\
                        monk.dead = os.startTimer(monkSpawnIntv)\
                        --Easiest way to get them out of the way rather than evaluation\
                        monk.x = -1\
                        monk.y = -1\
                        monk.trapped = nil\
                    end\
                end\
                remAt = i\
            end\
            updateMap(v.x,v.y)\
            break\
        end\
    end\
    if remAt then table.remove(blockTimers,remAt) end\
end\
\
local function shootBlock(x,y)\
    if y <= #map and map[y][x] == 0 and (map[y-1][x] == nil \
            or map[y-1][x] == 2 or (map[y-1][x] == 'h' and goldCount > 0)) then\
        map[y][x] = 3\
        table.insert(blockTimers, {x = x; y = y; timer = os.startTimer(0.1);} )\
        updateMap(x,y)\
    end\
end\
\
local function handleEvents()\
    local id,p1,p2,p3 = os.pullEvent()\
    \
    if id == \"key\" then\
        --Menu Handling\
        if p1 == keys.up then\
            if menIndex > 1 then menIndex = menIndex - 1 end\
        elseif p1 == keys.down then\
            if inLevelSelect then \
                if menIndex < math.min(10, #levelList - (levelLot-1)*10) then \
                    menIndex = menIndex + 1\
                end\
            elseif menIndex < #titleOptions then menIndex = menIndex + 1 end\
        elseif p1 == keys.left and inLevelSelect and levelLot > 1 then\
            levelLot = levelLot - 1\
            drawLevelList()\
        elseif p1 == keys.right and inLevelSelect and levelLot * 10 < #levelList then\
            levelLot = levelLot + 1\
            if menIndex > math.min(10, #levelList - (levelLot-1)*10) then \
                menIndex = math.min(10, #levelList - (levelLot-1)*10)\
            end\
            drawLevelList()\
        end\
    \
        --Game Handling\
        if p1 == keys.a and moveTimer == -1 and spawnTimer == -1 then\
            movePlayer(plX-1,plY)\
            moveTimer = os.startTimer(moveIntv)\
        elseif p1 == keys.d and moveTimer == -1 and spawnTimer == -1 then\
            movePlayer(plX+1,plY)\
            moveTimer = os.startTimer(moveIntv)\
        elseif p1 == keys.w and moveTimer == -1 and spawnTimer == -1 then\
            movePlayer(plX,plY-1)\
            moveTimer = os.startTimer(moveIntv)\
        elseif p1 == keys.s and moveTimer == -1 and spawnTimer == -1 then\
            movePlayer(plX,plY+1)\
            moveTimer = os.startTimer(moveIntv)\
        elseif p1 == keys.q and shootTimer == -1 and not pfalling and spawnTimer == -1 then\
            shootBlock(plX-1,plY+1)\
            shootTimer = os.startTimer(moveIntv)\
        elseif p1 == keys.e and shootTimer == -1 and not pfalling and spawnTimer == -1 then\
            shootBlock(plX+1,plY+1)\
            shootTimer = os.startTimer(moveIntv)\
        elseif p1 == keys.space and started then\
            started = false\
        elseif p1 == keys.enter then\
            if not started then\
                if inLevelSelect then\
                    currentLevel = menIndex + (levelLot - 1) * 10\
                    menSel = \"New Game\"\
                else\
                    menSel = titleOptions[menIndex]\
                end\
            else\
                started = false\
                menIndex = 1\
                menSel = inGameMenu(inGameOptions)\
            end\
        end\
    elseif id == \"timer\" then\
        if p1 == shootTimer then shootTimer = -1\
        elseif p1 == spawnTimer then\
            started = false\
        elseif p1 == moveTimer then\
            if pfalling then\
                movePlayer(plX,plY+1)\
                moveTimer = os.startTimer(moveIntv)\
            else\
                moveTimer = -1\
            end\
        elseif p1 == monkTimer then\
            updateMonks()\
            monkTimer = os.startTimer(moveIntv * 2)\
        elseif updateBlockTimer(p1) then\
        else\
            for _,monk in pairs(monks) do\
                if p1 == monk.trapped then\
                    --You can stand on a monk to force them to be killed- so we check for that\
                    --along with being buried in tunnels, etc.\
                    local stillTrapped = map[monk.y-1][monk.x] == 0 or (plX == monk.x and plY == monk.y-1)\
                    for _,omonk in pairs(monks) do\
                        if omonk.x == monk.x and omonk.y == monk.y-1 then\
                            stillTrapped = true\
                            break\
                        end\
                    end\
                    --Perpetually trapped monks will try to excape much more quickly\
                    if stillTrapped then\
                        --This needs to be tweaked\
                        monk.trapped = os.startTimer(0.75)\
                    else\
                        --When free, they head in your general direction, re-evaluate later\
                        monk.y = monk.y - 1\
                        --This is necessary to stop 'double jumping'\
                        monk.desX = nil\
                        monk.trapped = nil\
                        monk.behaviour = \"none\"\
                        monk.justEscaped = true\
                        \
                        updateMap(monk.x, monk.y+1)\
                        drawMonk(monk)\
                    end\
                    break\
                elseif p1 == monk.dead then\
                    --Same deal- you can camp spawn\
                    local stillDead = plX == monk.spawnX and plY == monk.spawnY\
                    for _,omonk in pairs(monks) do\
                        if omonk.x == monk.spawnX and omonk.y == monk.spawnY then\
                            stillDead = true\
                            break\
                        end\
                    end\
                    --They'll spawn the second you give them the chance\
                    if stillDead then\
                        monk.dead = os.startTimer(0.5)\
                    else\
                        monk.x = monk.spawnX\
                        monk.y = monk.spawnY\
                        monk.dead = nil\
                        monk.justSpawned = true\
                        monk.behaviour = \"none\"\
                        drawMonk(monk)\
                        break\
                    end\
                end\
            end\
        end\
    end\
end\
\
--[[            Level Editor            ]]--\
\
local pallette = {  \
    { t = colours.black, b = colours.blue, s = \" \", n = \"Solid Ground\", v = 0 },\
    { t = colours.orange, b = colours.blue, s = \"V\", n = \"Trap Ground\", v = \"V\" },\
    { t = colours.grey, b = colours.grey, s = \" \", n = \"Cement Ground\", v = \"#\" },\
    { t = colours.brown, b = colours.black, s = \"H\", n = \"Ladder\", v = \"H\" },\
    { t = colours.brown, b = colours.black, s = \"-\", n = \"Monkey Bars\", v = \"-\" },\
    { t = colours.white, b = colours.black, s = \"&\", n = \"Player Spawn\", v = \"player\" },\
    { t = colours.red, b = colours.black, s = \"&\", n = \"Mad Monk\", v = \"&\" },\
    { t = colours.yellow, b = colours.black, s = \"$\", n = \"Gold\", v = \"$\" },\
    { t = colours.lightGrey, b = colours.black, s = \"H\", n = \"Hidden Ladder\", v = \"h\" },\
    { t = colours.lime, b = colours.black, s = \"@\", n = \"Exit Portal\", v = \"@\" },\
    { t = colours.red, b = colours.black, s = \"ERASE\", n = \"Eraser\", v = nil } }\
local brushType = 1\
\
local function getHexOf(colour)\
    if not colour or not tonumber(colour) then \
        return \" \" \
    end\
    local value = math.log(colour)/math.log(2)\
    if value > 9 then \
        value = hexnums[value] \
    end\
    return value\
end\
\
local function drawFooter()\
    for i=1,h-1 do\
        if i % 2 == 0 then term.setBackgroundColour(colours.grey)\
        else term.setBackgroundColour(colours.yellow) end\
        term.setCursorPos(1,i)\
        term.write(\" \")\
        term.setCursorPos(w,i)\
        term.write(\" \")\
    end\
    \
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.blue)\
    term.setCursorPos(2,h)\
    term.clearLine()\
    term.write(\"Editor Mode: \")\
    term.setTextColour(colours.yellow)\
    term.write(levelEditName)\
    local msg = \"Tool: \"..pallette[brushType].n..\" \"..pallette[brushType].s\
    term.setCursorPos(w - #msg - 1, 19)\
    term.setTextColour(colours.blue)\
    term.write(\"Tool: \")\
    term.setTextColour(colours.yellow)\
    term.write(pallette[brushType].n..\" \")\
    term.setBackgroundColour(pallette[brushType].b)\
    term.setTextColour(pallette[brushType].t)\
    term.write(pallette[brushType].s)\
end\
\
local function drawPallette(xpos,ypos)\
    local xdim = 7\
    local ydim = 5\
    local left = xpos\
    local top  = ypos\
    if xpos + xdim > w then left = left + (w - xpos - xdim) end\
    if ypos + ydim > h then top = top + (h - ypos - ydim) end\
    \
    --There's no easy way to do this... so we draw it manually :(\
    for i=0,4 do\
        term.setCursorPos(left, top + i)\
        term.setBackgroundColour(colours.black)\
        term.setTextColour(colours.red)\
        if i == 0 or i == 4 then term.write(\"*-----*\")\
        else term.write(\"*     *\") end\
    end\
    \
    for i=1,#pallette-1 do\
        local ypl = 1\
        local xmv = i\
        if i > 5 then ypl = 2 xmv = i - 5 end\
        \
        term.setCursorPos(left + xmv, top+ypl)\
        term.setBackgroundColour(pallette[i].b)\
        term.setTextColour(pallette[i].t)\
        term.write(pallette[i].s)\
    end\
    \
    term.setCursorPos(left + 1, top + 3)\
    term.setBackgroundColour(colours.red)\
    term.setTextColour(colours.black)\
    term.write(\"ERASE\")\
    \
    local _,button,x,y = os.pullEvent(\"mouse_click\")\
    \
    if button == 1 then\
        if y == top + 1 and x > left and x < left + 6 then\
            brushType = x-left\
        elseif y == top + 2 and x > left and x < left + 6 then\
            brushType = x-left+5\
        elseif y == top + 3 and x > left and x < left + 6 then\
            brushType = 11\
        end\
    end\
    \
    for y = top,top+ydim do\
        for x = left,left+xdim do   \
            --Not sure why the -2 is necessary\
            if map[y+drawOffsetY] then updateMap(x-2,y+drawOffsetY) end\
        end\
    end\
    drawFooter()\
    return\
end\
\
local function saveCurrentMap(path)\
    local file = io.open(shell.resolve(\".\")..\"/levels/\"..path, \"w\")\
    if not file then return false end\
    \
    drawMap()\
    drawFooter()\
    local msg = \"Saving..\"\
    term.setCursorPos(w/2-#msg/2, 5)\
    term.setTextColour(colours.yellow)\
    term.setBackgroundColour(colours.blue)\
    term.write(msg)\
    term.setCursorPos(w/2-9, 6)\
    term.setBackgroundColour(colours.red)\
    term.write(string.rep(\" \", 18))\
    term.setCursorPos(w/2-9,6)\
    term.setBackgroundColour(colours.lime)\
    \
    for y=1,#map do\
        local xstr = \"\"\
        for x=1,49 do\
            --This again...\
                if map[y][x] == 0 then xstr = xstr..getHexOf(colours.blue)\
            elseif map[y][x] == \"V\" then xstr = xstr..getHexOf(colours.orange)\
            elseif map[y][x] == \"#\" then xstr = xstr..getHexOf(colours.grey)\
            elseif map[y][x] == \"H\" then xstr = xstr..getHexOf(colours.brown)\
            elseif map[y][x] == \"h\" then xstr = xstr..getHexOf(colours.lightGrey)\
            elseif map[y][x] == \"-\" then xstr = xstr..getHexOf(colours.green)\
            elseif map[y][x] == \"&\" then xstr = xstr..getHexOf(colours.red)\
            elseif goldMap[y][x] == 1 then xstr = xstr..getHexOf(colours.yellow)\
            elseif plX == x and plY == y then xstr = xstr..getHexOf(colours.white)\
            elseif exX == x and exY == y then xstr = xstr..getHexOf(colours.lime)\
            else xstr = xstr..\" \"\
            end\
        end\
        file:write(xstr..\"\\n\")\
        term.write(\" \")\
        sleep(0)\
    end\
    file:close()\
    return true\
end\
\
local function runLevelEditor()\
    inLevelEditor = true\
    term.setBackgroundColour(colours.black)\
    term.clear()\
    if not fs.exists(shell.resolve(\".\")..\"/levels/\"..levelEditName) then\
        map = {}\
        goldMap = {}\
        monks = {}\
        for i=1,18 do map[i] = {} goldMap[i] = {} end\
        plX = 2\
        plY = 2\
        plspawnX = plX\
        plspawnY = plY\
        exX = 48\
        exY = 17\
    else\
        loadMap(\"/levels/\"..levelEditName)\
        for _,monk in pairs(monks) do\
            map[monk.y][monk.x] = \"&\"\
        end\
        monks = {}\
    end\
    \
    drawMap()\
    drawFooter()\
    \
    while inLevelEditor do\
        local id,button,x,y = os.pullEvent()\
        if id == \"mouse_click\" or id == \"mouse_drag\" then\
            if button == 2 then \
                drawPallette(x,y)\
            elseif x > drawOffsetX and x <= 49 + drawOffsetX and y > drawOffsetY and y <= 18 + drawOffsetY then\
                if pallette[brushType].v == \"player\" then\
                    local ox = plX\
                    local oy = plY\
                    if plX == exX and plY == exY then\
                        exX = ox\
                        exY = oy\
                    end\
                    plX = x - drawOffsetX\
                    plY = y - drawOffsetY\
                    map[plY][plX] = nil\
                    goldMap[plY][plX] = nil\
                    updateMap(ox,oy)\
                elseif pallette[brushType].v == \"@\" then\
                    local ox = exX\
                    local oy = exY\
                    if plX == exX and plY == exY then\
                        plX = ox\
                        plY = oy\
                    end\
                    exX = x - drawOffsetX\
                    exY = y - drawOffsetY\
                    map[plY][plX] = nil\
                    goldMap[plY][plX] = nil\
                    updateMap(ox,oy)\
                elseif pallette[brushType].v == \"$\" then\
                    goldMap[y-drawOffsetY][x-drawOffsetX] = 1\
                    map[y-drawOffsetY][x-drawOffsetX] = nil\
                elseif pallette[brushType].v == nil then\
                    map[y-drawOffsetY][x-drawOffsetX] = nil\
                    goldMap[y-drawOffsetY][x-drawOffsetX] = nil\
                else\
                    map[y-drawOffsetY][x-drawOffsetX] = pallette[brushType].v\
                    goldMap[y-drawOffsetY][x-drawOffsetX] = nil\
                    --term.setCursorPos(1,19)\
                    --print(\"At \"..(x-drawOffsetX)..\", \"..(y-drawOffsetY)..\" have placed \"..pallette[brushType].v)\
                end\
                updateMap(x-drawOffsetX, y-drawOffsetY)\
            end\
        elseif id == \"mouse_scroll\" then\
            brushType = brushType + button\
            if brushType == 0 then brushType = #pallette\
            elseif brushType > #pallette then brushType = 1 end\
            drawFooter()\
        elseif id == \"key\" and button == keys.enter then\
            menSel = inGameMenu(levelEditOptions)\
            if menSel == \"Save\" then\
                saveCurrentMap(levelEditName)\
                drawMap()\
                drawFooter()\
            elseif menSel == \"Save and Exit\" then\
                saveCurrentMap(levelEditName)\
                menSel = \"none\"\
                inLevelEditor = false\
            elseif menSel == \"Discard and Exit\" then\
                menSel = \"none\"\
                inLevelEditor = false\
            elseif menSel == \"Play Level\" then\
                saveCurrentMap(levelEditName)\
                inLevelEditor = false\
            end\
        end\
    end\
end\
\
\
local function runLevelSelect()\
    if not titleLoaded then\
        loadTitleScreen()\
        monkTimer = os.startTimer(moveIntv * 1.5)\
    else \
        drawMap()\
        drawEndgameMap()\
        term.setCursorPos(1,19)\
        term.setBackgroundColour(colours.blue)\
        term.clearLine()\
    end\
    drawLevelList()\
    \
    menSel = \"none\"\
    repeat\
        handleEvents()\
        \
        term.setBackgroundColour(colours.black)\
        term.setTextColour(colours.yellow)\
        for i=1,10 do\
            term.setCursorPos(16,3+i)\
            if i == menIndex then\
                term.write(\">\")\
            else\
                term.write(\" \")\
            end\
        end\
    until menSel ~= \"none\"\
    inLevelSelect = false\
    menSel = \"New Game\"\
end\
\
local function runTitle()\
    loadTitleScreen()\
    term.setCursorPos(15,3)\
    term.setTextColour(colours.red)\
    term.setBackgroundColour(colours.black)\
    term.write(\"Gold Runner\")\
    term.setCursorPos(16,4)\
    term.write(\"By Nitrogen Fingers\")\
    \
    term.setTextColour(colours.white)\
    for i=1,#titleOptions do\
        term.setCursorPos(19, 5 + (i*2))\
        term.write(titleOptions[i])\
    end\
      \
    term.setCursorPos(16, 7)\
    term.setTextColour(colours.yellow)\
    term.write(\"->\")\
    \
    menSel = \"none\"\
    monkTimer = os.startTimer(moveIntv * 1.5)\
    \
    repeat\
        handleEvents()\
        \
        term.setBackgroundColour(colours.black)\
        term.setTextColour(colours.yellow)\
        for i=1,#titleOptions do\
            term.setCursorPos(16, 5 + i*2)\
            if menIndex == i then term.write(\"->\")\
            else term.write(\"  \") end\
        end\
    until menSel ~= \"none\"\
end\
\
local function playLevel()\
    loadMap(shell.resolve(\".\")..\"/levels/\"..levelList[currentLevel])\
    running = true\
    while running do\
        drawMap()\
        drawHUD()\
        os.pullEvent(\"key\")\
        movePlayer(plX,plY,true)\
        \
        monkTimer = os.startTimer(moveIntv * 1.5)\
        moveTimer = os.startTimer(moveIntv)\
        shootTimer = -1\
        spawnTimer = -1\
        \
        started = true\
        while started do\
            handleEvents()\
        end\
        \
        if menSel == \"Quit\" or menSel == \"Back to Title\" or menSel == \"Edit Level\" then\
            running = false\
            return\
        end\
        menSel = \"none\"\
        \
        if nextLevel then\
            if currentLevel == #levelList then \
                started = false\
                running = false\
                break\
            else\
                currentLevel = currentLevel + 1\
                playerLives = playerLives + 1\
                resetMap()\
                loadMap(shell.resolve(\".\")..\"/levels/\"..levelList[currentLevel])\
            end\
            nextLevel = false\
        else\
            playerLives = playerLives-1\
            if playerLives > 0 then resetMap()\
            else \
                running = false \
            end\
        end\
    end\
    \
    if nextLevel then\
        local msg = \"All levels defeated, Gold Runner!\"\
        term.setBackgroundColour(colours.black)\
        term.setTextColour(colours.lime)\
        term.setCursorPos(25 - #msg/2, 2)\
        term.write(msg)\
    else\
        local msg = \"Game over!\"\
        term.setBackgroundColour(colours.black)\
        term.setTextColour(colours.red)\
        term.setCursorPos(25 - #msg/2, 2)\
        term.write(msg)\
    end\
    currentLevel = 1\
    sleep(2)\
end\
\
term.clear()\
if not fs.exists(shell.resolve(\".\")..\"/levels\") then\
    error(\"Level directory not present!\")\
end\
levelList = fs.list(shell.resolve(\".\")..\"/levels\")\
if #levelList == 0 then\
    error(\"Level directory is empty!\")\
end\
\
runTitle()\
menIndex = 1\
\
while menSel ~= \"Quit\" do\
    if menSel == \"Select Level\" then\
        inLevelSelect = true\
        runLevelSelect()\
    elseif menSel == \"New Game\" then\
        playerLives = 3\
        playerScore = 0\
        playLevel()\
    elseif menSel == \"Create Level\" then\
        --This is a bit lazy... well it's all been a bit lazy :P\
        drawMap()\
        term.setCursorPos(1,19)\
        term.setBackgroundColour(colours.blue)\
        term.clearLine()\
        \
        term.setCursorPos(16,10)\
        term.setBackgroundColour(colours.black)\
        term.setTextColour(colours.white)\
        term.write(\"Enter level name:\")\
        term.setTextColour(colours.lime)\
        term.setCursorPos(17,11)\
        term.setCursorBlink(true)\
        local levelName = \"\"\
        \
        local id,p1\
        repeat\
            id,p1 = os.pullEvent()\
            if id == \"key\" and p1 == keys.backspace then\
                levelName = string.sub(levelName, 1, #levelName - 1)\
            elseif id == \"timer\" and p1 == monkTimer then \
                updateMonks()\
                monkTimer = os.startTimer(moveIntv * 2)\
            elseif id == \"char\" and #levelName < 14 then\
                levelName = levelName..p1\
            end\
            term.setTextColour(colours.lime)\
            term.setCursorPos(17,11)\
            term.write(levelName..string.rep(\" \",14 - #levelName))\
            term.setCursorPos(17 + #levelName ,11)\
        until id == \"key\" and p1 == keys.enter and #levelName > 0\
        \
        term.setCursorBlink(false)\
        levelEditName = levelName\
        runLevelEditor()\
        \
        if menSel == \"Play Level\" then\
            currentLevel = nil\
            levelList = fs.list(shell.resolve(\".\")..\"/levels\")\
            for num,name in pairs(levelList) do \
                if name == levelName then\
                    currentLevel = num\
                    break\
                end\
            end\
            menSel = \"New Game\"\
        else\
            menSel = \"none\"\
        end\
    elseif menSel == \"Edit Level\" then\
        levelEditName = levelList[currentLevel]\
        runLevelEditor()\
        term.setBackgroundColour(colours.black)\
        term.clear()\
        \
        if menSel == \"Play Level\" then\
            menSel = \"New Game\"\
        else\
            menSel = \"none\"\
        end\
    elseif menSel == \"none\" or menSel == \"Back to Title\" then\
        runTitle()\
    end\
    menIndex = 1\
end\
\
shell.run(\"clear\")",
  [ "goldrunner/levels/classic_010" ] = "bbbbbbbbbb          4              5  bbbbbbbbbb\
bbbbbbbbbb        cbbbbbbb  4      8  bbbbbbbbbb\
bbbbbbbbbb    4   c      bbbbbb    8  bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbc         4    8  bbbbbbbbbb\
bbbbbbbbbb          cbbbbbb8bbbbbcbb  bbbbbbbbbb\
bbbbbbbbbbe         c      8     c    bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbc      8 e   c   4bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbcbbbbbbb77   cbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbc            c    bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbc       4 dddc    bbbbbbbbbb\
bbbbbbbbbbbb      bbc       bb   c    bbbbbbbbbb\
bbbbbbbbbbbb  44  bbc     4      c    bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbcbbbbbbbc   c    bbbbbbbbbb\
bbbbbbbbbb           c       bbbbbbbbcbbbbbbbbbb\
bbbbbbbbbb    4    0 c               cbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/classic_005" ] = "bbbbbbbbbb         5                  bbbbbbbbbb\
bbbbbbbbbb         8       4      e   bbbbbbbbbb\
bbbbbbbbbbbbb      8      bbbbcbbbbbbbbbbbbbbbbb\
bbbbbbbbbb  bb     8     bb   c       bbbbbbbbbb\
bbbbbbbbbb   bb    8    bb    c       bbbbbbbbbb\
bbbbbbbbbb4e bbb   8  4bbb    c   4   bbbbbbbbbb\
bbbbbbbbbbbbcbbbb  8  bbbbcbbbcbbbbbbbbbbbbbbbbb\
bbbbbbbbbb  c   bb 8 bb   c           bbbbbbbbbb\
bbbbbbbbbb  c4e  bbcbb    c     4     bbbbbbbbbb\
bbbbbbbbbbcbbbc    c     bcbbcbbb     bbbbbbbbbb\
bbbbbbbbbbc   c              c        bbbbbbbbbb\
bbbbbbbbbbc   c    4     e   c        bbbbbbbbbb\
bbbbbbbbbbc   cbbbbbbbcbbbbbbcbbbbbcbbbbbbbbbbbb\
bbbbbbbbbbc           c            c  bbbbbbbbbb\
bbbbbbbbbbc           c  0         c  bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/02_coalmine" ] = "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
b        0                                      b\
bbbb     bb                 dddd          cb    b\
b      bbbb           e  cbb      4 4     cb 44 b\
bbbbbbbbbbbbbbbbbbbbcbbbbbbb    bbbbbbbbbbbb7777b\
b    b dddddddd     c                           b\
b     b             c            cbb            b\
b 44 b              c          cbbbb    4 4 4   b\
bbbbbbbbbbbbcbbbbbbbbbbbbbbbbbbbbbbbb7b7bbbbb7bbb\
bbbbbb4 bbbbcb4  4  4bb4  4bbbbbbbbbbb7bbb7b7b77b\
b bb     bbbcbbbbbbbbbbbbbbbbb                  b\
b           c                         7777777777b\
b           c     dd    ddddddddddddcb7777777777b\
bbbbbbbbbbbbbbbbbb  cbbb            cbbbb    5  b\
bbbbbbbbbbbbbbbbbb cbbb            c7b    8bbbbbb\
b                 cbbb             c7b    8 4 4 b\
b  4 4 4 4 4  cb  cbb              c7b  cbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb777777777777b",
  disktron = "local isOpen=false\
for k,v in pairs({\"right\",\"left\",\"top\",\"bottom\",\"front\",\"back\"}) do\
    if peripheral.getType(v)==\"modem\" then\
        rednet.open(v)\
        isOpen=true\
    end\
end\
if not isOpen then\
    error(\"no modem attached\")\
end\
local Mx,My=term.getSize()\
local Cx,Cy=math.floor(Mx/2),math.floor(My/2)\
function maingame()\
    local lang={\"Waiting for player\",{[0]=\"^\",\">\",\"v\",\"<\"},{{\"|\",\"/\",\"|\",\"\\\\\"},{\"/\",\"-\",\"\\\\\",\"-\"},{\"|\",\"\\\\\",\"|\",\"/\"},{\"\\\\\",\"-\",\"/\",\"-\"}},\"You died.\",\"You won.\"}\
    local board=setmetatable({},{__index=function(s,n) s[n]={} return s[n] end})\
    for l1=99,-99,-1 do\
        board[l1][-99]={\"-\",3}\
    end\
    for l1=99,-99,-1 do\
        board[l1][99]={\"|\",3}\
    end\
    for l1=99,-99,-1 do\
        board[-99][l1]={\"-\",3}\
    end\
    for l1=99,-99,-1 do\
        board[99][l1]={\"|\",3}\
    end\
    board[100][100]={\"/\",3}\
    board[100][-100]={\"\\\\\",3}\
    board[-100][100]={\"/\",3}\
    board[-100][-100]={\"\\\\\",3}\
    local modem\
    local initheader=\"TRON:\"\
    local pnid\
    local function send(...)\
        rednet.send(pnid,string.sub(textutils.serialize({...}),2,-2))\
    end\
    local function decode(dat)\
        return textutils.unserialize(\"{\"..dat..\"}\")\
    end\
    local col\
    term.setCursorPos(math.floor(Cx-(#lang[1])/2),Cy)\
    term.setTextColor(colors.orange)\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.write(lang[1])\
    rednet.broadcast(initheader..\"pingcon\")\
    local p1,p2\
    while true do\
        local p={os.pullEvent()}\
        if p[1]==\"rednet_message\" and p[2]~=os.getComputerID() then\
            if p[3]==initheader..\"pingcon\" then\
                rednet.send(p[2],initheader..\"pongcon\")\
                pnid=p[2]\
                col={colors.blue,colors.red}\
                p1={pos={x=2,y=1},dir=0}\
                p2={pos={x=1,y=1},dir=0}\
                break\
            elseif p[3]==initheader..\"pongcon\" then\
                pnid=p[2]\
                col={colors.red,colors.blue}\
                p1={pos={x=1,y=1},dir=0}\
                p2={pos={x=2,y=1},dir=0}\
                break\
            end\
        end\
    end\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    local frs=0\
    local fps=0 -- frame counter (debugging)\
    local function render()\
        frs=frs+1\
        term.setTextColor(colors.gray)\
        for l1=1,My do\
            term.setCursorPos(1,l1)\
            local pre=p1.pos.x%3\
            if (l1+p1.pos.y)%3==0 then\
                if pre==1 then\
                    pre=\"--\"\
                elseif pre==2 then\
                    pre=\"-\"\
                else\
                    pre=\"\"\
                end\
                term.write(pre..string.rep(\"+--\",math.ceil(Mx/2)))\
            else\
                if pre==1 then\
                    pre=\"  \"\
                elseif pre==2 then\
                    pre=\" \"\
                else\
                    pre=\"\"\
                end\
                term.write(pre..string.rep(\"|  \",math.ceil(Mx/2)))\
            end\
        end\
        term.setTextColor(colors.blue)\
        local num=0\
        for k,v in pairs(board) do\
            for l,y in pairs(v) do\
                if (k-p1.pos.x)+Cx<=Mx and (k-p1.pos.x)+Cx>=1 and (l-p1.pos.y)+Cy<=My and (l-p1.pos.y)+Cy>=1 then\
                    term.setTextColor(col[y[2]] or y[2])\
                    term.setCursorPos((k-p1.pos.x)+Cx,(l-p1.pos.y)+Cy)\
                    term.write(y[1])\
                    num=num+1\
                end\
            end     \
        end\
        term.setCursorPos(1,1)\
        if col[1]==colors.blue then\
            term.setTextColor(colors.blue)\
            term.write(\"BLUE\")\
        else\
            term.setTextColor(colors.red)\
            term.write(\"RED\")\
        end\
    end\
    local odr={[p1]=p1.dir,[p2]=p2.dir}\
    local function processmove(u)\
        local ccol\
        if u==p1 then\
            ccol=col[1]\
        else\
            ccol=col[2]\
        end\
        term.setTextColor(ccol)\
        if u==p1 and board[u.pos.x][u.pos.y] then\
            send(\"DIE\")\
            term.setCursorPos(Cx,Cy)\
            term.write(\"x\")\
            sleep(2)\
            term.setCursorPos(Cx-math.floor(#lang[4]/2),Cy)\
            term.setTextColor(colors.orange)\
            term.clear()\
            term.write(lang[4])\
            sleep(5)\
            term.setTextColor(colors.white)\
            term.setBackgroundColor(colors.black)\
            term.setCursorPos(1,1)\
            term.clear()\
            error(\"\",0)\
        end\
        if odr[u]~=u.dir then\
            board[u.pos.x][u.pos.y]={lang[3][odr[u]+1][u.dir+1],ccol}\
        end\
        if not board[u.pos.x][u.pos.y] then\
            if u.dir%2==0 then\
                board[u.pos.x][u.pos.y]={\"|\",ccol}\
            else\
                board[u.pos.x][u.pos.y]={\"-\",ccol}\
            end\
        end\
        local chr=board[u.pos.x][u.pos.y][1]\
        local shr={x=u.pos.x,y=u.pos.y}\
        if u.dir==0 then\
            u.pos.y=u.pos.y-1\
        elseif u.dir==1 then\
            u.pos.x=u.pos.x+1\
        elseif u.dir==2 then\
            u.pos.y=u.pos.y+1\
        else\
            u.pos.x=u.pos.x-1\
        end\
        odr[u]=u.dir\
        return chr,shr\
    end\
    local function renderchar(u)\
        local ccol\
        if u==p1 then\
            ccol=col[1]\
            term.setCursorPos(Cx,Cy)\
        else\
            ccol=col[2]\
            term.setCursorPos((p2.pos.x-p1.pos.x)+Cx,(p2.pos.y-p1.pos.y)+Cy)\
        end\
        term.setTextColor(ccol)\
        term.write(lang[2][u.dir])\
    end\
    function processturn(p,u)\
        local dirs={[keys.up]=0,[keys.right]=1,[keys.down]=2,[keys.left]=3}\
        if (odr[u]+2)%4~=dirs[p] then\
            u.dir=dirs[p]\
            renderchar(u)\
            if u==p1 then\
                send(\"ROT\",u.dir)\
            end\
        end\
    end\
    render()\
    local move=os.startTimer(0.1)\
    local fct=os.startTimer(1)\
    while true do\
        local p={os.pullEvent()}\
        if p[1]==\"key\" then\
            if p[2]==keys.up or p[2]==keys.right or p[2]==keys.down or p[2]==keys.left then\
                processturn(p[2],p1)\
            end\
        elseif p[1]==\"timer\" then\
            if p[2]==move then\
                local ret,ret2=processmove(p1)\
                move=os.startTimer(0.1)\
                send(\"MOVE\",ret2,ret)\
            elseif p[2]==fct then\
                fps=frs\
                frs=0\
                fct=os.startTimer(1)\
            end\
        elseif p[1]==\"rednet_message\" and p[2]==pnid then\
            local dat=decode(p[3])\
            if dat[1]==\"ROT\" then\
                p2.dir=dat[2]\
                renderchar(p2)\
            elseif dat[1]==\"DIE\" then\
                p1.pos=p2.pos\
                render()\
                term.setTextColor(col[2])\
                term.setCursorPos(Cx,Cy)\
                term.write(\"x\")\
                sleep(2)\
                term.setCursorPos(Cx-math.floor(#lang[5]/2),Cy)\
                term.setTextColor(colors.orange)\
                term.clear()\
                term.write(lang[5])\
                sleep(5)\
                term.setTextColor(colors.white)\
                term.setBackgroundColor(colors.black)\
                term.setCursorPos(1,1)\
                term.clear()\
                return\
            elseif dat[1]==\"MOVE\" then\
                p2.pos=dat[2]\
                board[p2.pos.x][p2.pos.y]={dat[3],col[2]}\
                render()\
                renderchar(p1)\
                renderchar(p2)\
            end\
        end\
    end\
end\
local selected=1\
function rmain()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1,1)\
    term.setTextColor(colors.blue)\
    local txt=\"  _  _______________     ________    __       _\\n/ \\\\/  _____________\\\\   /  ____  \\\\  |  \\\\     / |\\n\\\\_/| /    / \\\\       | /  /    \\\\  \\\\ |   \\\\ __/  |\\n   | |    | |\\\\  ___/ |  |      |  ||    \\\\     |\\n   | |    | | \\\\ \\\\    |  |      |  ||   __\\\\    |\\n   | |    | |  \\\\ \\\\    \\\\  \\\\____/  / |  /   \\\\   |\\n   \\\\_/    \\\\_/   \\\\_/    \\\\________/  |_/     \\\\__|\"\
    local cnt=1\
    local cnt2=Cx-23\
    for char in string.gmatch(txt,\".\") do\
        if char~=\" \" and char~=\"\\n\" then\
            term.setCursorPos(cnt2,cnt)\
            term.write(char)\
        elseif char==\"\\n\" then\
            cnt=cnt+1\
            cnt2=Cx-23\
        end\
        cnt2=cnt2+1\
    end\
    local selections={\"Multiplayer\",\"Exit\"}\
    selected=((selected-1)%(#selections))+1\
    for k,v in pairs(selections) do\
        if k==selected then\
            term.setTextColor(colors.blue)\
            term.setCursorPos(Cx-(math.floor(#v/2)+1),k+10)\
            term.write(\">\"..v..\"<\")\
            term.setTextColor(colors.lightBlue)\
            term.setCursorPos(Cx-math.floor(#v/2),k+10)\
            term.write(v)\
        else\
            term.setTextColor(colors.lightBlue)\
            term.setCursorPos(Cx-math.floor(#v/2),k+10)\
            term.write(v)\
        end\
    end\
end\
rmain()\
while true do\
    p={os.pullEvent()}\
    if p[1]==\"key\" then\
        if p[2]==keys.up then\
            selected=selected-1\
            rmain()\
        elseif p[2]==keys.down then\
            selected=selected+1\
            rmain()\
        elseif p[2]==keys.enter then\
            if selected==1 then\
                a,b=pcall(maingame)\
                if not a and b~=\"\" then\
                    error(b,0)\
                end\
                rmain()\
            else\
            break\
            end\
        end\
    end\
end\
term.setCursorPos(1,1)\
term.clear()",
  [ "goldrunner/levels/classic_017" ] = "bbbbbbbbbb5                          8bbbbbbbbbb\
bbbbbbbbbb8                          8bbbbbbbbbb\
bbbbbbbbbb8         e                8bbbbbbbbbb\
bbbbbbbbbbcbbb1bbbbbbbbbbbbbbbbbbbbbbcbbbbbbbbbb\
bbbbbbbbbbcbbb1bbbbbbbbbbbbbbbbbbbbbbcbbbbbbbbbb\
bbbbbbbbbbc   4   bbddddddddbb       cbbbbbbbbbb\
bbbbbbbbbbc       4bc    e 4bb    e  cbbbbbbbbbb\
bbbbbbbbbbc  bbb  bbc bbbbbbbb  bbbbbcbbbbbbbbbb\
bbbbbbbbbbc  b4b  bbc       bb  bb4bbcbbbbbbbbbb\
bbbbbbbbbbc   0   bbc       bb  bbbbbcbbbbbbbbbb\
bbbbbbbbbbc  bbb  bbbbbbbbccbb  bb4bbcbbbbbbbbbb\
bbbbbbbbbbc  bbb  bbbbbbbbccbb  bbbbbcbbbbbbbbbb\
bbbbbbbbbbc  bbb  bb      c bb       cbbbbbbbbbb\
bbbbbbbbbbc  bbb  bb     4c bb    4  cbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbcbbbbbbbbbcbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbb  4cbbbbbb 4 cbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "redcast/files/test" ] = "gs;7td4g",
  [ "goldrunner/levels/06_flowers" ] = " ddddddd                                         \
c       bbbbcddddddd        dddc    d 4ed   dddd \
c                   bbe44ebb   c 4 c bbb c 4    c\
c             4777  7b7777b7   bbbb       bbbb  c\
c             bb                                c\
c           4                     dd 4    4    4c\
c   4 e    bb     dd 4  4ddd        bb    bb   bc\
c   bbb             bb  b   c 4  0  bb          c\
c              4            c bb     4   4      c\
cb      4      bbb          c           bb      c\
cbb     bb     dddd   d 4d  c    4              c\
cbbbb              bbc bb   c         4   cd 5 dc\
c     4    4  4      c    4 c       bbb   c     c\
c    bb    4 bb      c    bb    4         c 444 c\
c 4        4      4 4c          bb    cbbbc 444 c\
c bbb             cbbc                c     444 c\
c                 c                   c         c\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  [ "redcast/files/startgui" ] = "--RedCast GUI By Gonow32 and datcoder1208\
--Clock coded by The_Nightmare\
\
if not fs.exists(\"games\") then\
  fs.makeDir(\"games\")\
end\
\
os.loadAPI(\"CubeAPI\")\
local menu = 0\
local w,h = term.getSize()\
local config = dofile(\"devconfig\")\
local lang\
if fs.exists(\"lang/\"..config.lang) then\
  lang = dofile(\"lang/\"..config.lang)\
else\
  lang = dofile(\"lang/en\")\
end\
local gameList = fs.list(\"games\")\
local bef = os.clock()\
local stream = http.get(\"http://5.230.233.77/time.php\")\
local time = textutils.unserialize(stream.readAll())\
stream.close()\
local iHours = time[4] - 1 + config.gmt\
local iMinutes = time[5]\
local iSeconds = time[6]\
while iHours < 0 do\
  iHours = iHours + 24\
end\
while iHours > 24 do\
  iHours = iHours - 24\
end\
--if config.bDevMode == true then\
  --error()\
--end\
\
if term.isColor() == false then\
  print(lang.gui.advancedonly)\
  return\
end\
\
function drawTaskbar()\
  term.setCursorPos(1,h)\
  if config.bTaskbar == true then\
    paintutils.drawLine(1, h, w, h, config.nTaskbarBack)\
  end\
  term.setCursorPos(1,h)\
  term.setBackgroundColour(config.nStartBack)\
  term.setTextColour(config.nStartText)\
  term.write(\"RedCast\")\
  term.setBackgroundColour(config.nMenuColour)\
  term.setTextColour(config.nMenuText)\
  --term.setTextColour(colours.white)\
  term.setCursorPos(1,1)\
end\
\
--error(\"I reached here!\")\
\
function drawDesktop()\
  term.current().setVisible(false)\
  term.setBackgroundColour(config.nBackColour)\
  term.clear()\
  term.setCursorPos(1,1)\
  --error(\"I reached here\")\
  if fs.exists(config.sBackground) then\
    image = paintutils.loadImage(config.sBackground)\
    paintutils.drawImage(image, 1, 1)\
  end\
  if config.bBuildString == true then\
    term.setCursorPos(1,1)\
    term.setBackgroundColour(config.nBackColour)\
    term.setTextColour(config.nTextColour)\
    print(config.sBuildString)\
  end\
  if config.bFeedback == true then\
    term.setCursorPos((w-#config.sComments)+1, 1)\
    print(config.sComments)\
  end\
  drawTaskbar()\
  term.current().setVisible(true)\
end\
\
local maxle = -1\
for i,v in pairs(lang.gui.menu) do\
  if #v > maxle then maxle = #v end\
end\
maxle = maxle + 1\
function fill(str)\
  local le = #str\
  local left = maxle - le\
  if left <= 0 then\
    return\
  else\
    for i = 1,left do\
      write(\" \")\
    end\
  end\
end\
\
function drawStart()\
  term.setCursorPos(1,h-1)\
  write(\" \")\
  fill(\"\")\
  term.setCursorPos(1,h-2)\
  term.write(\" \"..lang.gui.menu.restart)\
  fill(lang.gui.menu.restart)\
  term.setCursorPos(1,h-3)\
  term.write(\" \"..lang.gui.menu.shutdown)\
  fill(lang.gui.menu.shutdown)\
  term.setCursorPos(1,h-4)\
  term.write(\" \"..lang.gui.menu.chatmanager)\
  fill(lang.gui.menu.chatmanager)\
  term.setCursorPos(1,h-5)\
  term.write(\" \"..lang.gui.menu.paint)\
  fill(lang.gui.menu.paint)\
  term.setCursorPos(1,h-6)\
  term.write(\" \"..lang.gui.menu.redspace)\
  fill(lang.gui.menu.redspace)\
  term.setCursorPos(1,h-7)\
  term.write(\" \"..lang.gui.menu.floppy)\
  fill(lang.gui.menu.floppy)\
  term.setCursorPos(1,h-8)\
  term.write(\" \"..lang.gui.menu.credits)\
  fill(lang.gui.menu.credits)\
  term.setCursorPos(1,h-9)\
  term.write(\" Games\")\
  fill(\"Games\")\
  term.setCursorPos(1,h-10)\
  write(\" \")\
  fill(\"\")\
end\
\
drawDesktop()\
\
--error(\"I reached here!\")\
\
function updateClock()\
  term.setBackgroundColor(config.nTaskbarBack)\
  term.setTextColour(config.nTaskbarText)\
  time = string.format(\"%2i:%2i:%2i\",iHours,iMinutes,iSeconds):gsub(\" \",\"0\")\
  term.setCursorPos(w - #time, h)\
  write(time)\
  iSeconds = iSeconds + 1\
  if iSeconds == 60 then\
    iSeconds = 0\
    iMinutes = iMinutes + 1\
  end\
  if iMinutes == 60 then\
    iMinutes = 0\
    iHours = iHours + 1\
  end\
  if iHours == 24 then\
    iHours = 0\
  end\
end\
local up = os.startTimer(0)\
while true do\
  xComments = (w-#config.sComments)+1\
  local event, button, x, y = os.pullEvent()\
  if event == \"mouse_click\" then\
    if x >= 1 and x <= 7 and y == h and menu == 0 then\
      drawDesktop()\
      drawStart()\
      menu = 1\
    elseif x >= xComments and x <= w and y == 1 and config.bFeedback == true then\
      term.clear()\
      term.setCursorPos(1,2)\
      local e,user,topic,feedback = textutils.urlEncode\
      term.write(\"Username: \")\
      user = e(read())\
      term.write(\"Topic: \")\
      topic = e(read())\
      term.write(\"Feedback: \")\
      feedback = e(read())\
      print()\
      write(\"Submitting...\")\
      local re = http.get(\"http://redcast.site11.com/feedback.php?username=\"..user..\"&topic=\"..topic..\"&content=\"..feedback)\
      print(re.readAll())\
      sleep(2)\
      drawDesktop()\
      menu = 0\
    elseif x >= 1 and x <= maxle and y == h - 9 and menu == 1 then\
      term.setBackgroundColour(colours.black)\
      term.setTextColour(colours.white)\
      shell.run(\"gamelib\")\
      --sleep(3)\
      drawDesktop()\
      menu = 1\
    elseif x >= 1 and x <= maxle and y == h - 3 and menu == 1 then\
      os.shutdown()\
    elseif x >= 1 and x <= maxle and y == h - 2 and menu == 1 then\
      os.reboot()\
    elseif x >= 1 and x <= maxle and y == h - 4 and menu == 1 then\
      shell.run(\"chatlib\")\
      drawDesktop()\
      menu = 0\
    elseif x >= 1 and x <= maxle and y == h - 5 and menu == 1 then\
      term.setBackgroundColour(colours.black)\
      term.setTextColour(colours.white)\
      term.clear()\
      term.setCursorPos(2,2)\
      term.write(lang.gui.paint.open)\
      filename1 = read()\
      shell.run(\"paint \"..filename1)\
      drawDesktop()\
      menu = 0\
    elseif x >= 1 and x <= maxle and y == h - 6 and menu == 1 then\
      shell.run(\"redspace2\", side)\
      drawDesktop()\
      menu = 0\
    elseif x >= 1 and x <= maxle and y == h-7 and menu == 1 then\
      --Init FloppyLoader\
      shell.run(\"FloppyLoader\")\
      drawDesktop()\
      menu = 0\
    elseif x >= 1 and x <= maxle and y == h-8 and menu == 1 then\
      shell.run(\"credplay\")\
      drawDesktop()\
      menu = 0\
    elseif menu == 1 then\
      drawDesktop()\
      menu = 0\
    end\
  elseif event == \"timer\" and button == up then\
    updateClock()\
    up = os.startTimer(1)\
  end\
end",
  [ "bankvault/levels/Boxxle2.txt" ] = "; Boxxle 2\
\
; Copyright: Thinking Rabbit\
; E-Mail: \
; Web Site: \
;\
; Levels from the Game Boy.\
\
#####\
#   #####\
# $ #   #\
#   #$# #\
###$    #\
 #   ####\
 # @...#\
 #######\
; #1\
\
  ####\
  #  #\
### $####\
#@$.. $ #\
#  .*   #\
###  ####\
  #  #\
  ####\
; #2\
\
#######\
#  . ##\
# $ $ #\
#. * .#\
# $ $ #\
## . @#\
#######\
; #3\
\
#########\
#      @#\
# $.$.$ #\
# .$.$. #\
# $.*.$ #\
# .$.$. #\
# $.$.$ #\
#       #\
#########\
; #4\
\
#########\
#   @   #\
#$$$$$$$#\
#...#...#\
#.......#\
#$$$ $$$#\
#       #\
#########\
; #5\
\
##########\
#    $  .#\
#  $##$# #\
#   $    #\
### ## ###\
#  $#  ##\
#.*.  $@#\
#...##  #\
#########\
; #6\
\
#######\
#  .  #\
# $*$.#\
#  .. #\
#$$*$$#\
# ..  #\
#.$*$ #\
#  . @#\
#######\
; #7\
\
###########\
#  $  *.* #\
#  $  *.* #\
#  $  *.*@#\
#  $  *.* #\
## $  *.* #\
 ##########\
; #8\
\
   ###########\
  ##     #  .#\
  #  $#$ #...#\
###  $  $#  .#\
#  $$$   $ @.#\
# #  $ ###  .#\
#  $ $ # #...#\
#    ### #  .#\
######   #####\
; #9\
\
#### #####\
#  ### @ ###\
#..     $  #\
#..# # $ $ #\
#..#  ## ######\
#..   ## $ $  #\
#..#  ## $ $# #\
#######   $   #\
      #  $ $# #\
      # # # # #\
      #       #\
      #########\
; #10\
\
#########\
#  .#   #\
#  $ $*.#\
# $## # #\
#   #   #\
# * #  ##\
##  .@##\
 ######\
; #11\
\
  ####\
  #. # ###\
###$ ###.#\
#  .$.   #\
#   ##$$ #\
# $$.#@  #\
#  $.#####\
###   .#\
  ######\
; #12\
\
 ########\
 #......#\
 #......#\
 #......#\
 #      #\
 #      #\
 #### ##########\
##  $    $ $ $ #\
#    $ #$#   # #\
#@#$ $ $  ##   #\
### $# #  #### #\
  #  $ $  #    #\
  # $# $ #  $  #\
  #    $   $ $ #\
  #  ###########\
  ####\
; #13\
\
    #######\
    #     ##\
    #  $$  #####\
   ### #  $#...#\
 ### $ #  $ ...#\
 #     ## $#...#\
 # $ #$    #...#\
 # #  $ # $ ...#\
 #  $ $##$  #  #\
## ##$ #@ ######\
# $    ####\
#   #  #\
########\
; #14\
\
   ###########\
   #   #     #\
####   # $ $ #\
#  $  $   #$ #\
#   $  # $$  #\
# #  $$##  # #\
# $$    ##   #\
#@$  $ $   ###\
## ####$##$#\
#  #...... ##\
#   .....#  #\
####......  #\
   ##########\
; #15\
\
#####\
#...##########\
#....$ $     #\
#..*. $   #  #\
#.*..### ## ####\
#....# $  #    #\
###### #$ #$#$ #\
  #@$  $  # $  #\
  ##      #    #\
   ########$ # #\
   #     $   $ #\
   # # # # $## #\
   #   $   $ $ #\
   ########    #\
          ######\
; #16\
\
    ######\
  ###    ####\
  # $ $ $   ##\
###    $ ##  #\
# $ # ##$  $ #\
#   #$   $   #\
#  $   $  $$ #\
# $@## ### ###\
#   #  #. ...#\
#####   .....#\
    ####.....#\
       #######\
; #17\
\
       #####\
########   #\
#.....# $# #\
#.....   # #\
#...  # $# ###\
##### #  #   #\
    #   $#$# #\
    ###$ $ # ##\
      #   $@$ #\
      #   # $ #\
      #$ $$$  #\
      #       #\
      #########\
; #18\
\
 ##########\
##  #     #\
#     $...#\
# # @ #...#\
#    #....#\
# $#$$...####\
#    ###$   #\
##  #    $$$###\
 #$ $ ##   $  #\
 #  #$#  #    #\
 ###  $  ######\
   #   # #\
   ###   #\
     #####\
; #19\
\
      ######\
    ### ...##\
   ##   ....##\
   # $##$#...#\
   # $  @ ...#\
 ###  # # # $#\
## $ #  #$## #\
#    $ $   # ##\
# $ # ##   $  #\
#  #   ## # # #\
# # $$   $    #\
#     #  ##  ##\
#####   ######\
    #####\
; #20\
\
    ############\
   #......#####\
  #@..$ **.###\
  #  $ $      #\
  ####### #$#  #\
 # #  # $ $  $ #\
#  #  # #  # # #\
      #  #   $ #\
       #  $##  #\
        #     #\
         #####\
; #21\
\
     ######\
######    #####\
#   #  #  #   ##\
# $$  $#$#  $  #\
#  #.#...  $ $ #\
#   .....@# $  #\
# $#.##*#  $$$ #\
##  ....#$ #   #\
 ###.#...  #####\
  # $ $#$# #\
  # $#   $ #\
  #    #   #\
  ##########\
; #22\
\
########\
#  #.#.##\
# $.$. .#\
#   .#$##\
####   #\
   #$$$#\
   # @ #\
   #####\
; #23\
\
  ##########\
  #        #\
 ## $ ##   #\
 #@ $$$  # #\
 ##  $ $$  #\
######  $$ #\
#... #$ $  #\
#..  # $## #\
#..     #  #\
#..  # ##  #\
#... #     #\
############\
; #24\
\
   ######\
   # @  #\
####  $ #\
# *..*$ #\
# $*..* #\
# $  ####\
#    #\
######\
; #25\
\
  #######\
  #. .  #\
####$#$ #\
# $. .  #\
#@$# #$ #\
# $.$.  #\
####.  ##\
   #####\
; #26\
\
##########\
# @###...#\
# $$  .$.#\
#   #$#$ #\
##       #\
##########\
; #27\
\
######\
#    ##\
# $ * #\
##.$$.#\
#. @ .#\
#.$$.##\
# * $ #\
##    #\
 ######\
; #28\
\
#########\
#   @...#\
# #$#.*.#\
# $  $$ #\
## #$   #\
 #   ####\
 #####\
; #29\
\
     ######\
######    #\
# $ .*. $ #\
#@$.* *.$ #\
# $ .*. $ #\
#     #####\
#######\
; #30\
\
######\
# # .#\
# $ .#\
#@ $.#\
# $$.#\
#  ###\
####\
; #31\
\
####\
#  ###  #####\
# $$ #  #...#\
#    ####...#\
# $ $ $  ...#\
# $  #### ..#\
### ##  ##$###\
### ######   #\
#  $  #    $ #\
#    $  # $  #\
##@#  ###   ##\
 ###### #####\
; #32\
\
    ####\
#####  #\
#  $ $ # #######\
#   $  # #*.*.*#\
## $ $ ###.*.*.#\
 #$ $  #  *.*.*#\
 #@$ $    .*.*##\
 #$ $  #  *.*.*#\
## $ $ ###.*.*.#\
#   $  # #*.*.*#\
#  $ $ # #######\
#####  #\
    ####\
; #33\
\
     ####\
     #  #####\
 #####      #\
 #  ## ##   #\
##   $   #$$ #\
#  ####  # $ #\
#  ..##$#    #\
###... $ # # #\
  #.*.#$ #$  #\
  #...#  # $##\
  #####$    #\
     #@  ####\
     #####\
; #34\
\
 ####\
 #  ######\
 #@$  $  ####\
 #  #   $#  #\
 ## #$ $  ..####\
### # ####.....#\
#    $ # $.....#\
# $    $  #  ###\
#### #$#  ####\
   # $ $ ##\
   #    ##\
   ######\
; #35\
\
##############\
#....#       #\
#*...# $ $ $ #\
#..####  $   #\
#..#  #   $$ #\
#..$  ## #   #\
# $#  $  #####\
#  #  #      #\
## #### ## # #\
# $    $ #   #\
# #$#$#@ #####\
#       ##\
#########\
; #36\
\
  ###########\
  #.........#\
  #.........##\
##########$$ #\
#     $  $ $ #\
# @##$ $  $  #\
# $#  ## ### ##\
#    $$ $   $ #\
####$  $  #$$ #\
   #  $#      #\
   #     ######\
   #######\
; #37\
\
#########\
#....   #\
#....$# #\
#.#..  $##\
#..@ #$  #\
###### #$#####\
  ##   $   $ #\
  # $$ #$    #\
  #   $   $$ #\
  #   #$   ###\
  ###    ###\
    ######\
; #38\
\
###############\
#             #\
# # $..... ## #\
# ##.$###$. # #\
#    . # .  $ #\
# $#@$...# #  #\
# $  . # .$ # #\
# # # ... #   #\
#   ##$#$##$$ #\
# #  $ #      #\
# $ #$ # $##$ #\
#      #      #\
###############\
; #39\
\
####\
#  #####\
# $$ $ #######\
#        ##  ###\
### ####$# $ $ #\
#....        $ #\
#....####$ #   #\
#....###  ## $ #\
##.#### $ $@$# #\
 #    $   #    #\
 #  #    #######\
 #########\
; #40\
\
          ####\
###########  #\
#      $   $ #\
#  ##### ### #\
## # $...$ # ##\
 # # $...     #\
 # #@#...###$ #\
## ## ...    ##\
#  $ $$$ #####\
# $$   ###\
#      #\
########\
; #41\
\
       ####\
      ##  #\
 ###### $ #\
##    # $ #\
# $ $   # ####\
#  ##$#....#@##\
# #   #....   #\
# # $$ ....## #\
#     #....#  #\
### # ### # $ #\
 # $  $ #$ $  #\
 #   $  # $  ##\
 # $# # ##  ##\
 # $  # #  ##\
 #  ###   ##\
 #### #####\
; #42\
\
          #####\
        ###   #\
    #####   $ #\
#####   # $#$##\
#....$ $#     #\
#....$#   $ $ #\
#....@#  ###$##\
#....#   $    #\
## #$ $ $ #   #\
# $$ #$########\
#      #\
###   ##\
  #####\
; #43\
\
        ####\
     ####  ##\
 ##### $    #\
 #   #   #$ ##\
 # $$ #$#....#\
##  $    ....#\
#  ## $ #.##.#\
# #  ## #....#\
#  $ @ $  $ ##\
## $ $ #$ #$#\
 #   ###    #\
 ##### ######\
; #44\
\
  #####\
 ##   #\
 # $# ####\
##  .....##\
# $ #.....#\
# #$ # ...##\
#   $# ##  ##\
#    $$###$ ##\
# ##$#  @  $ #\
#    #$$ #   #\
### # $  $ ###\
  #   #  ###\
  ########\
; #45\
\
     ####\
 #####  ##\
##    $  ####\
#  $  #$  $ ##\
# $ #   #    #\
#  ### $@ #$ #\
######...##  #\
   ####..#####\
 ###  ... #\
## $$#... #\
#  # $ ## #\
# #    $  #\
#     #####\
##   ##\
 #####\
; #46\
\
  #########\
  #      @#\
  #$ $ $  #\
  # ##$# ##\
 ##.. .. #\
 # .. ..##\
## #$## #\
#  $ $ $#\
#       #\
#########\
; #47\
\
######\
#    ######\
# $$$#    #\
# @$ # ## #\
# $$....# #####\
#  #.#.*# #   #\
#  #.#*.$     #\
#  #.*.. ###$##\
#######$#  #  #\
      # $$    #\
      #    #  #\
      #  ######\
      ####\
; #48\
\
        #######\
        #     #\
        #$$ $ #\
   ######  $  #\
   #   ## $ $ #\
   # ....*  $ #\
   # .###.#####\
   ##.# #.#\
#####.###.#\
# $  *....#\
# $ $ #####\
#@ $  #\
# $ $$#\
#     #\
#######\
; #49\
\
 ########\
 #  @   #\
##$ $ $ #\
# $ # $ #\
#  $ # ##\
#......#\
########\
; #50\
\
   ####\
   #  ###\
####  $ ####\
#    $# #  #\
# $#  #   @##\
#    #  #  ####\
# #$ $ #..... #\
# $ # $ ..##. #\
##$  # #...*.##\
 #  $#  #..#. #\
 # $  #$$  $$ #\
 #  # $    #  #\
 ####    ######\
    ######\
; #51\
\
    ########\
    #  ....#\
 #### #....#\
##  # $...##\
#  $ #$.*. ###\
#    $ $# $$ #\
# $#  @ #    #\
##  #  #  $ ##\
 #  $ # $ ###\
 #  #  $ $#\
 #####    #\
     ######\
; #52\
\
#######\
#. . .#\
# $$$ #\
#.$@$.#\
# $$$ #\
#. . .#\
#######\
; #53\
\
##############\
#   ###      #\
# $$$     $$ #\
# $ ### $ $  #\
# $ #  ### ###\
#   #.*...$@##\
#   #.....#$ #\
## # ...#.#  #\
## # .....#  #\
##$#####  # ##\
#     $ ###  #\
# $$ $    $$ #\
#       ###  #\
##############\
; #54\
\
   #####\
####   #\
#  $.# ##\
#   $   #\
#.##.##.#\
#  $$$  #\
####.  @#\
   ######\
; #55\
\
 ##########\
 #    .   #\
## $##$## #\
# @$. . .$##\
#   ##$##  #\
###   .    #\
  ##########\
; #56\
\
########\
#   @  #\
# #$## #\
# $  $ #\
###  $##\
 #. $.#\
 #. ..#\
 ######\
; #57\
\
#######\
#  .  ####\
# $.$ $ @#\
#  .####.##\
#  $ $ $. #\
####    . #\
   ########\
; #58\
\
#####\
#   #######\
# $ * .$  #\
# #.#.#.# #\
# $ $@$ $ #\
# #.#.#.# #\
#  $. * $ #\
###   #   #\
  #########\
; #59\
\
 #####\
 #   ######\
 # $.##   #\
 ##$...$  #\
### .$. ###\
#@$ $$###\
# $ ..###\
# $  .  #\
#####   #\
   ######\
; #60\
\
  #########\
 ##.......##\
## .$$$$$. ##\
#   #   #   #\
#  #*#@#*#  #\
##  #   #  ##\
 #. $$$$$  #\
  #.$     #\
   ##   ##\
     ###\
      #\
      #\
; #61\
\
  ####\
###  ######\
#    ##   #\
# #     $ #\
# $$ #$#$##\
### $    ###\
  ##  ##.*.##\
   ##$ $... ##\
  ##  ##...  #\
  #   $ #. @ #\
  # #   $.# ##\
  #    ##   #\
  #######  ##\
        ####\
; #62\
\
 #######\
##  *  ##\
# . .@. #\
#   * $ #\
#*$$*$$*#\
# $ *   #\
# . . . #\
##  *  ##\
 #######\
; #63\
\
#######\
#     #\
# $.$ #\
# .$. #\
#*$.$*#\
# .$. #\
#  .$ #\
# @   #\
#######\
; #64\
\
 ######\
 # @  ##\
 #$##  #\
## ..  #\
# $**$ #\
#  .. ##\
#  ##$#\
##    #\
 ######\
; #65\
\
###############\
#             #\
# $.$.$.$.$.# #\
# .$.$.$.$.$  #\
# $.$.$.$.$.#@#\
# .$.$.$.$.$  #\
# $.$.$.$.$.# #\
#             #\
###############\
; #66\
\
#######\
# $.  #\
#. .$.#\
#$.*. #\
# $*$ #\
#  .  #\
# $*$ #\
#  * @#\
#######\
; #67\
\
   #######\
   # ... #\
####$##$ ##\
#    $    #\
# #$@.* # #\
#   $*. # #\
## # .* # #\
 #$ ####  #\
 #       ##\
 #########\
; #68\
\
#######\
#  .  #\
# $.$ #\
# $*$ #\
#..*..#\
#$$*$ #\
#  .  #\
# $. @#\
#######\
; #69\
\
##########\
#.     $.#\
# #### #.#\
#. $ #$  #\
#  $ # $ #\
#   $@ $##\
######...#\
     #####\
; #70\
\
    ##########\
   ##   #    ##\
####    #  #  #\
#  $.******.$ #\
#   #   @  #  #\
#####    ######\
    ######\
; #71\
\
       #\
      ###\
     ##  #\
    #  $ ##\
   #  $.$  #\
  ## $.*.$  #\
 #  $.*.*.$ ##\
## $.*.*.*.$ ##\
 ## $.*.*.$  #\
  #  $.*.$ ##\
   #  $.$  #\
    ## $  #\
     # @##\
      ###\
       #\
; #72\
\
#######\
#  *  #\
#  *  #\
# $*$ #\
#*...*#\
# $.$ #\
# $.$ #\
#  . @#\
#######\
; #73\
\
#########\
##  @  ##\
# $ $.# #\
#  $.#. #\
# $.#.$ #\
# .*.$  #\
# #.$ $ #\
##     ##\
#########\
; #74\
\
#######\
#  .  #\
# $*$ #\
# $.$ #\
# ... #\
#.$.$.#\
#$$*$ #\
#  . @#\
#######\
; #75\
\
###############\
#  .........  #\
# $.$$$$$$$$$ #\
# $.$.......$ #\
# $.$.$$$$$.$ #\
# $.$.$...$.$ #\
# $.$.$*$.$.$@#\
# $.$...$.$.$ #\
# $.$$$$$.$.$ #\
# $.......$.$ #\
# $$$$$$$$$.$ #\
#  .........  #\
###############\
; #76\
\
 ########\
##  @#  #\
#  ###$ ##\
#  * *   #\
# * * *  #\
#  * * . #\
###   ####\
  #####\
; #77\
\
#######\
#  .  #\
# $.$ #\
# $.* #\
#.$*$.#\
# *.$ #\
# $.$ #\
#  . @#\
#######\
; #78\
\
##########\
#        #\
# $#$#$#$##\
#. .$...$.#\
#. .$...$.#\
# $#$#$#$@#\
#        ##\
##########\
; #79\
\
#########\
#   #   ###\
#   $ $   #\
## ##.#   #\
#@$##.##$##\
# $.....  #\
##$##.##$ #\
#  ##.#   #\
#  $ $#  ##\
#     #  #\
##########\
; #80\
\
            ####\
 ############  #\
 #      $      #\
 #$$#  ## ###  #\
##  ## #....# ##\
#  $   #....$  #\
#@#$$ ##....#  #\
# $    #....#  #\
##  $$ ###$### #\
 # $ $ #       #\
 #$ $ $  #   # #\
 #  ## #####   #\
 #     #   #####\
 #######\
; #81\
\
 ####   ####\
##  #####  #\
# $ $   $$ #\
#    ## #  ###\
##$#.....$   #\
 # #.....#  $##\
 # #.....# $$ #\
 # ### ###    #\
 #    @    #$ #\
 #  #  $ ###  #\
 #### $ $ $ $ #\
    #####     #\
        #######\
; #82\
\
 ############\
 # @# ......#\
 #$ #...* $ #\
 #   $ ##  ##\
 # $ $  ## #\
## ### $#  #\
# $# $    $#\
#     ##   #\
####  ######\
   ####\
; #83\
\
   #########\
   #@      #\
 ### ##  # ##\
 # $$ # $#  ##\
 #    # $ #$ #\
 #  # # #    #\
 ## # $  $ $ #\
  # #   ###  ##\
  # ##...##$  #\
###$$ ..### # #\
#  $  ...##   #\
#   ##....#####\
###########\
; #84\
\
 ####\
 #  ########\
 #   $     ###\
 # ##$ ###   #\
 #    #...$  ##\
 #$ @ #...# $ ##\
##  #  ...#$   #\
# $$  $#..  #  #\
# #  $ #..$ $  #\
#  $  ##..#  ###\
### #$  $ ####\
  #    #  #\
  #########\
; #85\
\
#########\
#   ## @#\
# $  $  #\
## *.#$ ##\
 # #.*   #\
 # .. $# #\
 #####   #\
     #####\
; #86\
\
  ####\
  #  ########\
 ##    $    #\
 # $# #.# # #\
 #  ...*. $ #\
## #$##.##  #\
# $     $ @ #\
#   ###  #  #\
##### #######\
; #87\
\
#####\
#   ########\
#   # .    ##\
#  ## *$$#  #\
# @ # .   $ #\
#   # .#$#  #\
##  ##.# $ ##\
 #  ##.#   #\
 #   #. # ###\
 #   $* # $ #\
 #    . #   #\
 ############\
; #88\
\
   ###### #####\
   #    ###   #\
   # #$     $ #\
 ### $ ##### ##\
 #   #.##     #\
 # $##.##  #$ #\
 #  ..... $#  #\
##$ ##.##  ####\
#  $ #.#####\
#   $ @ #\
#####   #\
    #####\
; #89\
\
#########\
#  #    ###\
#  #  #   ###\
# .   # $ $ ###\
#..#  # $ $   #\
#..   # @$ $  #\
#..#  ##$# $  #\
#..  ##   $ ###\
#..#    $$# #\
#    ##     #\
#  ##########\
#  #\
####\
; #90\
\
############\
#    ... $ #\
# $$$*** $@#\
#    ... $ #\
############\
; #91\
\
     #####\
######   ######\
#   #  $ ##   #\
# $ $ $ #   $ ##\
#  $# @ $ $$#  #\
## $  #     $$ #\
#..#$#### #$#  #\
#....  #  #   ##\
#....   $$#####\
#...###   #\
#...# #####\
#####\
; #92\
\
  #####\
  #   #\
### . #\
#   . #####\
# ##$## @ #\
#   . $   #\
###$.$#####\
  #   #\
  #####\
; #93\
\
     #######\
     #@ #  #\
###### $   #\
#...### #  ##\
#.  #  $ #  #\
#.    $ $ $ #\
#.  #  $ #  #\
#...### #  ##\
###### $#  #\
     #  $$ #\
     #  #  #\
     #######\
; #94\
\
     #####\
   ###   ####\
 ### $ $ #  #\
##   .#     #\
# $# ..# $  #\
#@$  ...#  ##\
# $# #...#$ #\
##   $ $    #\
 #### # #####\
    #   #\
    #####\
; #95\
\
    ####\
  ### @####\
 #  #   #  #\
 #$ $ $$$ $#\
 #  #.#.#  #\
 # #.....# #\
 # #.....# #\
#   #...#   #\
# $  # #  $ #\
 #  $ $ $  #\
  #$ $ $ $#\
  #       #\
  #########\
; #96\
\
             #\
            ##\
           ###\
          #   #\
   ######## # #\
  # $ $ $ $   #\
 ## # # # #$##\
###.......   ##\
 ## #.#.#.#@$#\
  # $ $ $ $   #\
   ######## # #\
          #   #\
           ###\
            ##\
             #\
; #97\
\
    ##   ##\
   ######  #\
####  $ $  ####\
 ### *.*.* ###\
  ## .$ $. ##\
   # *.*.* #\
   #  $ $  #\
   ### @ ###\
     #####\
       #\
; #98\
\
#####       ####\
#   #########  #\
#              #\
## ##########  #\
 # # * . * ## ##\
 # #  * *  ## #\
 # # * * * ## #\
 # #  * *  ## #\
 # # * * * ## #\
 # #  * *  ## ##\
 # # * * *     #\
 #$#  * *  #   #\
 #@  * * * #  ##\
 ##############\
; #99\
\
###########\
#  #   #  #\
#  $  $   #\
#  ##.##  #\
## ...##$##\
##$#...   #\
#  #.##$# #\
# $$  $   #\
# @#  #####\
#######\
; #100\
\
##### ####\
#   ###  ######\
# $  $ @$.... #\
##$ $  #$.##. #\
 #  # $# ....##\
 #  $  #$.##. #\
 # $  #  .... #\
 #$$$ # $$  $##\
 #    #  ##  #\
 #############\
; #101\
\
   #####\
   #...######\
   #...#    #\
   #...$ $$ #\
#####.. @# ##\
#    $ ### ###\
#   #$####   #\
## $     ### #\
 #   # $  $  #\
 ######  # $ #\
     #  $#$# #\
     #       #\
     #########\
; #102\
\
    #####\
    #   #\
 ####$# ###\
 # $  @$  ###\
 #   #    $ #\
###$## $$   #\
#....#$#  $ ##\
#..... ###$  #\
##.#.  #   $ #\
 #... $#$ #  #\
 #  #   $ ####\
 ####  ####\
    ####\
; #103\
\
###########\
#   ##..  #\
# $ ....# ##\
#  #.... @ ###\
#  #.#.. #   #\
####.###  $# #\
 ##  ##  $ # ##\
##   #  #$    #\
#  $ #$$#   # #\
# # $  $ ##   #\
# ###$ $  $  ##\
# $    ##    #\
# $   ####   #\
#  ####  #####\
####\
; #104\
\
 #######\
 #...  #####\
 #...#$#   ###\
 #... $@ $   ###\
 ##$$# ##$#$   #\
 #   #     $$# #\
 # $###$## # $ #\
 # $.#.$       #\
##  ...#$$ #####\
#  $#..  ###\
#   ##.   #\
#######   #\
      #####\
; #105\
\
 ####   #####\
 #  #####   #\
##*   * #$# #\
#   #   #   #\
# * . *  ** #\
######   #@##\
# .   ###   #\
# $ *    *# #\
##*   * **  #\
 #  ####    #\
 ####  ######\
; #106\
\
      ####\
      #  #\
    ###  ####\
#####       ###\
#   $ #$###   #\
#  $@$....#$$ #\
######..*.  $ #\
   #####..#####\
   # $ $ ##\
   #     #\
   #######\
; #107\
\
         #####\
         #   #\
########## * ###\
#          .   #\
# $$$$****$...@#\
#          .   #\
########## * ###\
         #   #\
         #####\
; #108\
\
########\
#  .$  #\
# .$.$ ##\
#*$.$.@ #\
# .$.$  #\
#  .$ ###\
#######\
; #109\
\
###########\
#    .    #\
#  $.$.$  #\
###.$.$.###\
  ##.$.##\
   #$.$#\
   # $ #\
   # @ #\
   #####\
; #110\
\
       #####\
########   #\
#......... #\
#  $ #$#   #\
# $#    # ###\
#  #  # $   #\
#$### $ # # #\
#@$    $  $ #\
######  #####\
     ####\
; #111\
\
          #####\
          #   #\
########### # #\
#             #\
# # $#######$$#\
# #  *.....#  #\
# #$ #.***.*  #\
# #  #.....#  #\
# #  ####*###$##\
# #         $  #\
# $ $ $ $ $ $ @#\
##  ############\
 ####\
; #112\
\
###########\
#  .$ $.  #\
#  .$  #  #\
#.#*#..*..#\
#$ .$$$#$$#\
#  .$@$.  #\
#$$#$$$. $#\
#..*..#*#.#\
#  #  $.  #\
# $. $ .  #\
###########\
; #113\
\
   #####\
   # @ #\
   #$$$#\
#### . ####\
#   *.* $ #\
# $.....$ #\
# $ *.*   #\
#### . ####\
   # $$#\
   #   #\
   #####\
; #114\
\
#######\
# $. @#\
#  .$ #\
# **$ #\
#* .$*#\
# $*. #\
#  .$ #\
#  .  #\
#######\
; #115\
\
#######\
#  *  #\
# $.$ #\
#  .$ #\
#.*.*.#\
#$ *  #\
# $. $#\
#@ *  #\
#######\
; #116\
\
   ######\
####    ####\
#@ $.#*$   #\
# $ ...# $ #\
###$#.     #\
  #   ######\
  #####\
; #117\
\
   #####\
   #.  #\
   #...#\
   #.  #\
   #.  #\
##### #####\
#         #\
# $@$$$$$ #\
#    #    #\
###########\
; #118\
\
  #####\
  # . #\
  # * #\
  # . #\
###$*$###\
#   *   #\
# ***** #\
#   *   #\
### . ###\
  # $ #\
  # @ #\
  #####\
; #119\
\
#############\
#.          #\
#.#$#$#$#$#$#\
#.          #\
#.#########.#\
#.#.  $ ..$$#\
#.# $ $ *.$@#\
#.#.* $ ..$*##\
#.#########  #\
#.$ $ $ $ $  #\
#.           #\
##############\
; #120\
",
  bsod = "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbb0000bb00000b00000b0000bbbbbbbbbbbbbbb\
bbbbbbbbbbbb0bbb0b0bbbbb0bbb0b0bbb0bbbbbbbbbbbbbb\
bbbbbbbbbbbb0000bb00000b0bbb0b0bbb0bbbbbbbbbbbbbb\
bbbbbbbbbbbb0bbb0bbbbb0b0bbb0b0bbb0bbbbbbbbbbbbbb\
bbbbbbbbbbbb0000bb00000b00000b0000bbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  [ "CCQT/UTFPro" ] = "bbbbbbbbbbbbb9\
b7bb88888777b9\
b7bb7b8b7bbbb9\
b7bb7b8b77bbb9\
b7bb7b8b7bbbb9\
b7777b8b7bbbb9\
bbbbbbbbbbbbb9\
99999999999999",
  [ "redcast/files/.bios" ] = "--error(\"I loaded!\")\
local config = \"devconfig\"\
local conf = dofile(config)\
term.setBackgroundColour(colours.white)\
term.setTextColour(colours.black)\
term.clear()\
term.setCursorPos(1,1)\
\
function changeLine(fileloc, line, text)\
  if not fs.exists(fileloc) or fs.isDir(fileloc) then\
    return\
  end\
  local tbl = {}\
  local currentLine = \"\"\
  local i = 0\
  local file = fs.open(fileloc, \"r\")\
  repeat\
    i = i + 1\
    currentLine = file.readLine()\
    tbl[i] = currentLine\
  until currentLine == nil\
  file.close()\
  tbl[line] = text\
  local file2 = fs.open(fileloc, \"w\")\
  for i,v in pairs(tbl) do\
    file2.write(v)\
  end\
  file2.close()\
end\
\
local file = fs.open(\"devconfig\",\"r\")\
local configVer = file.readLine()\
if not string.find(configVer,\"local version\") then\
  print(\"CRITICAL EXCEPTION!\")\
  print(\"Outdated config version detected!\")\
  print()\
  print(\"Press any key to reboot.\")\
  local event, key = os.pullEvent(\"key\")\
  os.reboot()\
end\
file.close()\
--error(\"I reached here!\")\
--changeLine(\"linetest\", 1, \"Hey!\")\
while true do\
  term.clear()\
  term.setCursorPos(1,1)\
  print(\"RedCast Setup\")\
  print()\
  print(\"1. Edit Config\")\
  print(\"2. Reset System\")\
  print(\"3. File Manager\")\
  print(\"4. Reboot\")\
  print(\"5. Shutdown\")\
  local event, key = os.pullEvent(\"key\")\
  if key == 2 then\
    shell.run(\"edit devconfig\")\
    term.setBackgroundColour(colours.white)\
    term.setTextColour(colours.black)\
  elseif key == 3 then\
    term.clear()\
    term.setCursorPos(1,1)\
    print(\"Are you sure? [Y/N]\")\
    repeat\
      event2, key2 = os.pullEvent(\"key\")\
    until key2 == keys.y or key2 == keys.n\
    if key2 == keys.y then\
      local root = fs.list(\"/\")\
      for i,v in pairs(root) do\
        if not v == \"rom\" or not v == \".restore\" then\
          print(\"Deleted \"..v..\"!\")\
          fs.delete(v)\
        end\
      end\
      local backup = fs.list(\".restore\")\
      for i,v in pairs(backup) do\
        fs.copy(\".restore/\"..v,v)\
      end\
    end\
  elseif key == 4 then\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    shell.run(\"manager\")\
    term.setBackgroundColour(colours.white)\
    term.setTextColour(colours.black)\
  elseif key == 5 then\
    os.reboot()\
  elseif key == 6 then\
    os.shutdown()\
  end\
end",
  [ ".qcconfig" ] = "{\
  started = true,\
}",
  [ "goldrunner/levels/classic_004" ] = "bbbbbbbbbb5                           bbbbbbbbbb\
bbbbbbbbbb8ddddddddddd                bbbbbbbbbb\
bbbbbbbbbbc     c     b 4 b     c     bbbbbbbbbb\
bbbbbbbbbbc 4  ccc  4 bbbbb 4  ccc  4 bbbbbbbbbb\
bbbbbbbbbbc cc  c  cc       cc  c  cc bbbbbbbbbb\
bbbbbbbbbbc c ccccc c       c ccccc c bbbbbbbbbb\
bbbbbbbbbbc c  4e4  c   c   c  4e4  c bbbbbbbbbb\
bbbbbbbbbbc  cbbbbbc   ccc   cbbbbbc  bbbbbbbbbb\
bbbbbbbbbbc   ccccc cc  c  cc ccccc   bbbbbbbbbb\
bbbbbbbbbbc         c ccccc c         bbbbbbbbbb\
bbbbbbbbbbc    4    c  4e4  c     4   bbbbbbbbbb\
bbbbbbbbbbcbbbbbbc   cbbbbbc  cbbbbbbbbbbbbbbbbb\
bbbbbbbbbbc      c    ccccc   c       bbbbbbbbbb\
bbbbbbbbbbc      c            c       bbbbbbbbbb\
bbbbbbbbbbc      c       4  0 c       bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "redcast/files/CubeAPI" ] = "-- RedCube API by Gonow32\
-- Designed for the RedCube games console\
\
function clearScr(backColour, textColour)\
  term.setBackgroundColour(backColour)\
  term.setTextColour(textColour)\
  term.clear()\
  term.setCursorPos(1,1)\
end\
\
function checkForSaveFolder()\
  if fs.exists(\"saves\") and fs.isDir(\"saves\") then\
    return true\
  else\
    return false\
  end\
end\
\
\
",
  diskinfo = "return {\
  sGameFile = \"tron\",\
  sName = \"TRON\",\
}",
  [ "tron/.copyprotect" ] = "",
  [ "ccsand/startgame" ] = "--[[\
CCSand by CosmoConsole\
Supports Redirect API created by GopherAtl\
\
License: Creative Commons Attribution-NonCommercial-ShareAlike (http://creativecommons.org/licenses/by-nc-sa/3.0/)\
\
A program coded with LUA for dan200's (Daniel Ratcliffe) ComputerCraft mod (http://www.computercraft.info/)\
created for Minecraft by Mojang AB (http://minecraft.net/)\
\
This program is a falling sand-type of simulator game.\
\
Do not change anything beyond this if you are not sure what to do.\
--]]\
\
-- Build no 111\
\
--assert(true, \"Program is in development phase. Remove the first line if you're a debugger.\")\
version = \" v0.5\"\
if term.isColor() == false then\
 error(\"This program requires an Advanced Computer\")\
end\
\
paused = true\
on = true\
drawing = false\
dirty = true\
particleLimit = 1000\
page = 0\
sel = 1\
fps = 10\
menu = false\
debug = false\
shouldRender = false\
buffer=term\
API = false\
ipart = nil\
statusbar = \"\"\
textReset = os.startTimer(5)\
brushSize = 1\
\
logs = fs.open(\"ccsand.log\", \"a\")\
function log(s)\
 logs.writeLine(os.day() .. \"-\" .. textutils.formatTime(os.time(),true) .. \"; \" .. s)\
end\
\
\
\
-- elements = [1] = {name, bg, fg, ch, type, spread%, grav%, weight, flam, init, inil, inic, ltp, ltr, htp, htr, inv, func, tc, expl, tool}\
-- (l/h)t(p/r) = low/high temperature point/reaction\
-- inv = can other materials go into it\
-- func = own function\
-- ini(t/l/c) = initial temperature/life/co-type\
-- type; solid = 0, powder = 1, liquid = 2\
elements = {\
 [0] = {\" Air \", colors.black, colors.white, \" \", 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 0, 0, 0},\
 [1] = {\" Sand\", colors.yellow, colors.white, \":\", 1, 20, 90, 52, 0, 295, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 35, 0, 0},\
 [2] = {\" Wall\", colors.lime, colors.lime, \".\", 0, 0, 0, 100, 0, 293, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 80, 0, 0},\
 [3] = {\"Water\", colors.blue, colors.lightBlue, \"~\", 2, 8, 95, 30, 0, 295, 0, 0, 272.9, 16, 373.1, 15, 0, [\"func\"] = nil, 25, 0, 0},\
 [4] = {\" Void\", colors.purple, colors.black, \"+\", 0, 0, 0, 100, 0, 295, 0, 0, -1, 0, -1, 0, 1, [\"func\"] = nil, 80, 0, 0},\
 [5] = {\"Crazy\", colors.white, colors.blue, \"X\", 0, 0, 0, 0, 0, 295, 0, 0, -1, 0, -1, 0, 1, [\"func\"] = nil, 70, 0, 0},\
 [6] = {\"  N2 \", colors.lightBlue, colors.white, \":\", 0, 0, 0, 10, 0, 295, 0, 0, -1, 0, -1, 0, 1, [\"func\"] = gas_movement, 30, 0, 0},\
 [7] = {\" Fire\", colors.orange, colors.yellow, \"^\", 2, 8, -100, 24, 0, 595, 20, 0, 373, 18, -1, 0, 1, [\"func\"] = fire, 40, 0, 0},\
 [8] = {\" Oil \", colors.green, colors.yellow, \"~\", 2, 8, 95, 28, 80, 295, 0, 0, -1, 0, 600, 7, 0, [\"func\"] = nil, 40, 0, 0},\
 [9] = {\"  O2 \", colors.lightBlue, colors.white, \"O\", 0, 0, 0, 10, 90, 295, 0, 0, -1, 0, -1, 0, 1, [\"func\"] = gas_movement, 30, 0, 0},\
 [10] = {\" Wood\", colors.yellow, colors.brown, \":\", 0, 0, 0, 100, 60, 293, 0, 0, -1, 0, 600, 7, 0, [\"func\"] = nil, 55, 0, 0},\
 [11] = {\" TNT \", colors.red, colors.pink, \"T\", 0, 0, 0, 100, 100, 293, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 35, 1, 0},\
 [12] = {\"Insul\", colors.lightGray, colors.magenta, \":\", 0, 0, 0, 100, 0, 293, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 0, 0, 0},\
 [13] = {\"*Heat\", colors.red, colors.black, \"H\", 0, 0, 0, 100, 100, 293, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 35, 1, 1},\
 [14] = {\"*Cool\", colors.blue, colors.black, \"C\", 0, 0, 0, 100, 0, 293, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = nil, 0, 0, 2},\
 [15] = {\"Steam\", colors.lightGray, colors.white, \";\", 2, 8, -95, 10, 0, 395, 0, 0, 373, 3, -1, 0, 0, [\"func\"] = nil, 25, 0, 0},\
 [16] = {\" Ice \", colors.cyan, colors.lightBlue, \"o\", 0, 0, 0, 100, 0, 253, 0, 0, -1, 0, 273, 3, 0, [\"func\"] = nil, 50, 0, 0},\
 [17] = {\"Plasm\", colors.magenta, colors.yellow, \"^\", 2, 8, -100, 24, 0, 7595, 20, 5373, 7, 0, -1, 0, 1, [\"func\"] = fire, 40, 0, 0},\
 [18] = {\"Smoke\", colors.gray, colors.black, \"o\", 2, 8, -100, 24, 0, 325, 10, 0, -1, 0, 423, 7, 1, [\"func\"] = death, 40, 0, 0},\
 [19] = {\"CFire\", colors.blue, colors.cyan, \"^\", 2, 8, -100, 24, 0, 10, 20, 0, -1, 0, 173, 0, 1, [\"func\"] = death, 40, 0, 0},\
 [20] = {\"Neutr\", colors.lightBlue, colors.cyan, \".\", 0, 0, 0, 0, 0, 293, 15, -8, -1, 0, -1, 0, 1, [\"func\"] = neutrons, 25, 0, 0},\
 [21] = {\" Lava\", colors.red, colors.orange, \"~\", 2, 8, 95, 30, 0, 2095, 0, 22, 1095, -1, -1, 0, 0, [\"func\"] = ignite, 50, 0, 0},\
 [22] = {\"Stone\", colors.gray, colors.lightGray, \":\", 1, 20, 96, 65, 0, 295, 0, 0, -1, 0, 1100, 21, 0, [\"func\"] = nil, 70, 0, 0},\
 [23] = {\"Metal\", colors.blue, colors.gray, \"X\", 0, 0, 0, 100, 0, 293, 0, 0, -1, 0, 1150, 21, 0, [\"func\"] = nil, 90, 0, 0},\
 [24] = {\" CO2 \", colors.lightGray, colors.gray, \"O\", 1, 20, 15, 10, 0, 295, 0, 0, -1, 0, -1, 0, 1, [\"func\"] = co2, 30, 0, 0},\
 [25] = {\"  H2 \", colors.lightBlue, colors.cyan, \"O\", 2, 0, -1, 5, 0, 295, 0, 0, -1, 0, -1, 0, 1, [\"func\"] = h2, 30, 0, 0},\
 [26] = {\"Clone\", colors.cyan, colors.yellow, \"C\", 0, 0, 0, 100, 0, 293, 0, 0, -1, 0, -1, 0, 0, [\"func\"] = clone, 70, 0, 0},\
}\
\
if debug == true then\
 log(\"CCSand opened in debug mode!\")\
end\
\
local splashes = {\
 \"CC stands for CosmoConsole and ComputerCraft\",\
 \"You need Advanced Computers for this\",\
 \"Try to save & load!\",\
 \"This game doesn't have moving solids\"\
}\
\
\
statusbar = splashes[math.random(1, #splashes)]\
\
\
if debug then log(\"Searching for Redirect API created by GopherAtl\") end\
if redirect then\
 buffer=redirect.createRedirectBuffer()\
 if debug then log(\"Redirect buffer enabled\") end\
else\
 local ok=pcall(os.loadAPI,\"redirect\")\
 if not ok then ok=pcall(os.loadAPI,shell.dir()..\"/redirect\") end\
 if (ok) and (redirect) then\
  buffer=redirect.createRedirectBuffer()\
  if debug then log(\"Redirect buffer loaded and enabled\") end\
  API = true\
 else\
  if debug then log(\"Redirect buffer not found\") end\
 end\
 term.restore()\
end\
term.clear()\
\
creationTemp = nil\
creationCotype = nil\
creationLife = nil\
\
MAX_TEMP = 9999\
MIN_TEMP = 0\
\
\
\
--print(\"Press Q to Quit!\")\
\
\
function trim(s)\
  return (s:gsub(\"^%s*(.-)%s*$\", \"%1\"))\
end\
function log2(input)\
 return (math.log(input)/math.log(2))\
end\
function round(num, idp)\
  local mult = 10^(idp or 0)\
  return math.floor(num * mult + 0.5) / mult\
end\
function openMenu()\
 term.setBackgroundColor(colors.brown)\
 term.setTextColor(colors.yellow)\
 term.setCursorPos(47, 19)\
 write(version)\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 menu = true\
 dirty = true\
end\
function pause()\
 --write(\"Pause toggled\")\
 paused = not paused\
end\
\
\
function quit()\
 --term.clear()\
 --term.setCursorPos(5, 5)\
 --print(\"Thank you for playing!\")\
 --print(\"ccSand by CosmoConsole\")\
 --os.sleep(3)\
 term.clear()\
 term.setCursorPos(1, 1)\
 logs.close()\
 on = false\
end\
\
--log(\"CCSand opened.\")\
grid = {1, 40, 1, 17}\
--40x17 grid\
\
lx = 0\
ly = 0\
\
\
\
-- [particle_id] = {id, x, y, type, life, cotype, temp}\
-- particle 0 to avoid 'nil'\
particles = {\
}  --[0] = {0, 0, 0, 0, 0, 0, 0}\
\
\
-- particle ID begins at 1. 0 is air.\
part_id = 1\
\
\
function getParticleCalled(i)\
 for k, v in pairs(particles) do\
  if v[1] == i then\
   return k\
  end\
 end\
 return 0\
end\
function getParticleAt(x,y)\
 for k, v in pairs(particles) do\
  if v[2] == x then\
   if v[3] == y then\
    return k\
   end\
  end\
 end\
 return 0\
end\
function render2(pt,rx,ry)\
 if rx < grid[1] then return end\
 if rx > grid[2] then return end\
 if ry < grid[3] then return end\
 if ry > grid[4] then return end\
 term.setCursorPos(rx,ry)\
 term.setBackgroundColor(elements[pt][2])\
 term.setTextColor(elements[pt][3])\
 print(elements[pt][4])\
 --buffer[rx[ry]] = {elements[pt][4], elements[pt][2], elements[pt][3]}\
end\
function render(rx,ry,part)\
 if part == nil then\
  p = getParticleAt(rx,ry)\
 else\
  p = part\
  rx = part[2]\
  ry = part[3]\
 end\
 if rx < grid[1] then return end\
 if rx > grid[2] then return end\
 if ry < grid[3] then return end\
 if ry > grid[4] then return end\
 px = particles[p]\
 term.setCursorPos(rx,ry)\
 if px == nil then\
  px = {0,0,0,0,0,0,0}\
 end\
 term.setBackgroundColor(elements[px[4]][2])\
 term.setTextColor(elements[px[4]][3])\
 print(elements[px[4]][4])\
end\
function createParticle(x,y,type,life,cotype,temp)\
 if getParticleAt(x,y) ~= 0 then\
  return 0\
 end\
 if x == nil then\
  return 0\
 end\
 if y == nil then\
  return 0\
 end\
 if type == nil then\
  return 0\
 end\
 if y > grid[4] then\
  return 0\
 end\
 if y < grid[3] then\
  return 0\
 end\
 if x > grid[2] then\
  return 0\
 end\
 if x < grid[1] then\
  return 0\
 end\
 if #particles > particleLimit then\
  return 0\
 end\
 l = elements[type][11]\
 if life ~= nil then l = life end\
 if l < 0 then l = math.random(0 - l) end\
 c = elements[type][12]\
 if cotype ~= nil then c = cotype end\
 if c < 0 then c = math.random(0 - c) end\
 t = elements[type][10]\
 if temp ~= nil then t = temp end\
 i = part_id\
 part_id = part_id + 1\
 if debug == true then\
  log(\"Creating particle of \" .. type .. \" at \" .. x .. \",\" .. y)\
 end\
 dirty = true\
 render(x, y, table.insert(particles, {i, x, y, type, l, c, t}))\
 return i\
end\
function killParticle(i)\
 if particles[i] then\
  px = particles[i][2]\
  py = particles[i][3]\
  if debug == true then\
   log(\"Killing particle #\" .. particles[i][1] .. \" at \" .. px .. \",\" .. py)\
  end\
  if i == ipart then ipart = nil end\
  table.remove(particles, i)\
  dirty = true\
  --render(px,py)\
 end\
 return true\
end\
function drawElement(i,x,y)\
 if elements[i] == nil then return end\
 tx = elements[i][3]\
 bx = elements[i][2]\
 if bx == tx then\
  tx = colors.white\
 end\
 if bx == 256 then\
  tx = colors.black\
 end\
 if bx < 128 then\
  tx = colors.black\
 end\
 --log(\"drawElement: tx is \" .. tx .. \" and bx is \" .. bx)\
 term.setBackgroundColor(bx)\
 term.setTextColor(tx)\
 x1, y1 = term.getCursorPos()\
 term.setCursorPos(x,y)\
 write(elements[i][1])\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 term.setCursorPos(x1, y1)\
end\
function selectElement(i)\
 if i > (#elements) then return end\
 sel = i\
 drawElement(i,46,17)\
end\
function kissa()\
 for i = 1,1000 do\
  drawElement(math.random(0,#elements),math.random(1,50),math.random(1,17))\
 end\
end\
\
function info(x,y)\
 if y > grid[4] then return end\
 if y < grid[3] then return end\
 if x > grid[2] then return end\
 if x < grid[1] then return end\
 local pxy = getParticleAt(x,y)\
 if pxy ~= 0 then\
  ipart = particles[pxy]\
 else\
  ipart = nil\
 end\
 dirty = true\
end\
function closeMenu()\
 dirty = true\
 menu = false\
 term.setBackgroundColor(colors.brown)\
 term.setTextColor(colors.yellow)\
 term.setCursorPos(1, 19)\
 write(string.rep(\" \", 51))\
 term.setCursorPos(1, 19)\
 write(\"ccSand by CosmoConsole\")\
 term.setCursorPos(47, 19)\
 write(version)\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
end\
function drawPage(i)\
 ep = (i * 16) + 1\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 for iterator_a=1,17 do\
  term.setCursorPos(41,iterator_a) \
  write(\"           \")\
 end\
 for iterator_a=1,8 do\
  drawElement(ep,41,iterator_a+3)\
  ep = ep + 1\
  drawElement(ep,46,iterator_a+3)\
  ep = ep + 1\
 end\
 term.setBackgroundColor(colors.lightGray)\
 term.setTextColor(colors.white)\
 term.setCursorPos(42, 2)\
 write(\"<\")\
 term.setCursorPos(49, 2)\
 write(\">\")\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 term.setCursorPos(45, 2)\
 write(\"  \")\
 term.setCursorPos(45, 2)\
 write(page + 1)\
end\
function menuToggle()\
 if menu == true then\
  closeMenu()\
 else\
  openMenu()\
 end\
end\
function particleMove(p1,p2,px,py)\
 pm1 = particles[p1]\
 pm2 = particles[p2]\
 if p2 == 0 then\
  inGrid = false\
  if px >= grid[1] then\
   if px <= grid[2] then\
    if py >= grid[3] then\
     if py <= grid[4] then\
      inGrid = true\
     end\
    end\
   end\
  end\
  if inGrid == true then\
   if particles[p1] == nil then return false end\
   opx = particles[p1][2]\
   opy = particles[p1][3]\
   particles[p1][2] = px\
   particles[p1][3] = py\
   render(px,py)\
   render(opx,opy)\
   dirty = true\
   if debug == true then\
    log(\"Moving particle #\" .. particles[p1][1] .. \" from \" .. opx .. \",\" .. opy .. \" to \" .. px .. \",\" .. py)\
   end\
   return true\
  else\
   killParticle(p1)\
   return true\
  end\
 end\
 return false\
end\
function particleSwitch(p1,p2,px,py)\
 pm1 = particles[p1]\
 pm2 = particles[p2]\
 if p2 == 0 then\
  inGrid = false\
  if px >= grid[1] then\
   if px <= grid[2] then\
    if py >= grid[3] then\
     if py <= grid[4] then\
      inGrid = true\
     end\
    end\
   end\
  end\
  if inGrid == true then\
   opx = particles[p1][2]\
   opy = particles[p1][3]\
   particles[p1][2] = px\
   particles[p1][3] = py\
   render(px,py)\
   render(opx,opy)\
   dirty = true\
   if debug == true then\
    log(\"Moving particle #\" .. particles[p1][1] .. \" from \" .. opx .. \",\" .. opy .. \" to \" .. px .. \",\" .. py)\
   end\
  else\
   killParticle(p1)\
  end\
 else\
  if particles[p2][4] == 4 then\
   if debug == true then\
    log(\"VOID: *slurp*\")\
   end\
   killParticle(p1)\
   return\
  end\
  --particles[p1][2] = pm2[2]\
  --particles[p2][2] = pm1[2]\
  --particles[p1][3] = pm2[3]\
  --particles[p2][3] = pm1[3]\
   opx = particles[p2][2]\
   opy = particles[p2][3]\
   particles[p2][2] = particles[p1][2]\
   particles[p2][3] = particles[p1][3]\
   particles[p1][2] = opx\
   particles[p1][3] = opy\
   dirty = true\
  if debug == true then\
   log(\"Switching particles between \" .. pm1[2] .. \",\" .. pm1[3] .. \" and \" .. pm2[2] .. \",\" .. pm2[3])\
  end\
 end\
end\
function notYetImplemented()\
 term.setBackgroundColor(colors.brown)\
 term.setTextColor(colors.yellow)\
 term.setCursorPos(1, 19)\
 write(string.rep(\" \", 51))\
 term.setCursorPos(1, 19)\
 write(\"Not yet implemented\")\
 term.setCursorPos(47, 19)\
 write(version)\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
end\
function rect(xa,ya,xb,yb)\
 if not (xa and xb and ya and yb) then\
  return\
 end\
 local dp = 0\
 for xi=xa,xb do\
  for yi=ya,yb do\
   if elements[sel][20] == 0 then\
    createParticle(p2,p3,sel,creationLife,creationCotype,creationTemp)\
   elseif elements[sel][20] == 1 then\
    if getParticleAt(p2,p3) ~= 0 then particles[getParticleAt(p2,p3)][7] = math.min(particles[getParticleAt(p2,p3)][7] + 5, MAX_TEMP) end\
   elseif elements[sel][20] == 2 then\
    if getParticleAt(p2,p3) ~= 0 then particles[getParticleAt(p2,p3)][7] = math.max(particles[getParticleAt(p2,p3)][7] - 5, MIN_TEMP) end\
   end\
   dp = dp + 1\
  end\
 end \
 return xa .. \"-\" .. xb .. \",\" .. ya .. \"-\" .. yb .. \";\" .. dp .. \" vs \" .. (((xb - xa) + 1) * ((yb - ya) + 1))\
end\
function arect(xa,ya,xb,yb)\
 if not (xa and xb and ya and yb) then\
  return\
 end\
 local dp = 0\
 for xi=xa,xb do\
  for yi=ya,yb do\
   createParticle(xi, yi, 0)\
   dp = dp + 1\
  end\
 end\
 return xa .. \"-\" .. xb .. \",\" .. ya .. \"-\" .. yb .. \";\" .. dp .. \" vs \" .. (((xb - xa) + 1) * ((yb - ya) + 1))\
end\
function setStatus(sx)\
 textReset = os.startTimer(5)\
 statusbar = string.sub(sx, 1, 51)\
 dirty = true\
end\
local fileEngine = nil\
local fileName = nil\
local serid = nil\
function saveAt()\
 fileEngine = fs.open(fileName, \"w\")\
 fileEngine.write(serid)\
 fileEngine.close()\
 fileEngine = nil\
end\
function loadAt()\
 fileEngine = fs.open(fileName, \"r\")\
 particles = textutils.unserialize(fileEngine.readAll())\
 fileEngine.close()\
 fileEngine = nil\
end\
function save()\
 term.setCursorPos(1, 18)\
 term.setBackgroundColor(colors.brown)\
 term.setTextColor(colors.yellow)\
 write(string.rep(\" \", 51))\
 term.setCursorPos(1, 18)\
 sleep(0.5)\
 write(\">\")\
 cons = read()\
 closeMenu()\
 if trim(cons) == \"\" then\
  redraw()\
  timeout = os.startTimer(0) \
  return\
 end\
 fileName = cons\
 ok = true\
 serid = textutils.serialize(particles)\
 --ok, err = pcall(setFileEngineWrite)\
 ok, err = pcall(saveAt)\
 if ok then\
  setStatus(\"Successfully saved\")\
 else\
  if err then setStatus(tostring(err)) end\
 end\
 timeout = os.startTimer(0) \
end\
function load()\
 term.setCursorPos(1, 18)\
 term.setBackgroundColor(colors.brown)\
 term.setTextColor(colors.yellow)\
 write(string.rep(\" \", 51))\
 term.setCursorPos(1, 18)\
 sleep(0.5)\
 write(\">\")\
 cons = read()\
 closeMenu()\
 dirty = true\
 if trim(cons) == \"\" then\
  redraw()\
  timeout = os.startTimer(0) \
  return\
 end\
 fileName = cons\
 ok = true\
 --ok, err = pcall(setFileEngineRead)\
 ok, err = pcall(loadAt)\
 if ok then\
  setStatus(\"Successfully loaded\")\
 else\
  if err then setStatus(tostring(err)) end\
 end\
 timeout = os.startTimer(0) \
end\
function clear()\
 particles = {}\
 term.setBackgroundColor(colors.black)\
 term.setTextColor(colors.white)\
 for i = 1,16 do\
  term.setCursorPos(1,i)\
  write(string.rep(\" \", 40))\
 end\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 closeMenu()\
end\
function mquit()\
 if menu == true then\
  quit()\
 end\
end\
function mload()\
 if menu == true then\
  load()\
 end\
end\
function msave()\
 if menu == true then\
  save()\
 end\
end\
function mclear()\
 if menu == true then\
  clear()\
 end\
end\
function redraw()\
 if debug then log(\"Can I redraw now?\") end\
 if buffer.isBuffer then term.redirect(buffer) end\
 term.setBackgroundColor(colors.black)\
 term.setTextColor(colors.white)\
 if debug then log(\"Redraw: Clearing buffer\") end\
 for i = 1,17 do\
  term.setCursorPos(1,i)\
  write(string.rep(\" \", 40))\
 end\
 if debug then log(\"Redraw: Buffer clear. Starting particle render.\") end\
 for k, v in ipairs(particles) do\
  render2(v[4], v[2], v[3])\
 end\
 term.setBackgroundColor(colors.brown)\
 term.setTextColor(colors.yellow)\
 term.setCursorPos(1, 19)\
 write(string.rep(\" \", 51))\
 term.setCursorPos(1, 19)\
 write(statusbar)\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 term.setCursorPos(1, 18)\
 write(string.rep(\" \", 51))\
 term.setCursorPos(11, 18)\
 write(\"[MENU]\")\
 drawPage(page)\
 drawElement(sel,46,17)\
 if debug then log(\"Redraw: Rendered particles.\") end\
 if menu == true then\
  term.setBackgroundColor(colors.brown)\
  term.setTextColor(colors.yellow)\
  term.setCursorPos(1, 19)\
  write(string.rep(\" \", 51))\
  term.setCursorPos(1, 19)\
  write(\"[EN]Quit  [L]oad  [S]ave  [C]lear\")\
  term.setBackgroundColor(colors.gray)\
  term.setTextColor(colors.white)\
 end\
 if ipart == nil then\
  drawElement(0,41,17)\
  term.setCursorPos(41,16)\
  print(\"                 \")\
 else\
  drawElement(ipart[4],41,17)\
  term.setCursorPos(41,16)\
  print(\"                 \")\
  term.setCursorPos(41,16)\
  print(ipart[5])\
  term.setCursorPos(46,16) \
  print(ipart[6])\
  term.setCursorPos(41,18)\
  print(\"          \") \
  term.setCursorPos(41,18) \
  print((ipart[7] - 273.15) .. \" C\")\
 end\
 term.setBackgroundColor(colors.gray)\
 term.setTextColor(colors.white)\
 if buffer.isBuffer then\
  if debug then log(\"Buffering.\") end\
  term.restore()\
  buffer.blit()\
 end\
 dirty = false\
end\
function setPage(i)\
 if i == -1 then\
  i = 15\
 end\
 page = i % 16f\
 drawPage(i % 16)\
end\
function nextPage()\
 setPage(page + 1)\
end\
function previousPage()\
 setPage(page - 1)\
end\
\
timeout = os.startTimer(0.1)\
\
function explode(x, y)\
 local part\
 if getParticleAt(x-1,y) ~= 0 then\
  part = getParticleAt(x-1,y)\
  particles[part][7] = particles[part][7] + 40\
  particleMove(part,0,x-2,y)\
  particleMove(part,0,x-1,y-1)\
  particleMove(part,0,x-1,y+1)\
 end\
 if getParticleAt(x+1,y) ~= 0 then\
  part = getParticleAt(x+1,y)\
  particles[part][7] = particles[part][7] + 40\
  particleMove(part,0,x+2,y)\
  particleMove(part,0,x+1,y-1)\
  particleMove(part,0,x+1,y+1)\
 end\
 if getParticleAt(x,y-1) ~= 0 then\
  part = getParticleAt(x,y-1)\
  particles[part][7] = particles[part][7] + 40\
  particleMove(part,0,x,y-2)\
  particleMove(part,0,x+1,y-1)\
  particleMove(part,0,x-1,y-1)\
 end\
 if getParticleAt(x,y+1) ~= 0 then\
  part = getParticleAt(x,y+1)\
  particles[part][7] = particles[part][7] + 40\
  particleMove(part,0,x,y+2)\
  particleMove(part,0,x+1,y+1)\
  particleMove(part,0,x-1,y+1)\
 end\
end\
\
function clone(p, k, x, y)\
 if getParticleAt(x-1,y) ~= 0 then\
  if p[6] == 0 then\
   if particles[getParticleAt(x-1,y)][4] ~= 26 then\
    particles[k][6] = particles[getParticleAt(x-1,y)][4]\
   end\
  end\
 end\
 if p[6] ~= 0 then\
  if math.random(1,2) == 1 then createParticle(x-1, y, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x+1, y, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x-1, y+1, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x+1, y+1, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x-1, y-1, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x+1, y-1, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x, y-1, p[6]) end\
  if math.random(1,2) == 1 then createParticle(x, y+1, p[6]) end\
 end\
end\
function co2(p, k, x, y)\
 if getParticleAt(x-1,y) ~= 0 then\
  if particles[getParticleAt(x-1,y)][4] == 7 then\
   killParticle(getParticleAt(x-1,y))\
  end\
 end\
 if getParticleAt(x+1,y) ~= 0 then\
  if particles[getParticleAt(x+1,y)][4] == 7 then\
   killParticle(getParticleAt(x+1,y))\
  end\
 end\
 if getParticleAt(x,y-1) ~= 0 then\
  if particles[getParticleAt(x,y-1)][4] == 7 then\
   killParticle(getParticleAt(x,y-1))\
  end\
 end\
 if getParticleAt(x,y+1) ~= 0 then\
  if particles[getParticleAt(x,y+1)][4] == 7 then\
   killParticle(getParticleAt(x,y+1))\
  end\
 end\
 gas_movement(p, k, x, y)\
end\
\
function gas_movement(p, k, x, y)\
 local m = math.random(1, 5)\
 if m == 1 then particleMove(k, getParticleAt(x-1,y), x-1, y) end\
 if m == 2 then particleMove(k, getParticleAt(x+1,y), x+1, y) end\
 if m == 3 then particleMove(k, getParticleAt(x,y-1), x, y-1) end\
 if m == 4 then particleMove(k, getParticleAt(x,y+1), x, y+1) end\
end\
function ignite(p, k, x, y)\
 if getParticleAt(x-1,y) ~= 0 then\
  if elements[particles[getParticleAt(x-1,y)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x-1,y)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x-1,y))\
    createParticle(x-1,y,7)\
    if elements[particles[getParticleAt(x-1,y)][4]][19] ~= 0 then\
     explode(x-1,y)\
    end\
   end\
  end\
 end\
 if getParticleAt(x+1,y) ~= 0 then\
  if elements[particles[getParticleAt(x+1,y)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x+1,y)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x+1,y))\
    createParticle(x+1,y,7)\
    if elements[particles[getParticleAt(x+1,y)][4]][19] ~= 0 then\
     explode(x+1,y)\
    end\
   end\
  end\
 end\
 if getParticleAt(x,y-1) ~= 0 then\
  if elements[particles[getParticleAt(x,y-1)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x,y-1)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x,y-1))\
    createParticle(x,y-1,7)\
    if elements[particles[getParticleAt(x,y-1)][4]][19] ~= 0 then\
     explode(x,y-1)\
    end\
   end\
  end\
 end\
 if getParticleAt(x,y+1) ~= 0 then\
  if elements[particles[getParticleAt(x,y+1)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x,y+1)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x,y+1))\
    createParticle(x,y+1,7)\
    if elements[particles[getParticleAt(x,y+1)][4]][19] ~= 0 then\
     explode(x,y+1)\
    end\
   end\
  end\
 end\
end\
function fire(p, k, x, y)\
 if getParticleAt(x-1,y) ~= 0 then\
  if elements[particles[getParticleAt(x-1,y)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x-1,y)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x-1,y))\
    createParticle(x-1,y,7)\
    if elements[particles[getParticleAt(x-1,y)][4]][19] ~= 0 then\
     explode(x-1,y)\
    end\
   end\
  end\
 end\
 if getParticleAt(x+1,y) ~= 0 then\
  if elements[particles[getParticleAt(x+1,y)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x+1,y)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x+1,y))\
    createParticle(x+1,y,7)\
    if elements[particles[getParticleAt(x+1,y)][4]][19] ~= 0 then\
     explode(x+1,y)\
    end\
   end\
  end\
 end\
 if getParticleAt(x,y-1) ~= 0 then\
  if elements[particles[getParticleAt(x,y-1)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x,y-1)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x,y-1))\
    createParticle(x,y-1,7)\
    if elements[particles[getParticleAt(x,y-1)][4]][19] ~= 0 then\
     explode(x,y-1)\
    end\
   end\
  end\
 end\
 if getParticleAt(x,y+1) ~= 0 then\
  if elements[particles[getParticleAt(x,y+1)][4]][9] ~= 0 then\
   if elements[particles[getParticleAt(x,y+1)][4]][9] >= math.random(100) then\
    killParticle(getParticleAt(x,y+1))\
    createParticle(x,y+1,7)\
    if elements[particles[getParticleAt(x,y+1)][4]][19] ~= 0 then\
     explode(x,y+1)\
    end\
   end\
  end\
 end\
 death(p, k, x, y)\
end\
function seri()\
 log(textutils.serialize(particles))\
end\
function h2(p, k, x, y)\
 local igni = false\
 if getParticleAt(x-1,y) ~= 0 then\
  if particles[getParticleAt(x-1,y)][4] == 7 then\
   igni = true\
  end\
 end\
 if getParticleAt(x+1,y) ~= 0 then\
  if particles[getParticleAt(x+1,y)][4] == 7 then\
   igni = true\
  end\
 end\
 if getParticleAt(x,y-1) ~= 0 then\
  if particles[getParticleAt(x,y-1)][4] == 7 then\
   igni = true\
  end\
 end\
 if getParticleAt(x,y+1) ~= 0 then\
  if particles[getParticleAt(x,y+1)][4] == 7 then\
   igni = true\
  end\
 end\
 if igni then\
  killParticle(k)\
  createParticle(x, y, 7, nil, 15, nil)\
 end\
 if particles[k] then gas_movement(p, k, x, y) end\
end\
function neutrons(p, k, x, y)\
 if (particles[k]) then\
  if (p[6] == 1) then\
   if particleMove(k, getParticleAt(x,y-1), x, y - 1) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 2) then\
   if particleMove(k, getParticleAt(x,y+1), x, y + 1) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 3) then\
   if particleMove(k, getParticleAt(x-1,y+1), x - 1, y + 1) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 4) then\
   if particleMove(k, getParticleAt(x-1,y), x - 1, y) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 5) then\
   if particleMove(k, getParticleAt(x-1,y), x - 1, y - 1) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 6) then\
   if particleMove(k, getParticleAt(x+1,y - 1), x + 1, y - 1) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 7) then\
   if particleMove(k, getParticleAt(x+1,y), x + 1, y) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  elseif (p[6] == 8) then\
   if particleMove(k, getParticleAt(x+1,y+1), x + 1, y + 1) == false then\
    particles[k][6] = math.random(1,8)\
   end\
  end\
 end \
 if (particles[k]) then death(p, k, x, y) end\
end\
function death(p, k, x, y)\
 particles[k][5] = p[5] - 1\
 if particles[k] then\
  if particles[k][5] == 0 then\
   if particles[k][4] == 7 then\
    if particles[k][6] == 15 then\
     if particles[k] then killParticle(k) end\
     createParticle(x, y, 15)\
    else\
     if particles[k] then killParticle(k) end\
     createParticle(x, y, 18)\
    end\
   else\
    killParticle(k)\
   end\
  end\
 end\
end\
\
redraw()\
\
function temp_conduct(k)\
 local sides = 0\
 local top = false\
 local bottom = false\
 local left = false\
 local right = false\
 local ot = particles[k][7]\
 local x = particles[k][2]\
 local y = particles[k][3]\
 local cond = {0, 0, 0, 0} --udlr\
 if getParticleAt(x,y-1) ~= 0 then\
  up = true\
  sides = sides + 1\
  cond[1] = math.min(elements[particles[getParticleAt(x,y-1)][4]][18], elements[particles[getParticleAt(x,y)][4]][18])\
 end\
 if getParticleAt(x,y+1) ~= 0 then\
  down = true\
  sides = sides + 1\
  cond[2] = math.min(elements[particles[getParticleAt(x,y+1)][4]][18], elements[particles[getParticleAt(x,y)][4]][18])\
 end\
 if getParticleAt(x-1,y) ~= 0 then\
  left = true\
  sides = sides + 1\
  cond[3] = math.min(elements[particles[getParticleAt(x-1,y)][4]][18], elements[particles[getParticleAt(x,y)][4]][18])\
 end\
 if getParticleAt(x+1,y) ~= 0 then\
  right = true\
  sides = sides + 1\
  cond[4] = math.min(elements[particles[getParticleAt(x+1,y)][4]][18], elements[particles[getParticleAt(x,y)][4]][18])\
 end\
 if sides > 0 then\
  for iter = 1,4 do\
   cond[iter] = cond[iter] / (sides + 1)\
   cond[iter] = cond[iter] * 1.5\
  end\
 end\
 if cond[1] > 0 then\
  local rt = particles[getParticleAt(x,y-1)][7]\
  local tt = (ot + rt) / 2\
  local oto = tt - ot\
  local rto = tt - rt\
  oto = oto / cond[1]\
  rto = rto / cond[1]\
  particles[getParticleAt(x,y)][7] = round(ot + oto, 2)\
  particles[getParticleAt(x,y-1)][7] = round(rt + rto, 2)\
 end\
 if cond[2] > 0 then\
  local rt = particles[getParticleAt(x,y+1)][7]\
  local tt = (ot + rt) / 2\
  local oto = tt - ot\
  local rto = tt - rt\
  oto = oto / cond[2]\
  rto = rto / cond[2]\
  particles[getParticleAt(x,y)][7] = round(ot + oto, 2)\
  particles[getParticleAt(x,y+1)][7] = round(rt + rto, 2)\
 end\
 if cond[3] > 0 then\
  local rt = particles[getParticleAt(x-1,y)][7]\
  local tt = (ot + rt) / 2\
  local oto = tt - ot\
  local rto = tt - rt\
  oto = oto / cond[3]\
  rto = rto / cond[3]\
  particles[getParticleAt(x,y)][7] = round(ot + oto, 2)\
  particles[getParticleAt(x-1,y)][7] = round(rt + rto, 2)\
 end\
 if cond[4] > 0 then\
  local rt = particles[getParticleAt(x+1,y)][7]\
  local tt = (ot + rt) / 2\
  local oto = tt - ot\
  local rto = tt - rt\
  oto = oto / cond[4]\
  rto = rto / cond[4]\
  particles[getParticleAt(x,y)][7] = round(ot + oto, 2)\
  particles[getParticleAt(x+1,y)][7] = round(rt + rto, 2)\
 end\
end\
\
buttons = {\
 [1] = {11, 16, 18, 18, \" Menu \", menuToggle, true},\
 [2] = {1, 6, 18, 18, \"  ||  \", pause, true},\
 [3] = {41, 45, 4, 4, \"elem01\", function () return selectElement((page * 16) + 1) end, true},\
 [4] = {46, 50, 4, 4, \"elem02\", function () return selectElement((page * 16) + 2) end, true},\
 [5] = {41, 45, 5, 5, \"elem03\", function () return selectElement((page * 16) + 3) end, true},\
 [6] = {46, 50, 5, 5, \"elem04\", function () return selectElement((page * 16) + 4) end, true},\
 [7] = {41, 45, 6, 6, \"elem05\", function () return selectElement((page * 16) + 5) end, true},\
 [8] = {46, 50, 6, 6, \"elem06\", function () return selectElement((page * 16) + 6) end, true},\
 [9] = {41, 45, 7, 7, \"elem07\", function () return selectElement((page * 16) + 7) end, true},\
 [10] = {46, 50, 7, 7, \"elem08\", function () return selectElement((page * 16) + 8) end, true},\
 [11] = {41, 45, 8, 8, \"elem09\", function () return selectElement((page * 16) + 9) end, true},\
 [12] = {46, 50, 8, 8, \"elem0a\", function () return selectElement((page * 16) + 10) end, true},\
 [13] = {41, 45, 9, 9, \"elem0b\", function () return selectElement((page * 16) + 11) end, true},\
 [14] = {46, 50, 9, 9, \"elem0c\", function () return selectElement((page * 16) + 12) end, true},\
 [15] = {41, 45, 10, 10, \"elem0d\", function () return selectElement((page * 16) + 13) end, true},\
 [16] = {46, 50, 10, 10, \"elem0e\", function () return selectElement((page * 16) + 14) end, true},\
 [17] = {41, 45, 11, 11, \"elem0f\", function () return selectElement((page * 16) + 15) end, true},\
 [18] = {46, 50, 11, 11, \"elem10\", function () return selectElement((page * 16) + 16) end, true},\
 [19] = {1, 8, 19, 19, \"quit\", mquit, true},\
 [20] = {11, 16, 19, 19, \"load\", mload, true},\
 [21] = {19, 24, 19, 19, \"save\", msave, true},\
 [22] = {26, 32, 19, 19, \"clear\", mclear, true},\
 [23] = {42, 42, 2, 2, \"pprev\", previousPage, true},\
 [24] = {49, 49, 2, 2, \"pnext\", nextPage, true}\
}\
\
function simulate()\
 xParticles = particles\
 for k, v in ipairs(xParticles) do\
  temp_conduct(k)\
  e = elements[v[4]]\
  continue = false\
  if e[13] ~= -1 then\
   if particles[k][7] <= e[13] then\
    killParticle(k)\
    if e[14] == -1 then\
     createParticle(v[2], v[3], v[6], v[5], 0, v[7])\
    else\
     createParticle(v[2], v[3], e[14], v[5], v[6], v[7])\
    end\
    continue = true\
   end\
  end\
  if e[15] ~= -1 then\
   if particles[k][7] >= e[15] then\
    killParticle(k)\
    if e[16] == 21 then\
     createParticle(v[2], v[3], e[16], v[5], v[4], v[7])\
    else\
     createParticle(v[2], v[3], e[16], v[5], v[6], v[7])\
    end\
    continue = true\
   end\
  end\
  if continue == false then\
  if e[5] ~= 0 then\
   --Should move\
   grav = e[7]\
   spr = e[6]\
   px = v[2]\
   py = v[3]\
   gf = math.floor(grav / 100)\
   gp = grav % 100\
   if gp >= math.random(100) then\
    gf = gf + 1\
   end\
   gstep = -1\
   sgf = 1\
   if grav < 0 then\
    gstep = 1\
    sgf = -1\
   end\
   spread = false\
   if spr >= math.random(100) then\
    spread = true\
   end\
   if grav ~= 0 then\
    --Can move down? If yes, then do it and ignore the rest.\
    canGoDown = gf\
    for i=gf,sgf,gstep do\
     if getParticleAt(px,py+i) ~= 0 then\
      if (elements[particles[getParticleAt(px,py+i)][4]][17] == 0) and (elements[particles[getParticleAt(px,py+i)][4]][8] >= e[8]) then\
       canGoDown = (i + gstep)\
      end\
     end\
    end\
    if canGoDown ~= 0 then\
     sp = 0\
     if spread then\
      sp = math.random(2)\
      if sp == 2 then\
       sp = -1\
      end\
     end\
     if getParticleAt(px+sp,py+canGoDown) ~= 0 then\
      if (elements[particles[getParticleAt(px+sp,py+canGoDown)][4]][17] == 0) then\
       sp = 0\
      end\
     end\
     --particleSwitch call: particle 1 table ID, particle 2 table ID, where particle 1 tries to move (X), where particle 1 tries to move (Y)\
     if (sp ~= 0) and (canGoDown ~= 0) then\
      particleSwitch(k, getParticleAt(px+sp,py+canGoDown), px+sp, py+canGoDown)\
     end\
    else\
     --Okay, it cannot go down, how about diagonals? (1px left/right and 1px down).\
     --First, can it go down-left diagonally?\
     canGoDL = true\
     if getParticleAt(px-1,py+sgf) ~= 0 then\
      if (elements[particles[getParticleAt(px-1,py+sgf)][4]][17] == 0) and (elements[particles[getParticleAt(px-1,py+sgf)][4]][8] >= e[8]) then\
       canGoDL = false\
      end\
     end\
     canGoDR = true\
     if getParticleAt(px+1,py+sgf) ~= 0 then\
      if (elements[particles[getParticleAt(px+1,py+sgf)][4]][17] == 0) and (elements[particles[getParticleAt(px+1,py+sgf)][4]][8] >= e[8]) then\
       canGoDR = false\
      end\
     end\
     if (canGoDR) and (canGoDL) then\
      dir = math.random(1,2)\
      if dir == 1 then\
       particleSwitch(k, getParticleAt(px+1,py+sgf), px+1, py+sgf)\
      elseif dir == 2 then\
       particleSwitch(k, getParticleAt(px-1,py+sgf), px-1, py+sgf)\
      end\
     elseif (canGoDR) or (canGoDL) then\
      if canGoDR == true then particleSwitch(k, getParticleAt(px+1,py+sgf), px+1, py+sgf) end\
      if canGoDL == true then particleSwitch(k, getParticleAt(px-1,py+sgf), px-1, py+sgf) end\
     elseif (canGoDR == false) and (canGoDL == false) then\
      --How about left/right (not down)? (Liquids only)\
      if e[5] == 2 then\
       canGoLeft = true\
       canGoRight = true\
       if getParticleAt(px-1,py) ~= 0 then\
        if elements[particles[getParticleAt(px-1,py)][4]][17] == 0 then\
         canGoLeft = false\
        end\
       end\
       if getParticleAt(px+1,py) ~= 0 then\
        if elements[particles[getParticleAt(px+1,py)][4]][17] == 0 then\
         canGoRight = false\
        end\
       end\
       if (canGoLeft) and (canGoRight) then\
        dir = math.random(1,2)\
        if dir == 1 then\
         particleMove(k, getParticleAt(px-1,py), px-1, py)\
        elseif dir == 2 then\
         particleMove(k, getParticleAt(px+1,py), px+1, py)\
        end\
       else\
        if canGoLeft then particleSwitch(k, getParticleAt(px-1,py), px-1, py) end\
        if canGoRight then particleSwitch(k, getParticleAt(px+1,py), px+1, py) end\
       end\
      end\
     end\
    end\
    end\
   end\
  end\
  if e[\"func\"] then\
   --they get particle data, it's key, then X and Y\
   if debug == true then\
    log(\"Reached element function\")\
   end\
   if particles[k] then\
    e[\"func\"](v, k, v[2], v[3])\
   end\
  end\
  if particles[k] then\
   if v[4] == 0 then \
    killParticle(k) \
   end\
  end \
 end\
end\
function setLife(i)\
 local pc = getParticleAt(lx,ly)\
 if pc == 0 then\
  return\
 end\
 if lx == 0 then\
  return\
 end\
 if ly == 0 then\
  return\
 end\
 particles[pc][5] = i\
end\
function setCotype(i)\
 local pc = getParticleAt(lx,ly)\
 if pc == 0 then\
  return\
 end\
 if lx == 0 then\
  return\
 end\
 if ly == 0 then\
  return\
 end\
 particles[pc][6] = i\
end\
function heat(i)\
 local pc = getParticleAt(lx,ly)\
 if pc == 0 then\
  return\
 end\
 if lx == 0 then\
  return\
 end\
 if ly == 0 then\
  return\
 end\
 particles[pc][7] = math.min(particles[pc][7] + i, MAX_TEMP)\
end\
function cool(i)\
 local pc = getParticleAt(lx,ly)\
 if pc == 0 then\
  return\
 end\
 if lx == 0 then\
  return\
 end\
 if ly == 0 then\
  return\
 end\
 particles[pc][7] = math.max(particles[pc][7] - i, MIN_TEMP)\
end\
\
term.clear()\
term.setCursorPos(1,1)\
info(1,1)\
\
while on do\
 evt, p1, p2, p3, p4, p5 = os.pullEvent()\
 if evt == \"key\" then\
  --print(p1 .. \" pressed\")\
  if p1 == 57 then\
   pause()\
  elseif p1 == 33 then\
   if paused then simulate() end\
  elseif p1 == 14 then\
   term.setCursorPos(1, 18)\
   term.setBackgroundColor(colors.brown)\
   term.setTextColor(colors.yellow)\
   write(string.rep(\" \", 51))\
   term.setCursorPos(1, 18)\
   write(\">\")\
   cons = read()\
   term.setCursorPos(1, 18)\
   func, e = loadstring(cons, \"lua\")\
   func2, e2 = loadstring(\"return \" .. cons, \"lua\")\
   nfp = 0\
   if not func then\
    if func2 then\
     func = func2\
     e = nil\
     nfp = 1\
    end\
   else\
    if func2 then\
     func = func2\
    end\
   end\
   setfenv(func,getfenv())\
   result = {pcall(func)}\
   if result[1] then\
    nii = 1\
    resulter = \">\"\
    while (result[nii + 1] ~= nil) or (nii <= nfp) do\
     resulter = resulter .. tostring(result[nii + 1])\
     nii = nii + 1\
    end\
    statusBar = string.sub(resulter, 1, 51)\
    dirty = true\
   else\
    statusBar = string.sub(tostring(result[2]), 1, 51)\
    dirty = true\
   end\
   term.setBackgroundColor(colors.gray)\
   term.setTextColor(colors.white)\
   term.setCursorPos(1, 18)\
   write(string.rep(\" \", 51))\
   textReset = os.startTimer(5)\
   timeout = os.startTimer(0) \
  end\
  if (p1 == keys.leftCtrl) or (p1 == keys.rightCtrl) then\
   if menu == true then\
    closeMenu()\
   else\
    openMenu()\
   end\
  end\
  if menu == true then\
   if p1 == 46 then\
    clear()\
   end\
   if p1 == 28 then\
    quit()\
   end\
   if p1 == 31 then\
    save()\
   end\
   if p1 == 38 then\
    load()\
   end\
  end\
 elseif evt == \"mouse_drag\" then\
  if p2 >= grid[1] then\
   if p2 <= grid[2] then\
    if p3 >= grid[3] then\
     if p3 <= grid[4] then\
      if drawing == true then\
       if p1 == 1 then\
        if brushSize <= 1 then\
         if elements[sel][20] == 0 then\
          createParticle(p2,p3,sel,creationLife,creationCotype,creationTemp)\
         elseif elements[sel][20] == 1 then \
          if getParticleAt(p2,p3) ~= 0 then particles[getParticleAt(p2,p3)][7] = math.min(particles[getParticleAt(p2,p3)][7] + 5, MAX_TEMP) end\
         elseif elements[sel][20] == 2 then\
          if getParticleAt(p2,p3) ~= 0 then particles[getParticleAt(p2,p3)][7] = math.max(particles[getParticleAt(p2,p3)][7] - 5, MIN_TEMP) end\
         end\
        else\
         local bs = (brushSize - 1)\
         local ds = (brushSize * 2) - 1\
         rect(p2-bs, p3-bs, (p2-bs)+ds, (p3-bs)+ds)\
        end\
       elseif p1 == 2 then\
        if brushSize <= 1 then\
         killParticle(getParticleAt(p2,p3))\
        else\
         local bs = (brushSize - 1)\
         local ds = (brushSize * 2) - 1\
         arect(p2-bs, p3-bs, (p2-bs)+ds, (p3-bs)+ds)\
        end\
       end        \
      end\
     end\
    end\
   end\
  end\
 elseif evt == \"mouse_click\" then\
  --write(p1 .. \",\" .. p2 .. \",\" .. p3 .. \"  \")\
  if p2 >= grid[1] then\
   if p2 <= grid[2] then\
    if p3 >= grid[3] then\
     if p3 <= grid[4] then\
      drawing = true\
      if p1 == 3 then\
       info(p2, p3)\
      end\
      if p1 == 1 then\
       lx = p2\
       ly = p3\
       if brushSize <= 1 then\
        if elements[sel][20] == 0 then\
         createParticle(p2,p3,sel,creationLife,creationCotype,creationTemp)\
        elseif elements[sel][20] == 1 then \
         if getParticleAt(p2,p3) ~= 0 then particles[getParticleAt(p2,p3)][7] = math.min(particles[getParticleAt(p2,p3)][7] + 5, MAX_TEMP) end\
        elseif elements[sel][20] == 2 then\
         if getParticleAt(p2,p3) ~= 0 then particles[getParticleAt(p2,p3)][7] = math.max(particles[getParticleAt(p2,p3)][7] - 5, MIN_TEMP) end\
        end\
       else\
        local bs = (brushSize - 1)\
        local ds = (brushSize * 2) - 1\
        rect(p2-bs, p3-bs, (p2-bs)+ds, (p3-bs)+ds)\
       end\
      end\
      if p1 == 2 then\
       if brushSize <= 1 then\
        killParticle(getParticleAt(p2,p3))\
       else\
        local bs = (brushSize - 1)\
        local ds = (brushSize * 2) - 1\
        arect(p2-bs, p3-bs, (p2-bs)+ds, (p3-bs)+ds)\
       end\
      end\
     else\
      drawing = false\
     end\
    else\
     drawing = false\
    end\
   else\
    drawing = false\
   end\
  else\
   drawing = false\
  end\
  for k, v in pairs(buttons) do\
   term.setCursorPos(1, k)\
   --print(p2 .. \",\" .. p3 .. \" vs \" .. v[1] .. \"-\" .. v[2] .. \",\" .. v[3] .. \"-\" .. v[4])\
   if p2 >= v[1] then\
    if p2 <= v[2] then\
     if p3 >= v[3] then\
      if p3 <= v[4] then\
       --print(v[func])\
       if v[7] == true then\
        v[6]()\
        break\
       end\
      end\
     end\
    end\
   end\
  end\
 elseif evt == \"timer\" and p1 == timeout then\
  timeout = os.startTimer(1 / fps) \
  --shouldRender = not shouldRender\
  pb = colors.gray\
  pf = colors.white\
  if paused == true then\
   pb = colors.white\
   pf = colors.black\
  else\
   if menu == false then\
    simulate()\
    --if shouldRender == true then redraw() end\
   end\
  end\
  --if dirty then redraw() end\
  redraw()\
  term.setBackgroundColor(pb)\
  term.setTextColor(pf)\
  term.setCursorPos(1, 18)\
  write(\"[ || ]\")\
  term.setBackgroundColor(colors.gray)\
  term.setTextColor(colors.white)\
 elseif evt == \"timer\" and p1 == textReset then\
  statusbar = \"ccSand by CosmoConsole                        \" .. version\
  dirty = true\
 end\
end\
\
if API then os.unloadAPI(\"redirect\") end\
\
term.setBackgroundColor(colors.black)\
term.setTextColor(colors.white)\
term.clear()\
term.setCursorPos(1,1)",
  [ "flappybird/startgame" ] = "------------FlappyBird v1.0----------\
----------------Game-----------------\
--------------by Creator-------------\
\
--Variables--\
term.redirect(term.native())\
local w,h = term.getSize()\
local dead = false\
local defaultConfing = {\
    birdColor = colors.yellow,\
    bgColor = colors.lightBlue,\
    grassColor = colors.green,\
    scoreColor = colors.red,\
    obstacleColor = colors.blue\
}\
local obstacles = {}\
local currObstacle = 0\
local totalLenght = 0\
local howFar = 0\
\
--PhysicsVars--\
local position = math.floor(h/2)\
local G = 30\
local maxSpeed = 20\
local speed = maxSpeed\
local position = 1\
local totalTime = 0\
local diff = 0.05\
local xPos = math.floor(w/6)\
\
--Functions--\
local GUI = {}\
local Physics = {}\
local Events = {}\
\
--GUI related functions--\
\
function GUI.DrawBird()\
    term.setCursorPos(xPos,h-position)\
    term.setBackgroundColor(defaultConfing.birdColor)\
    term.write(\"@\")\
end\
\
function GUI.DrawBackground()\
    term.setBackgroundColor(defaultConfing.bgColor)\
    term.clear()\
    term.setCursorPos(1,1)\
    term.setTextColor(defaultConfing.scoreColor)\
    term.write(\"You have passed \"..tostring(currObstacle)..\" obstacles!\")\
    paintutils.drawLine(1,h,w,h,defaultConfing.grassColor)\
end\
\
function GUI.DrawObstacles()\
    for i,v in pairs(obstacles) do\
        local totalFar = v[1] + howFar\
        if 0 < totalFar and totalFar <= w then\
            paintutils.drawLine(totalFar,1,totalFar,v[3],defaultConfing.obstacleColor)\
            paintutils.drawLine(totalFar,v[2]+v[3]-1,totalFar,h-1,defaultConfing.obstacleColor)\
            if totalFar == xPos then\
                currObstacle = currObstacle + 1\
                if (1 <= h - position and h - position <= v[3]) or (v[2]+v[3]-1 <= h - position and h - position <= h-1) then\
                    dead = true\
                end\
            end\
        end\
        \
    end\
end\
\
--Physics related functions--\
\
function Physics.BirdMove()\
    position = position + speed*diff - 0.5*G*math.pow( diff, 2 )\
    speed = speed - G*diff\
end\
\
function Physics.KeepInBoundaries()\
    if position <= 0 then\
        dead = true \
    elseif position > h-2 then\
        speed = 0\
        position = h-2\
    end\
end\
\
function Physics.GenerateObstacles(howMany)\
    for i=1,howMany do\
        totalLenght = totalLenght + math.random(35,70)\
        local opening = math.random(5,15)\
        local whereOpen = math.random(1,h-opening)\
        obstacles[#obstacles + 1] = {totalLenght,opening,whereOpen}\
    end\
end\
\
function Events.main()\
    local timer = os.startTimer(.2)\
    local event, p2 = os.pullEvent()\
    if event == \"key\" and p2 == keys.space then\
        os.cancelTimer(timer)\
        speed = maxSpeed\
    end\
end\
\
--Code--\
\
--[[f = fs.open(\"FlappyBirdConfig/configs\",\"r\")\
configurationBuffer = f.readAll()\
f.close()]]--\
\
Physics.GenerateObstacles(100)\
\
while true do\
    if dead == true then\
        error(\"you died\")\
    end\
    Events.main()\
    GUI.DrawBackground()\
    GUI.DrawBird()\
    GUI.DrawObstacles()\
    Physics.BirdMove()\
    Physics.KeepInBoundaries()\
    --Physics.DetectColision()\
    howFar = howFar - 1\
end",
  [ "goldrunner/levels/classic_015" ] = "bbbbbbbbbb5                          8bbbbbbbbbb\
bbbbbbbbbb8     4 e  4     4  e 4    8bbbbbbbbbb\
bbbbbbbbbb8888bbbbbbbbc   cbbbbbbbb888bbbbbbbbbb\
bbbbbbbbbb            c   c           bbbbbbbbbb\
bbbbbbbbbb       cbbbbbbbbbbbbbc      bbbbbbbbbb\
bbbbbbbbbb4  e  4c     4 4     c4 e  4bbbbbbbbbb\
bbbbbbbbbbbbbbbbbc 4 4bbbbb4 4 cbbbbbbbbbbbbbbbb\
bbbbbbbbbb       c bbbb   bbbb c      bbbbbbbbbb\
bbbbbbbbbb    4  c      4      c 4    bbbbbbbbbb\
bbbbbbbbbb  cbbbbbbbbbbbbbbbbbbbbbbc  bbbbbbbbbb\
bbbbbbbbbb  c           0          c  bbbbbbbbbb\
bbbbbbbbbb  c 4    4cbbbbbbbc4   4 c  bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbc       cbbbbbbbbbbbbbbbbbbb\
bbbbbbbbbb          c       c         bbbbbbbbbb\
bbbbbbbbbb  4       c       c      4  bbbbbbbbbb\
bbbbbbbbbbb7b7b7b7b7b7b7b7b7b7b7b7b7b7bbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/classic_014" ] = "bbbbbbbbbb  5   e    d   edc    cd   4bbbbbbbbbb\
bbbbbbbbbb dc   dcd   d  d cd   c d  cbbbbbbbbbb\
bbbbbbbbbbd c  d c d    d  c d  c  d cbbbbbbbbbb\
bbbbbbbbbb4 c d  c  d  d   c  d4c   dcbbbbbbbbbb\
bbbbbbbbbb  cd  dc   dd    c4  dc    cbbbbbbbbbb\
bbbbbbbbbbcd   d cd  dd  d cdddddd d  bbbbbbbbbb\
bbbbbbbbbbc d   dc  d4 d   c  d   c d bbbbbbbbbb\
bbbbbbbbbbcd d   c4ddc  d  c     dc  dbbbbbbbbbb\
bbbbbbbbbbc d d  cdd c   d c    d c  dbbbbbbbbbb\
bbbbbbbbbbcd 4 decd  c d  dcd  d  c  dbbbbbbbbbb\
bbbbbbbbbbc dc  d    c   d   d    c  dbbbbbbbbbb\
bbbbbbbbbbcd c   d   c  d d   d   c  dbbbbbbbbbb\
bbbbbbbbbbc dc d  d  c4d   d   d  c 4dbbbbbbbbbb\
bbbbbbbbbbcd c   d d cd d  4d   d c d bbbbbbbbbb\
bbbbbbbbbbc dc  d   dc     d d d dcd  bbbbbbbbbb\
bbbbbbbbbb   c     4     40       c   bbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"GoldRunner\",\
  bRequiresExtraFiles = true,\
  tExtraFiles = {\
    \"levels\",\
  },\
}",
  [ "goldrunner/levels/classic_008" ] = "bbbbbbbbbb           5    8           bbbbbbbbbb\
bbbbbbbbbb           8    8           bbbbbbbbbb\
bbbbbbbbbb   4 e   cb8    8bc   e 4   bbbbbbbbbb\
bbbbbbbbbbcbbbbbcddcb8    8bcddcbbbbbcbbbbbbbbbb\
bbbbbbbbbbcb   bc   b8    8b   cb   bcbbbbbbbbbb\
bbbbbbbbbbcb   bc   b8    8b   cb   bcbbbbbbbbbb\
bbbbbbbbbbcb 4 bc   b8    8b   cb 4 bcbbbbbbbbbb\
bbbbbbbbbbcbbbbbc   b8    8b   cbbbbbcbbbbbbbbbb\
bbbbbbbbbbcb   bc   b8    8b   cb   bcbbbbbbbbbb\
bbbbbbbbbbcb   bcdddbcbbbbcbdddcb   bcbbbbbbbbbb\
bbbbbbbbbbcb   b   cbc    cbc   b   bcbbbbbbbbbb\
bbbbbbbbbbcbe4 b   cbc  4ecbc   b 4ebcbbbbbbbbbb\
bbbbbbbbbbcbb1bb   cb777777bc   bb1bbcbbbbbbbbbb\
bbbbbbbbbbc     1  c        c  1     cbbbbbbbbbb\
bbbbbbbbbbc      1ec    0   c 1      cbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "minesweeper/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"Minesweeper\",\
}",
  [ "goldrunner/levels/classic_016" ] = "bbbbbbbbbb                         5  bbbbbbbbbb\
bbbbbbbbbb                    0     8 bbbbbbbbbb\
bbbbbbbbbb   1bbbbccbbbbbbccccc      8bbbbbbbbbb\
bbbbbbbbbb         c   b  c         8 bbbbbbbbbb\
bbbbbbbbbb    4     c cb  c        8  bbbbbbbbbb\
bbbbbbbbbb    b4     ccb  c       8   bbbbbbbbbb\
bbbbbbbbbb   bbb4     cb  c      8    bbbbbbbbbb\
bbbbbbbbbb  bbbbb4    cb  c     8     bbbbbbbbbb\
bbbbbbbbbbbbbbbbbb    cb  c      8    bbbbbbbbbb\
bbbbbbbbbb 4bbbbb     cb  c       8   bbbbbbbbbb\
bbbbbbbbbb   bbb      cb  c        8  bbbbbbbbbb\
bbbbbbbbbb    b       cb  c         8 bbbbbbbbbb\
bbbbbbbbbb       e    cb  c   e      8bbbbbbbbbb\
bbbbbbbbbb cbbbbbbbbbbbbbb1bbbbbbbbb 8bbbbbbbbbb\
bbbbbbbbbb bbbbbbbbbbbbbbb         cb8bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbb   444444cbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/10_gauntlet" ] = "                                                 \
    e 4  ddddddddddddddddddddddddddddddd  4 e    \
  c777777                               777777c  \
  c                   bbbbbbb                 c  \
  c 4 4       bbbbbb  b 4 4 b             4 4 c  \
  777777c     b4444b  b4 4 4b           c777777  \
        c     b4444b  b     b           c        \
    4 4 cd    b4444b  bcbbbcb          dc 4 4    \
  c777777     bbbcbb   c   c            777777c  \
  c              c     c   c                  c  \
  c 4 4     bbbbbcbb  0    bbbbbbbb       4 4 c  \
  777777c   b4444c4b bbbb   4 4 4 4     c777777  \
        c   b4444c4b b44b   4 454 4     c        \
    4 4 cd  bcbbbbbb b44b   4 484 4    dc 4 4    \
  c777777    c       b44b   4 484 4     777777c  \
  c          c                 8              c  \
  c  e       c                 8            e c  \
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  [ "ccsand/apis/redirect" ] = "local trueCursor={term.getCursorPos()}\
\
local redirectBufferBase = {\
    write=\
      function(buffer,...)\
        local cy=buffer.curY\
        if cy>0 and cy<=buffer.height then\
          local text=table.concat({...},\" \")\
          local cx=buffer.curX\
          local px, py\
          if buffer.isActive and not buffer.cursorBlink then\
            buffer.native.setCursorPos(cx+buffer.scrX, cy+buffer.scrY)\
          end\
          for i=1,#text do\
            if cx>0 and cx<=buffer.width then\
              local curCell=buffer[cy][cx]\
              local char,textColor,backgroundColor=string.char(text:byte(i)),buffer.textColor,buffer.backgroundColor\
              if buffer[cy].isDirty or curCell.char~=char or curCell.textColor~=textColor or curCell.backgroundColor~=backgroundColor then\
                buffer[cy][cx].char=char\
                buffer[cy][cx].textColor=textColor\
                buffer[cy][cx].backgroundColor=backgroundColor\
                buffer[cy].isDirty=true\
              end\
            end\
            cx=cx+1\
          end\
          buffer.curX=cx\
          if buffer.isActive then\
            buffer.drawDirty()\
            if not buffer.cursorBlink then\
              trueCursor={cx+buffer.scrX-1,cy+buffer.scrY-1}\
              buffer.native.setCursorPos(unpack(trueCursor))\
            end\
          end\
        end\
      end,\
\
    setCursorPos=\
      function(buffer,x,y)\
        buffer.curX=math.floor(x)\
        buffer.curY=math.floor(y)\
        if buffer.isActive and buffer.cursorBlink then\
          buffer.native.setCursorPos(x+buffer.scrX-1,y+buffer.scrY-1)\
          trueCursor={x+buffer.scrX-1,y+buffer.scrY-1}\
        end\
      end,\
\
    getCursorPos=\
      function(buffer)\
        return buffer.curX,buffer.curY\
      end,\
\
    scroll=\
      function(buffer,offset)\
        for j=1,offset do\
          local temp=table.remove(buffer,1)\
          table.insert(buffer,temp)\
          for i=1,#temp do\
            temp[i].char=\" \"\
            temp[i].textColor=buffer.textColor\
            temp[i].backgroundColor=buffer.backgroundColor\
          end\
        end\
        if buffer.isActive then\
          local prev=term.redirect(buffer.native)\
          buffer.blit()\
          if term.restore then\
            term.restore()\
          else\
            term.redirect(prev)\
          end\
        end\
      end,\
\
    isColor=\
      function(buffer)\
        return buffer._isColor\
      end,\
\
    isColour=\
      function(buffer)\
        return buffer._isColor\
      end,\
\
    clear=\
      function(buffer)\
        for y=1,buffer.height do\
          for x=1,buffer.width do\
            buffer[y][x]={char=\" \",textColor=buffer.textColor,backgroundColor=buffer.backgroundColor}\
          end\
        end\
        if buffer.isActive then\
          local prev=term.redirect(buffer.native)\
          buffer.blit()\
          if term.restore then\
            term.restore()\
          else\
            term.redirect(prev)\
          end\
        end\
      end,\
\
    clearLine=\
      function(buffer)\
        local line=buffer[buffer.curY]\
        local fg,bg = buffer.textColor, buffer.backgroundColor\
        for x=1,buffer.width do\
          line[x]={char=\" \",textColor=fg,backgroundColor=bg}\
        end\
        buffer[buffer.curY].isDirty=true\
        if buffer.isActive then\
          buffer.drawDirty()\
        end\
      end,\
\
    setCursorBlink=\
      function(buffer,onoff)\
        buffer.cursorBlink=onoff\
        if buffer.isActive then\
          buffer.native.setCursorBlink(onoff)\
          if onoff then\
            buffer.native.setCursorPos(buffer.curX,buffer.curY)\
            trueCursor={buffer.curX,buffer.curY}\
          end\
        end\
      end,\
\
    getSize=\
      function(buffer)\
        return buffer.width, buffer.height\
      end,\
\
    setTextColor=\
      function(buffer,color)\
        buffer.textColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
            buffer.native.setTextColor(color)\
          end\
        end\
      end,\
\
    setTextColour=\
      function(buffer,color)\
        buffer.textColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
            buffer.native.setTextColor(color)\
          end\
        end\
      end,\
\
    setBackgroundColor=\
      function(buffer,color)\
        buffer.backgroundColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
        buffer.native.setBackgroundColor(color)\
          end\
        end\
      end,\
\
    setBackgroundColour=\
      function(buffer,color)\
        buffer.backgroundColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
            buffer.native.setBackgroundColor(color)\
          end\
        end\
      end,\
\
    resize=\
      function(buffer,width,height)\
        if buffer.width~=width or buffer.height~=height then\
          local fg, bg=buffer.textColor, buffer.backgroundColor\
          if width>buffer.width then\
            for y=1,buffer.height do\
              for x=#buffer[y]+1,width do\
                buffer[y][x]={char=\" \",textColor=fg,backgroundColor=bg}\
              end\
            end\
          end\
\
          if height>buffer.height then\
            local w=width>buffer.width and width or buffer.width\
            for y=#buffer+1,height do\
              local row={}\
              for x=1,width do\
                row[x]={char=\" \",textColor=fg,backgroundColor=bg}\
              end\
              buffer[y]=row\
            end\
          end\
          buffer.width=width\
          buffer.height=height\
        end\
      end,\
\
    blit=\
      function(buffer,sx,sy,dx, dy, width,height)\
        sx=sx or 1\
        sy=sy or 1\
        dx=dx or buffer.scrX\
        dy=dy or buffer.scrY\
        width=width or buffer.width\
        height=height or buffer.height\
\
        local h=sy+height>buffer.height and buffer.height-sy or height-1\
        for y=0,h do\
          local row=buffer[sy+y]\
          local x=0\
          local cell=row[sx]\
          local fg,bg=cell.textColor,cell.backgroundColor\
          local str=\"\"\
          local tx=x\
          while true do\
            str=str..cell.char\
            x=x+1\
            if x==width or sx+x>buffer.width then\
              break\
            end\
            cell=row[sx+x]\
            if cell.textColor~=fg or cell.backgroundColor~=bg then\
              --write\
              term.setCursorPos(dx+tx,dy+y)\
              term.setTextColor(fg)\
              term.setBackgroundColor(bg)\
              term.write(str)\
              str=\"\"\
              tx=x\
              fg=cell.textColor\
              bg=cell.backgroundColor\
            end\
          end\
          term.setCursorPos(dx+tx,dy+y)\
          term.setTextColor(fg)\
          term.setBackgroundColor(bg)\
          term.write(str)\
        end\
      end,\
\
    drawDirty =\
      function(buffer)\
        local prev=term.redirect(buffer.native)\
        for y=1,buffer.height do\
          if buffer[y].isDirty then\
            buffer.blit(1,y,buffer.scrX,buffer.scrY+y-1,buffer.width,buffer.height)\
            buffer[y].isDirty=false\
          end\
        end\
        if term.restore then\
          term.restore()\
        else\
          term.redirect(prev)\
        end\
      end,\
\
    makeActive =\
      function(buffer,posX, posY)\
        posX=posX or 1\
        posY=posY or 1\
        buffer.scrX=posX\
        buffer.scrY=posY\
        local prev=term.redirect(buffer.native)\
        buffer.blit(1,1,posX,posY,buffer.width,buffer.height)\
        term.setCursorPos(buffer.curX,buffer.curY)\
        term.setCursorBlink(buffer.cursorBlink)\
        term.setTextColor(buffer.textColor)\
        term.setBackgroundColor(buffer.backgroundColor)\
        buffer.isActive=true\
        if term.restore then\
          term.restore()\
        else\
          term.redirect(prev)\
        end\
      end,\
\
    isBuffer = true,\
\
  }\
\
\
function createRedirectBuffer(width,height,fg,bg,isColor)\
   bg=bg or colors.black\
   fg=fg or colors.white\
   if isColor==nil then\
     isColor=term.isColor()\
   end\
   local buffer={}\
\
   do\
     local w,h=term.getSize()\
     width,height=width or w,height or h\
   end\
\
   for y=1,height do\
     local row={}\
     for x=1,width do\
       row[x]={char=\" \",textColor=fg,backgroundColor=bg}\
     end\
     buffer[y]=row\
   end\
   buffer.scrX=1\
   buffer.scrY=1\
   buffer.width=width\
   buffer.height=height\
   buffer.cursorBlink=false\
   buffer.textColor=fg\
   buffer.backgroundColor=bg\
   buffer._isColor=isColor\
   buffer.curX=1\
   buffer.curY=1\
   buffer.native=type(term.native)==\"function\" and term.native() or term.native\
   local meta={}\
   local function wrap(f,o)\
     return function(...)\
         return f(o,...)\
       end\
   end\
   for k,v in pairs(redirectBufferBase) do\
     if type(v)==\"function\" then\
       meta[k]=wrap(v,buffer)\
     else\
       meta[k]=v\
     end\
   end\
   setmetatable(buffer,{__index=meta})\
   return buffer\
end",
  [ "bankvault/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"BankVault\",\
  bRequiresExtraFiles = true,\
  tExtraFiles = {\
    \"levels\",\
  },\
}",
  [ "goldrunner/levels/04_fortress" ] = "\
7  4 547                                      0  \
7ccbbbb7                                   cbbbbb\
7cc77777                                   cb 4 4\
7cc                                        cb7777\
7cc7                                             \
7cc7                                             \
7cc                         4    dddd dddd dddd  \
7cc77                   c777b777c    c    c    c7\
7cc7c77  dddddd 4    4  c      7c    c  e c    c7\
7cc c          bbbbcbbbbc      777777777777777777\
7777c7  7          c    c                        \
7c77c 77           c    c4   4  dddddddd 4 4     \
7c  c 77 4       bbbbc7b7b7b7b7c        bbbbbc   \
7c  c  7bb           c         c             c   \
77c777c777b   4      c         c             c   \
7ece 7c  7bbbbbb     c         c     e       c   \
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/05_caged" ] = "                                                 \
                   88888888888                   \
     e  4        cb8         8bc        4  e     \
  cbbbbbbcdddddddcb8         8bcdddddddcbbbbbbc  \
  cb    bc        b8         8b        cb    bc  \
  cb    bc        b8         8b        cb    bc  \
  cb    bc        b8         8b        cb    bc  \
  cbb4  bc        b8    5    8b        cbb 4 bc  \
  cbbbbbbc        b8dddd dddd8b        cbbbbbbc  \
  cb    bcddddddddb8   4 4   8bddddddddcb    bc  \
  cb    b        cbcbbbbbbbbbcbc        b    bc  \
  cb    b        cbc         cbc        b    bc  \
  cb 4ebb        cbc    e    cbc        bbe4 bc  \
  cbbbbbb        cb77777777777bc        bbbbbbc  \
  c      b       c             c       b      c  \
  c       b      c             c      b       c  \
  c       4b     c      0      c     b4       c  \
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  plains = "3111111333333333333333333333333333333333333333333\
3111111333333333333333333333333333333333333333333\
3111111333333333333333333333333333333333333333333\
3111111333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3333333333333333333333333333333333333333333333333\
3355555555555555555555555555555555555555555555533\
5555555555555555555555555555555555555555555555555\
5555555555555555555555555555555555555555555555555",
  [ "konelift/startgame" ] = "term.setBackgroundColor(colors.black)\
term.setTextColor(colors.white)\
print(\"KONE ELEVATOR SIMULATOR!\")\
sleep(2)\
print(\"CONTROLS:\")\
print(\"[space] - get stuck\")\
sleep(2)\
local progress = 0\
local function redraw()\
  local w, h = term.getSize()\
  term.current().setVisible(false)\
  term.setTextColor(colors.black)\
  term.clear()\
  paintutils.drawLine(1, h - 14, 1, h, colors.white)\
  paintutils.drawLine(5, h - 14, 5, h, colors.white)\
  term.setCursorPos(2, h - 4 - math.floor(progress / 10))\
  term.write(\"---\")\
  term.setCursorPos(1, h - math.floor(progress / 10))\
  term.write(\"#---#\")\
  term.setBackgroundColor(colors.black)\
  term.setTextColor(colors.white)\
  term.write(\" < \"..progress..\"%\")\
  term.setCursorPos(12, 1)\
  term.current().setVisible(true)\
end\
\
while true do\
  redraw()\
  local timer = os.startTimer(0.25)\
  while true do\
    local ev = {os.pullEvent()}\
    if ev[1] == \"timer\" and ev[2] == timer then\
      break\
    elseif ev[1] == \"key\" and ev[2] == keys.space then\
      print(\"ELEVATOR DIED AT \"..progress..\"%!\")\
      sleep(2)\
      return\
    end\
  end\
  if progress == 99 then\
    print(\"ELEVATOR DIED AT 99%!\")\
    sleep(2)\
    return\
  end\
  progress = progress + 1\
  if progress > 100 then\
    printError(\"Elevator survived.\")\
    sleep(2)\
    return\
  end\
end",
  [ "goldrunner/levels/classic_013" ] = "bbbbbbbbbb            e          e    bbbbbbbbbb\
bbbbbbbbbb1c1c1c1c1c1c1c1c1c1c1c1c1c18bbbbbbbbbb\
bbbbbbbbbb1c1c1c1c1c1c1c1c1c1c1c1c1c18bbbbbbbbbb\
bbbbbbbbbb4cbc cbc4cbc cbc4cbc cbc4cb8bbbbbbbbbb\
bbbbbbbbbb1cbc1cbc1cbc1cbc1cbc1cbc1cb8bbbbbbbbbb\
bbbbbbbbbb1cbc1cbc1cbc1cbc1cbc1cbc1cb8bbbbbbbbbb\
bbbbbbbbbb1cbc1cbc1cbc1cbc1cbc1cbc1cb8bbbbbbbbbb\
bbbbbbbbbb cbc4cbc cbc4cbc cbc4cbc cb8bbbbbbbbbb\
bbbbbbbbbb1cbc1cbc1cbc1cbc1cbc1cbc1cb8bbbbbbbbbb\
bbbbbbbbbb1cbc1cbc1cbc1cbc1cbc1cbc1cb8bbbbbbbbbb\
bbbbbbbbbb4c c c c c c c c c c c c cb8bbbbbbbbbb\
bbbbbbbbbbcbbbbbbbbbbbbbbbbbbbbbbbbbb8bbbbbbbbbb\
bbbbbbbbbbc         4 e 4   4 e      8bbbbbbbbbb\
bbbbbbbbbbc777777777777777777777777778bbbbbbbbbb\
bbbbbbbbbbc4       0                48bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/11_hunting" ] = "                                                 \
                                      bbbbbbbbbb \
                                      be e e e b \
                                      bbbbbbbb4b \
                                      b44444444b \
                    5                 b4bbbbbbbb \
                    c                 b44444444b \
                    c               bcbbbbbbbb4b \
        cbbbbbbbbbbbbbbbbbbbcbbbbbbbbc444444444b \
        c                   c       bbbbbbbbbbbb \
   7    c  0                c   7                \
   7bbbbbbbbbbbbbbbbbbbbbbbbbbbb7                \
   777777777777777777777777777777                \
                                                 \
                                                 \
                                                 \
                                                 \
                                                 ",
  [ "redcast/files/credplay" ] = "local f = fs.open(\"credits\",\"r\")\
local lines = {}\
local line = f.readLine()\
while line do\
  table.insert(lines,line)\
  line = f.readLine()\
end\
f.close()\
local x,y = term.getSize()\
i = y + 1\
while true do\
  \
  i = i - 1\
  term.clear()\
  y = i\
  for k,v in pairs(lines) do\
    term.setCursorPos(1,y)\
    term.write(v)\
    y = y + 1\
  end\
  if i < 0-#lines then break end\
  sleep(0.4)\
end\
\
term.setCursorPos(1,1)",
  [ "goldrunner/levels/classic_007" ] = "bbbbbbbbbb  5                         bbbbbbbbbb\
bbbbbbbbbb  8                 ddddddddbbbbbbbbbb\
bbbbbbbbbb  8          e      c      cbbbbbbbbbb\
bbbbbbbbbbbbbbbcb    bcbbb   ec    4 cbbbbbbbbbb\
bbbbbbbbbb     c      c    bbbcbbbbbbbbbbbbbbbbb\
bbbbbbbbbb  e  c   4  c       c       bbbbbbbbbb\
bbbbbbbbbbbbbbbcbbbb  c       c       bbbbbbbbbb\
bbbbbbbbbb     c      c       c       bbbbbbbbbb\
bbbbbbbbbb  4  c   4  c       c       bbbbbbbbbb\
bbbbbbbbbbbbcbbbbbbbbbbbbc    c bbbb cbbbbbbbbbb\
bbbbbbbbbb  c            c 4  c bbbb cbbbbbbbbbb\
bbbbbbbbbb  c  4         cddddc b 4b cbbbbbbbbbb\
bbbbbbbbbbbbbbbbbc            c bbbbbcbbbbbbbbbb\
bbbbbbbbbb       c            c      cbbbbbbbbbb\
bbbbbbbbbb       c 0        4 c  e   cbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "redcast/files/apis/redirect" ] = "local trueCursor={term.getCursorPos()}\
\
local redirectBufferBase = {\
    write=\
      function(buffer,...)\
        local cy=buffer.curY\
        if cy>0 and cy<=buffer.height then\
          local text=table.concat({...},\" \")\
          local cx=buffer.curX\
          local px, py\
          if buffer.isActive and not buffer.cursorBlink then\
            buffer.native.setCursorPos(cx+buffer.scrX, cy+buffer.scrY)\
          end\
          for i=1,#text do\
            if cx>0 and cx<=buffer.width then\
              local curCell=buffer[cy][cx]\
              local char,textColor,backgroundColor=string.char(text:byte(i)),buffer.textColor,buffer.backgroundColor\
              if buffer[cy].isDirty or curCell.char~=char or curCell.textColor~=textColor or curCell.backgroundColor~=backgroundColor then\
                buffer[cy][cx].char=char\
                buffer[cy][cx].textColor=textColor\
                buffer[cy][cx].backgroundColor=backgroundColor\
                buffer[cy].isDirty=true\
              end\
            end\
            cx=cx+1\
          end\
          buffer.curX=cx\
          if buffer.isActive then\
            buffer.drawDirty()\
            if not buffer.cursorBlink then\
              trueCursor={cx+buffer.scrX-1,cy+buffer.scrY-1}\
              buffer.native.setCursorPos(unpack(trueCursor))\
            end\
          end\
        end\
      end,\
\
    setCursorPos=\
      function(buffer,x,y)\
        buffer.curX=math.floor(x)\
        buffer.curY=math.floor(y)\
        if buffer.isActive and buffer.cursorBlink then\
          buffer.native.setCursorPos(x+buffer.scrX-1,y+buffer.scrY-1)\
          trueCursor={x+buffer.scrX-1,y+buffer.scrY-1}\
        end\
      end,\
\
    getCursorPos=\
      function(buffer)\
        return buffer.curX,buffer.curY\
      end,\
\
    scroll=\
      function(buffer,offset)\
        for j=1,offset do\
          local temp=table.remove(buffer,1)\
          table.insert(buffer,temp)\
          for i=1,#temp do\
            temp[i].char=\" \"\
            temp[i].textColor=buffer.textColor\
            temp[i].backgroundColor=buffer.backgroundColor\
          end\
        end\
        if buffer.isActive then\
          local prev=term.redirect(buffer.native)\
          buffer.blit()\
          if term.restore then\
            term.restore()\
          else\
            term.redirect(prev)\
          end\
        end\
      end,\
\
    isColor=\
      function(buffer)\
        return buffer._isColor\
      end,\
\
    isColour=\
      function(buffer)\
        return buffer._isColor\
      end,\
\
    clear=\
      function(buffer)\
        for y=1,buffer.height do\
          for x=1,buffer.width do\
            buffer[y][x]={char=\" \",textColor=buffer.textColor,backgroundColor=buffer.backgroundColor}\
          end\
        end\
        if buffer.isActive then\
          local prev=term.redirect(buffer.native)\
          buffer.blit()\
          if term.restore then\
            term.restore()\
          else\
            term.redirect(prev)\
          end\
        end\
      end,\
\
    clearLine=\
      function(buffer)\
        local line=buffer[buffer.curY]\
        local fg,bg = buffer.textColor, buffer.backgroundColor\
        for x=1,buffer.width do\
          line[x]={char=\" \",textColor=fg,backgroundColor=bg}\
        end\
        buffer[buffer.curY].isDirty=true\
        if buffer.isActive then\
          buffer.drawDirty()\
        end\
      end,\
\
    setCursorBlink=\
      function(buffer,onoff)\
        buffer.cursorBlink=onoff\
        if buffer.isActive then\
          buffer.native.setCursorBlink(onoff)\
          if onoff then\
            buffer.native.setCursorPos(buffer.curX,buffer.curY)\
            trueCursor={buffer.curX,buffer.curY}\
          end\
        end\
      end,\
\
    getSize=\
      function(buffer)\
        return buffer.width, buffer.height\
      end,\
\
    setTextColor=\
      function(buffer,color)\
        buffer.textColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
            buffer.native.setTextColor(color)\
          end\
        end\
      end,\
\
    setTextColour=\
      function(buffer,color)\
        buffer.textColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
            buffer.native.setTextColor(color)\
          end\
        end\
      end,\
\
    setBackgroundColor=\
      function(buffer,color)\
        buffer.backgroundColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
        buffer.native.setBackgroundColor(color)\
          end\
        end\
      end,\
\
    setBackgroundColour=\
      function(buffer,color)\
        buffer.backgroundColor=color\
        if buffer.isActive then\
          if buffer.native.isColor() or color==colors.black or color==colors.white then\
            buffer.native.setBackgroundColor(color)\
          end\
        end\
      end,\
\
    resize=\
      function(buffer,width,height)\
        if buffer.width~=width or buffer.height~=height then\
          local fg, bg=buffer.textColor, buffer.backgroundColor\
          if width>buffer.width then\
            for y=1,buffer.height do\
              for x=#buffer[y]+1,width do\
                buffer[y][x]={char=\" \",textColor=fg,backgroundColor=bg}\
              end\
            end\
          end\
\
          if height>buffer.height then\
            local w=width>buffer.width and width or buffer.width\
            for y=#buffer+1,height do\
              local row={}\
              for x=1,width do\
                row[x]={char=\" \",textColor=fg,backgroundColor=bg}\
              end\
              buffer[y]=row\
            end\
          end\
          buffer.width=width\
          buffer.height=height\
        end\
      end,\
\
    blit=\
      function(buffer,sx,sy,dx, dy, width,height)\
        sx=sx or 1\
        sy=sy or 1\
        dx=dx or buffer.scrX\
        dy=dy or buffer.scrY\
        width=width or buffer.width\
        height=height or buffer.height\
\
        local h=sy+height>buffer.height and buffer.height-sy or height-1\
        for y=0,h do\
          local row=buffer[sy+y]\
          local x=0\
          local cell=row[sx]\
          local fg,bg=cell.textColor,cell.backgroundColor\
          local str=\"\"\
          local tx=x\
          while true do\
            str=str..cell.char\
            x=x+1\
            if x==width or sx+x>buffer.width then\
              break\
            end\
            cell=row[sx+x]\
            if cell.textColor~=fg or cell.backgroundColor~=bg then\
              --write\
              term.setCursorPos(dx+tx,dy+y)\
              term.setTextColor(fg)\
              term.setBackgroundColor(bg)\
              term.write(str)\
              str=\"\"\
              tx=x\
              fg=cell.textColor\
              bg=cell.backgroundColor\
            end\
          end\
          term.setCursorPos(dx+tx,dy+y)\
          term.setTextColor(fg)\
          term.setBackgroundColor(bg)\
          term.write(str)\
        end\
      end,\
\
    drawDirty =\
      function(buffer)\
        local prev=term.redirect(buffer.native)\
        for y=1,buffer.height do\
          if buffer[y].isDirty then\
            buffer.blit(1,y,buffer.scrX,buffer.scrY+y-1,buffer.width,buffer.height)\
            buffer[y].isDirty=false\
          end\
        end\
        if term.restore then\
          term.restore()\
        else\
          term.redirect(prev)\
        end\
      end,\
\
    makeActive =\
      function(buffer,posX, posY)\
        posX=posX or 1\
        posY=posY or 1\
        buffer.scrX=posX\
        buffer.scrY=posY\
        local prev=term.redirect(buffer.native)\
        buffer.blit(1,1,posX,posY,buffer.width,buffer.height)\
        term.setCursorPos(buffer.curX,buffer.curY)\
        term.setCursorBlink(buffer.cursorBlink)\
        term.setTextColor(buffer.textColor)\
        term.setBackgroundColor(buffer.backgroundColor)\
        buffer.isActive=true\
        if term.restore then\
          term.restore()\
        else\
          term.redirect(prev)\
        end\
      end,\
\
    isBuffer = true,\
\
  }\
\
\
function createRedirectBuffer(width,height,fg,bg,isColor)\
   bg=bg or colors.black\
   fg=fg or colors.white\
   if isColor==nil then\
     isColor=term.isColor()\
   end\
   local buffer={}\
\
   do\
     local w,h=term.getSize()\
     width,height=width or w,height or h\
   end\
\
   for y=1,height do\
     local row={}\
     for x=1,width do\
       row[x]={char=\" \",textColor=fg,backgroundColor=bg}\
     end\
     buffer[y]=row\
   end\
   buffer.scrX=1\
   buffer.scrY=1\
   buffer.width=width\
   buffer.height=height\
   buffer.cursorBlink=false\
   buffer.textColor=fg\
   buffer.backgroundColor=bg\
   buffer._isColor=isColor\
   buffer.curX=1\
   buffer.curY=1\
   buffer.native=type(term.native)==\"function\" and term.native() or term.native\
   local meta={}\
   local function wrap(f,o)\
     return function(...)\
         return f(o,...)\
       end\
   end\
   for k,v in pairs(redirectBufferBase) do\
     if type(v)==\"function\" then\
       meta[k]=wrap(v,buffer)\
     else\
       meta[k]=v\
     end\
   end\
   setmetatable(buffer,{__index=meta})\
   return buffer\
end",
  [ "bankvault/levels/Original.txt" ] = "; Original & Extra\
\
; Copyright: Thinking Rabbit\
; E-Mail: \
; Web Site: \
;\
; The 50 original levels from Sokoban plus the 40 from Extra.\
\
    #####\
    #   #\
    #$  #\
  ###  $##\
  #  $ $ #\
### # ## #   ######\
#   # ## #####  ..#\
# $  $          ..#\
##### ### #@##  ..#\
    #     #########\
    #######\
; 1\
\
############\
#..  #     ###\
#..  # $  $  #\
#..  #$####  #\
#..    @ ##  #\
#..  # #  $ ##\
###### ##$ $ #\
  # $  $ $ $ #\
  #    #     #\
  ############\
; 2\
\
        ########\
        #     @#\
        # $#$ ##\
        # $  $#\
        ##$ $ #\
######### $ # ###\
#....  ## $  $  #\
##...    $  $   #\
#....  ##########\
########\
; 3\
\
           ########\
           #  ....#\
############  ....#\
#    #  $ $   ....#\
# $$$#$  $ #  ....#\
#  $     $ #  ....#\
# $$ #$ $ $########\
#  $ #     #\
## #########\
#    #    ##\
#     $   ##\
#  $$#$$  @#\
#    #    ##\
###########\
; 4\
\
        #####\
        #   #####\
        # #$##  #\
        #     $ #\
######### ###   #\
#....  ## $  $###\
#....    $ $$ ##\
#....  ##$  $ @#\
#########  $  ##\
        # $ $  #\
        ### ## #\
          #    #\
          ######\
; 5\
\
######  ###\
#..  # ##@##\
#..  ###   #\
#..     $$ #\
#..  # # $ #\
#..### # $ #\
#### $ #$  #\
   #  $# $ #\
   # $  $  #\
   #  ##   #\
   #########\
; 6\
\
       #####\
 #######   ##\
## # @## $$ #\
#    $      #\
#  $  ###   #\
### #####$###\
# $  ### ..#\
# $ $ $ ...#\
#    ###...#\
# $$ # #...#\
#  ### #####\
####\
; 7\
\
  ####\
  #  ###########\
  #    $   $ $ #\
  # $# $ #  $  #\
  #  $ $  #    #\
### $# #  #### #\
#@#$ $ $  ##   #\
#    $ #$#   # #\
#   $    $ $ $ #\
#####  #########\
  #      #\
  #      #\
  #......#\
  #......#\
  #......#\
  ########\
; 8\
\
          #######\
          #  ...#\
      #####  ...#\
      #      . .#\
      #  ##  ...#\
      ## ##  ...#\
     ### ########\
     # $$$ ##\
 #####  $ $ #####\
##   #$ $   #   #\
#@ $  $    $  $ #\
###### $$ $ #####\
     #      #\
     ########\
; 9\
\
 ###  #############\
##@####       #   #\
# $$   $$  $ $ ...#\
#  $$$#    $  #...#\
# $   # $$ $$ #...#\
###   #  $    #...#\
#     # $ $ $ #...#\
#    ###### ###...#\
## #  #  $ $  #...#\
#  ## # $$ $ $##..#\
# ..# #  $      #.#\
# ..# # $$$ $$$ #.#\
##### #       # #.#\
    # ######### #.#\
    #           #.#\
    ###############\
; 10\
\
          ####\
     #### #  #\
   ### @###$ #\
  ##      $  #\
 ##  $ $$## ##\
 #  #$##     #\
 # # $ $$ # ###\
 #   $ #  # $ #####\
####    #  $$ #   #\
#### ## $         #\
#.    ###  ########\
#.. ..# ####\
#...#.#\
#.....#\
#######\
; 11\
\
################\
#              #\
# # ######     #\
# #  $ $ $ $#  #\
# #   $@$   ## ##\
# #  $ $ $###...#\
# #   $ $  ##...#\
# ###$$$ $ ##...#\
#     # ## ##...#\
#####   ## ##...#\
    #####     ###\
        #     #\
        #######\
; 12\
\
   #########\
  ##   ##  ######\
###     #  #    ###\
#  $ #$ #  #  ... #\
# # $#@$## # #.#. #\
#  # #$  #    . . #\
# $    $ # # #.#. #\
#   ##  ##$ $ . . #\
# $ #   #  #$#.#. #\
## $  $   $  $... #\
 #$ ######    ##  #\
 #  #    ##########\
 ####\
; 13\
\
       #######\
 #######     #\
 #     # $@$ #\
 #$$ #   #########\
 # ###......##   #\
 #   $......## # #\
 # ###......     #\
##   #### ### #$##\
#  #$   #  $  # #\
#  $ $$$  # $## #\
#   $ $ ###$$ # #\
#####     $   # #\
    ### ###   # #\
      #     #   #\
      ########  #\
             ####\
; 14\
\
   ########\
   #   #  #\
   #  $   #\
 ### #$   ####\
 #  $  ##$   #\
 #  # @ $ # $#\
 #  #      $ ####\
 ## ####$##     #\
 # $#.....# #   #\
 #  $..**. $# ###\
##  #.....#   #\
#   ### #######\
# $$  #  #\
#  #     #\
######   #\
     #####\
; 15\
\
#####\
#   ##\
#    #  ####\
# $  ####  #\
#  $$ $   $#\
###@ #$    ##\
 #  ##  $ $ ##\
 # $  ## ## .#\
 #  #$##$  #.#\
 ###   $..##.#\
  #    #.*...#\
  # $$ #.....#\
  #  #########\
  #  #\
  ####\
; 16\
\
   ##########\
   #..  #   #\
   #..      #\
   #..  #  ####\
  #######  #  ##\
  #            #\
  #  #  ##  #  #\
#### ##  #### ##\
#  $  ##### #  #\
# # $  $  # $  #\
# @$  $   #   ##\
#### ## #######\
   #    #\
   ######\
; 17\
\
     ###########\
     #  .  #   #\
     # #.    @ #\
 ##### ##..# ####\
##  # ..###     ###\
# $ #...   $ #  $ #\
#    .. ##  ## ## #\
####$##$# $ #   # #\
  ## #    #$ $$ # #\
  #  $ # #  # $## #\
  #               #\
  #  ###########  #\
  ####         ####\
; 18\
\
  ######\
  #   @####\
##### $   #\
#   ##    ####\
# $ #  ##    #\
# $ #  ##### #\
## $  $    # #\
## $ $ ### # #\
## #  $  # # #\
## # #$#   # #\
## ###   # # ######\
#  $  #### # #....#\
#    $    $   ..#.#\
####$  $# $   ....#\
#       #  ## ....#\
###################\
; 19\
\
    ##########\
#####        ####\
#     #   $  #@ #\
# #######$####  ###\
# #    ## #  #$ ..#\
# # $     #  #  #.#\
# # $  #     #$ ..#\
# #  ### ##     #.#\
# ###  #  #  #$ ..#\
# #    #  ####  #.#\
# #$   $  $  #$ ..#\
#    $ # $ $ #  #.#\
#### $###    #$ ..#\
   #    $$ ###....#\
   #      ## ######\
   ########\
; 20\
\
#########\
#       #\
#       ####\
## #### #  #\
## #@##    #\
# $$$ $  $$#\
#  # ## $  #\
#  # ##  $ ####\
####  $$$ $#  #\
 #   ##   ....#\
 # #   # #.. .#\
 #   # # ##...#\
 ##### $  #...#\
     ##   #####\
      #####\
; 21\
\
######     ####\
#    #######  #####\
#   $#  #  $  #   #\
#  $  $  $ # $ $  #\
##$ $   # @# $    #\
#  $ ########### ##\
# #   #.......# $#\
# ##  # ......#  #\
# #   $........$ #\
# # $ #.... ..#  #\
#  $ $####$#### $#\
# $   ### $   $  ##\
# $     $ $  $    #\
## ###### $ ##### #\
#         #       #\
###################\
; 22\
\
    #######\
    #  #  ####\
##### $#$ #  ##\
#.. #  #  #   #\
#.. # $#$ #  $####\
#.  #     #$  #  #\
#..   $#  # $    #\
#..@#  #$ #$  #  #\
#.. # $#     $#  #\
#.. #  #$$#$  #  ##\
#.. # $#  #  $#$  #\
#.. #  #  #   #   #\
##. ####  #####   #\
 ####  ####   #####\
; 23\
\
###############\
#..........  .####\
#..........$$.#  #\
###########$ #   ##\
#      $  $     $ #\
## ####   #  $ #  #\
#      #   ##  # ##\
#  $#  # ##  ### ##\
# $ #$###    ### ##\
###  $ #  #  ### ##\
###    $ ## #  # ##\
 # $  #  $  $ $   #\
 #  $  $#$$$  #   #\
 #  #  $      #####\
 # @##  #  #  #\
 ##############\
; 24\
\
####\
#  ##############\
#  #   ..#......#\
#  # # ##### ...#\
##$#    ........#\
#   ##$######  ####\
# $ #     ######@ #\
##$ # $   ######  #\
#  $ #$$$##       #\
#      #    #$#$###\
# #### #$$$$$    #\
# #    $     #   #\
# #   ##        ###\
# ######$###### $ #\
#        #    #   #\
##########    #####\
; 25\
\
 #######\
 #  #  #####\
##  #  #...###\
#  $#  #...  #\
# $ #$$ ...  #\
#  $#  #... .#\
#   # $########\
##$       $ $ #\
##  #  $$ #   #\
 ######  ##$$@#\
      #      ##\
      ########\
; 26\
\
 #################\
 #...   #    #   ##\
##.....  $## # #$ #\
#......#  $  #    #\
#......#  #  # #  #\
######### $  $ $  #\
  #     #$##$ ##$##\
 ##   $    # $    #\
 #  ## ### #  ##$ #\
 # $ $$     $  $  #\
 # $    $##$ ######\
 #######  @ ##\
       ######\
; 27\
\
         #####\
     #####   #\
    ## $  $  ####\
##### $  $ $ ##.#\
#       $$  ##..#\
#  ###### ###.. #\
## #  #    #... #\
# $   #    #... #\
#@ #$ ## ####...#\
####  $ $$  ##..#\
   ##  $ $  $...#\
    # $$  $ #  .#\
    #   $ $  ####\
    ######   #\
         #####\
; 28\
\
#####\
#   ##\
# $  #########\
## # #       ######\
## #   $#$#@  #   #\
#  #      $ #   $ #\
#  ### ######### ##\
#  ## ..*..... # ##\
## ## *.*..*.* # ##\
# $########## ##$ #\
#  $   $  $    $  #\
#  #   #   #   #  #\
###################\
; 29\
\
       ###########\
       #   #     #\
#####  #     $ $ #\
#   ##### $## # ##\
# $ ##   # ## $  #\
# $  @$$ # ##$$$ #\
## ###   # ##    #\
## #   ### #####$#\
## #     $  #....#\
#  ### ## $ #....##\
# $   $ #   #..$. #\
#  ## $ #  ##.... #\
#####   ######...##\
    #####    #####\
; 30\
\
  ####\
  #  #########\
 ##  ##  #   #\
 #  $# $@$   ####\
 #$  $  # $ $#  ##\
##  $## #$ $     #\
#  #  # #   $$$  #\
# $    $  $## ####\
# $ $ #$#  #  #\
##  ###  ###$ #\
 #  #....     #\
 ####......####\
   #....####\
   #...##\
   #...#\
   #####\
; 31\
\
      ####\
  #####  #\
 ##     $#\
## $  ## ###\
#@$ $ # $  #\
#### ##   $#\
 #....#$ $ #\
 #....#   $#\
 #....  $$ ##\
 #... # $   #\
 ######$ $  #\
      #   ###\
      #$ ###\
      #  #\
      ####\
; 32\
\
############\
##     ##  #\
##   $   $ #\
#### ## $$ #\
#   $ #    #\
# $$$ # ####\
#   # # $ ##\
#  #  #  $ #\
# $# $#    #\
#   ..# ####\
####.. $ #@#\
#.....# $# #\
##....#  $ #\
###..##    #\
############\
; 33\
\
 #########\
 #....   ##\
 #.#.#  $ ##\
##....# # @##\
# ....#  #  ##\
#     #$ ##$ #\
## ###  $    #\
 #$  $ $ $#  #\
 # #  $ $ ## #\
 #  ###  ##  #\
 #    ## ## ##\
 #  $ #  $  #\
 ###$ $   ###\
   #  #####\
   ####\
; 34\
\
############ ######\
#   #    # ###....#\
#   $$#   @  .....#\
#   # ###   # ....#\
## ## ###  #  ....#\
 # $ $     # # ####\
 #  $ $##  #      #\
#### #  #### # ## #\
#  # #$   ## #    #\
# $  $  # ## #   ##\
# # $ $    # #   #\
#  $ ## ## # #####\
# $$     $$  #\
## ## ### $  #\
 #    # #    #\
 ###### ######\
; 35\
\
            #####\
#####  ######   #\
#   ####  $ $ $ #\
# $   ## ## ##  ##\
#   $ $     $  $ #\
### $  ## ##     ##\
  # ##### #####$$ #\
 ##$##### @##     #\
 # $  ###$### $  ##\
 # $  #   ###  ###\
 # $$ $ #   $$ #\
 #     #   ##  #\
 #######.. .###\
    #.........#\
    #.........#\
    ###########\
; 36\
\
###########\
#......   #########\
#......   #  ##   #\
#..### $    $     #\
#... $ $ #   ##   #\
#...#$#####    #  #\
###    #   #$  #$ #\
  #  $$ $ $  $##  #\
  #  $   #$#$ ##$ #\
  ### ## #    ##  #\
   #  $ $ ## ######\
   #    $  $  #\
   ##   # #   #\
    #####@#####\
        ###\
; 37\
\
      ####\
####### @#\
#     $  #\
#   $## $#\
##$#...# #\
 # $...  #\
 # #. .# ##\
 #   # #$ #\
 #$  $    #\
 #  #######\
 ####\
; 38\
\
             ######\
 #############....#\
##   ##     ##....#\
#  $$##  $ @##....#\
#      $$ $#  ....#\
#  $ ## $$ # # ...#\
#  $ ## $  #  ....#\
## ##### ### ##.###\
##   $  $ ##   .  #\
# $###  # ##### ###\
#   $   #       #\
#  $ #$ $ $###  #\
# $$$# $   # ####\
#    #  $$ #\
######   ###\
     #####\
; 39\
\
    ############\
    #          ##\
    #  # #$$ $  #\
    #$ #$#  ## @#\
   ## ## # $ # ##\
   #   $ #$  # #\
   #   # $   # #\
   ## $ $   ## #\
   #  #  ##  $ #\
   #    ## $$# #\
######$$   #   #\
#....#  ########\
#.#... ##\
#....   #\
#....   #\
#########\
; 40\
\
           #####\
          ##   ##\
         ##     #\
        ##  $$  #\
       ## $$  $ #\
       # $    $ #\
####   #   $$ #####\
#  ######## ##    #\
#.            $$$@#\
#.# ####### ##   ##\
#.# #######. #$ $##\
#........... #    #\
##############  $ #\
             ##  ##\
              ####\
; 41\
\
     ########\
  ####      ######\
  #    ## $ $   @#\
  # ## ##$#$ $ $##\
### ......#  $$ ##\
#   ......#  #   #\
# # ......#$  $  #\
# #$...... $$# $ #\
#   ### ###$  $ ##\
###  $  $  $  $ #\
  #  $  $  $  $ #\
  ######   ######\
       #####\
; 42\
\
        #######\
    #####  #  ####\
    #   #   $    #\
 #### #$$ ## ##  #\
##      # #  ## ###\
#  ### $#$  $  $  #\
#...    # ##  #   #\
#...#    @ # ### ##\
#...#  ###  $  $  #\
######## ##   #   #\
          #########\
; 43\
\
 #####\
 #   #\
 # # #######\
 #      $@######\
 # $ ##$ ###   #\
 # #### $    $ #\
 # ##### #  #$ ####\
##  #### ##$      #\
#  $#  $  # ## ## #\
#         # #...# #\
######  ###  ...  #\
     #### # #...# #\
          # ### # #\
          #       #\
          #########\
; 44\
\
##### ####\
#...# #  ####\
#...###  $  #\
#....## $  $###\
##....##   $  #\
###... ## $ $ #\
# ##    #  $  #\
#  ## # ### ####\
# $ # #$  $    #\
#  $ @ $    $  #\
#   # $ $$ $ ###\
#  ######  ###\
# ##    ####\
###\
; 45\
\
##########\
#        ####\
# ###### #  ##\
# # $ $ $  $ #\
#       #$   #\
###$  $$#  ###\
  #  ## # $##\
  ##$#   $ @#\
   #  $ $ ###\
   # #   $  #\
   # ##   # #\
  ##  ##### #\
  #         #\
  #.......###\
  #.......#\
  #########\
; 46\
\
         ####\
 #########  ##\
##  $      $ #####\
#   ## ##   ##...#\
# #$$ $ $$#$##...#\
# #   @   #   ...#\
#  $# ###$$   ...#\
# $  $$  $ ##....#\
###$       #######\
  #  #######\
  ####\
; 47\
\
  #########\
  #*.*#*.*#\
  #.*.*.*.#\
  #*.*.*.*#\
  #.*.*.*.#\
  #*.*.*.*#\
  ###   ###\
    #   #\
###### ######\
#           #\
# $ $ $ $ $ #\
## $ $ $ $ ##\
 #$ $ $ $ $#\
 #   $@$   #\
 #  #####  #\
 ####   ####\
; 48\
\
       ####\
       #  ##\
       #   ##\
       # $$ ##\
     ###$  $ ##\
  ####    $   #\
###  # #####  #\
#    # #....$ #\
# #   $ ....# #\
#  $ # #.*..# #\
###  #### ### #\
  #### @$  ##$##\
     ### $     #\
       #  ##   #\
       #########\
; 49\
\
      ############\
     ##..    #   #\
    ##..* $    $ #\
   ##..*.# # # $##\
   #..*.# # # $  #\
####...#  #    # #\
#  ## #          #\
# @$ $ ###  #   ##\
# $   $   # #   #\
###$$   # # # # #\
  #   $   # # #####\
  # $# #####      #\
  #$   #   #    # #\
  #  ###   ##     #\
  #  #      #    ##\
  ####      ######\
; 50\
\
 #########\
 #       #\
 # $ $$ $#\
### #  $ #\
#.#   $$ ##\
#.###   $ #\
#.#. $ ## ####\
#...  $## $  #\
#...$   $    #\
#..###$### #@#\
#..# #     ###\
#### #######\
; 51\
\
           ########\
           #......#\
   ####    #......#\
   #  #########...#\
   # $   $    #...#\
   #  # # # # #   #\
##### # # #@# #   #\
#   # ### ### ## ##\
#    $ # $ $ $ # #\
# $$$  $   #     #\
#   # ###$###$## #\
### #  $   #     #\
 ## $  # $ $ $ ###\
 #  # ### ### ##\
 # $          #\
 #  ###########\
 ####\
; 52\
\
####################\
#                ###\
# $#   $ ##  $    ##\
#    $###    # $$ ##\
#.###     $ $ ##  ##\
#...#  #  #    #$  #\
#..##$$#### $  #   #\
#...#      $ ##  ###\
#...$  ###  #    # #\
##..  $#  ##   ##@ #\
###.#              #\
####################\
; 53\
\
####################\
#   #    #   #   #@#\
# $      $   $   # #\
## ###..## ###     #\
#   #....#$#  $### #\
# $ #....#  $  $ $ #\
#   #....# # # $ $ #\
#   ##..##   #$#   #\
##$##    ##  #  #$##\
#   $  $     #  #  #\
#   #    #   #     #\
####################\
; 54\
\
####################\
#    @##      #   ##\
#    ##    $    $ ##\
#  ###....# # #  ###\
#   #....# # # $   #\
### #...#  #       #\
##  ##.#     $   $ #\
##  $ $ ###  # # ###\
## $       # # $   #\
#### $  $# # # # $ #\
####         # #  ##\
####################\
; 55\
\
####################\
#  #  ##    #   @###\
##    $    # $###  #\
##$# $ ##$# $ $    #\
#   $#    $      ###\
# ##   $ ###  #....#\
# # $# # # # #....##\
#    $ $ #  #....###\
##$ ###  $ #....####\
#  # $        ######\
#      # #    ######\
####################\
; 56\
\
####################\
#@     ###   #  #  #\
# # #  #  $  $     #\
#####     # $ $#$# #\
#.#..#    ##$ $    #\
#.....    $   #   ##\
#.....    ###$##$###\
#.#..#    $    #   #\
#####     #  #$  $ #\
#####  #  $    $ $ #\
#####  #  #  #  #  #\
####################\
; 57\
\
####################\
##...   ## #    #  #\
#....         $ ## #\
#....# # #$###$    #\
#...#    #       # #\
##.#  #$ #     $## #\
#  #  # $ $ ###  $ #\
#     $  $ #  # ## #\
## # ## #$$# $#  # #\
#  #   $ $ #      ##\
#    #     #  #   @#\
####################\
; 58\
\
####################\
#   #  #@# ##  #####\
# # #  $    $  #####\
# #    ###### $  ###\
#   #  #....#  $$  #\
##$##$##....#      #\
#      #....##$##$##\
#  $$  #....#      #\
# $  $  #  #  ###  #\
#####  $   $    $  #\
##### #    #  #   ##\
####################\
; 59\
\
####################\
# #     #          #\
#       $  ## ### ##\
#####  ##   $  $   #\
##..##  # # $ # #  #\
#....  $     ##$# ##\
#....  $#####   #$##\
##..# #  #   #  $  #\
###.# #  $   $  # @#\
##  $  $ #   #  ####\
##       ###########\
####################\
; 60\
\
####################\
#     ###..###     #\
# $$  ###..###  $@ #\
#  # ##......#  $  #\
#     #......#  $  #\
####  ###..######$ #\
#   $$$ #..#    #  #\
# $#   $  $  $$ #$ #\
#  #  ## $  ##  #  #\
# $    $ ## $    $ #\
#  #  ##    ##  #  #\
####################\
; 61\
\
####################\
#    #  # #  #  #  #\
# @# # ## $   $   ##\
#### #    #  # $   #\
#    # ## #$ ## ## #\
#      $   $   $   #\
#..###$$## $##$ ## #\
#..#.#  # $   $ #  #\
#....# $$   ##$ ####\
#....#  #####      #\
#...###        ##  #\
####################\
; 62\
\
####################\
#....#       #  #  #\
#....# # $  $      #\
#.... ##  $# # $#$ #\
#...#   $   $#  $  #\
#..####  # $   $$  #\
#      #### #### ###\
#        #   #     #\
# ##   #   $ # $ $ #\
# ##    $ ## $  $  #\
#     @#     #   # #\
####################\
; 63\
\
####################\
#....###           #\
#....##### #  #$# ##\
#....###   #$  $   #\
#....###    $  #$$##\
##  #### $#  #$ $  #\
##  ####  $  $  #  #\
#@  ####$###$## $  #\
##        #  #  $  #\
##   ###  #  $  ####\
########  #  #     #\
####################\
; 64\
\
####################\
#     #     @#...###\
#     #      ##...##\
# # # ##$## ## ....#\
#   $ #   $$$  ....#\
###$### $$  ### ##.#\
#     $  #    # ####\
#  $  #  ###  # #  #\
## #$##    $  $$   #\
#   $ ##   #  # #  #\
#     #    #  #    #\
####################\
; 65\
\
####################\
#     #  #...#@    #\
# #       ....#    #\
#  $  #   #....#   #\
# ##$#### ##....#  #\
# $   $  #  #...#  #\
# $$ #   #   # $$  #\
###  $$$#   $$  $  #\
# $  #  #    # $#  #\
#   $#  #       $  #\
#  #    #    #  #  #\
####################\
; 66\
\
####################\
#####@###.##...##  #\
#####$  ..#...#    #\
####    ......#  $ #\
###  $ #.....## # ##\
##  $$# #####  $ $ #\
## $# $    ##  $$  #\
##  #  #    # $  $ #\
##   $$ ### #$##   #\
## $#      $ $  $ ##\
###    #    #    ###\
####################\
; 67\
\
####################\
#@     #   #       #\
## ### ##  #### # ##\
#    # #  $$       #\
#  # # # $ # $ ## ##\
#     $ #  #$$ #   #\
#  ###  #      ## ##\
#..#.# $ #  $ #    #\
#..#.#  $ # ## $$  #\
#....##   $$  $  # #\
#.....##        #  #\
####################\
; 68\
\
####################\
#  #      #   #   ##\
# $# $ $ ##...$  $ #\
#  $  # ##....# $  #\
# ## $ ##....#   $ #\
# $    #....## $   #\
# $##  #...#       #\
#   $$$##$##  ### ##\
# # #  #   #  #    #\
# $ #  $  ##       #\
#    #    #@       #\
####################\
; 69\
\
####################\
#  #  # #    #  #  #\
#   $      $ $     #\
## #  #$###$##  ## #\
#   $     $  #  $  #\
# ###$##$#   # $   #\
# #   $ $  ###### $#\
# $  $$ $  #@#.#...#\
# #     #  # #.#...#\
# ########## #.....#\
#            #.....#\
####################\
; 70\
\
####################\
#  #     #  ##    ##\
# $#   $ #     ##  #\
# $  $  #..#     $ #\
# $ $  #....#   # ##\
# $#  #......### $ #\
#   #  #....#  #$  #\
# $  ####..#   #   #\
## $   ## # # $  $##\
### $    $#@$ $#   #\
####   #       #   #\
####################\
; 71\
\
####################\
#      ....#    ####\
#      ....        #\
# # ##########     #\
# #$   #      ###..#\
#  $   #$$###   #..#\
# $ ### $   $   #..#\
# $ #   $ $ #  ##..#\
#  #  $$ # $ ##   ##\
#@## $#  $  $     ##\
##       ##   #  ###\
####################\
; 72\
\
####################\
#        #   #@ #  #\
# $$  #$$# # #  ## #\
#  # $ $ #$$ #     #\
## #  #  # # #  #  #\
#   ##       #     #\
#   # $ #   #   #  #\
# $ #$ #   #  $ #..#\
##$ #  ####    #...#\
#  $          #....#\
#   #  #     #.....#\
####################\
; 73\
\
####################\
#     #   #####    #\
## $  #   ####  $  #\
#### $$   #..#  #  #\
#  $  $  ##..#### ##\
# $   ###....   $$ #\
#  #$#   ....# # $ #\
# #  # $ ..###$#   #\
# #   $ #..#   ##  #\
#   $#  ####   # $##\
# #  #    @#      ##\
####################\
; 74\
\
####################\
#   #   #    #   #@#\
#   $  $     # $ # #\
##$# $### #    $$# #\
#  #  #.###  #$ $  #\
#  #$#....#  # ### #\
# $  #.....##    # #\
##$  #.#....#$$ $  #\
#  ######..## #  # #\
#  $         $ ### #\
#   #   #        # #\
####################\
; 75\
\
####################\
# # # #   #@##   # #\
#             $    #\
#  ##$# ##### $ # ##\
##    ##.....#  #  #\
##$##$#.....###$#$ #\
#   # ##.....#  # ##\
#  $    ##..##  #  #\
# $ #   $   $  $$$ #\
## $  $# #  #  $   #\
#   ##   #  #      #\
####################\
; 76\
\
######  #####\
#    #  #   #\
# $  #### $ #\
# $      $  #\
#  ###@###$ #\
########## ###\
#..   ##     #\
#..   ##$    #\
#..   ## $   #\
#..   ## $   #\
#..     $ $  #\
###  #########\
  ####\
; 77\
\
       ###########\
       #         #\
       #    $ $  #\
###### # $ ##### #\
#    ##### $  ##$#\
#       $ $      #\
#          ## ## #\
#    ##@##### ## #\
#    ####   # ## ##\
#....#      # $   #\
#....#      #     #\
######      #######\
; 78\
\
#############\
#           #\
# ### $$    #\
#   # $  $  #\
#  $####$######\
# $ ##        #####\
#  $$ $        ...#\
### ## $$#     ...#\
  # ##   #     ...#\
  #      #     ...#\
  ###@#############\
    ###\
; 79\
\
  #################\
###@##         ...#\
#    #         ...#\
# $  #         ...#\
# $$ #         ...#\
## $ ###$##########\
 # ###  $ #\
##   $  $ #\
#  $ #  $ #\
# $  #    #\
#  $ #    #\
#    #    #\
###########\
; 80\
\
              #####\
     ##########   #\
     #        #   #\
     #  $ $    $$ #\
     # ##### ## $ #\
     #$$   #$## $ #\
     # ### # ##$  #\
###### ### $ $    #\
#....        ##   #\
#....        ######\
#....        #\
###########@##\
          ###\
; 81\
\
    ######\
 ####    #\
 #    ## #\
 # $     #\
### #### ########\
#  $   $ ##  ...#\
#   $$ $$    ...#\
#    $  $##  ...#\
##@## ## ##  ...#\
 ###  $  ########\
 #   $$  #\
 #    #  #\
 #########\
; 82\
\
####### #########\
#     # #   ##  #\
# ### # #   $   #\
# # $ ###   $   #\
#   $$      ##$ #\
#    ####   ##  #\
#@############ ##\
###..    #####$ #\
  #..    ####   #\
  #..       $$  #\
  #..    #### $ #\
  #..    #  #   #\
  ########  #####\
; 83\
\
#######\
#     ##########\
#     #    #  ##\
# $   #   $ $  #\
#  $  #  $ ##  #\
# $$  ##$ $    #\
## #  ## #######\
## #  ##    ...#\
#  #$       ...#\
#   $$      ...#\
#     ##@#  ...#\
################\
; 84\
\
############\
#      #   ##\
# $  $   #  ######\
####  #####      #\
 #..  #     #### #\
 #.####  ####    #\
 #....    #  $ ####\
 # ...#   # $$$#  ##\
###.#### ##  $@$   #\
#     ##### $ #    #\
# #.# $      $###$ #\
# #.########  #  $ #\
# #..        ##  $ #\
# # ####### $ # #  #\
#   #     #       ##\
#####     ##########\
; 85\
\
################\
#       #@ #   #\
# # # # # $  $$#\
# #...# #$$$   #\
#  ...# # $  $$##\
# ##.## # ##    #\
# #...     $    #\
# ## ###  #######\
#    # ####\
######\
; 86\
\
    #####\
 ####   ## #####\
 #  $    ###   #\
 # $@$ $    $  #\
 # #$######## ##\
 # #  $  #     #\
 # # $ $ # #   #\
## #  $# # #####\
#  ##    #     #\
#    $ # ###   #\
##### ##  #....#\
#    $     ....#\
#         #....#\
################\
; 87\
\
#############\
#........####\
#...#### #  #####\
#...#  ###    $ #\
#...$$     $ $  #\
#  .#  $ $# $  ##\
#...# #$#   $  #\
#.# # $   $    #\
#.  #$###$####$#\
##  #   $ $    #\
 #  #  $@$  #  #\
 #  # #### $  $#\
 #  #    ###   #\
 #  # $$ # #####\
 #  #    #\
 #########\
; 88\
\
 ##################\
 #   $       ...#.##\
 #       ####..... #\
 # #######  #..... #\
 # #    $ $ ##....##\
 # #  $ # # ###...#\
 # # $@$ $  ##### #\
## #  $  $ $$   $ #\
#  #$# $#   # $## #\
# ##    ## ## $ # #\
# # $# $ $  #     #\
# #         #######\
# ########$##   #\
#        #  $   #\
########    #####\
       ###  #\
         ####\
; 89\
\
####################\
#..#    #          #\
#.$  $  #$$  $## $##\
#.$#  ###  ## ##   #\
#  # $ #  $$   $   #\
# ###  # #  #$  ####\
#  ## # $   #@ #   #\
# $    $  ##.##  $ #\
#  # $# $# $     ###\
#  #  #  #   ###   #\
#  ######## #      #\
#           #  #.#.#\
##$########$#   ...#\
#    .*  #    ##.#.#\
# .*...*   $  .....#\
####################\
; 90\
",
  diskmaker = "local args = {...}\
side = args[1]\
label = args[2]\
folder = args[3]\
\
shell.run(\"clear\")\
textutils.slowPrint(\"Disk Writer\")\
while true do\
  local event = os.pullEvent(\"disk\")\
  if disk.hasData(side) then\
    if fs.isDir(folder) then\
      local tFiles = fs.list(folder)\
      for i,v in pairs(tFiles) do\
        --print(v)\
        fs.copy(folder..\"/\"..v,\"disk/\"..v)\
      end\
      disk.setLabel(side, label)\
      disk.eject(side)\
    end\
  else\
    print(\"Incorrect disk type!\")\
    disk.eject(\"top\")\
    disk.eject(\"bottom\")\
    disk.eject(\"left\")\
    disk.eject(\"right\")\
    disk.eject(\"back\")\
    disk.eject(\"front\")\
  end\
end",
  [ "redcast/files/lang/it" ] = "-- Italian - Italiano\
-- Language File by Ale2610 - File lingua da Ale2610\
\
return {\
  start = {\
    welcome = \"Benvenuto in RedCast.\",\
    revolution = \"La console rivoluzionaria.\",\
    setup = \"Premi DEL per entrare nella configurazione.\",\
    free = \"Hai %free% bytes rimasti.\"\
  },\
  disk = {\
    detect = \"Disco individuato.\",\
    media = \"Disco media individuato.\",\
    playquestion = \"Vorresti ascoltare una canzone?\",\
    play = \"In ascolto: %title%\"\
  },\
  gui = {\
    advancedonly = \"Questa interfaccia utente non supporta i computer preistorici.\",\
    menu = {\
      restart = \"Riavvia\",\
      shutdown = \"Spegni\",\
      chatmanager = \"Chat\",\
      paint = \"Paint\",\
      redspace = \"RedSpace\",\
      floppy = \"Floppy\",\
      credits = \"Crediti\"\
    },\
    paint = {\
      open = \"Inserisci il nome del nuovo/esistente file: \"\
    },\
    redspace = {\
      id = \"Inserisci ID Server: \"\
    }\
  }\
}",
  [ "bankvault/startgame" ] = "--[[\
    Bank Vault\
    \
    Based on Sokoban, by Hiroyuki Imabayashi\
    Get the money into the storage spots in as few moves as possible!\
    \
    Written by: Nitrogen Fingers\
]]--\
\
local version = 1.0\
local reponame = \"Bank Vault\"\
local requiresColour = true\
if requiresColour then\
    print(\"This game can only be played on an Advanced Computer.\")\
end\
\
local function displayNitrosoftTitle()\
    shell.run(\"clear\")\
    local _w,_h = term.getSize()\
    local _t1,_t2 = \"nitrosoft\", \"games\"\
    term.setCursorPos(math.floor(_w/2-#_t1), math.floor(_h/2))\
    if term.isColour() then term.setTextColour(colours.blue) end\
    term.write(_t1)\
    term.setCursorPos(math.floor(_w/2-#_t2/2),math.floor(_h/2)+1)\
    term.setTextColour(colours.white)\
    term.write(_t2)\
    term.setCursorPos(math.floor(_w/2-#_t1), math.floor(_h/2)+2)\
    if term.isColour() then term.setTextColour(colours.red) end\
    term.write(string.rep(\"-\",#_t1*2))\
    if term.isColour() then\
        term.setTextColour(colours.orange)\
        term.setBackgroundColour(colours.yellow)\
        term.setCursorPos(_w/2+#_t1-4, math.floor(_h/2)-2)\
        term.write(\"LL\")\
        term.setCursorPos(_w/2+#_t1-4, math.floor(_h/2)-1)\
        term.write(\"LL\")\
        term.setBackgroundColour(colours.brown)\
        term.setCursorPos(_w/2+#_t1-3, math.floor(_h/2)-1)\
        term.write(\"  \")\
        term.setCursorPos(_w/2+#_t1-3, math.floor(_h/2))\
        term.write(\"  \")\
    end\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    term.setCursorPos(1,_h)\
    term.write(\"v\"..version)\
    os.pullEvent(\"key\")\
end\
displayNitrosoftTitle()\
\
local w,h = term.getSize()\
\
local levels = {}\
\
local mapcopy = nil\
local px,py = 0,0\
local movestack = {}\
\
local inLevel = false\
local playing = true\
local beginnerMode = false\
\
local inMainMenu = false\
\
local pack = \"Boxxle1.txt\"\
\
local style = {\
    [\"#\"] = {\
        bg = colours.brown;\
        char = \" \";\
    };\
    [\"@\"] = {\
        fg = colours.red;\
        char = \"&\";\
    };\
    [\"!\"] = {\
        bg = colours.yellow;\
        fg = colours.red;\
        char = \"&\";\
    };\
    [\"$\"] = {\
        fg = colours.black;\
        char = \"$\";\
    };\
    [\"*\"] = {\
        bg = colours.yellow;\
        fg = colours.black;\
        char = \"$\";\
    };\
    [\".\"] = {\
        bg = colours.yellow;\
        fg = colours.orange;\
        char = \"L\";\
    };\
    bg = colours.lightGrey;\
    outside = colours.grey;\
}\
mainLevel = {\
    \"#########################\";\
    \"#              ##       #\";\
    \"#              #.       ##\";\
    \"#              ##    #   #\";\
    \"#              #.  $  @  #\";\
    \"##             ##    #   #\";\
    \" #             #.        #\";\
    \" #           ####        #\";\
    \" ######      #.      #####\";\
    \"      ################\";\
    width = 26;\
    height = 10;\
    title = \"Main Menu\";\
}\
for y=1,#mainLevel do\
    local str = mainLevel[y]\
    mainLevel[y] = {}\
    for i=1,#str do\
        mainLevel[y][i] = string.sub(str,i,i)\
    end\
end\
\
local menuOptions = { \"Load Pack\", \"Choose Level\", \"Help\", \"Quit\" }\
\
local function drawTile(x, y, tile)\
    if not tile then \
        tile = mapcopy[y][x] \
        if px == x and py == y then\
            if tile == \" \" then tile = \"@\"\
            else tile = \"!\" end\
        end\
        x = x + mapcopy.doffx - 1\
        y = y + mapcopy.doffy - 1\
    end\
    if style[tile].bg then\
        term.setBackgroundColour(style[tile].bg)\
    else term.setBackgroundColour(style.bg) end\
    if style[tile].fg then\
        term.setTextColour(style[tile].fg)\
    end\
    term.setCursorPos(x,y)\
    term.write(style[tile].char)\
end\
\
local function drawSpace(x, y, map, knowninside)\
    if map[y][x] == \".\" then\
        drawTile(x,y)\
        return\
    end\
\
    local outside = true\
    \
    if not knowninside then\
        for a = x-1,1,-1 do\
            if map[y][a] ~= \" \" then\
                outside = false\
                break\
            end\
        end\
        if not outside then\
            outside = true\
            for a = x+1,#map[y],1 do\
                if map[y][a] ~= \" \" then\
                    outside = false\
                    break\
                end\
            end \
        end\
        if not outside then \
            outside = true\
            for a = y-1,1,-1 do\
                if map[a][x] and map[a][x] ~= \" \" then\
                    outside = false\
                    break\
                end\
            end \
        end\
        if not outside then \
            outside = true\
            for a = y+1,#map,1 do\
                if map[a][x] and map[a][x] ~= \" \" then\
                    outside = false\
                    break\
                end\
            end \
        end\
    else\
        outside = false\
    end\
    \
    if outside then\
        term.setBackgroundColour(style.outside)\
    else\
        term.setBackgroundColour(style.bg)\
    end\
    term.setCursorPos(map.doffx + x - 1, map.doffy + y - 1)\
    term.write(\" \")\
end\
\
local function createMapCopy(map)\
\
    mapcopy = { \
        title = map.title,\
        width = map.width, \
        height = map.height,\
        doffx = math.ceil(w/2 - map.width/2),\
        doffy = math.ceil(h/2 - map.height/2) + 1;\
    }\
    for y=1,#map do\
        mapcopy[y] = {}\
        for x=1,#map[y] do\
            if map[y][x] == \"@\" then\
                mapcopy[y][x] = \" \"\
                px = x\
                py = y\
            else\
                mapcopy[y][x] = map[y][x]\
            end\
        end\
    end\
end\
\
local function drawBanner(complete)\
    local title = nil\
    term.setBackgroundColour(style[\"#\"].bg)\
    term.setTextColour(style[\".\"].bg)\
    if inMainMenu then\
        title = \"  Bank Vault  \"\
        term.setCursorPos(w/2-#title/2,3)\
        term.write(title)\
        title = \"  By Nitrogen Fingers  \"\
        term.setCursorPos(w/2-#title/2,h-2)\
        term.write(title)\
    else\
        if complete then\
            title = \"  Level complete! Press a key to continue  \"  \
        else\
            title = \"  \"..pack..\": \\\"\"..mapcopy.title..\"\\\"  \"\
        end\
        term.setCursorPos(w/2-#title/2,1)\
        term.write(title)\
    end\
end\
\
local function updateTurnCounter()\
    term.setCursorPos(1,h)\
    term.setBackgroundColour(style[\"#\"].bg)\
    term.setTextColour(style[\".\"].bg)\
    local turns = tostring(#movestack)\
    term.write(\" Moves: \"..turns..string.rep(\" \",4-#turns))\
end\
\
local function drawMap(map)\
    term.setBackgroundColour(style.outside)\
    term.clear()\
    for y,l in ipairs(map) do\
        for x,t in ipairs(l) do\
            if px == x and py == y then \
                drawTile(x,y)\
            elseif t == \" \" then \
                drawSpace(x,y,map,false)\
            else drawTile(map.doffx + x - 1, map.doffy + y - 1, t) end\
        end\
    end\
end\
\
local function parseMap(filename)\
    local path = \"/levels/\"..filename\
    if not fs.exists(path) then return false end\
    local f = fs.open(path, \"r\")\
    \
    levels = {}\
    local lastmap = { width = 0}\
    local line = f:readLine()\
    while line do\
        if string.sub(line, 1, 1) == \";\" then\
            if #lastmap > 0 then\
                lastmap.height = #lastmap\
                lastmap.title = string.sub(line, 3, #line)\
                lastmap.doffx = math.ceil(w/2 - lastmap.width/2)\
                lastmap.doffy = math.ceil(h/2 - lastmap.height/2) + 1\
                table.insert(levels, lastmap)\
                lastmap = { width = 0 }\
            end\
        elseif #line > 0 then\
            lastmap[#lastmap+1] = {}\
            for i=1,#line do\
                local char = string.sub(line,i,i)\
                lastmap[#lastmap][i] = char\
                lastmap.width = math.max(lastmap.width, #lastmap[#lastmap])\
            end\
        end\
        line = f:readLine()\
    end\
    f:close()\
end\
\
--Prepares an undo\
local function pushMoveStack(xd,yd,push)\
    table.insert(movestack, { xd = xd, yd = yd, push = push })\
end\
\
--Performs an undo\
local function popMoveStack()\
    if #movestack == 0 then return end\
    local ox,oy = px,py\
    local last = movestack[#movestack]\
    table.remove(movestack, #movestack)\
    if last.push then\
        local tt = mapcopy[py][px]\
        local nt = mapcopy[py+last.yd][px+last.xd]\
        if nt == \"$\" then\
            mapcopy[py+last.yd][px+last.xd] = \" \"\
        elseif nt == \"*\" then\
            mapcopy[py+last.yd][px+last.xd] = \".\"\
        end\
        drawSpace(px+last.xd,py+last.yd,mapcopy,true)\
        if tt == \" \" then mapcopy[py][px] = \"$\"\
        else mapcopy[py][px] = \"*\" end\
    end\
    px = px - last.xd\
    py = py - last.yd\
    drawTile(px,py)\
    if not last.push then\
        drawSpace(ox,oy,mapcopy,true)\
    else\
        drawTile(ox,oy)\
    end\
end\
\
local function space(tile)\
    return tile == \" \" or tile == \".\"\
end\
\
--For beginners. It stops them from rolling $ into _ corners.\
local function tileSafe(x,y)\
    local xwall = not space(mapcopy[y][x-1]) or not space(mapcopy[y][x+1])\
    local ywall = not space(mapcopy[y-1][x]) or not space(mapcopy[y+1][x])\
    return not (xwall and ywall)\
end\
\
local function checkComplete(map)\
    for y=1,#map do\
        for x=1,#map[y] do\
            if map[y][x] == \"$\" then return true end\
        end\
    end\
    return false\
end\
\
local function makeMove(xd,yd)\
    local ox,oy= px,py\
    local nt = mapcopy[py+yd][px+xd]\
    if nt == \" \" or nt == \".\" then\
        py = py + yd\
        px = px + xd\
        drawSpace(ox,oy,mapcopy,true)\
        drawTile(px,py)\
        pushMoveStack(xd,yd,false)\
    elseif nt == \"$\" or nt == \"*\" then\
        local nnt = mapcopy[py+yd+yd][px+xd+xd]\
        if nnt == \" \" and (not beginnerMode or tileSafe(py+yd+yd,px+xd+xd)) then\
            py = py + yd\
            px = px + xd\
            mapcopy[py+yd][px+xd] = \"$\"\
            if nt == \"$\" then mapcopy[py][px] = \" \"\
            else mapcopy[py][px] = \".\" end\
            drawSpace(ox,oy,mapcopy,true)\
            drawTile(px,py)\
            drawTile(px+xd,py+yd)\
            pushMoveStack(xd,yd,true)\
        elseif nnt == \".\" then\
            py = py + yd\
            px = px + xd\
            mapcopy[py+yd][px+xd] = \"*\"\
            if nt == \"$\" then mapcopy[py][px] = \" \"\
            else mapcopy[py][px] = \".\" end\
            drawSpace(ox,oy,mapcopy,true)\
            drawTile(px,py)\
            drawTile(px+xd,py+yd)\
            pushMoveStack(xd,yd,true)\
            return checkComplete(mapcopy)\
        end\
    end\
    return true\
end\
\
local function runInput(key)\
    local gover = true\
    if key == keys.up then gover = makeMove(0,-1)\
    elseif key == keys.down then gover = makeMove(0,1)\
    elseif key == keys.left then gover = makeMove(-1,0)\
    elseif key == keys.right then gover = makeMove(1,0)\
    end\
    return gover\
end\
\
local function playLevel(i)\
    createMapCopy(levels[i])\
    movestack = {}\
    drawMap(mapcopy)\
    drawBanner(false)\
    updateTurnCounter()\
    inLevel = true\
    playing = true\
    while inLevel and playing do\
        local _,key = os.pullEvent(\"key\")\
        inLevel = runInput(key)\
        updateTurnCounter()\
        if key == keys.enter then playing = false\
        elseif key == keys.u then popMoveStack()\
            updateTurnCounter()\
        elseif key == keys.r then\
            createMapCopy(levels[i])\
            drawMap(mapcopy)\
            movestack = {}\
            drawBanner(false)\
            updateTurnCounter()\
        end\
    end\
    if not inLevel then\
        drawBanner(not inLevel)\
        os.pullEvent(\"key\")\
    end\
    return playing\
end\
\
local function wprintLeft(msg, height, width, offset)\
    local inc = 0\
    local ops = 1\
    while #msg - ops > width do\
        local nextspace = 0\
        while string.find(msg, \" \", ops + nextspace) and\
                string.find(msg, \" \", ops + nextspace) - ops < width do\
            nextspace = string.find(msg, \" \", nextspace + ops) + 1 - ops\
        end\
        if nextspace == 0 then nextspace = width end\
        local ox,oy = term.getCursorPos()\
        term.setCursorPos(offset, height + inc)\
        inc = inc + 1\
        term.write(string.sub(msg, ops, nextspace + ops - 1))\
        ops = ops + nextspace\
    end\
    term.setCursorPos(offset, height + inc)\
    term.write(string.sub(msg, ops))\
    return inc + 1\
end\
\
local function runHelpScreen()\
    term.setBackgroundColour(style.outside)\
    term.clear()\
    \
    for i = 1,14 do\
        term.setCursorPos(3, 3+i)\
        term.setBackgroundColour(style[\"#\"].bg)\
        if i==1 or i==14 then\
            term.write(string.rep(\" \", 45))\
        else\
            term.write(\" \")\
            term.setBackgroundColour(style.bg)\
            term.write(string.rep(\" \", 43))\
            term.setBackgroundColour(style[\"#\"].bg)\
            term.write(\" \")\
        end\
    end\
    \
    local _m1 = [[The goal of each level is to guide the warehouse keeper to push each bag of money into the empty spaces. Only when each space has bag in it is the level complete.]]\
    term.setBackgroundColour(style.bg)\
    local inc = wprintLeft(_m1,5,38,5)\
    \
    term.setCursorPos(5, 6 + inc)\
    term.write(\"Arrows: Move\")\
    term.setCursorPos(25, 6 + inc)\
    term.write(\"Enter: Quit Level\")\
    term.setCursorPos(5, 7 + inc)\
    term.write(\"U: Undo Move\")\
    term.setCursorPos(25, 7 + inc)\
    term.write(\"R: Restart Level\")\
    term.setCursorPos(8, 10 + inc)\
    term.write(\"Press enter to continue\")\
    \
    os.pullEvent(\"key\")\
end\
\
local function drawPackList(levelLot,sel)\
    term.setBackgroundColour(style.outside)\
    term.clear()\
    local minLev = ((levelLot-1) * 10 + 1)\
    local maxLev = minLev + math.min(10, #levelList - (levelLot-1) * 10) - 1\
    \
    term.setBackgroundColour(style[\"#\"].bg)\
    term.setTextColour(style[\".\"].bg)\
    term.setCursorPos(7, 2)\
    local msg = \"Levels \"..minLev..\" to \"..maxLev..\" of \"..#levelList\
    term.write(msg)\
    \
    term.setTextColour(colours.yellow)\
    term.setCursorPos(4, 2)\
    if levelLot > 1 then term.write(\"<- \")\
    else term.write(\"   \") end \
    \
    term.setCursorPos(7 + #msg, 2)\
    if maxLev < #levelList then term.write(\" ->\")\
    else term.write(\"  \") end\
    \
    for i = 1,12 do\
        term.setCursorPos(12, 3+i)\
        term.setBackgroundColour(style[\"#\"].bg)\
        if i==1 or i==12 then\
            term.write(string.rep(\" \", 25))\
        else\
            term.write(\" \")\
            term.setBackgroundColour(style.bg)\
            term.write(string.rep(\" \", 23))\
            term.setBackgroundColour(style[\"#\"].bg)\
            term.write(\" \")\
        end\
    end\
    \
    for i = 1,10 do\
        term.setBackgroundColour(style.bg)\
        term.setCursorPos(14, 5+i)\
        if i + (levelLot-1)*10 - 1 < maxLev then\
            if i == sel then \
                term.setTextColour(style[\".\"].bg)\
                term.write(\"$ \")\
            else \
                term.setTextColour(colours.black)\
                term.write(\"  \") \
            end\
            term.write(levelList[10 * (levelLot-1) + i])\
        end\
        \
    end\
end\
\
local function runPackList()\
    local levelLot, sel = 1,1\
    drawPackList(levelLot,sel)\
    while true do\
        local _,key = os.pullEvent(\"key\")\
        if key == keys.up and sel > 1 then\
            sel = sel - 1\
        elseif key == keys.down and sel < math.min(10,#levelList-(levelLot-1)*10) then\
            sel = sel + 1\
        elseif key == keys.left and levelLot > 1 then\
            levelLot = levelLot - 1\
            sel = 1\
        elseif key == keys.right and levelLot < math.floor(#levelList/10) then\
            levelLot = levelLot + 1\
            sel = 1\
        elseif key == keys.enter then\
            pack = levelList[(levelLot-1)*10 + sel]\
            parseMap(pack)\
            break\
        end\
        drawPackList(levelLot,sel)\
    end\
end\
\
local function runMenu()\
    inMainMenu = true\
    createMapCopy(mainLevel)\
    movestack = {}\
    drawMap(mapcopy)\
    drawBanner()\
    term.setBackgroundColour(style.bg)\
    term.setTextColour(style[\"$\"].fg)\
    for y=1,#menuOptions do\
        local msg = menuOptions[y]\
        if y==#menuOptions then\
            term.setCursorPos(26-#msg, y*2 + 6)\
        else\
            term.setCursorPos(28-#msg, y*2 + 6)\
        end\
        term.write(msg)\
    end\
    \
    \
    while inMainMenu do \
        local _,key = os.pullEvent(\"key\")\
        inMainMenu = runInput(key)\
        if key == keys.u then popMoveStack()\
        elseif key == keys.r then\
            createMapCopy(mainLevel)\
            drawMap(mapcopy)\
            movestack = {}\
            drawBanner()\
            term.setBackgroundColour(style.bg)\
            term.setTextColour(style[\"$\"].fg)\
            for y=1,#menuOptions do\
                local msg = menuOptions[y]\
                term.setCursorPos(28-#msg, y*2 + 6)\
                term.write(msg)\
            end\
        end\
    end\
    if mapcopy[3][17] == \"*\" then\
        return 1\
    elseif mapcopy[5][17] == \"*\" then\
        return 2\
    elseif mapcopy[7][17] == \"*\" then\
        return 3\
    else\
        return 4\
    end\
end\
\
local function runLevelSelect()\
    local currLevel = 1\
    local selection = false\
    repeat\
        drawMap(levels[currLevel])\
        local msg = pack..\" level \"..currLevel..\"/\"..#levels..\": \"..levels[currLevel].title\
        term.setCursorPos(w/2-#msg/2,2)\
        term.setBackgroundColour(colours.brown)\
        term.setTextColour(colours.yellow)\
        term.write(msg)\
        msg = \"Arrows to change, enter to select, Q to go back\"\
        term.setCursorPos(w/2-#msg/2,h-1)\
        \
        local _,key = os.pullEvent(\"key\")\
        \
        if (key == keys.right or key == keys.down) and currLevel < #levels then\
            currLevel = currLevel + 1\
        elseif (key == keys.left or key == keys.up) and currLevel > 1 then\
            currLevel = currLevel - 1\
        elseif key == keys.enter then\
            return currLevel\
        elseif key == keys.q then\
            return #levels+1\
        end\
    until selection == true\
end\
\
if not fs.exists(shell.resolve(\".\")..\"/levels\") then\
    error(\"Level directory not present!\")\
end\
levelList = fs.list(shell.resolve(\".\")..\"/levels\")\
if #levelList == 0 then\
    error(\"Level directory is empty!\")\
end\
if fs.exists(shell.resolve(\".\")..\"/levels/Original.txt\") then\
    pack = \"Original.txt\"\
else\
    pack = levelList[1]\
end\
parseMap(pack)\
\
local val = 0\
repeat\
    val = runMenu()\
    if val == 1 then\
        runPackList()\
    elseif val == 2 then \
        lev = runLevelSelect()\
        for i=lev,#levels do\
            if not playLevel(i) then break end\
        end\
    elseif val == 3 then\
        runHelpScreen()\
    end\
until val == 4\
term.setBackgroundColour(colours.black)\
term.setTextColour(colours.white)\
shell.run(\"clear\")\
\
print(\"Want more levels? Visit http://www.sourcecode.se/sokoban/levels\")",
  [ "goldrunner/levels/classic_011" ] = "bbbbbbbbbb       5                    bbbbbbbbbb\
bbbbbbbbbb e4    c                 4e bbbbbbbbbb\
bbbbbbbbbbcbbe4  c               4ebbcbbbbbbbbbb\
bbbbbbbbbbc  bb  cbbbb8cbbbbbc   bb  cbbbbbbbbbb\
bbbbbbbbbbc           cc4    c       cbbbbbbbbbb\
bbbbbbbbbbc           4cc    c       cbbbbbbbbbb\
bbbbbbbbbbc           cc4            cbbbbbbbbbb\
bbbbbbbbbbc           4cc            cbbbbbbbbbb\
bbbbbbbbbbc           cc4            cbbbbbbbbbb\
bbbbbbbbbbc           4cc            cbbbbbbbbbb\
bbbbbbbbbbc           cc4            cbbbbbbbbbb\
bbbbbbbbbbc           4cc            cbbbbbbbbbb\
bbbbbbbbbbc           cc4            cbbbbbbbbbb\
bbbbbbbbbbc           4cc            cbbbbbbbbbb\
bbbbbbbbbbc       0   cc4            cbbbbbbbbbb\
bbbbbbbbbbc    cbbbbbbbbbbbbbbbbc    cbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "laserblast/startgame" ] = "--  LaserBlast\
--       By NitrogenFingers\
\
local w,h = term.getSize()\
local plpos = math.floor(w/2)\
\
--music stuff\
local minterval = 1\
local mtimer = 1\
local left = false\
\
local level = 1\
local score = 0\
local gameover=false\
local killc = 0\
\
--x,y,dir\
local projlist = {}\
--x,y,intvspeed,dtimer\
local baddylist = {}\
local btimer = 0\
local bintv = 1\
local utime = 0.05\
local bsmp = 6\
local powerup = 0\
\
--Landscape and stars\
local stars = {}\
for i=1,math.random()*10+10 do\
  stars[i] = { x = math.ceil(math.random()*w),\
    y = math.ceil(math.random() * h-8) }\
end\
local landscape = {\
  [6]=\"                       _____________              \";\
  [5]=\"          _______     /             \\\\_____        \";\
  [4]=\"         /       \\\\___/____                \\\\_________\";\
  [3]=\"        /                 \\\\                      \";\
  [2]=\"       /                   \\\\_________               \";\
  [1]=\"______/                              \\\\______________\";\
}\
\
function drawHeader()\
  if term.isColour() then term.setTextColour(colours.white) end\
  term.setCursorPos(5, 1)\
  term.write(\"Score: \"..score)\
  if score~=0 then term.write(\"00\") end\
  local lstr = \"Level: \"..level\
  term.setCursorPos(w-#lstr-5,1)\
  term.write(lstr)\
  \
  if powerup > 0 then\
    local pstr = \"POWERUP\"\
    term.setCursorPos(w/2 - #pstr/2,1)\
    if term.isColour() then term.setTextColour(colours.cyan) end\
    term.write(pstr)\
  end\
end\
\
function drawPlayer()\
  if term.isColour() then term.setTextColour(colours.white) end\
  term.setCursorPos(plpos-1, h-1)\
  term.write(\"@@@\")\
end\
\
function drawProjectile(proj)\
  if term.isColour() then term.setTextColour(colours.red) end\
  term.setCursorPos(proj.x, proj.y)\
  term.write(\"|\")\
end\
\
function drawVacance(x,y)\
  term.setCursorPos(x, y)\
  for _,baddy in pairs(baddylist) do\
    if baddy.x == x and baddy.y == y and baddy.dtimer > 0 then\
      drawBaddie(baddy)\
      return\
    end\
  end\
  \
  if y >= h-8 and y <= h-3 then\
    if term.isColour() then term.setTextColour(colours.lime) end\
    term.write(string.sub(landscape[h - y - 2], x, x))\
  elseif y < h-8 then\
    for i=1,#stars do\
      if x == stars[i].x and y == stars[i].y then \
        if term.isColour() then term.setTextColour(colours.yellow) end\
        term.write(\".\")\
        return\
      end\
    end\
    term.write(\" \")\
  else\
    term.write(\" \")\
  end\
end\
\
function drawBaddie(baddy)\
  term.setCursorPos(baddy.x, baddy.y)\
    if baddy.dtimer==0 then\
      if baddy.pup then \
        if term.isColour() then term.setTextColour(colours.blue) end\
        term.write(\"P\")\
      elseif baddy.frag then\
        if term.isColour() then term.setTextColour(colours.brown) end\
        term.write(\"*\")\
      else \
        if term.isColour() then term.setTextColour(colours.brown) end\
        term.write(\"O\") \
      end\
    else\
      if term.isColour() then term.setTextColour(colours.orange) end\
      term.write(\"#\")\
    end\
end\
\
--This now only needs to be called once. Awesome!\
function drawWorld()\
  drawLandscape()\
  drawPlayer()\
  drawHeader()\
end\
\
function drawLandscape()\
  if term.isColour() then\
    term.setTextColour(colours.yellow)\
  end\
  for i=1,#stars do\
    term.setCursorPos(stars[i].x, stars[i].y)\
    term.write(\".\")\
  end\
  \
  term.setCursorPos(1,h)\
  local land = string.rep(\"-\", w)\
  if term.isColour() then\
    term.setTextColour(colours.green)\
  end\
  term.write(land)\
  if term.isColour() then\
    term.setTextColour(colours.lime)\
  end\
  \
  for y,line in ipairs(landscape) do\
    term.setCursorPos(1,h-y-2)\
    term.write(line)\
  end\
end\
\
function updateWorld()\
  --The music stuff  \
  redstone.setOutput(\"back\", false)\
  mtimer=mtimer-utime\
  if mtimer<=0 then\
    mtimer = minterval\
    if left then\
      redstone.setOutput(\"left\", true)\
      redstone.setOutput(\"right\", false)\
    else\
      redstone.setOutput(\"left\", false)\
      redstone.setOutput(\"right\", true)\
    end\
    left = not left\
  end\
\
  local i=1\
  while i<=#projlist do\
    drawVacance(projlist[i].x, projlist[i].y)\
    projlist[i].y = projlist[i].y+projlist[i].dir\
    if projlist[i].y <= 1 or projlist[i].y > h-1 then\
      table.remove(projlist,i)\
      i=i-1\
    else drawProjectile(projlist[i]) end\
    i=i+1\
  end\
  i=1\
  while i<=#baddylist do\
    local baddy = baddylist[i]\
    baddy.timer=baddy.timer+utime\
\
    if baddy.y==h-1 and math.abs(baddy.x-plpos)<2 then\
      if baddy.pup then\
        powerup = 10\
        drawPlayer()\
      else\
        gameover = true \
        redstone.setOutput(\"back\", true)\
      end\
    end\
\
    j=1\
    while j<=#projlist do\
      local proj = projlist[j]\
      if baddy.x==proj.x and math.abs(baddy.y-proj.y)<2\
      and baddy.dtimer==0 then\
        baddy.dtimer = 0.5\
        drawBaddie(baddy)\
        drawVacance(projlist[j].x, projlist[j].y)\
        table.remove(projlist,j)\
        j=j-1\
        score=score+5\
        redstone.setOutput(\"back\", true)\
        killc=killc+1\
        if killc>5+(level*5) and level<10 then levelUp() end\
        drawHeader()\
\
        --Adds fragments\
        if math.random(1, 5) == 2 and not baddy.frag then\
          table.insert(baddylist, {\
            x = baddy.x-1,\
            y = baddy.y,\
            pup = false,\
            frag = true,\
            timer = 0,\
            dtimer = 0,\
            speed = baddy.speed/2\
          })\
          drawBaddie(baddylist[#baddylist])\
          table.insert(baddylist, {\
            x = baddy.x+1,\
            y = baddy.y,\
            pup = false,\
            frag = true,\
            timer = 0,\
            dtimer = 0,\
            speed = baddy.speed/2\
          })\
          drawBaddie(baddylist[#baddylist])\
        end\
      end\
      j=j+1\
    end\
\
    if baddy.timer>baddy.speed and baddy.dtimer==0 then\
      drawVacance(baddy.x, baddy.y)\
      baddy.y=baddy.y+1\
      if baddy.y==h then\
        table.remove(baddylist,i)\
        i=i-1\
        score=score-1\
        drawHeader()\
      else\
        drawBaddie(baddy)\
        baddy.timer = 0\
      end\
    elseif baddy.dtimer>0 then\
      baddy.dtimer=baddy.dtimer-utime\
      if baddy.dtimer<=0 then\
        drawVacance(baddy.x, baddy.y)\
        table.remove(baddylist,i)\
        i=i-1\
      end\
    end    \
    i=i+1\
  end  \
  btimer=btimer+utime\
  if btimer > bintv then\
    table.insert(baddylist, {\
      x = math.random(w/4, 3*(w/4)),\
      y = 2,\
      speed = utime*bsmp,\
      timer = 0,\
      dtimer = 0,\
      pup = math.random(1,20)==5,\
      frag = false\
    })\
    drawBaddie(baddylist[#baddylist])\
    btimer=0\
  end\
end\
\
function levelUp()\
  level=level+1\
  bintv=bintv-0.10\
  bsmp=bsmp-0.5\
  killc=0\
  minterval=minterval-0.10\
end\
\
function updatePlayer(key)\
  if powerup>0 then\
    powerup = powerup-utime\
  end\
\
  if key==203 and plpos>1 then\
    term.setCursorPos(plpos+1,h-1)\
    term.write(\" \")\
    plpos=plpos-1\
    drawPlayer()\
  elseif key==205 and plpos<w then\
    term.setCursorPos(plpos-1,h-1)\
    term.write(\" \")\
    plpos=plpos+1\
    drawPlayer()\
  elseif key==57 then\
    if powerup>0 then\
      table.insert(projlist, {\
        dir = -1,\
        x = plpos+1,\
        y = h-2\
      })\
      drawProjectile(projlist[#projlist])\
      table.insert(projlist, {\
        dir = -1,\
        x = plpos-1,\
        y = h-2\
      })\
      drawProjectile(projlist[#projlist])\
    else\
      table.insert(projlist, {\
        dir = -1,\
        x = plpos,\
        y = h-2\
      })\
      drawProjectile(projlist[#projlist])\
    end\
  end\
end\
\
term.setBackgroundColour(colours.black)\
term.clear()\
drawWorld()\
local wtimer os.startTimer(utime)\
while not gameover do\
  local e, v = os.pullEvent()\
\
  if e==\"timer\" then\
    updateWorld()\
    wtimer = os.startTimer(utime)\
  elseif e==\"key\" then\
    if v==28 then break end\
    updatePlayer(v)\
  end\
end\
\
term.setCursorPos(plpos-1, h-1)\
if term.isColour() then term.setTextColour(colours.red) end\
term.write(\"###\")\
local go = \"Game Over!\"\
term.setCursorPos(w/2 - #go/2, 10)\
if term.isColour() then term.setTextColour(colours.white) end\
term.write(go)\
term.setCursorPos(1,h)\
sleep(5)\
redstone.setOutput(\"back\", false)\
term.clear()",
  [ "goldrunner/levels/classic_006" ] = "bbbbbbbbbbbbbbbbbbbbbbbbbbbb5bbbbbbbbbbbbbbbbbbb\
bbbbbbbbbbb 4               8b e 4   bbbbbbbbbbb\
bbbbbbbbbbb1bbbcbbbbc   4   8bbbbbbbcbbbbbbbbbbb\
bbbbbbbbbbb1bbbcbbbbbbbbbbbbbb bbb  cbbbbbbbbbbb\
bbbbbbbbbbb    c  4 e     bbbb bbb  cbbbbbbbbbbb\
bbbbbbbbbbbcbbbbbbbbbcbbbbbbbb bbb  cbbbbbbbbbbb\
bbbbbbbbbbbc   bbbbbbcbbbbb44b bbb4 cbbbbbbbbbbb\
bbbbbbbbbbbc   bbbbbbcbbbbbbbbbbbbbbcbbbbbbbbbbb\
bbbbbbbbbbbc   b    4c    4  e   4 bcbbbbbbbbbbb\
bbbbbbbbbbbc   bbbcbbbbbbbcbbbbbbbcbcbbbbbbbbbbb\
bbbbbbbbbbbc  4bbbc       cbbbbbbbcbcbbbbbbbbbbb\
bbbbbbbbbbbcbb1b  c    0  c  bb   cbcbbbbbbbbbbb\
bbbbbbbbbbbcbb1bcbbbbbcbbbbbbbb44 cbcbbbbbbbbbbb\
bbbbbbbbbbbcbb1bcbbbbbcbbbbbb4bbbbbbcbbbbbbbbbbb\
bbbbbbbbbbbce   cbb4bbc    4  e     cbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "redcast/files/FloppyLoader" ] = "local w, h = term.getSize()\
local diskSide\
for i,v in pairs(peripheral.getNames()) do\
  if peripheral.getType(v) == \"drive\" then\
    diskSide = v\
  end\
end\
\
function clearScr()\
  term.clear()\
  term.setCursorPos(1,1)\
end\
\
function printCentered(string, y)\
  local x = (w/2)-(#string/2)\
  term.setCursorPos(x, y)\
  print(string)\
end\
\
function renderBase()\
  term.current().setVisible(false)\
  term.setBackgroundColour(colours.red)\
  term.setTextColour(colours.black)\
  clearScr()\
  term.setCursorPos(1,1)\
  term.setBackgroundColour(colours.white)\
  term.clearLine()\
  printCentered(\"RedCast Game Loader\", 1)\
  term.setCursorPos(w,1)\
  term.setTextColour(colours.red)\
  term.write(\"X\")\
  term.setBackgroundColour(colours.red)\
  term.setTextColour(colours.grey)\
  if disk.isPresent(diskSide) then\
    paintutils.drawPixel(w-1,1, colours.green)\
    term.setTextColour(colours.black)\
  end\
  term.setBackgroundColour(colours.red)\
  term.current().setVisible(true)\
end\
\
brunning = true\
while brunning do\
  renderBase()\
  term.setCursorPos(2,3)\
  print(\"Install\")\
  term.setCursorPos(2,4)\
  print(\"Play\")\
  --return\
  local t = os.startTimer(0.5)\
  local event, button, x, y = os.pullEvent()\
  if event == \"timer\" then\
    if button == t then\
      renderBase()\
    end\
  elseif event == \"mouse_click\" then\
    if x == w and y == 1 then\
      return\
    elseif x >= 2 and x <= 9 and y == 3 then\
      if disk.isPresent(diskSide) then\
        if fs.exists(\"disk/info\") then\
          local gameInfo = dofile(\"disk/info\")\
          fs.copy(\"disk/\"..gameInfo.sGameFile,\"games/\"..gameInfo.sName)\
          if fs.isDir(\"disk/apis\") then\
            local apiList = fs.list(\"disk/apis\")\
            for i,v in pairs(apiList) do\
              if not fs.exists(\"apis/\"..v) then\
                fs.copy(\"disk/apis/\"..v,\"apis/\"..v)\
              end\
            end\
          end\
          if gameInfo.bRequiresExtraFiles then\
            local extras = gameInfo.tExtraFiles\
            for i,v in pairs(extras) do\
              if fs.exists(\"disk/\"..v) then\
                if fs.isDir(\"disk/\"..v) then\
                  if not fs.isDir(v) then\
                    fs.makeDir(v)\
                  end\
                  local tempFiles = fs.list(\"disk/\"..v)\
                  for i,v2 in pairs(tempFiles) do\
                    if not fs.exists(v..\"/\"..v2) then\
                      fs.copy(\"disk/\"..v..\"/\"..v2,v..\"/\"..v2)\
                    end\
                  end\
                end\
                fs.copy(\"disk/\"..v,v)\
              end\
            end\
          end\
          term.clear()\
          term.setCursorPos(2,2)\
          term.write(\"Installed!\")\
          sleep(1)\
        else\
          term.clear()\
          term.setCursorPos(1,1)\
          print(\"There is a problem with your disk.\")\
          sleep(2)\
          return\
        end\
      end\
    elseif x >= 2 and x <= 6 and y == 4 then\
      if disk.isPresent(diskSide) then\
        if fs.exists(\"disk/info\") then\
          local gameInfo = dofile(\"disk/info\")\
          if fs.isDir(\"disk/apis\") then\
            local apiList = fs.list(\"disk/apis\")\
            for i,v in pairs(apiList) do\
              os.loadAPI(\"disk/apis/\"..v)\
            end\
          end\
          shell.run(\"disk/\"..gameInfo.sGameFile)\
        elseif fs.exists(\"disk/startgame\") then\
          shell.run(\"disk/startgame\")\
        else\
          term.clear()\
          term.setCursorPos(1,1)\
          print(\"There is a problem with your disk.\")\
          sleep(2)\
          return\
        end\
      end\
    end\
  end\
end",
  [ "highorlow/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"HighOrLow\",\
}",
  [ "highorlow/startgame" ] = "--[[\
High or low\
By Konlab\
\
]]\
--init\
local version = 1.0\
local w,h = term.getSize()\
--functions\
local function loadscreen()\
  term.setBackgroundColor(colors.orange)\
  term.setTextColor(colors.black)\
  term.clear()\
  local text = {\"High or Low\",\"By Konlab\",\"version: \"..version}\
  for i=1,#text do\
    term.setCursorPos(math.floor(w/2-#text[i]/2),math.floor(h/2-#text/2+i))\
    term.write(text[i])\
  end\
end\
local function cl()\
  term.setBackgroundColor(colors.orange)\
  term.setTextColor(colors.black)\
  term.clear()\
end\
local function dIntf(currentNumber,moneywon)\
    cl()\
    term.setBackgroundColor(colors.white)\
    term.setCursorPos(1,1)\
    term.clearLine()\
    term.setCursorPos(1,1)\
    term.write(\"High or Low\")\
    term.setCursorPos(w,1)\
    term.write(\"x\")\
    term.setCursorPos(1,h)\
    term.setBackgroundColor(colors.green)\
    term.write(\"High\")\
    term.setBackgroundColor(colors.red)\
    term.setCursorPos(w-2,h)\
    term.write(\"Low\")\
    term.setBackgroundColor(colors.orange)\
    term.setCursorPos(1,3)\
    term.write(\"Number range: 1-20\")\
    term.setCursorPos(1,5)\
    term.write(\"Current number: \"..currentNumber)\
    term.setCursorPos(1,h-1)\
    term.write(\"Probability: \"..(20-currentNumber)*5 ..\"% / \"..(currentNumber*5)..\"%\")\
    term.setCursorPos(1,h-2)\
    term.write(\"Money won: \"..moneywon)\
    term.setCursorPos(1,math.floor(h/2)-1)\
    term.write(\"v\")\
    term.setCursorPos(1,math.floor(h/2)+1)\
    term.write(\"^\")\
end\
local function animateNums(wonNumber)\
    for i=wonNumber,wonNumber+20 do\
        term.clearLine()\
        for j=0,math.floor(w/5) do\
          term.setCursorPos(1+j*math.floor(w/5),math.floor(h/2))\
            local k\
            if i+j > 20 then k = i+j - 20 else k = i+j end\
            term.write(k)\
        end\
        sleep(0.1)\
    end\
end\
local function calculate(prevNumber,moneywon,high)\
    local nextNumber = math.random(1,20)\
    animateNums(nextNumber)\
    if high == (nextNumber < prevNumber) then\
      moneywon = moneywon + nextNumber^2\
    else\
      moneywon = moneywon - moneywon/2\
    end\
    return nextNumber,moneywon\
end\
local function waitForActions(currentNumber,moneywon)\
  dIntf(currentNumber,moneywon)\
  local _,b,x,y = os.pullEvent(\"mouse_click\")\
  local high\
  if b == 1 and y == h then\
    if x < 5 then high = false print() elseif x > w-3 then high = true end\
        \
  end\
  if b == 1 and y == 1 and x == w then\
      term.setBackgroundColor(colors.black)\
      term.setTextColor(colors.white)\
      term.setCursorPos(1,1)\
      term.clear()\
      error(\"Bye\",0)\
    end\
  if type(high) == \"boolean\" then currentNumber,moneywon = calculate(currentNumber,moneywon,high) end\
    return currentNumber,moneywon\
end\
--main loop\
loadscreen()\
sleep(3)\
while true do\
    local moneywon = 0\
    local currentNumber = 10\
    while true do\
        currentNumber,moneywon = waitForActions(currentNumber,moneywon)\
        sleep(0.5)\
    end\
end",
  [ "tron/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"TRON\",\
}",
  [ "redcast/files/devconfig" ] = "local version = \"Version 0.5\"\
return {\
  bDevMode = false,\
  bBuildString = false,\
  sBuildString = \"RedCast Public Beta\",\
  sBackground = \".background\",\
  nBackColour = colours.white,\
  nTextColour = colours.black,\
  nMenuColour = colours.grey,\
  nMenuText = colours.white,\
  bTaskbar = false,\
  nTaskbarBack = colours.white,\
  nTaskbarText = colours.black,\
  nStartBack = colours.white,\
  nStartText = colours.black,\
  bFeedback = false,\
  sComments = \"Comments?\",\
  lang = \"en\",\
  gmt = 0,\
}",
  [ "goldrunner/levels/12_themaze" ] = "                              ddddd        dddd  \
777777777777777777777777c77777   4          4  c \
7 4                    dc       1b1       b1b  c \
7bc1bbbbb11bbbbcbbb1bbb c           4      4   c \
7 c 4 4    44  c   4   dc          bbb  1bb    c \
7bcb11bcbbbb111cbbbb    c              4       c \
7 cddddc     4 c       dc             b11      c \
7bbbbbbbbbbb111bbbb1bbb c       4   5          c \
74      4      4   444 dc       ddddddddddddd  c \
711bc b1bbbb  bbb1cb1b1 c     77444 e  e  44477c7\
7  4c    b4       c    dc       7b7b7b7b7b7b7  c \
711bbcdd bbcb11bbbbbbbb c  cdddd4              c \
7  4       c          4dc  c          b111111bcbb\
711bb1bbbb1bbbb1bbb7777 c bcbbbbb11111b4 4 4  c  \
7     ddd4     4ddd 4  dc bc 444 11111b  0    c  \
711bbb   b1b111b   bbb1 c bbbbbbbb1111bbbbbbb c 4\
7                       c   44444     bbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "flappybird/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"FlappyPixel\",\
}",
  [ "redcast/files/apis/multinet" ] = "\
function split(str, pat)\
    local t = {}  -- NOTE: use {n = 0} in Lua-5.0\
    if str ~= nil then\
       local fpat = \"(.-)\" .. pat\
       local last_end = 1\
       local s, e, cap = str:find(fpat, 1)\
       while s do\
          if s ~= 1 or cap ~= \"\" then\
         table.insert(t,cap)\
          end\
          last_end = e+1\
          s, e, cap = str:find(fpat, last_end)\
       end\
       if last_end <= #str then\
          cap = str:sub(last_end)\
          table.insert(t, cap)\
       end\
    else\
        print(\"##ERROR failed to split [\"..str..\"] by:\"..pat)\
    end\
    return t\
end\
\
local function getTableSize(table)\
    local sz = 0\
    for k,v in pairs(table) do\
        sz = sz + 1\
    end\
    return sz\
end\
\
function unformatTable(string, join)\
    return split(string, join)\
end\
\
function formatTable(table, join, start)\
    if start == nil then start = 1 end\
    local str = \"\"\
    for i=start,#table do\
        if i == start then str = table[i] else str = str..join..table[i] end\
    end\
    return str\
end\
\
function formatComplexTable(table, join, op)\
    local str = \"\"\
    for k,v in pairs(table) do\
        if type(v) ~= \"function\" and type(v) ~= \"nil\" then\
            if str == \"\" then \
                str = k..op..v \
            else \
                str = str..join..k..op..v \
            end\
        end\
    end\
    return str\
end\
\
function unformatComplexTable(string, join, op)\
    local table = split(string, join)\
    local ntable = {}\
    for i=1,#table do\
        local splt = split(table[i], op)\
        if splt[1] ~= nil then\
            ntable[splt[1]] = splt[2]\
        end\
    end\
    return ntable\
end\
\
function createServer(sname, sid)\
    local server = {\
        name = sname,\
        id = sid,\
        users = { },\
        data = { },\
        getPlayerList = function(self)\
            local list = {}\
            for k,v in pairs(self.users) do\
                list[#list + 1] = k\
            end\
            return list\
        end,\
        sendPlayerList = function(self, player)\
            local p = self.users[player]\
            if p ~= nil then\
                rednet.send(p[1], formatTable(self:getPlayerList(), \"#@#\"))\
            end\
        end,\
        getUsers = function(self)\
            return self.users\
        end,\
        addPlayer = function(self, player, id, data)\
            self:getUsers()[player] = {id, data}\
        end,\
        removePlayer = function(self, player)\
            local users = self.users\
            if users == nil then users = {} end\
            users[player] = nil\
            self.users = users\
        end,\
        addSData = function(self, name, info)\
            local data = self.data\
            if data == nil then data = {} end\
            data[name] = info\
            self.data = data\
        end,\
        getSData = function(self)\
            local val = self.data\
            if val ~= nil then\
                val = formatComplexTable(val, \"#@#\", \"#=#\")\
                return val\
            end\
            return nil\
        end,\
        getPlayer = function(self, id)\
            local users = self.users\
            if users == nil then users = {} end\
            for k,v in pairs(users) do\
                if v[1] == id then return k end\
            end\
            self.users = users\
            return nil\
        end,\
        getID = function(self, player)\
            local users = self.users\
            if users == nil then users = {} end\
            local p = users[player]\
            if p ~= nil then return p[1] else\
                return nil\
            end\
            self.users = users\
        end,\
        getData = function(self, player)\
            local users = self.users\
            if users == nil then users = {} end\
            local p = users[player]\
            if p ~= nil then return p[2] else\
                return data\
            end\
            self.users = users\
        end,\
        setData = function(self, player, data)\
            local users = self.users\
            if users == nil then users = {} end\
            local p = users[player]\
            if p ~= nil then \
                p[2] = data\
            end\
            self.users = users\
        end,\
        pingUsers = function(self, info)\
            local users = self.users\
            if users == nil then users = {} end\
            for k,v in pairs(users) do\
                rednet.send(v[1], info)\
            end\
            self.users = users\
        end,\
        waitForCommand = function(self)\
            local id, message, distance = rednet.receive()\
            local users = self.users\
            if users == nil then users = {} end\
            local data = self.data\
            if data == nil then data = {} end\
            \
            local typ = nil\
            if id ~= nil then\
                if message:sub(1, 5) == \"JOIN \" then\
                    local splt = split(message, \" \")\
                    local name = formatTable(splt, \" \", 2)\
                    users[name] = { id, {} }\
                    typ = 1\
                elseif message == \"LEAVE\" then\
                    self:removePlayer(self:getPlayer(id))\
                    typ = 2\
                elseif message == \"GET_DATA\" then\
                    if self:getPlayer(id) ~= nil then\
                        local player = self:getPlayer(id)\
                        local dat = self:getData(player)\
                        if dat ~= nil then\
                            rednet.send(id, formatTable(dat, \"#@#\"))\
                            typ = 3\
                        end\
                    end\
                elseif message:sub(1, string.len(\"SET_DATA \")) == \"SET_DATA \" then\
                    local type = 11\
                    if self:getPlayer(id) ~= nil then\
                        local splt = split(message, \" \")\
                        local ftabl = formatTable(splt, \" \", 2)\
                        local table = unformatTable(ftabl, \"#@#\")\
                        if table ~= nil then\
                            self.setData(self, self:getPlayer(id), table)\
                            typ = 8\
                        end\
                    end\
                elseif message == \"GET_PLAYERLIST\" then\
                    if self:getPlayer(id) ~= nil then\
                        local fmt = formatTable(self:getPlayerList(), \"#@#\")\
                        rednet.send(id, \"PLS::\"..fmt)\
                        typ = 4\
                    end\
                elseif message == \"@#@GET_NAME@#@\" then\
                    rednet.send(id, \"~S~\"..self.name)\
                    typ = 5\
                elseif message == \"GET_SERVER_DATA\" then\
                    if self:getPlayer(id) ~= nil then\
                        rednet.send(id, self:getSData())\
                        typ = 6\
                    end\
                elseif message:sub(1, string.len(\"SET_SERVER_DATA@#@\")) == \"SET_SERVER_DATA@#@\" then\
                    if self:getPlayer(id) ~= nil then\
                        local splt = split(message, \"@#@\")\
                        local piece = splt[3]\
                        local name = splt[2]\
                        if name == \"#LEN#\" then name = #data end\
                        if name == \"#LEN+#\" then name = #data + 1 end\
                        self:addSData(name, piece)\
                        typ = 7\
                    end\
                end\
            end\
            if typ ~= nil then\
                return tonumber(typ)\
            else\
                return \"INVALID\"\
            end\
            self.users = users\
            self.data = data\
        end,\
    }\
    return server\
end\
\
function createUser(uname, sname, uid, sid)\
    local user = {\
        name = uname,\
        id = uid,\
        server_name = sname,\
        server_id = sid,\
        joinServer = function(self)\
            rednet.send(self.server_id, \"JOIN \"..self.name)\
        end,\
        leaveServer = function(self)\
            rednet.send(self.server_id, \"LEAVE\")\
        end,\
        getPlayerList = function(self)\
            rednet.send(self.server_id, \"GET_PLAYERLIST\")\
            local id, message, distance = rednet.receive()\
            local typ = string.sub(message, 1, 5)\
            message = message:sub(6, -1)\
            local n = 1\
            while id ~= self.server_id and typ ~= \"PLS::\" and n < 20 do\
                id, message, distance = rednet.receive()\
                typ = string.sub(message, 1, 5)\
                message = message:sub(6, -1)    \
                n = n + 1\
            end\
            if n < 20 then\
                return unformatTable(message, \"#@#\")\
            end\
            return nil\
        end,\
        getData = function(self)\
            rednet.send(self.server_id, \"GET_DATA\")\
            local id, message, distance = rednet.receive()\
            if id == self.server_id then\
                return unformatTable(message, \"#@#\")\
            end\
            return nil\
        end,\
        setData = function(self, table)\
            rednet.send(self.server_id, \"SET_DATA \"..formatTable(table, \"#@#\", 1))\
        end,\
        getSData = function(self)\
            rednet.send(self.server_id, \"GET_SERVER_DATA\")\
            local id, message, distance = rednet.receive()\
            if id == self.server_id then\
                return unformatComplexTable(message, \"#@#\", \"#=#\")\
            end\
            return nil\
        end,\
        setSData = function(self, name, piece)\
            rednet.send(self.server_id, \"SET_SERVER_DATA@#@\"..name..\"@#@\"..piece)\
        end,\
        waitForPing = function(self)\
            local id, message, distance = rednet.receive()\
            if id ~= nil and id == self.server_id then\
                return message\
            end\
            return nil\
        end,\
        isFromServer = function(self, id)\
            return id == self.server_id\
        end,\
    }\
    return user\
end\
\
function getServers()\
    local servers = {}\
    local n = 0\
    local i = 0\
    local ok = true\
    rednet.broadcast(\"@#@GET_NAME@#@\")\
    while ok and i < 500 do\
        local id, message, distance = rednet.receive(2)\
        if id ~= nil then\
            local str = message:sub(1, 3)\
            if str == \"~S~\" then\
                local sname = message:sub(4, -1)\
                servers[sname] = id\
                n = 0\
            else\
                n = n + 1\
                if n > 5 then ok = false end\
            end\
        else\
            ok = false\
        end\
        i = i + 1\
    end\
    return servers\
end",
  [ "goldrunner/levels/classic_009" ] = "bbbbbbbbbb5                           bbbbbbbbbb \
bbbbbbbbbb8dddddddddddddddddddddddddddbbbbbbbbbb \
bbbbbbbbbbcb e   b             b     bbbbbbbbbbb \
bbbbbbbbbbc bbbbb               bbbbb bbbbbbbbbb \
bbbbbbbbbbc b bbb               b4bbb bbbbbbbbbb \
bbbbbbbbbbc bbbbb e    e      e bbbbb bbbbbbbbbb \
bbbbbbbbbbc bbb b1bbbbbbbbbbbbbbbbb b bbbbbbbbbb \
bbbbbbbbbbc bbbbb1bbb 4bb 4bbbbbbbbcb bbbbbbbbbb \
bbbbbbbbbbc bbbbb1bbbbbbbbbbbbbbbbbcb bbbbbbbbbb \
bbbbbbbbbbc bbbbb1bbbbbbbbbbbbbbbbbcb bbbbbbbbbb \
bbbbbbbbbbc bbbbb1bbbb    bbbbbbbbbcb bbbbbbbbbb \
bbbbbbbbbbc bbbbb1bbbb    bbbbbbbbbcb bbbbbbbbbb \
bbbbbbbbbbc bbbbb1bbbb   4cbbbbbbbbcb bbbbbbbbbb \
bbbbbbbbbbc           bbbbcddddddddc  bbbbbbbbbb \
bbbbbbbbbbc      0   7777             bbbbbbbbbb \
bbbbbbbbbbbbbbbbbbbb7777      e       bbbbbbbbbb \
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/08_cavein" ] = "bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb   bbbbbbbbbbbbbb\
b  8 8  8   8 8   b 4            5 b4 e      4  b\
b  888  8 8     8 bbbbbbbcbbbbc  8 bbbbbbbcbbbbbb\
b  8 8  8  88888  bbbb4bbcbbbbbbbbbb bbb  c     b\
b     e                  c      bbbb bbb  c     b\
bbbbbbbbbbbbbbbb77bcbbbbbbbbbbbcbbbb bbb  c 4  4b\
b  4     4  bb   bbc           cb44b bbb  c     b\
bbbbbbbbbbbbb     bc           cbbbbbbbb  c     b\
b   4     4 b4 4 4bc           c    4bbb4 c     b\
bbbbbbbbbbbbb4 4 4bc    bbbcbbbbbbbbbbbbbbbbbccbb\
b 4     4   b     bc    bbbc         e  4 cbbccbb\
bbbbbbbbbbbbbbbcbbbc   4bbbc   cbbbbbbbbbbcbbccbb\
b              c   cbbbbb  c4  c    bbbbbbcbbccbb\
b              c   cbbbbbcbbbbbcbbbbbb44  cbbccbb\
b    4  4  cbbbbbbbcbbbbbcbbbbbcbbbb4bbbbbbbbccbb\
bbbbbbbbbbbbbbbbbbbce    cbb4bbc      0      cc4b\
bb     bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "konelift/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"KONE ELEVATOR SIMULATOR\",\
}",
  [ "redcast/files/lang/id" ] = "return {\
  start = {\
    welcome = \"Selamat datang di RedCast.\",\
    revolution = \" 'The console revolution' \",\
    setup = \"Tekan DEL untuk memasuki Setup\",\
    free = \"Anda memiliki %free% byte tersisa.\"\
  },\
  disk = {\
    detect = \"Disk terdeteksi.\",\
    media = \"Disk media terdeteksi.\",\
    playquestion = \"Apakah Anda ingin untuk memutarkan musik?\",\
    play = \"Sekarang Memutar %title%\"\
  },\
  gui = {\
    advancedonly = \"GUI ini tidak bisa digunakan pada komputer Monochrome.\",\
    menu = {\
      restart = \"Restart\",\
      shutdown = \"Matikan\",\
      chatmanager = \"Percakapan\",\
      paint = \"Paint\",\
      redspace = \"RedSpace\",\
      floppy = \"Floppy\",\
      credits = \"Kredit\"\
    },\
    paint = {\
      open = \"Masukkan nama file baru/ file yang sudah dibuat: \"\
    },\
    redspace = {\
      id = \"Masukkan ID server: \"\
    }\
  }\
}",
  normal = "\
\
\
\
\
\
     ddddddddddddd\
     cddddddddddddd\
     ccddddddddddddd\
      ccddddddddddddd\
       ccddddddddddddd\
        cccccccccccccc",
  [ "goldrunner/levels/03_seeker" ] = "                                                 \
                                                 \
                               5                 \
  4 4                          8     4     4     \
 bbcbb                         8    bbbbbbcb     \
   c                           8          c      \
   c 4 dddd  4   e 4  dddddd   8          c      \
   bbbb    bbbbcbbbbbb         8          c      \
               c             4 8  e 4     c      \
               c           bbbbbbbbcbb    c      \
               c                   c      c      \
          4    c 4     0        4  c   4  c      \
      bbbcbbbbbbbbb            bbbbcbbbbbbbc     \
         c                                 c     \
         c                                 c     \
         c                                 c     \
b        c 4     4          4         4    c    b\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  [ "bankvault/levels/Boxxle1.txt" ] = "; Boxxle 1\
\
; Copyright: Thinking Rabbit\
; E-Mail: \
; Web Site: \
;\
; Levels from the Game Boy.\
\
 #####\
 #   ####\
 #   #  #\
 ##    .#\
### ###.#\
# $ # #.#\
# $$# ###\
#@  #\
#####\
; #1\
\
  #######\
  #     #\
  # $ @ #\
##### # #\
# $     #\
#  #$## ##\
#..$  #  #\
#..      #\
##########\
; #2\
\
######\
#..*.#\
#.$  #\
## $ #\
##$ ##\
#@$ #\
##  #\
 ####\
; #3\
\
########\
#.   $ #\
#.$  # #\
#.# #  #\
### # ##\
 # $  #\
 #@ ###\
 #####\
; #4\
\
 ########\
##..#   #\
# ..# $ ##\
# @ $  $ #\
##$###   #\
 #     ###\
 #######\
; #5\
\
 #######\
 #     ####\
 # ###.   #\
##    # # #\
# .#$ $ # #\
# #  *  # #\
# # $ $#. #\
# # #    ##\
#   .### ##\
####      #\
   #####  #\
       #@ #\
       ####\
; #6\
\
#########\
#.....  #\
### $ # ##\
  # $##  #\
  #$ $ $ #\
  #   #  #\
  ##  # @#\
   #######\
; #7\
\
    #####\
#####   #\
#.. $ $ ##\
#..$ $  @#\
##. $## ##\
 ###    #\
   ######\
; #8\
\
###########\
#     # @ #\
# $  $  $ #\
## #...# ##\
 # #...# #\
 #$ ### $#\
 #   $   #\
 #  ##   #\
 #########\
; #9\
\
   ####\
####  #\
# $...##\
#@ $.. #\
###$$$ #\
  #    #\
  ######\
; #10\
\
 ##########\
##    # @ ##\
#  $.... $ #\
# $ ####$  #\
##  #  #   #\
 ####  #####\
; #11\
\
    ########\
    #      #########\
##### #### #@##  ..#\
# $  $           ..#\
#   # ### #####  ..#\
### # ### #   ######\
  #  $  $ #\
  ###  $###\
    #$  #\
    #   #\
    #####\
; #12\
\
  #####\
  #   ##\
### *$ #\
#  .$. #\
#  $. ##\
###  @#\
  #####\
; #13\
\
  ########\
  #      #   ######\
  #$ $ $ #   #  ..#\
###  $  $#####  ..##\
#  $$$   $      ...#\
# #  $ ####@##  ..##\
# #  $ #  ####  ..#\
#    ###     ######\
######\
; #14\
\
########\
#  @   #\
#  #$$ #\
## $  ##\
 #  $.#\
 ## .##\
  #..#\
  ####\
; #15\
\
#########\
#   #   ##\
# $$#$$ @#\
#    $  ##\
#   # ##############\
####  $ #     #....#\
   # $$ #$ $ $#....#\
   #  $     $ #....#\
   # $$$#$  $ #  ..#\
   #    #  $ $   ..#\
   ############  ..#\
              #  ..#\
              ######\
; #16\
\
   #######\
   #  @  #\
#### # $ #\
#...$#$ ##\
#... $   #\
### $ ## #\
  # $    #\
  #    ###\
  ######\
; #17\
\
      ####\
#######@ #\
#   #    #\
#   $  $ #\
## ##$# ##\
 #  $ #*.#\
 ##  $...#\
  #   #. #\
  ########\
; #18\
\
 ########\
 # @    #\
##  ..$ #\
#  #..###\
# $$$##\
#    #\
######\
; #19\
\
########\
#  #   #\
# $..$ #\
#@$.* ##\
# $..$ #\
#  #   #\
########\
; #20\
\
   #####\
#### @ ###\
#    #   #\
# $$  #$ #\
#  $#$ $ #\
###...$###\
 #.... #\
 #######\
; #21\
\
 ###  ####\
##.####  ##\
#...  #  @###\
##..     $  #\
#...  # $ $ #\
##.###### ######\
 ###    # $ $  #\
       ## $ $# #\
       #   $   #\
       #  $ $# #\
       # # # # #\
       #       #\
       #########\
; #22\
\
#######\
#  #@ #\
# $$$ #\
#  $  #\
# $$$ #\
#..#..#\
#..$..#\
#######\
; #23\
\
########\
#  ##  #\
#  ##$ #\
#  $   ##\
## #    ##\
 # ## #  #\
 # $ $## #  ####\
## ##    ####..#\
# $ #$ #$##  ..#\
#      $     ..#\
########@##  ..#\
       #########\
; #24\
\
  ######\
  #  @ #\
  # $  #\
#### $ #\
# .#$ ##\
#..# $#\
#..$  ##\
#.. $  #\
####$  #\
   #   #\
   #####\
; #25\
\
       #####\
      ##   #\
      #  $ #####\
      # $ $    #\
      ### #### ##\
 ######## $    @#\
##...  ## $$## ##\
#....       ## #\
##...  #### ## #\
 ######## $ $  #\
        #  $ $ #\
        #      #\
        ########\
; #26\
\
 ########\
 #  #  @#\
 #$  $  #\
 # ## $ #\
##...$ ##\
# ...# #\
# #$$  #\
#      #\
########\
; #27\
\
  ######\
  #....#\
  #  ..#\
###$$#####\
# $   $ @#\
#   $ $  #\
###   ####\
  #####\
; #28\
\
 #######\
 #     ##\
 # $  $ #\
 ## # #@#\
  #.# $ #\
###..$ ##\
#  ..# #\
# #.*# ###\
#  #.$$$ #\
##   # # #\
 ###     #\
   #######\
; #29\
\
  ####\
  #  ####   ####\
  #     #####  #\
  #  $$$       #\
  ## #  #  # # #\
   #$ $ ####$# #\
   # $####     #\
####  #  #  ## ####\
# @$$    ## # ....#\
# #  $$ ### # ....#\
# $ $  $    # ....#\
# ## $  ##  # ....#\
#    $  ###########\
######  #\
     ####\
; #30\
\
  ############\
  #    #     #\
  # $  $ $ $ #\
###### ##$ $ #\
#..  # #  $ ##\
#..    @ ##  #\
#..  #$####  #\
#..  # $  $  #\
#..  #     ###\
############\
; #31\
\
      #######\
     ##@#   #\
    ##  # $ #\
 ####  # $  #\
 #    # $ # ##\
 #   # $  #  #\
 #  # $  #   #\
 # # $  #    #\
##  $  ### # #\
#  $  ##...# #\
#   ##.....  #\
########  ####\
       ####\
; #32\
\
########\
#....  ##########\
##...    $  $   #\
#....  ## $  $  #\
######### $ # ###\
        ##$ $ #\
        # $  $#\
        # $#$ ##\
        #     @#\
        ########\
; #33\
\
############\
#...#  @#  ##\
#...#$$  $  #\
#...   ##  $#\
#   # ##    ###\
#####  $ #$$  #\
  # $ $       #\
  #   #########\
  #####\
; #34\
\
   #########\
   #  ##   #\
   # $  $  #\
   #  $# $ #\
#### $ #$  #\
#..### # $ #\
#..  # # $ #\
#..     $$ #\
#..  ###   #\
#..  # ##@##\
######  ###\
; #35\
\
          #########\
######## ##   #   #\
#...#  ###  $  $  #\
#...#    @ # ### ##\
#...    # ##  #   #\
#  ### $#$  $  $  #\
##      # #  ## ###\
 #### #$$ ## ##  #\
    #   #   $    #\
    #####  #  ####\
        #######\
; #36\
\
           #####\
 ###########   #\
 #     $    ...#\
 #$$#  #####...#\
##  #$ #   #...#\
#  $   #   #...#\
#@#$$ ##   #...#\
# $    #   #...#\
##  $$ ######.##\
 # $ $ #   #   #\
 #$ $ $ $ $    #\
 #  ## #  $$# ##\
 #     ###    #\
 ####### ######\
; #37\
\
############\
###..##    #\
##....#  $ #\
#.....# $# #\
####.. $ #@#\
#   ..# ####\
# $# $#    #\
#  #  #  $ #\
#   # # $ ##\
# $$$ # ####\
#   $ #    #\
#### ## $$ #\
##   $   $ #\
##     ##  #\
############\
; #38\
\
        ####\
        #  #\
        #  #\
        #  #\
     #### ###\
     # $    #\
###### $$ $ #####\
#@ $  $    $  $ #\
##   #$ $   #   #\
 #####  $ $ #####\
     # $$$ ##\
     ### ########\
      ## ##  ...#\
      #  ##  ...#\
      #      ...#\
      #####  ...#\
          #  ...#\
          #######\
; #39\
\
####      ####\
#..########..#\
#.*.*.....*.*#\
#$ $ $ $ $ $ #\
# $ $ $ $ $ $#\
#$ $ $@$ $ $ #\
# $ $ $ $ $ $#\
#*.*.....*.*.#\
#..########..#\
####      ####\
; #40\
\
   ####\
   #  #####\
 ###$ $   ###\
 #  $ #  $  #\
 #    ## ## ##\
 #  ###  ##  #\
 # #  $ $ ## #\
 #$  $ $ $#  #\
## ###  $    #\
#     #$ ##$ #\
# ....#  #  ##\
##....# # @##\
 #.#.#  $ ##\
 #....   ##\
 #########\
; #41\
\
    ######\
    #....####\
    #....#  #\
    #...  $ #\
#####   #   #\
#   #####$####\
#   #      # #\
## $  $#     #\
 #$ ## # $ $ #\
 #  $   ####$##\
 # # #  ####  #\
## $       $  #\
#@  ########  #\
#####      ####\
; #42\
\
######\
#    ######  ####\
# $  $ #  ####  ##\
#  $   # $$      #\
##   $$#  ### #  #\
 # $#  ## ##  #  #\
 #$ $  $@$ # ##  ##\
 #  #  #   # #....#\
 # $ $ ##$## #....#\
 ##   # #  # #....#\
  ##### #  $ #....#\
        #  # ######\
        ######\
; #43\
\
      ####\
      #  #\
      #$ ###\
      #   ###\
 ######$ $  #\
 #... # $   #\
 #....  $$ ##\
 #....#   $#\
 #....#$ $ #\
#### ##   $#\
#@$ $ # $  #\
## $  ## ###\
 ##     $#\
  #####  #\
      ####\
; #44\
\
    #########\
    #.......#\
    #.......#\
    #.......#\
    #### $###\
     #  $  ##\
     # $ $  #\
 ###### # # ###\
 #  ## $ $ $  #\
## $$         #\
#   #####$##$##\
#   $     $ $ ###\
######## $#     #\
     #  $ #  #  #\
     #   @#$  $ #\
     ## $ $   $ #\
      ########  #\
             ####\
; #45\
\
######\
#....#\
#....#\
##   ############\
 #   #  #   #   #\
 ## ## $ $ $$   #\
  #    @# # #####\
  #  ##$# $  #\
  ####   $   #\
  #  $   #####\
  #      #\
  ########\
; #46\
\
       #######\
########.....#\
# $   $ .....####\
#  $ $ #.....   #\
##  ## #.....#  #\
 #  $  ###$### ##\
 # $  $  $   $ #\
 #$####  $   $ #\
 #   #  $# #####\
 ###   $$ $ $  #\
   #### $  $   #\
     #@  #######\
     #####\
; #47\
\
   #####\
   #...#\
   #...##\
   #....####\
 ####......####\
 #  #....     #\
##  ###  ###$ #\
# $ $ #$#  #  #\
# $    $  $## ####\
#  #  # #   $$$  #\
##  $## #$ $     #\
 #$  $  # $ $#  ##\
 #  $# $ $   ####\
 ##  ## @#   #\
  #  #########\
  ####\
; #48\
\
   #####\
   #   ##\
   # #  #\
 ### $  #\
##   # ##\
# .#.#  #\
# ..*$$ #\
# *#.#  #\
##  ##$##\
 #$ @  #\
 #  ####\
 ####\
; #49\
\
      ########\
      #      ##\
 ######  ##$$@#\
##  #  $$ #   #\
##$       $ $ #\
#   # $########\
#  $#  #... .#\
# $ #$$ ...  #\
#  $#  #...  #\
##  #  #...###\
 #  #  #####\
 #######\
; #50\
\
            #####\
     ########   #\
######@#   ## # #\
#   ##   $      #\
#...   ## ### ###\
#..## ##    # #\
#..#  ##$#### ##\
#..# $$     #  #\
#..#  ## $  $  #\
#####  #  $ #  #\
    #$$ $$# ####\
    #       #\
    #########\
; #51\
\
########\
#      ######\
# ####      #\
# #  ### ## #\
#     $   # #\
# #  #    # #\
# #$ ### #  # ######\
# # #### # #### ...#\
# #   # $$ #  #  ..#\
# #   #   ##$    ..#\
#  $$ #     $ #  ..#\
###   #   ##$ ######\
  ##########@ #\
           ####\
; #52\
\
#####\
#@  #######\
# #$#  #  #\
# $    $$ #\
### ##$#  #\
 #  # .# ##\
 #  $..   #\
 #  #..## #\
 #####.   #\
     ######\
; #53\
\
      #####\
     ##   #####\
 ##### $  #...#\
 #   # # ##...#\
 # #   # #.. .#\
 #   ##   ....#\
####  $$$ $#  #\
#  # ##  $ ####\
#  # ## $  #\
# $$$ $  $$#\
## #@##    #\
## #### #  #\
#       ####\
#       #\
#########\
; #54\
\
            ########\
        #####   #  #\
      ###   #$ $ $ #\
     ## #     $ $  #\
 #####    # #$ # $ #\
 #  #  # ## #   #  #\
 #    ##### ### #$ #\
 # $## ...# ##  $  #\
 ## ## ...#  #    ##\
 #  ###...   ######\
 #  $ ....####\
 #  #######\
### $ #\
#@$   #\
##  ###\
 ####\
; #55\
\
   ######\
 ###    ###\
 #        ####\
 # #$$$## #  #\
 # #    # #  #######\
 # #    # # $   ...#\
 # #$#$## #$    ...#\
##         $$###...#\
#  #$$$## #$   #...#\
# #     # #    #...#\
# #  $  # # ## #...#\
#  #$#$##  #   #...#\
##       $   $ #...#\
 # #$$$# ####$##.###\
 # # @ #  #  $   #\
 #  ###   # $$ ###\
 ##     ###    #\
  ####### ######\
; #56\
\
####\
# @#\
# $#####\
#  $   ##    #####\
#   $#  #    #   #\
##   $  #    # $ #\
 ##$# $ #######  #\
  #   #$    #  ..#\
  # # # $## # #..#\
  #      $     ..#\
  ###########  ..#\
      #     #$#..#\
      # $      ..#\
      #     #   ##\
      ###########\
; #57\
\
      #####\
  #####   #######\
  #@$    $   $  #\
 #### #$#  ##$  #\
 #  #  $  $ #   #\
 #  ### ##  # ####\
 #  $ # $  #  $  #\
 #        ### $  #\
#######$ ##  $ ###\
#.....#  #  $  #\
#.....## $ #$  #\
#....     $   ##\
#...   ########\
########\
; #58\
\
#######\
#     #\
# ### ###\
# #  $  #\
# # $ $ ##\
# #@ #$  #######\
# # $# $$#  ...#\
# #$ #   #  ...#\
# #  #$     ...#\
# #$ #  $#  ...#\
#   $ $  #  ...#\
###  $  $#######\
  ### ## #\
    #    #\
    ######\
; #59\
\
    ###########\
 ####.........#\
 #   .*******.#\
 # ###.......##\
## # #.$$$$$.#\
#@ ####     ##\
# $  ## $$$ #\
# $ $  #   ##\
# $ $ $    #\
# $ $ $  ###\
# $ $  ###\
# $  ###\
#  ###\
####\
; #60\
\
 ###\
##@#########\
# $#   ##  #\
#      $   #\
# $##$###  ##\
#  ## ### ###\
#####.###   #\
    #....#  #\
    #....#  #\
    #....## ##\
   ### ####  #\
   #         #\
   #   #### ####\
   #####  $ $  #\
       # $ $   #\
       # $$$$$ #\
       #       #\
       #########\
; #61\
\
####  ####\
#  ####  #\
#   @    #\
# $$$$$$ #\
##      ##\
# $$$$$$ #\
#        #\
#  $$$$  #\
###    ###\
 # $$$$ #\
 #      #\
 #  $$  #\
 ###..###\
 #..**..#\
 #......#\
 #..##..#\
 #......#\
 ########\
; #62\
\
  ###########\
  #....   ..#\
  # .......##\
### .#....#####\
#  #$##..##   #\
#     #### $  #\
# $$  #  #  $ #\
##  $$#   $$ ##\
 #$  $   #$  #\
 # $$ #  #  $#\
 # $ $#### $ #\
 #       #  ##\
 #### $  # ##\
    ### ## #\
     # $   #\
     #@ #  #\
     #######\
; #63\
\
   ######\
   #    #\
#### ## #######\
# @$  $   #   ##\
# # $  $  # $  #\
#  $  ##### #  #\
#### ##  #### ##\
  #  #  ##  #  #\
  #            #\
  #######  #  ##\
   #..  #  ####\
   #..      #\
   #..  #   #\
   ##########\
; #64\
\
#######\
#.....#\
#...#.#\
#.. ..# ####\
#.    ###  ########\
#### ## $         #\
####    #  $$ #   #\
 #   $ #  # $ #####\
 # # $ $$ # ###\
 #  #$##     #\
 ##  $ $$## ##\
  ##   @  $  #\
   ###  ###$ #\
     #### #  #\
          ####\
; #65\
\
       #########\
       #  ##   #\
     ### $     #\
  #### @$  ##$##\
###  #### ### #\
#  $ # #.*..# #\
# #   $ ....# #\
#    # #....$ #\
###  # #####  #\
  ####    $   #\
     ###$  $ ##\
       # $$ ##\
       #   ##\
       #  ##\
       ####\
; #66\
\
##################\
#   ##       $...#\
# $ $ $#$ ####  .#\
# $$#$       @...#\
# $   #$##$$ #...#\
# $ $$#    $ #...#\
#         ## #...#\
##################\
; #67\
\
 #######\
 #     #\
 # $ $ #\
 # $ ####\
## $##  #########\
#   #  $  ......#\
# *##  #$ #  $  #\
#.....*.  ## $  #\
#.###   ##  ##$ #\
### ######      #\
      #@$  $ $$ #\
      ###   #   #\
        #########\
; #68\
\
              ####\
             ##  ###\
##############  $  #\
#........... #   $ #\
#.# #######. #$ $###\
#.# ####### ##   ##\
#..           $$$@#\
#  ######## ##    #\
####   #   $$ #####\
       # $    $ #\
       ## $$  $ #\
        ##  $$  #\
         ##     #\
          ##   ##\
           #####\
; #69\
\
      #######\
  #####     #\
###   # ##$ ##\
# $   #      #\
# $# ##$# #$ #\
#@ # # $  #  #\
# $# # $###$ #\
# $  $    # ##\
## # $# #    #\
# $#  ..##. .#\
#  ### ..#.# #\
#   ## ......#\
##############\
; #70\
\
        #######\
        #     #\
    #####     ###\
#####   ## ##...#\
#     # ## ##...#\
# ###$$$ $ ##...#\
# #   $ $  ##...#\
# # #$ $ $###...#\
# #   $@$   ## ##\
# #  $ $ $ $#  #\
# # ######     #\
#              #\
################\
; #71\
\
             ####\
      ########  #\
      #     #   #\
    ### ###   # #\
#####     $   # #\
#   $ $ ###$$ # #\
#  $ $$$  # $## #\
#  #$   #  $  # #\
##   #### ### #$##\
 # ###......     #\
 #   $......## # #\
 # ###......##   #\
 #$$ #   #########\
 #     # $@$ #\
 #######     #\
       #######\
; #72\
\
    ####     ####\
  ###  #######  ##\
  #  ........... #\
  # $ ##### ### $##\
 ####  $ $ #   $  #\
 #  #  # # #$# @# ##\
 #         #   $ $ #\
 #   ##   # $$$#   #\
##  #     #      ###\
#    # ##  #  ####\
#         #   #\
########  #####\
       ####\
; #73\
\
  #####\
  #   #\
###$# ###\
# $...  ###\
# #.#*#   #\
# $.#.$   #\
#  ## ## ##\
## @ $ $ #\
 ###   ###\
   #####\
; #74\
\
          #### ####\
          #  ###  #\
          #  $    #\
          # # $ $ #\
      ##### # #  ##\
      #.....# $$$#\
      #....* $   #\
      #*..*.# #$##\
#######....*# $  #\
#     $*.*..#    #\
#  $$ # ##$###$$ #\
#    $   #      ##\
#####$ $ ####  ##\
 #@# $        ##\
 #    ######  #\
 ######    ####\
; #75\
\
      #####\
     ##   ##\
    ##  *  ##\
   ##  * *  ##\
  ##  * * *  ##\
 ##  * * * *  ####\
##  * * * * *  # ##\
#  * * * * * *    #\
# * * * . * * *@$ #\
#  * * * * * *    #\
##  * * * * *  # ##\
 ##  * * * *  ####\
  ##  * * *  ##\
   ##  * *  ##\
    ##  *  ##\
     ##   ##\
      #####\
; #76\
\
  ########\
 ##..    #\
 #...$ $ #\
###.## ###\
#   ##$ #\
#  $@$  #\
##$ ##  #\
 #  #####\
 ####\
; #77\
\
  ####\
  #  #\
  #  #########\
  # $$ #.....#\
  #    #.*...#\
 ###   $..##.#\
 #  #$##$  #.#\
 # $  ## ## .#\
 #  ##  $ $ ##\
###@ #$    ##\
#  $$ $   $#\
# $  ####  #\
#    #  ####\
#   ##\
#####\
; #78\
\
###\
# ##    ####\
#  ######  ###\
#   # $ $$ $ ###\
#  $ @ $    $  #\
# $ # #$  $    #\
#  ## # ### ####\
# ##    #  $  #\
###... ## $ $ #\
##....##   $  #\
#....## $  $###\
#...###  $  #\
#...# #  ####\
##### ####\
; #79\
\
           ####\
      ######  #\
      #   $   #\
      # $$ $  #\
      ## # $  #\
 ######   $ # #\
 #      $ $ $ ##\
 # ## #######  #\
 # $  ##...##$ #\
##   ##...#.#  #\
# $ $ #.....$$ #\
#    $$.....#  #\
##$   #..#..#$##\
 # $#$####### #\
 #    #       #\
 #### # # #####\
    #   #@#\
    #######\
; #80\
\
    ######\
    #    #\
 #### ##$###\
 #         #\
 # #....#  #\
## #....#$$#\
#   ....#  #\
# ##....   ##\
# ##....#$$ #\
#  $....#   #\
# $#### #   #\
#  $  $$$$$##\
##$    $   #\
 # $$# #   #\
 #  $ $ $$$#\
 # $   $   #\
 #@##   ####\
 ########\
; #81\
\
 ####\
 #  #######\
 #$  $    #\
 #   # #$ #\
 # #. .# ##\
 # $...  #\
##$#...# #\
#   $## $#\
#     $  #\
####### @#\
      ####\
; #82\
\
 #####\
 #   #    ##########\
 #$  ######    ##  #\
## $$  $   $  $... #\
# $ ##   #  #$#.#. #\
#    ##  ##$ $ ... #\
# $#    $ # # #.#. #\
#  ## #$  #    ... #\
# #  $#@$## # #.#. #\
#  $$ #$ #  #  ... #\
###      #  #   ####\
  ###   ##  #####\
    #########\
; #83\
\
   #####\
   #   #\
   # #$#\
####   #\
#  #.# ##\
#  *.* @#\
#  #.#  #\
## # #$##\
#  # #  #\
#    $  #\
#  ###  #\
#### ####\
; #84\
\
     #####\
######   #\
#  #     #\
# $$  #  #\
#   ### #######\
##  #.....#   #\
 #  $...*. $# ###\
 # $#.....# #   #\
 ## ####$##     #\
 #  #      $ ####\
 #  # @ $ # $#\
 #  $  ##$   #\
 ### #$   ####\
   #  $ $ #\
   ##  #  #\
    ####  #\
       ####\
; #85\
\
   ####\
   #  #####\
 ###$     #\
 #     .# #\
 # ## #.  #\
 # $  #*####\
## ####.   #\
#  #  @.#  #\
# $  #$.#$##\
###    . $ #\
  ######   #\
       #####\
; #86\
\
          #########\
          #       #\
          # ### # #\
     #### # #...# #\
######  ###  ...  #\
#         # #...# #\
#  $#  $  # ## ## #\
##  #### ##$      #\
 # ##### #  #$ ####\
 # #### $    $ #\
 # $ ##$ ###   #\
 #      $@######\
 # # ######\
 #   #\
 #####\
; #87\
\
####\
# @#   ####\
#  #####..###\
#  # $  $...#\
##   #  ... #\
 #$$  ###$# #\
##  # ### $ #\
# $   $   # #\
#    ####   #\
######  #####\
; #88\
\
    ########\
 ####  ....#\
 # #  $....######\
 # $  #....## ..####\
 #  $$## #### ....##\
####    $ @## .....#\
#    $ $$ #### #####\
# #$$$$# $$ $  #\
#       # $ ## #\
###  ## $  $  $#\
  # $   $      #\
  ####  $ ### $#\
     ###  # #  #\
       #### ####\
; #89\
\
     #####\
######   #\
#   ## # #\
#        #\
##$###*###\
## #.@.##\
#  *.#  #\
# # $ $ #\
#   ##  #\
#########\
; #90\
\
     #####\
  ####   #\
  #    #@#\
  # ###  #\
  # #  $ ###\
  # # # $$ #\
  # # $$   #\
### #   #$ #\
#   # $$ $ #\
# $ $      #\
##$#########\
# ....#\
# ....#\
# ....#\
#######\
; #91\
\
#########     #####\
#       #######   #\
# # # # #         #\
#   $ $ # ###### ##\
#####$#$# #  ..  ###\
  #  @$  $   ..# $ #\
  # #$#$# ###... $ #\
  #       ##...#   #\
  ##################\
; #92\
\
 ####\
 #  #\
 #  ###\
 # $  ###\
## ##.  #\
# $$..# #\
#  #*.$ #\
## #. ###\
 #   @#\
 #$ ###\
 #  #\
 ####\
; #93\
\
       #####\
####  ##   #######\
#  #  #  $   $   #\
#  #### $ $ $ #  #\
#... $ $  #$#$## #\
#...# $ $        #\
#..# $ $ $########\
#...$ $ $@##\
###### $ $ ###\
     # ##  ..#\
     # #  ...#\
     #    ...#\
     #########\
; #94\
\
    #####\
    #   #\
##### # #\
#   $   #\
#   #$#####\
##$## $ $ #\
 # ...#   #\
 # #..*   #\
 # @ ######\
 #####\
; #95\
\
    #######\
   ##     ##\
   #  ###  #\
 ###$##. # ###\
##    #..$   #\
#  $$ #..#   #\
# $$@ #.*# ###\
#  $#$#*.# #\
##     ..# #\
 ###$##  # #\
   #   ##  #\
   ###    ##\
     ######\
; #96\
\
 ###### ######\
 #    # #    #\
## ## ### $  #\
# $$     $$  #\
#  $ ## ## # #\
# # $ $    # #\
# $  $  # ## #######\
#  # #$   ## ##    #\
#### #  #### ## ## #\
 #  $ $##  #       #\
 # $ $     # ## ####\
## ## ###  #   ....#\
#   # ###   ## ....#\
#   $$#       .....#\
#   #    #@####....#\
############  ######\
; #97\
\
  #########\
  #.......#\
  #.......###\
  #         #\
  ##  ##### #\
   # ##   # #\
   # #   $  #\
   #  $ $ ###\
  ##$#   $ @#\
  #  ## # $##\
###$  $$#  ###\
#       #$   #\
# # $ $ $  $ #\
# ###### #  ##\
#        ####\
##########\
; #98\
\
#########\
#....   #\
#....   #\
#.#... ##\
#....#  ########\
######$$   #   #\
   #    ## $$# #\
   #  #  ##  $ #\
   ## $ $   ## #\
   #   # $   # #\
   #   $ #$  # #\
   ## ## # $ # ##\
    #$ #$#  ## @#\
    #  # #$$ $  #\
    #          ##\
    ############\
; #99\
\
  ####\
  #  #######\
###$       #######\
# $  $$  $ ##....#\
#  $# ###$$   ...#\
# #    @  #   ...#\
# #$$ $ $$#$##...#\
#   ## ##   ##...#\
##  $      $ #####\
 #########  ##\
         ####\
; #100\
\
#############\
#@$ $ $ *...#\
#  $ $ $.*..#\
# $ $ $ *...#\
#  $ $ $.*..#\
# $ $ $ *...#\
#  $ $ $.*..#\
# $ $ $ *...#\
#  $ $ $.*..#\
# $ $ $ *...#\
#  $ $ $.*..#\
#############\
; #101\
\
     #####    #####\
######   ######...##\
#   ## $ #  ##.... #\
# $$   $ #   #.. . #\
#   ### ## $ #....##\
### #     $  #....#\
 ## #   ### #####$#\
 ## ###   # ##    #\
 # $  @$$ # ##$$$ #\
 # $ ##   # ## $  #\
 #   ##### $## # ##\
 #####  #     $ $ #\
        #   #     #\
        ###########\
; #102\
\
  ####      ######\
  #  #      #    ##\
  #  ###   ##     #\
  #$   #   #   #  #\
  # $# #####      #\
  #   $   # # #####\
###$$   # # # # #\
# $   $   # #   #\
# @$ $ ###  # # ##\
#  ## #          #\
####...#  #    # #\
   #..*.# # # $  #\
   ##..*.# # #$ ##\
    ##..* $    $ #\
     ##..    #   #\
      ############\
; #103\
\
###################\
#  #   #   #   #  #\
#  $   $  $    $  #\
# $########## ##$ #\
## ## *.*..*.* # ##\
#  ## ..*..... # ##\
#  ### ######### ##\
#  #      $ #   $ #\
## #   $#$#@  #   #\
## # #       ######\
# $  #########\
#   ##\
#####\
; #104\
\
      ####\
#######  #\
#  #     #\
# $$ $#  #\
#  ##.# ####\
## ##.#  $ #\
## # . $ # #\
#   *..#   #\
#  # . # ###\
## ##.##$#\
 #     $@#\
 #  ######\
 ####\
; #105\
\
 ##########\
##  ..... #\
#  #..... #\
# $ #### ##\
# $  @   #\
## $ $ $ #\
 # $$$$$ #\
 #   #   #\
 #########\
; #106\
\
##############\
#     #      #\
# $$$    $$$ #\
##   $$$$   ##\
 #$ $    $ $#\
 #   $$$$   #\
 #$$$    $$$#\
 # $ $$$$ $ #\
 #          #\
######..######\
#..*.****.*..#\
#..*......*..#\
##.********.##\
 #..........#\
 ######@#####\
      ###\
; #107\
\
     #####\
######   #\
# $ .. $ #\
#@$$.. $##\
# $ ..  #\
#########\
; #108\
",
  startgame = "function drawDisp()\
term.setCursorPos(1,1)\
term.setBackgroundColor(colors.white)\
term.clear()\
term.setCursorPos(1,1)\
term.setBackgroundColor(colors.brown)\
term.clearLine()\
write(\"RedCube Wallpaper Chooser\")\
term.setCursorPos(1,3)\
term.setBackgroundColor(colors.blue)\
write(\"P\")\
term.setBackgroundColor(colors.green)\
write(\"lains\")\
term.setCursorPos(1,5)\
term.setBackgroundColor(colors.blue)\
write(\"N\")\
term.setBackgroundColor(colors.green)\
write(\"ormal\")\
term.setCursorPos(1,7)\
term.setBackgroundColor(colors.blue)\
write(\"B\")\
term.setBackgroundColor(colors.green)\
write(\"SOD\")\
term.setCursorPos(1,9)\
term.setBackgroundColor(colors.blue)\
write(\"C\")\
term.setBackgroundColor(colors.green)\
write(\"ube\")\
term.setCursorPos(1,11)\
term.setBackgroundColor(colors.blue)\
write(\"E\")\
term.setBackgroundColor(colors.green)\
write(\"xit\")\
end\
\
drawDisp()\
\
evt, side, xPos, yPos = os.pullEvent(\"mouse_click\")\
\
if xPos == 1 and yPos == 3 then\
fs.delete(\"/.background\")\
fs.copy(\"/disk/plains\",\"/.background\")\
shell.run(\"/disk/startgame\")\
elseif xPos == 1 and yPos == 5 then\
fs.delete(\"/.background\")\
fs.copy(\"/disk/normal\",\"/.background\")\
shell.run(\"/disk/startgame\")\
elseif xPos == 1 and yPos == 7 then\
fs.delete(\"/.background\")\
fs.copy(\"/disk/bsod\",\"/.background\")\
shell.run(\"/disk/startgame\")\
elseif xPos == 1 and yPos == 9 then\
fs.delete(\"/.background\")\
fs.copy(\"cube\",\"/.background\")\
shell.run(\"/disk/startgame\")\
elseif xPos == 1 and yPos == 11 then\
shell.run(\"/startgui\")\
else\
shell.run(\"/disk/startgame\")\
end\
",
  [ "ccsand/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"CCSand\",\
}",
  [ "redcast/files/gamelib" ] = "local w,h = term.getSize()\
local previousDir = currentDir\
local currentDir = \"games\"\
local dirFiles = fs.list(currentDir)\
local newDirFiles = {}\
local choice = 1\
\
function printCentered(string, y)\
  local x = (w/2)-(string.len(string)/2)\
  term.setCursorPos(x,y)\
  term.write(string)\
end\
\
function clearScr()\
  term.clear()\
  term.setCursorPos(1,1)\
end\
\
function updateList()\
  for i = 1,#dirFiles do\
    newDirFiles[i] = currentDir..\"/\"..dirFiles[i]\
    --dirFiles[i] = currentDir..dirFiles[i]\
  end\
  clearScr()\
  for i = 1,#newDirFiles do\
    print(newDirFiles[i])\
  end\
  --error()\
end\
\
--clearScr()\
--printCentered(\"Simple File Manager\",2)\
--printCentered(\"By Gonow32\",3)\
--printCentered(\"Press B to go back a folder\",5)\
--printCentered(\"Press C to create a file\",6)\
--printCentered(\"Press D to delete a file/folder\",7)\
--printCentered(\"Press M to make a folder\",8)\
--printCentered(\"Press R to go to the root directory\",9)\
--sleep(5)\
\
function renderDir()\
  clearScr()\
  for i = 1,#dirFiles do\
    if fs.isDir(newDirFiles[i]) then\
      if choice == i then\
        term.setBackgroundColour(colours.white)\
      end\
      term.setTextColour(colours.green)\
      printCentered(dirFiles[i], i)\
      term.setTextColour(colours.white)\
      term.setBackgroundColour(colours.black)\
    else\
      if choice == i then\
        term.setBackgroundColour(colours.white)\
        term.setTextColour(colours.black)\
      end\
      printCentered(dirFiles[i], i)\
      term.setBackgroundColour(colours.black)\
      term.setTextColour(colours.white)\
    end\
  end\
  --printCentered(\"Simple File Manager\",h)\
  --printCentered(\"Press B to go back\",h-1)\
  --printCentered(\"Press C to make a new file\",h-2)\
  --if fs.exists(\"partitiontable\") then\
    --file = fs.open(\"partitiontable\",\"r\")\
    --if not tonumber(file.readLine()) then\
      --term.setCursorPos(1,h)\
      --term.write(\"Corrupt Disk\")\
    --else\
      --term.setCursorPos(1,h)\
      --term.write(\"FDisk Format\")\
    --end\
    --file.close()\
  --else\
    --term.setCursorPos(1,h)\
    --term.write(\"Regular Disk\")\
  --end\
  --local freeSpace = tostring(fs.getFreeSpace(currentDir))\
  --term.setCursorPos((w-string.len(freeSpace))-1,h)\
  --term.write(freeSpace..\"B\")\
end\
\
updateList()\
\
while true do\
  renderDir()\
  local event, key = os.pullEvent(\"key\")\
  if key == keys.up then\
    if choice == 1 then\
      choice = #dirFiles\
    else\
      choice = choice - 1\
    end\
  elseif key == keys.q then\
    return\
  elseif key == keys.down then\
    if choice == #dirFiles then\
      choice = 1\
    else\
      choice = choice + 1      \
    end\
  elseif key == keys.d then\
    printCentered(\"Confirm Delete [Y/N]\",h-1)\
    local event, key = os.pullEvent(\"key\")\
    if key == keys.y then\
      if not fs.isReadOnly(newDirFiles[choice]) then\
        fs.delete(newDirFiles[choice])\
        dirFiles = fs.list(currentDir)\
        updateList()\
        choice = 1\
        renderDir()\
      end\
    end\
  elseif key == keys.enter then\
    shell.run(newDirFiles[choice])\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
  end\
end",
  [ "tron/startgame" ] = "local isOpen=false\
for k,v in pairs({\"right\",\"left\",\"top\",\"bottom\",\"front\",\"back\"}) do\
    if peripheral.getType(v)==\"modem\" then\
        rednet.open(v)\
        isOpen=true\
    end\
end\
if not isOpen then\
    error(\"no modem attached\")\
end\
local Mx,My=term.getSize()\
local Cx,Cy=math.floor(Mx/2),math.floor(My/2)\
function maingame()\
    local lang={\"Waiting for player\",{[0]=\"^\",\">\",\"v\",\"<\"},{{\"|\",\"/\",\"|\",\"\\\\\"},{\"/\",\"-\",\"\\\\\",\"-\"},{\"|\",\"\\\\\",\"|\",\"/\"},{\"\\\\\",\"-\",\"/\",\"-\"}},\"You died.\",\"You won.\"}\
    local board=setmetatable({},{__index=function(s,n) s[n]={} return s[n] end})\
    for l1=99,-99,-1 do\
        board[l1][-99]={\"-\",3}\
    end\
    for l1=99,-99,-1 do\
        board[l1][99]={\"|\",3}\
    end\
    for l1=99,-99,-1 do\
        board[-99][l1]={\"-\",3}\
    end\
    for l1=99,-99,-1 do\
        board[99][l1]={\"|\",3}\
    end\
    board[100][100]={\"/\",3}\
    board[100][-100]={\"\\\\\",3}\
    board[-100][100]={\"/\",3}\
    board[-100][-100]={\"\\\\\",3}\
    local modem\
    local initheader=\"TRON:\"\
    local pnid\
    local function send(...)\
        rednet.send(pnid,string.sub(textutils.serialize({...}),2,-2))\
    end\
    local function decode(dat)\
        return textutils.unserialize(\"{\"..dat..\"}\")\
    end\
    local col\
    term.setCursorPos(math.floor(Cx-(#lang[1])/2),Cy)\
    term.setTextColor(colors.orange)\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.write(lang[1])\
    rednet.broadcast(initheader..\"pingcon\")\
    local p1,p2\
    while true do\
        local p={os.pullEvent()}\
        if p[1]==\"rednet_message\" and p[2]~=os.getComputerID() then\
            if p[3]==initheader..\"pingcon\" then\
                rednet.send(p[2],initheader..\"pongcon\")\
                pnid=p[2]\
                col={colors.blue,colors.red}\
                p1={pos={x=2,y=1},dir=0}\
                p2={pos={x=1,y=1},dir=0}\
                break\
            elseif p[3]==initheader..\"pongcon\" then\
                pnid=p[2]\
                col={colors.red,colors.blue}\
                p1={pos={x=1,y=1},dir=0}\
                p2={pos={x=2,y=1},dir=0}\
                break\
            end\
        end\
    end\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    local frs=0\
    local fps=0 -- frame counter (debugging)\
    local function render()\
        frs=frs+1\
        term.setTextColor(colors.gray)\
        for l1=1,My do\
            term.setCursorPos(1,l1)\
            local pre=p1.pos.x%3\
            if (l1+p1.pos.y)%3==0 then\
                if pre==1 then\
                    pre=\"--\"\
                elseif pre==2 then\
                    pre=\"-\"\
                else\
                    pre=\"\"\
                end\
                term.write(pre..string.rep(\"+--\",math.ceil(Mx/2)))\
            else\
                if pre==1 then\
                    pre=\"  \"\
                elseif pre==2 then\
                    pre=\" \"\
                else\
                    pre=\"\"\
                end\
                term.write(pre..string.rep(\"|  \",math.ceil(Mx/2)))\
            end\
        end\
        term.setTextColor(colors.blue)\
        local num=0\
        for k,v in pairs(board) do\
            for l,y in pairs(v) do\
                if (k-p1.pos.x)+Cx<=Mx and (k-p1.pos.x)+Cx>=1 and (l-p1.pos.y)+Cy<=My and (l-p1.pos.y)+Cy>=1 then\
                    term.setTextColor(col[y[2]] or y[2])\
                    term.setCursorPos((k-p1.pos.x)+Cx,(l-p1.pos.y)+Cy)\
                    term.write(y[1])\
                    num=num+1\
                end\
            end     \
        end\
        term.setCursorPos(1,1)\
        if col[1]==colors.blue then\
            term.setTextColor(colors.blue)\
            term.write(\"BLUE\")\
        else\
            term.setTextColor(colors.red)\
            term.write(\"RED\")\
        end\
    end\
    local odr={[p1]=p1.dir,[p2]=p2.dir}\
    local function processmove(u)\
        local ccol\
        if u==p1 then\
            ccol=col[1]\
        else\
            ccol=col[2]\
        end\
        term.setTextColor(ccol)\
        if u==p1 and board[u.pos.x][u.pos.y] then\
            send(\"DIE\")\
            term.setCursorPos(Cx,Cy)\
            term.write(\"x\")\
            sleep(2)\
            term.setCursorPos(Cx-math.floor(#lang[4]/2),Cy)\
            term.setTextColor(colors.orange)\
            term.clear()\
            term.write(lang[4])\
            sleep(5)\
            term.setTextColor(colors.white)\
            term.setBackgroundColor(colors.black)\
            term.setCursorPos(1,1)\
            term.clear()\
            error(\"\",0)\
        end\
        if odr[u]~=u.dir then\
            board[u.pos.x][u.pos.y]={lang[3][odr[u]+1][u.dir+1],ccol}\
        end\
        if not board[u.pos.x][u.pos.y] then\
            if u.dir%2==0 then\
                board[u.pos.x][u.pos.y]={\"|\",ccol}\
            else\
                board[u.pos.x][u.pos.y]={\"-\",ccol}\
            end\
        end\
        local chr=board[u.pos.x][u.pos.y][1]\
        local shr={x=u.pos.x,y=u.pos.y}\
        if u.dir==0 then\
            u.pos.y=u.pos.y-1\
        elseif u.dir==1 then\
            u.pos.x=u.pos.x+1\
        elseif u.dir==2 then\
            u.pos.y=u.pos.y+1\
        else\
            u.pos.x=u.pos.x-1\
        end\
        odr[u]=u.dir\
        return chr,shr\
    end\
    local function renderchar(u)\
        local ccol\
        if u==p1 then\
            ccol=col[1]\
            term.setCursorPos(Cx,Cy)\
        else\
            ccol=col[2]\
            term.setCursorPos((p2.pos.x-p1.pos.x)+Cx,(p2.pos.y-p1.pos.y)+Cy)\
        end\
        term.setTextColor(ccol)\
        term.write(lang[2][u.dir])\
    end\
    function processturn(p,u)\
        local dirs={[keys.up]=0,[keys.right]=1,[keys.down]=2,[keys.left]=3}\
        if (odr[u]+2)%4~=dirs[p] then\
            u.dir=dirs[p]\
            renderchar(u)\
            if u==p1 then\
                send(\"ROT\",u.dir)\
            end\
        end\
    end\
    render()\
    local move=os.startTimer(0.1)\
    local fct=os.startTimer(1)\
    while true do\
        local p={os.pullEvent()}\
        if p[1]==\"key\" then\
            if p[2]==keys.up or p[2]==keys.right or p[2]==keys.down or p[2]==keys.left then\
                processturn(p[2],p1)\
            end\
        elseif p[1]==\"timer\" then\
            if p[2]==move then\
                local ret,ret2=processmove(p1)\
                move=os.startTimer(0.1)\
                send(\"MOVE\",ret2,ret)\
            elseif p[2]==fct then\
                fps=frs\
                frs=0\
                fct=os.startTimer(1)\
            end\
        elseif p[1]==\"rednet_message\" and p[2]==pnid then\
            local dat=decode(p[3])\
            if dat[1]==\"ROT\" then\
                p2.dir=dat[2]\
                renderchar(p2)\
            elseif dat[1]==\"DIE\" then\
                p1.pos=p2.pos\
                render()\
                term.setTextColor(col[2])\
                term.setCursorPos(Cx,Cy)\
                term.write(\"x\")\
                sleep(2)\
                term.setCursorPos(Cx-math.floor(#lang[5]/2),Cy)\
                term.setTextColor(colors.orange)\
                term.clear()\
                term.write(lang[5])\
                sleep(5)\
                term.setTextColor(colors.white)\
                term.setBackgroundColor(colors.black)\
                term.setCursorPos(1,1)\
                term.clear()\
                return\
            elseif dat[1]==\"MOVE\" then\
                p2.pos=dat[2]\
                board[p2.pos.x][p2.pos.y]={dat[3],col[2]}\
                render()\
                renderchar(p1)\
                renderchar(p2)\
            end\
        end\
    end\
end\
local selected=1\
function rmain()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1,1)\
    term.setTextColor(colors.blue)\
    local txt=\"  _  _______________     ________    __       _\\n/ \\\\/  _____________\\\\   /  ____  \\\\  |  \\\\     / |\\n\\\\_/| /    / \\\\       | /  /    \\\\  \\\\ |   \\\\ __/  |\\n   | |    | |\\\\  ___/ |  |      |  ||    \\\\     |\\n   | |    | | \\\\ \\\\    |  |      |  ||   __\\\\    |\\n   | |    | |  \\\\ \\\\    \\\\  \\\\____/  / |  /   \\\\   |\\n   \\\\_/    \\\\_/   \\\\_/    \\\\________/  |_/     \\\\__|\"\
    local cnt=1\
    local cnt2=Cx-23\
    for char in string.gmatch(txt,\".\") do\
        if char~=\" \" and char~=\"\\n\" then\
            term.setCursorPos(cnt2,cnt)\
            term.write(char)\
        elseif char==\"\\n\" then\
            cnt=cnt+1\
            cnt2=Cx-23\
        end\
        cnt2=cnt2+1\
    end\
    local selections={\"Multiplayer\",\"Exit\"}\
    selected=((selected-1)%(#selections))+1\
    for k,v in pairs(selections) do\
        if k==selected then\
            term.setTextColor(colors.blue)\
            term.setCursorPos(Cx-(math.floor(#v/2)+1),k+10)\
            term.write(\">\"..v..\"<\")\
            term.setTextColor(colors.lightBlue)\
            term.setCursorPos(Cx-math.floor(#v/2),k+10)\
            term.write(v)\
        else\
            term.setTextColor(colors.lightBlue)\
            term.setCursorPos(Cx-math.floor(#v/2),k+10)\
            term.write(v)\
        end\
    end\
end\
rmain()\
while true do\
    p={os.pullEvent()}\
    if p[1]==\"key\" then\
        if p[2]==keys.up then\
            selected=selected-1\
            rmain()\
        elseif p[2]==keys.down then\
            selected=selected+1\
            rmain()\
        elseif p[2]==keys.enter then\
            if selected==1 then\
                a,b=pcall(maingame)\
                if not a and b~=\"\" then\
                    error(b,0)\
                end\
                rmain()\
            else\
            break\
            end\
        end\
    end\
end\
term.setCursorPos(1,1)\
term.clear()",
  [ "quicktype/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"QuickType\",\
}",
  [ "redcast/files/manager" ] = "local w,h = term.getSize()\
local previousDir = currentDir\
local currentDir = \"/\"\
local dirFiles = fs.list(currentDir)\
local newDirFiles = {}\
local choice = 1\
\
function printCentered(string, y)\
  local x = (w/2)-(string.len(string)/2)\
  term.setCursorPos(x,y)\
  term.write(string)\
end\
\
function clearScr()\
  term.clear()\
  term.setCursorPos(1,1)\
end\
\
function updateList()\
  for i = 1,#dirFiles do\
    newDirFiles[i] = currentDir..\"/\"..dirFiles[i]\
    --dirFiles[i] = currentDir..dirFiles[i]\
  end\
  clearScr()\
  for i = 1,#newDirFiles do\
    print(newDirFiles[i])\
  end\
  --error()\
end\
\
clearScr()\
printCentered(\"Simple File Manager\",2)\
printCentered(\"By Gonow32\",3)\
printCentered(\"Press B to go back a folder\",5)\
printCentered(\"Press C to create a file\",6)\
printCentered(\"Press D to delete a file/folder\",7)\
printCentered(\"Press M to make a folder\",8)\
printCentered(\"Press R to go to the root directory\",9)\
sleep(5)\
\
function renderDir()\
  clearScr()\
  for i = 1,#dirFiles do\
    if fs.isDir(newDirFiles[i]) then\
      if choice == i then\
        term.setBackgroundColour(colours.white)\
      end\
      term.setTextColour(colours.green)\
      printCentered(dirFiles[i], i)\
      term.setTextColour(colours.white)\
      term.setBackgroundColour(colours.black)\
    else\
      if choice == i then\
        term.setBackgroundColour(colours.white)\
        term.setTextColour(colours.black)\
      end\
      printCentered(dirFiles[i], i)\
      term.setBackgroundColour(colours.black)\
      term.setTextColour(colours.white)\
    end\
  end\
  printCentered(\"Simple File Manager\",h)\
  --printCentered(\"Press B to go back\",h-1)\
  --printCentered(\"Press C to make a new file\",h-2)\
  if fs.exists(\"partitiontable\") then\
    file = fs.open(\"partitiontable\",\"r\")\
    if not tonumber(file.readLine()) then\
      term.setCursorPos(1,h)\
      term.write(\"Corrupt Disk\")\
    else\
      term.setCursorPos(1,h)\
      term.write(\"FDisk Format\")\
    end\
    file.close()\
  else\
    term.setCursorPos(1,h)\
    term.write(\"Regular Disk\")\
  end\
  local freeSpace = tostring(fs.getFreeSpace(currentDir))\
  term.setCursorPos((w-string.len(freeSpace))-1,h)\
  term.write(freeSpace..\"B\")\
end\
\
updateList()\
\
while true do\
  renderDir()\
  local event, key = os.pullEvent(\"key\")\
  if key == keys.up then\
    if choice == 1 then\
      choice = #dirFiles\
    else\
      choice = choice - 1\
    end\
  elseif key == keys.down then\
    if choice == #dirFiles then\
      choice = 1\
    else\
      choice = choice + 1      \
    end\
  elseif key == keys.c then\
    local filename = \"\"\
    while filename == \"\" do\
      clearScr()\
      term.write(\"Filename: \")\
      filename = read()\
    end\
    shell.run(\"edit \"..currentDir..filename)\
    dirFiles = fs.list(currentDir)\
    updateList()\
    renderDir()\
  elseif key == keys.d then\
    printCentered(\"Confirm Delete [Y/N]\",h-1)\
    local event, key = os.pullEvent(\"key\")\
    if key == keys.y then\
      if not fs.isReadOnly(newDirFiles[choice]) then\
        fs.delete(newDirFiles[choice])\
        dirFiles = fs.list(currentDir)\
        updateList()\
        choice = 1\
        renderDir()\
      end\
    end\
  elseif key == keys.r then\
    currentDir = \"/\"\
    dirFiles = fs.list(currentDir)\
    updateList()\
    choice = 1\
    renderDir()\
  elseif key == keys.m then\
    local name = \"\"\
    while name == \"\" do\
      clearScr()\
      term.write(\"Folder Name: \")\
      name = read()\
    end\
    splitter = \"/\"\
    if currentDir == \"/\" then\
      splitter = \"\"\
    end\
    fs.makeDir(currentDir..splitter..name)\
    dirFiles = fs.list(currentDir)\
    updateList()\
    renderDir()\
  elseif key == keys.b then\
    local pseudoDir = previousDir\
    previousDir = currentDir\
    currentDir = pseudoDir\
    dirFiles = fs.list(currentDir)\
    updateList()\
    choice = 1\
    renderDir()\
  elseif key == keys.enter then\
    if fs.isDir(newDirFiles[choice]) then\
      previousDir = currentDir\
      currentDir = newDirFiles[choice]\
      dirFiles = fs.list(currentDir)\
      updateList()\
      choice = 1\
      renderDir()\
    else\
      clearScr()\
      local invalid = true\
      --error(\"I reached here!\")\
      repeat\
        clearScr()\
        term.write(\"Run, Edit, Cancel or Delete? [R/E/C/D] \")\
        option = read()\
        if option == \"r\" or option == \"R\" then\
          invalid = false\
          shell.run(newDirFiles[choice])\
        elseif option == \"e\" or option == \"E\" then\
          invalid = false\
          shell.run(\"edit \"..newDirFiles[choice])\
        elseif option == \"c\" or option == \"C\" then\
          invalid = false\
        elseif option == \"d\" or option == \"D\" then\
          invalid = false\
          fs.delete(newDirFiles[choice])\
          dirFiles = fs.list(currentDir)\
          updateList()\
        end\
      until invalid == false\
    end\
  end\
end",
  [ "redcast/eula" ] = "CubeSpace RedCast\
End User License Agreement\
---------------------------------------------------\
1. Distribution\
As the end user, you shall not redistribute this\
software without permission from CubeSpace.\
2. Source Code\
As the end user, you shall not copy code directly\
from the base of RedCast without\
permission from CubeSpace.\
3. End Usage\
The software cannot be blamed for causing errors in\
originally unintended purposes such as work areas.",
  [ ".background" ] = "\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee\
            eeeeeeeeeeeeeee",
  [ "goldrunner/levels/classic_012" ] = "bbbbbbbbbb      4     4           5   bbbbbbbbbb\
bbbbbbbbbbcbbbbbbbbbbbbbbbbbc     c   bbbbbbbbbb\
bbbbbbbbbbc             4   cdddddc  4bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbcbbbbbbbbb     cbbbbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbcc              c   bbbbbbbbbb\
bbbbbbbbbbbbbbbbbccdddddddc       c   bbbbbbbbbb\
bbbbbbbbbbb4 4bbcc      e c  4  e c  4bbbbbbbbbb\
bbbbbbbbbbbbbbbcc     cbbbb777bbbbcbbbbbbbbbbbbb\
bbbbbbbbbb     c      c           c   bbbbbbbbbb\
bbbbbbbbbb     c      c           c   bbbbbbbbbb\
bbbbbbbbbb    ec   4  cdddddddddddc  4bbbbbbbbbb\
bbbbbbbbbbcbbbbbbbbbbbc  4     4  cbbbbbbbbbbbbb\
bbbbbbbbbbc           c bbbbbbbbb c   bbbbbbbbbb\
bbbbbbbbbbc           c           c   bbbbbbbbbb\
bbbbbbbbbbc      4    c    0 4    c   bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/classic_003" ] = "bbbbbbbbbb                           5bbbbbbbbbb\
bbbbbbbbbbdddddddddd    4            8bbbbbbbbbb\
bbbbbbbbbbc 4      cbbbbbbbbbbc      8bbbbbbbbbb\
bbbbbbbbbbbbbbbc   c          c7777777bbbbbbbbbb\
bbbbbbbbbb     c e c     4    c       bbbbbbbbbb\
bbbbbbbbbb     cbbbbbbcbbbbbcbb       bbbbbbbbbb\
bbbbbbbbbb  4  c      c     c  dd     bbbbbbbbbb\
bbbbbbbbbbbbbbcb      c  e  c    dd   bbbbbbbbbb\
bbbbbbbbbb    c    cbbbbbbcbb      dd4bbbbbbbbbb\
bbbbbbbbbb    cddddc      c  e       bbbbbbbbbbb\
bbbbbbbbbb    c       cbbbbbbbbbc     bbbbbbbbbb\
bbbbbbbbbb    c       cbbbbbbbbbc     bbbbbbbbbb\
bbbbbbbbbbbbbcbbbbbbbbbb   4   bbbbbcbbbbbbbbbbb\
bbbbbbbbbbbbbcbbbbbbbbbb cbbbc bbbbbcbbbbbbbbbbb\
bbbbbbbbbb   c      0    cbbbc   4  c bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "redcast/files/chatlib" ] = "modems = {peripheral.find(\"modem\")}\
timers = {}\
for i,v in pairs(modems) do\
  if v.isWireless() then m = v end\
end\
if not m then\
  error(\"You need at least 1 wireless modem!\")\
end\
if not fs.exists(\"favourites\") then\
  fs.makeDir(\"favourites\")\
end\
m.open(os.getComputerID())\
servers = fs.list(\"favourites\")\
status = {}\
for i,v in pairs(servers) do\
  status[i] = \"Unknown\"\
end\
sel = 1\
t = os.startTimer(0) --lower update time is the first thing\
term.clear()\
for i,v in pairs(servers) do\
  term.setCursorPos(2,i)\
  if sel == i then\
    write(\"-->\"..v..\" - \"..status[i]..\"<--\")\
  else\
    write(\"   \"..v..\" - \"..status[i])\
  end\
end\
while true do\
  e = {os.pullEvent()}\
  if e[1] == \"key\" then\
    if e[2] == keys.up then\
      sel = sel - 1\
      if sel <= 0 then\
        sel = #servers\
      end\
    elseif e[2] == keys.q then\
      return\
    elseif e[2] == keys.a then\
      term.clear()\
      term.setCursorPos(2,2)\
      term.write(\"New Server: \")\
      local input = read()\
      local f = fs.open(\"favourites/\"..input,\"w\")\
      f.write(\"\")\
      f.close()\
      servers = fs.list(\"favourites\")\
      for i,v in pairs(servers) do\
        status[i] = \"Unknown\"\
      end\
    elseif e[2] == keys.enter then\
      term.clear()\
      term.setCursorPos(1,1)\
      term.write(\"Username: \")\
      local input = read()\
      shell.run(\"chat join \"..servers[sel]..\" \"..input)\
    elseif e[2] == keys.down then\
      sel = sel + 1\
      if sel > #servers then\
        sel = 1\
      end\
    end\
    term.clear()\
    for i,v in pairs(servers) do\
      term.setCursorPos(2,i)\
      if sel == i then\
        write(\"-->\"..v..\" - \"..status[i]..\"<--\")\
       else\
        write(\"   \"..v..\" - \"..status[i])\
      end\
    end\
  elseif e[1] == \"timer\" then\
    if e[2] == t then\
      --send request to all servers\
      for i,v in pairs(servers) do\
        m.transmit(rednet.CHANNEL_BROADCAST,os.getComputerID(),{nMessageID = math.random(1,2147483647), nRecipient = rednet.CHANNEL_BROADCAST, message = {sType=\"lookup\",sProtocol=\"chat\",sHostname=v}, sProtocol=\"dns\"})\
        timers[i] = os.startTimer(0.5)\
      end\
      t = os.startTimer(1)\
    else\
      for i,v in pairs(timers) do\
        if v == e[2] then\
          status[i] = \"Offline\"\
        end\
      end\
    end\
  elseif e[1] == \"modem_message\" then\
    if type(e[5]) == \"table\" then\
      if e[5].sProtocol and e[5].sProtocol == \"dns\" then\
        if e[5].message and e[5].message.sType and e[5].message.sHostname and e[5].message.sProtocol then\
          if e[5].message.sType == \"lookup response\" and e[5].message.sProtocol == \"chat\" then\
            for i,v in pairs(servers) do\
              if v == e[5].message.sHostname then\
                status[i] = \"Online\"\
                timers[i] = nil\
                            for i,v in pairs(servers) do\
                  term.setCursorPos(2,i)\
                  if sel == i then\
                    write(\"-->\"..v..\" - \"..status[i]..\"<--\")\
                  else\
                    write(\"   \"..v..\" - \"..status[i])\
                  end\
                end\
              end\
            end\
          end\
        end\
      end\
    end\
  end\
end",
  [ "laserblast/info" ] = "return {\
  sGameFile = \"startgame\",\
  sName = \"Laserblast\",\
}",
  [ "redcast/files/credits" ] = "                 RedCast Credits\
               -------------------\
                            \
Gonow32 - Lead Developer\
\
datcoder1208 - RedCast Developer\
\
Mr_Iron2 - API and Game Contribution\
\
The_Nightmare - RedCube Clock Developer\
\
Luca_S - Chat Library Developer\
\
Translators\
-----------\
\
\
Gonow32 - English\
\
Luca_S - German\
\
Ale2610 - Italian\
\
RafiOfDevelop - Indonesian\
\
  _______ _                 _    \
 |__   __| |               | |   \
    | |  | |__   __ _ _ __ | | __\
    | |  | '_ \\ / _` | '_ \\| |/ /\
    | |  | | | | (_| | | | |   < \
    |_|  |_| |_|\\__,_|_| |_|_|\\_\\\
                                 \
          __     __         \
          \\ \\   / /         \
           \\ \\_/ /__  _   _ \
            \\   / _ \\| | | |\
             | | (_) | |_| |\
             |_|\\___/ \\__,_|\
                            ",
  [ "redcast/files/apis/gameutils" ] = "--[[\
    GameUtil\
    An API for drawing sprites and animations made in NPaintPro\
    By NitrogenFingers\
]]--\
\
\
--The back buffer. Initialized as nil\
local backbuffer = nil\
--The bounds of the terminal the back buffer displays to\
local tw,th = nil, nil\
\
--[[Constructs a new buffer. This must be done before the buffer can written to.\
    Params: terminal:?table = The function table to draw to a screen. By default (nil) this refers\
            to the native terminal, but monitor displays can be passed through as well:\
            local leftMonitor = peripherals.wrap(\"left\")\
            initializeBuffer(leftMonitor)\
    Returns:boolean = True if the buffer was successfully initialized; false otherwise\
]]--\
function initializeBuffer(terminal)\
    if not terminal then terminal = term end\
    if not terminal.getSize then\
        error(\"Parameter cannot be used to initialize the backbuffer.\")\
    end\
    if not terminal.isColour() then\
        error(\"Parameter does not represent an advanced computer.\")\
    end\
    \
    tw,th = terminal.getSize()\
    backbuffer = { }\
    for y=1,th do\
        backbuffer[y] = { }\
    end\
    return true\
end\
\
--[[Will clear the buffer and reset to nil, or to a colour if provided\
    Params: colour:?number = The colour to set the back buffer to\
    Returns:nil\
]]--\
function clearBuffer(colour)\
    if not backbuffer then\
        error(\"Back buffer not yet initialized!\")\
    end \
    \
    for y=1,#backbuffer do\
        backbuffer[y] = { }\
        if colour then\
            for x=1,tw do\
                backbuffer[y][x] = colour\
            end\
        end\
    end\
end\
\
--[[Draws the given entity to the back buffer\
    Params: entity:table = the entity to draw to the buffer\
    Returns:nil\
]]--\
function writeToBuffer(entity)\
    if not backbuffer then\
        error(\"Back buffer not yet initialized!\")\
    end \
    \
    local image = nil\
    if entity.type == \"animation\" then\
        image = entity.frames[entity.currentFrame]\
    else\
        image = entity.image\
    end\
    \
    for y=1,image.dimensions.height do\
        for x=1,image.dimensions.width do\
            if image[y][x] then\
                local xpos,ypos = x,y\
                if entity.mirror.x then xpos = image.dimensions.width - x + 1 end\
                if entity.mirror.y then ypos = image.dimensions.height - y + 1 end\
                \
                --If the YPos doesn't exist, no need to loop through the rest of X!\
                --Don't you love optimization?\
                if not backbuffer[entity.y + ypos - 1] then break end\
                \
                backbuffer[entity.y + ypos - 1][entity.x + xpos - 1] = image[y][x]\
            end\
        end\
    end\
end\
\
--[[Draws the contents of the buffer to the screen. This will not clear the screen or the buffer.\
    Params: terminal:table = the terminal to draw to\
    Returns:nil\
]]--\
function drawBuffer(terminal)\
    if not backbuffer then\
        error(\"Back buffer not yet initialized!\")\
    end \
    if not terminal then terminal = term end\
    if not terminal.setCursorPos or not terminal.setBackgroundColour or not terminal.write then\
        error(\"Parameter cannot be used to initialize the backbuffer.\")\
    end\
    if not terminal.isColour() then\
        error(\"Parameter does not represent an advanced computer.\")\
    end\
    \
    for y=1,math.min(#backbuffer, th) do\
        for x=1,tw do\
            if backbuffer[y][x] then\
                terminal.setCursorPos(x,y)\
                terminal.setBackgroundColour(backbuffer[y][x])\
                terminal.write(\" \")\
            end\
        end\
    end\
end\
\
--[[Converts a hex digit into a colour value\
    Params: hex:?string = the hex digit to be converted\
    Returns:string A colour value corresponding to the hex, or nil if the character is invalid\
]]--\
local function getColourOf(hex)\
    local value = tonumber(hex, 16)\
    if not value then return nil end\
    value = math.pow(2,value)\
    return value\
end\
\
--[[Converts every pixel of one colour in a given sprite to another colour\
    Use for \"reskinning\". Uses OO function.\
    Params: self:sprite = the sprite to reskin\
            oldcol:number = the colour to replace\
            newcol:number = the new colour\
    Returns:nil\
]]--\
local function repaintS(self, oldcol, newcol)\
    for y=1,self.image.bounds.height do\
        for x=1, self.image.bounds.width do\
            if self.image[y][x] == oldcol then\
                self.image[y][x] = newcol\
            end\
        end\
    end\
end\
\
--[[Converts every pixel of one colour in a given animation to another colour\
    Use for \"reskinning\". Uses OO function.\
    Params: self:animation = the animation to reskin\
            oldcol:number = the colour to replace\
            newcol:number = the new colour\
    Returns:nil\
]]--\
local function repaintA(self, oldcol, newcol)\
    for f=1,#self.frames do\
        print(self.frames[f].bounds)\
        for y=1,self.frames[f].bounds.height do\
            for x=1, self.frames[f].bounds.width do\
                if self.frames[f][y][x] == oldcol then\
                    self.frames[f][y][x] = newcol\
                end\
            end\
        end\
    end\
end\
\
--[[Prints the sprite on the screen\
    Params: self:sprite = the sprite to draw\
    Returns:nil\
]]--\
local function drawS(self)\
    local image = self.image\
    \
    for y=1,image.dimensions.height do\
        for x=1,image.dimensions.width do\
            if image[y][x] then\
                local xpos,ypos = x,y\
                if self.mirror.x then xpos = image.dimensions.width - x + 1 end\
                if self.mirror.y then ypos = image.dimensions.height - y + 1 end\
                \
                term.setBackgroundColour(image[y][x])\
                term.setCursorPos(self.x + xpos - 1, self.y + ypos - 1)\
                term.write(\" \")\
            end\
        end\
    end\
end\
\
--[[Prints the current frame of the animation on screen\
    Params: self:anim = the animation to draw\
            frame:?number = the specific frame to draw (default self.currentFrame)\
    Returns:nil\
]]--\
local function drawA(self, frame)\
    if not frame then frame = self.currentFrame end\
    local image = self.frames[frame]\
\
    for y=1,image.dimensions.height do\
        for x=1,image.dimensions.width do\
            if image[y][x] then\
                local xpos,ypos = x,y\
                if self.mirror.x then xpos = image.dimensions.width - x + 1 end\
                if self.mirror.y then ypos = image.dimensions.height - y + 1 end\
                \
                term.setBackgroundColour(image[y][x])\
                term.setCursorPos(self.x + xpos - 1, self.y + ypos - 1)\
                term.write(\" \")\
            end\
        end\
    end\
end\
\
--[[Checks the animation timer provided to see whether or not the animation needs to be updated.\
    If so, it makes the necessary change.\
    Params: self:animation = the animation to be updated\
            timerID:number = the ID of the most recent timer event\
    Returns:bool = true if the animation was update; false otherwise\
]]--\
local function updateA(self, timerID)\
    if self.timerID and timerID and self.timerID == timerID then\
        self.currentFrame = self.currentFrame + 1\
        if self.currentFrame > self.upperBound then\
            self.currentFrame = self.lowerBound\
        end\
        return true\
    else\
        return false\
    end\
end\
\
--[[Moves immediately to the next frame in the sequence, as though an update had been called.\
    Params: self:animation = the animation to update\
    Returns:nil\
]]--\
local function nextA(self)\
    self.currentFrame = self.currentFrame + 1\
    if self.currentFrame > self.upperBound then\
        self.currentFrame = self.lowerBound\
    end\
end\
\
--[[Moves immediately to the previous frame in the sequence\
    Params: self:animation = the animation to update\
    Returns:nil\
]]--\
local function previousA(self)\
    self.currentFrame = self.currentFrame - 1\
    if self.currentFrame < self.lowerBound then\
        self.currentFrame = self.upperBound\
    end\
end\
\
--[[A simple debug function that displays the outline of the bounds\
    on a given shape. Useful when testing collision detection or other game\
    features.\
    Params: entity:table = the bounded entity to represent\
            colour:?number = the colour to draw the rectangle (default red)\
    Returns:nil\
]]--\
local function drawBounds(entity, colour)\
    if not colour then colour = colours.red end\
    local image = nil\
    if entity.type == \"animation\" then image = entity.frames[entity.currentFrame]\
    else image = entity.image end\
    \
    term.setBackgroundColour(colour)\
    \
    corners = {\
        topleft = { x = entity.x + image.bounds.x - 1, y = entity.y + image.bounds.y - 1 };\
        topright = { x = entity.x + image.bounds.x + image.bounds.width - 2, y = entity.y + image.bounds.y - 1 };\
        botleft = { x = entity.x + image.bounds.x - 1, y = entity.y + image.bounds.y + image.bounds.height - 2 };\
        botright = { x = entity.x + image.bounds.x + image.bounds.width - 2, y = entity.y + image.bounds.y + image.bounds.height - 2 };\
    }\
    \
    term.setCursorPos(corners.topleft.x, corners.topleft.y)\
    term.write(\" \")\
    term.setCursorPos(corners.topright.x, corners.topright.y)\
    term.write(\" \")\
    term.setCursorPos(corners.botleft.x, corners.botleft.y)\
    term.write(\" \")\
    term.setCursorPos(corners.botright.x, corners.botright.y)\
    term.write(\" \")\
end\
\
--[[Creates a bounding rectangle object. Used in drawing the bounds and the rCollidesWith methods\
    Params: self:table = the entity to create the rectangle\
    Returns:table = the left, right, top and bottom edges of the rectangle\
]]--\
local function createRectangle(entity)\
    local image = nil\
    if entity.type == \"animation\" then\
        image = entity.frames[entity.currentFrame]\
    else\
        image = entity.image\
    end\
    --Note that the origin is always 1, so we subtract 1 for every absolute coordinate we have to test.\
    return {\
        left = entity.x + image.bounds.x - 1;\
        right = entity.x + image.bounds.x + image.bounds.width - 2;\
        top = entity.y + image.bounds.y - 1;\
        bottom = entity.y + image.bounds.y + image.bounds.height - 2;\
    }\
end\
\
--[[Performs a rectangle collision with another given entity. Entity can be of sprite or animation\
    type (also true of the self). Bases collision using a least squared approach (rectangle precision).\
    Params: self:sprite,animation = the object in question of the testing\
            other:sprite,animation = the other object tested for collision\
    Returns:bool = true if bounding rectangle intersect is true; false otherwse\
]]--\
local function rCollidesWith(self, other)\
    --First we construct the rectangles\
    local img1C, img2C = createRectangle(self), createRectangle(other)\
    \
    --We then determine the \"relative position\" , in terms of which is farther left or right\
    leftmost,rightmost,topmost,botmost = nil,nil,nil,nil\
    if img1C.left < img2C.left then\
        leftmost = img1C\
        rightmost = img2C\
    else\
        leftmost = img2C\
        rightmost = img1C\
    end\
    if img1C.top < img2C.top then\
        topmost = img1C\
        botmost = img2C\
    else\
        topmost = img2C\
        botmost = img1C\
    end\
    \
    --Then we determine the distance between the \"extreme\" edges-\
        --distance between leftmost/right edge and rightmost/left edge\
        --distance between topmost/bottom edge and bottommost/top edge\
    local xdist = rightmost.left - leftmost.right\
    local ydist = botmost.top - topmost.bottom\
    \
    --If both are negative, our rectangles intersect!\
    return xdist <= 0 and ydist <= 0\
end\
\
--[[Performs a pixel collision test on another given entity. Either entity can be of sprite or animation\
    type. This is done coarsegrain-finegrain, we first find the intersection between the rectangles\
    (if there is one), and then test the space within that intersection for any intersecting pixels.\
    Params: self:sprite,animation = the object in question of the testing\
            other:sprite,animation = the other object being tested for collision\
    Returns:?number,?number: The X and Y position in which the collision occurred.\
]]--\
local function pCollidesWith(self, other)\
    --Identically to rCollidesWith, we create our rectangles...\
    local img1C, img2C = createRectangle(self), createRectangle(other)\
    --We'll also need the images to compare pixels later\
    local img1, img2 = nil,nil\
    if self.type == \"animation\" then img1 = self.frames[self.currentFrame]\
    else img1 = self.image end\
    if other.type == \"animation\" then img2 = other.frames[other.currentFrame]\
    else img2 = other.image end\
    \
    --...then we position them...\
    leftmost,rightmost,topmost,botmost = nil,nil,nil,nil\
    --We also keep track of which is left and which is right- it doesn't matter in a rectangle\
    --collision but it does in a pixel collision.\
    img1T,img2T = {},{}\
    \
    if img1C.left < img2C.left then\
        leftmost = img1C\
        rightmost = img2C\
        img1T.left = true\
    else\
        leftmost = img2C\
        rightmost = img1C\
        img2T.left = true\
    end\
    if img1C.top < img2C.top then\
        topmost = img1C\
        botmost = img2C\
        img1T.top = true\
    else\
        topmost = img2C\
        botmost = img1C\
        img2T.top = true\
    end\
    \
    --...and we again find the distances between the extreme edges.\
    local xdist = rightmost.left - leftmost.right\
    local ydist = botmost.top - topmost.bottom\
    \
    --If these distances are > 0 then we stop- no need to go any farther.\
    if xdist > 0 or ydist > 0 then return false end\
    \
    \
    for x = rightmost.left, rightmost.left + math.abs(xdist) do\
        for y = botmost.top, botmost.top + math.abs(ydist) do\
            --We know a collision has occurred if a pixel is occupied by both images. We do this by\
            --first transforming the coordinates based on which rectangle is which, then testing if a\
            --pixel is at that point\
                -- The leftmost and topmost takes the distance on x and y and removes the upper component\
                -- The rightmost and bottommost, being the farther extremes, compare from 1 upwards\
            local testX,testY = 1,1\
            if img1T.left then testX = x - img1C.left + 1\
            else testX = x - img1C.left + 1 end\
            if img1T.top then testY = y - img1C.top + 1\
            else testY = y - img1C.top + 1 end\
            \
            local occupy1 = img1[testY + img1.bounds.y-1][testX + img1.bounds.x-1] ~= nil\
            \
            if img2T.left then testX = x - img2C.left + 1\
            else testX = x - img2C.left + 1 end\
            if img2T.top then testY = y - img2C.top + 1\
            else testY = y - img2C.top + 1 end\
            \
            local occupy2 = img2[testY + img2.bounds.y-1][testX + img2.bounds.x-1] ~= nil\
            \
            if occupy1 and occupy2 then return true end\
        end\
    end\
    --If the looop terminates without returning, then no pixels overlap\
    return false\
end\
\
--[[Moves the sprite or animation to the specified coordinates. This performs the auto-centering, so\
    the user doesn't have to worry about adjusting for the bounds of the shape. Recommended for absolute\
    positioning operations (as relative direct access to the X will have unexpected results!)\
    Params: self:table = the animation or sprite to move\
    x:number = the new x position\
    y:number = the new y position\
]]--\
local function moveTo(self, x, y)\
    local image = nil\
    if self.type == \"animation\" then\
        image = self.frames[self.currentFrame]\
    else\
        image = self.image\
    end\
    \
    self.x = x - image.bounds.x + 1\
    self.y = y - image.bounds.y + 1\
end\
\
--[[\
    Sprites Fields:\
x:number = the x position of the sprite in the world\
y:number = the y position of the sprite in the world\
image:table = a table of the image. Indexed by height, a series of sub-tables, each entry being a pixel\
        at [y][x]. It also contains:\
    bounds:table =\
        x:number = the relative x position of the bounding rectangle\
        y:number = the relative y position of the bounding rectangle\
        width:number = the width of the bounding rectangle\
        height:number = the height of the bounding rectangle\
    dimensions:table =\
        width = the width of the entire image in pixels\
        height = the height of the entire image in pixels\
        \
mirror:table =\
    x:bool = whether or not the image is mirrored on the X axis\
    y:bool = whether or not the image is mirrored on the Y axis\
repaint:function = see repaintS (above)\
rCollidesWith:function = see rCollidesWith (above)\
pCollidesWith:function = see pCollidesWith (above)\
draw:function = see drawS (above)\
]]--\
\
--[[Loads a new sprite into a table, and returns it to the user.\
    Params: path:string = the absolute path to the desired sprite\
    x:number = the initial X position of the sprite\
    y:number = the initial Y position of the sprite\
]]--\
function loadSprite(path, x, y)\
    local sprite = { \
        type = \"sprite\",\
        x = x,\
        y = y,\
        image = { },\
        mirror = { x = false, y = false }\
    }\
    \
    if fs.exists(path) then\
        local file = io.open(path, \"r\" )\
        local leftX, rightX = math.huge, 0\
        local topY, botY = nil,nil\
        \
        local lcount = 0\
        for line in file:lines() do\
            lcount = lcount+1\
            table.insert(sprite.image, {})\
            for i=1,#line do\
                if string.sub(line, i, i) ~= \" \" then\
                    leftX = math.min(leftX, i)\
                    rightX = math.max(rightX, i)\
                    if not topY then topY = lcount end\
                    botY = lcount\
                end\
                sprite.image[#sprite.image][i] = getColourOf(string.sub(line,i,i))\
            end\
        end\
        file:close()\
        \
        sprite.image.bounds = {\
            x = leftX,\
            width = rightX - leftX + 1,\
            y = topY,\
            height = botY - topY + 1\
        }\
        sprite.image.dimensions = {\
            width = rightX,\
            height = botY\
        }\
        \
        sprite.x = sprite.x - leftX + 1\
        sprite.y = sprite.y - topY + 1\
        \
        sprite.repaint = repaintS\
        sprite.rCollidesWith = rCollidesWith\
        sprite.pCollidesWith = pCollidesWith\
        sprite.draw = drawS\
        sprite.moveTo = moveTo\
        return sprite\
    else\
        error(path..\" not found!\")\
    end\
end\
\
--Animations contain\
    --Everything a sprite contains, but the image is a series of frames, not just one image\
    --An timerID that tracks the last animation\
    --An upper and lower bound on the active animation\
    --An update method that takes a timer event and updates the animation if necessary\
\
--[[\
\
]]--\
function loadAnimation(path, x, y, currentFrame)\
    local anim = {\
        type = \"animation\",\
        x = x,\
        y = y,\
        frames = { },\
        mirror = { x = false, y = false },\
        currentFrame = currentFrame\
    }\
    \
    table.insert(anim.frames, { })\
    if fs.exists(path) then\
        local file = io.open(path, \"r\")\
        local leftX, rightX = math.huge, 0\
        local topY, botY = nil,nil\
        \
        local lcount = 0\
        for line in file:lines() do\
            lcount = lcount+1\
            local cFrame = #anim.frames\
            if line == \"~\" then\
                anim.frames[cFrame].bounds = {\
                    x = leftX,\
                    y = topY,\
                    width = rightX - leftX + 1,\
                    height = botY - topY + 1\
                }\
                anim.frames[cFrame].dimensions = {\
                    width = rightX,\
                    height = botY\
                }\
                table.insert(anim.frames, { })\
                leftX, rightX = math.huge, 0\
                topY, botY = nil,nil\
                lcount = 0\
            else\
                table.insert(anim.frames[cFrame], {})\
                for i=1,#line do\
                    if string.sub(line, i, i) ~= \" \" then\
                        leftX = math.min(leftX, i)\
                        rightX = math.max(rightX, i)\
                        if not topY then topY = lcount end\
                        botY = lcount\
                    end\
                    anim.frames[cFrame][#anim.frames[cFrame]] [i] = getColourOf(string.sub(line,i,i))\
                end\
            end\
        end\
        file:close()\
        local cFrame = #anim.frames\
        anim.frames[cFrame].bounds = {\
            x = leftX,\
            y = topY,\
            width = rightX - leftX + 1,\
            height = botY - topY + 1\
        }\
        anim.frames[cFrame].dimensions = {\
            width = rightX,\
            height = botY\
        }\
        anim.x = anim.x - leftX + 1\
        anim.y = anim.y - topY + 1\
        \
        if not currentFrame or type(currentFrame) ~= \"number\" or currentFrame < 1 or \
                currentFrame > #anim.frames then \
            anim.currentFrame = 1 \
        end\
    \
        anim.timerID = nil\
        anim.lowerBound = 1\
        anim.upperBound = #anim.frames\
        anim.updating = false\
    \
        anim.repaint = repaintA\
        anim.rCollidesWith = rCollidesWith\
        anim.pCollidesWith = pCollidesWith\
        anim.draw = drawA\
        anim.update = updateA\
        anim.next = nextA\
        anim.previous = previousA\
        anim.moveTo = moveTo\
        return anim\
    else\
        error(path..\" not found!\")\
    end\
end",
  [ "redcast/files/lang/de" ] = "return {\
  start = {\
    welcome = \"Willkommen zu RedCast.\",\
    revolution = \"Die Revolution der Konsolen.\",\
    setup = \"DråBCcke ENTF um in den Setup zu gelangen.\",\
    free = \"%free%B freier Speicher.\"\
  },\
  disk = {\
    detect = \"Disk erkannt.\",\
    media = \"Musik disk erkannt\",\
    playquestion = \"MåB6chtest du die Musik abspielen?\",\
    play = \"Spiele %title%\"\
  },\
  gui = {\
    advancedonly = \"Diese GUI kann nur auf Advanced computern ausgefåBChrt werden.\",\
    menu = {\
      restart = \"Neustarten\",\
      shutdown = \"Herunterfahren\",\
      chatmanager = \"Chat\",\
      paint = \"Paint\",\
      redspace = \"RedSpace\",\
      floppy = \"Disk\",\
      credits = \"Credits\"\
    },\
    paint = {\
      open = \"Gebe einen neuen/existierenden Namen ein: \"\
    },\
    redspace = {\
      id = \"Server ID eingeben: \"\
    }\
  }\
}",
  [ "redcast/files/redspace2" ] = "local args = {...}\
local side = args[1]\
local currenturl = \"1830\"\
local w, h = term.getSize()\
local menu = 0\
local message = \"\"\
\
if not term.isColor() then\
  print(\"This software is incompatible with monochrome computers.\")\
  return\
end\
\
if not side then\
  print(\"Usage: redspace2 [modem side]\")\
  return\
end\
\
rednet.open(side)\
\
rednet.send(tonumber(currenturl), \"get\")\
local id3, message3 = rednet.receive(0.5)\
message = message3\
\
--error(\"I reached here!\"..message3)\
\
function clearScr()\
  term.clear()\
  term.setCursorPos(1,1)\
end\
\
clearScr()\
\
function urlBar()\
  term.setCursorPos(1,1)\
  paintutils.drawLine(1, 1, w, 1, colours.white)\
  term.setTextColour(colours.black)\
  term.setCursorPos(1,1)\
  print(\"URL: \"..currenturl)\
end\
\
function drawMenu()\
  term.setCursorPos(1,h)\
  term.setBackgroundColour(colours.red)\
  term.setTextColour(colours.black)\
  term.write(\"          \")\
  term.setCursorPos(1,h-1)\
  term.write(\" EnterURL \")\
  term.setCursorPos(1,h-2)\
  term.write(\" Refresh  \")\
  term.setCursorPos(1,h-3)\
  term.write(\" Exit     \")\
  term.setCursorPos(1,h-4)\
  term.write(\"          \")\
end\
\
function drawBrowser()\
  term.current().setVisible(false)\
  term.setBackgroundColour(colours.black)\
  term.setTextColour(colours.white)\
  clearScr()\
  urlBar()\
  term.setBackgroundColour(colours.black)\
  term.setTextColour(colours.white)\
  term.setCursorPos(1,2)\
  if message then\
    print(message)\
  else\
    print(\"There was no reply from the server. Your connecton may have timed out or the server may be offline.\")\
  end\
  term.current().setVisible(true)\
end\
\
drawBrowser()\
\
while true do\
  local event, button, x, y = os.pullEvent(\"mouse_click\")\
  if menu == 0 then\
    menu = 1\
    drawBrowser()\
    --error(\"I reached here!\")\
    drawMenu()\
  elseif x >= 1 and x <= 10 and y == h-1 and menu == 1 then\
    term.setCursorPos(1,1)\
    term.setBackgroundColour(colours.white)\
    term.setTextColour(colours.black)\
    term.clearLine()\
    currenturl = read()\
    drawBrowser()\
    menu = 0\
    if not tonumber(currenturl) then\
      currenturl = 1830\
    end\
    term.setCursorPos(1,2)\
    rednet.send(tonumber(currenturl), \"get\")\
    local id, message4 = rednet.receive(0.5)\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    message = message4\
    clearScr()\
    drawBrowser()\
    --print(message)\
  elseif x >= 1 and x <= 10 and y == h-2 and menu == 1 then\
    drawBrowser()\
    menu = 0\
    if not tonumber(currenturl) then\
      currenturl = 1830\
    end\
    rednet.send(tonumber(currenturl), \"get\")\
    local id2, message2 = rednet.receive(0.5)\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    message = message2\
    clearScr()\
    drawBrowser()\
    --print(message2)\
  elseif x >= 1 and x <= 10 and y == h-3 and menu == 1 then\
    term.setBackgroundColour(colours.black)\
    term.setTextColour(colours.white)\
    term.clear()\
    term.setCursorPos(1,1)\
    return\
  else\
    menu = 0\
    drawBrowser()\
  end\
end\
",
  [ "goldrunner/levels/classic_001" ] = "bbbbbbbbbb                  5         bbbbbbbbbb\
bbbbbbbbbb    4             8         bbbbbbbbbb\
bbbbbbbbbbbbbbbbbcbbbbbbb   8         bbbbbbbbbb\
bbbbbbbbbb       cdddddddddd8    4    bbbbbbbbbb\
bbbbbbbbbb       c    bbc   bbbbbbbcbbbbbbbbbbbb\
bbbbbbbbbb       c    bbc          c  bbbbbbbbbb\
bbbbbbbbbb     e c    bbc       4e c  bbbbbbbbbb\
bbbbbbbbbbbbcbbbbb    bbbbbbbbcbbbbbbbbbbbbbbbbb\
bbbbbbbbbb  c                 c       bbbbbbbbbb\
bbbbbbbbbb  c           e     c       bbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbcbbbbbbbbbbc       bbbbbbbbbb\
bbbbbbbbbb         c          c       bbbbbbbbbb\
bbbbbbbbbb       4 cddddddddddc   4   bbbbbbbbbb\
bbbbbbbbbb    cbbbbbb         bbbbbbbcbbbbbbbbbb\
bbbbbbbbbb    c         0  4         cbbbbbbbbbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb\
7777777777777777777777777777777777777777777777777",
  [ "goldrunner/levels/01_welcome" ] = "                                                 \
                                             5   \
                                           bb8bb \
                                            b8b  \
                                             8   \
             4          ddddddddddddddd      8   \
            bbbbcbbbbbbb                     8   \
             bbbc                            8   \
                c                       4  4 8   \
                c                      bbbbbbb   \
        bcbbbbbbbb                       bbbbbbb \
         c               44                  bbbb\
         c   4          bbbb                  bbb\
     4bbbbbbbbbbc        bb    4     4         bb\
     bbbbbbbbbb c             bbbcbbbbb        bb\
b       bbb     c                c             bb\
bbb             c 4     4        c       0    bbb\
bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb",
  [ "CCQT/highscore.txt" ] = "0",
  [ "minesweeper/startgame" ] = "local displays={}\
local termOption\
if term.isColor() then\
  displays[1]={wrap=nil,side=nil,name=\"Terminal\"}\
  termOption=true\
end\
\
for _,side in pairs(rs.getSides()) do\
  if peripheral.getType(side)==\"monitor\" then\
    local wrap=peripheral.wrap(side)\
    if wrap.isColor() then\
      local disp={wrap=wrap,side=side, name=\"Monitor (\"..side..\")\"}\
      displays[#displays+1]=disp\
    end\
  end\
end\
\
function writeCentered(text,line,clearFirst,fg,bg,padChar)\
  local w=term.getSize()\
  fg=fg or colors.white\
  bg=bg or colors.black\
  local x=math.floor((w-#text)/2)\
  term.setTextColor(fg)\
  term.setBackgroundColor(bg)\
  \
  if padChar then\
     text=string.rep(padChar,x)..text\
     text=text..string.rep(padChar,w-#text)\
     term.setCursorPos(1,line)\
  else\
     term.setCursorPos(x+1,line)\
     if clearFirst then term.clearLine() end\
  end\
  term.write(text)\
  return x+1\
end\
\
if #displays==0 then\
  print(\"Minesweep requires an advanced computer or monitor!\")\
  return\
end\
local redirected=false\
local prevRedir\
\
local function exitnow(forced)\
  if redirected then if term.restore then term.restore() else term.redirect(prevRedir) end end\
  term.setTextColor(colors.white)\
  term.setBackgroundColor(colors.black)\
  local w,h=term.getSize()\
  term.setCursorPos(1,h)\
  if forced then\
    print(\"terminated\")\
    error()\
  else\
    term.scroll(1)\
    print(\"Thanks for playing!\")\
  end\
   \
end\
\
local function doSimpleMenu(title, list)\
  term.clear()\
  local selected=1\
  writeCentered(title,1)\
  local done=false\
  buttonPos={}\
  while not done do\
    for i=1,#list do\
      local text=list[i].name\
      local fg, bg\
      if i==selected then\
        fg=colors.black\
        bg=colors.white\
        text=\"[\"..text..\"]\"\
      else\
        fg=colors.white\
        bg=colors.black\
        text=\" \"..text..\" \"\
      end   \
      buttonPos[i]=writeCentered(text,4+i,false, fg,bg)+1\
    end\
  \
    while true do\
      local e={os.pullEventRaw()}\
      if e[1]==\"terminate\" then\
        exitnow(true)\
      elseif e[1]==\"key\" then\
        if e[2]==keys.up then\
          selected=selected-1\
          if selected==0 then selected=#list end\
          break\
        elseif e[2]==keys.down then\
          selected=selected+1\
          if selected>#list then selected=1 end\
          break\
        elseif e[2]==keys.enter then\
          done=true\
          break\
        end\
      elseif e[1]==\"mouse_click\" or e[1]==\"monitor_touch\" then\
        if e[4]>4 and e[4]<=4+#list then\
          local i=e[4]-4\
          if e[3]>=buttonPos[i] and e[3]<buttonPos[i]+#list[i].name then\
            selected=i\
            done=true\
            break\
          end\
        end\
      end          \
    end\
  end\
  return selected\
end\
\
local activeDisplay=1\
if #displays>1 then\
  activeDisplay=doSimpleMenu(\"Select the display to play on:\",displays) \
end\
\
if displays[activeDisplay].wrap then\
  term.setTextColor(colors.white)\
  term.setBackgroundColor(colors.black)\
  term.setCursorPos(1,19)\
  term.scroll(1)\
  print(\"Playing Minesweep on \"..displays[activeDisplay].side..\" monitor...\")  \
  prevRedir=term.redirect(displays[activeDisplay].wrap)\
  redirected=true\
  term.setTextColor(colors.white)\
  term.setBackgroundColor(colors.black)\
  term.clear()\
  displays[activeDisplay].wrap.setTextScale(.5)\
end\
\
local difLevels={\
  { name=\"easy\", width=6, height=6,mines=6},\
  { name=\"medium\", width=15, height=8,mines=15},\
  { name=\"hard\", width=30,height=17,mines=60},\
}\
\
local w,h=term.getSize()\
if w<20 then\
  difLevels[3]=nil\
end\
\
local level=doSimpleMenu(\"difficulty\",difLevels)\
local level=difLevels[level]\
\
local field={}\
\
local function forEachValidNeighbor(x,y,func)\
  for y2=math.max(y-1,1),math.min(y+1,level.height) do\
    for x2=math.max(x-1,1),math.min(x+1,level.width) do\
      if x~=x2 or y~=y2 then\
        func(x2,y2)      \
      end\
    end\
  end\
end\
\
local function genField()\
  for y=1,level.height do\
    field[y]={}\
    for x=1,level.width do\
      field[y][x]={mine=false,count=0,revealed=false,flag=false}\
    end\
  end\
  \
\
  for i=1,level.mines do\
    local x, y\
    repeat\
      x,y=math.random(1,level.width),math.random(level.height)\
    until field[y][x].mine==false\
    field[y][x].mine=true\
    forEachValidNeighbor(x,y,function(x,y) field[y][x].count=field[y][x].count+1 end)\
  end\
end\
\
local xoff,yoff=math.floor((w-level.width)/2), math.floor((h-level.height+2)/2)\
\
local mineColor, mineColorBg=colors.black,colors.red\
local flagColor=colors.red\
local unrevealedColorB=colors.lightGray\
local flagWrong=colors.black\
local flagWrongBg=colors.red\
local screenBg=colors.gray\
local infoBarColor=colors.yellow\
local infoBarBG=colors.blue\
local winColor, winColorBG, loseColor, loseColorBG=colors.green,colors.lightGray, colors.red, colors.lightGray\
\
if not term.isColor() then\
  mineColor, mineColorBg=colors.white,colors.black\
  flagColor=colors.black\
  unrevealedColorB=colors.white\
  flagWrong=colors.white\
  flagWrongBg=colors.black\
  screenBg=colors.black\
  infoBarColor=colors.white\
  infoBarBG=colors.black\
  winColor, winColorBG, loseColor, loseColorBG=colors.white, colors.black, colors.white, colors.black\
end\
\
local numColors = {\
  colors.lightBlue,\
  colors.green,\
  colors.red,\
  colors.blue,\
  colors.magenta,\
  colors.cyan,\
  colors.pink,\
  colors.purple,\
}\
  \
local function getNumColor(n)\
  if n>0 and term.isColor() then\
    return numColors[n]\
  end\
  return colors.white\
end\
\
local function drawTile(x,y)\
  term.setCursorPos(xoff+x,yoff+y)\
  if field[y][x].revealed then\
    if field[y][x].mine then\
      if field[y][x].flag then\
        term.setTextColor(mineColorBg)\
        term.setBackgroundColor(mineColor)\
      else\
        term.setTextColor(mineColor)\
        term.setBackgroundColor(mineColorBg)\
      end\
      term.write(\"X\")\
    else\
      local n=field[y][x].count\
      if field[y][x].flag==true then\
        term.setBackgroundColor(flagWrongBg)\
        term.setTextColor(flagWrong)\
        term.write(\"?\")\
      else\
        term.setTextColor(getNumColor(n))\
        term.setBackgroundColor(colors.black)\
        if n==0 then\
          term.write(\" \")\
        else\
          term.write(string.char(string.byte(\"0\")+field[y][x].count))\
        end\
      end\
    end\
  elseif field[y][x].flag==true then\
    term.setTextColor(flagColor)\
    term.setBackgroundColor(unrevealedColorB)\
    term.write(\"?\")\
  else\
    term.setTextColor(colors.black)\
    term.setBackgroundColor(unrevealedColorB)\
    term.write(\" \")\
  end\
end\
\
\
\
function drawGrid()\
  for y=1,level.height do\
    for x=1,level.width do  \
      drawTile(x,y)\
    end\
  end\
end\
\
local clickMode=1\
local gameover\
local revealToWin\
\
local buttonOffset\
\
local function drawButtons()\
  local text=\"new quit \"\
  if clickMode==1 then\
    text=text..\"flag\"\
  else\
    text=text..\"show\"\
  end\
  \
  buttonOffset=writeCentered(text,1,true,infoBarColor,infoBarBG)\
end\
\
\
local function reveal(x,y)\
  local revealStack={{x,y}}\
  local visited={}\
  visited[x+y*level.width]=true\
  while #revealStack>0 do\
    x,y=unpack(table.remove(revealStack,1))\
    \
    if not field[y][x].revealed and not field[y][x].flag then\
      revealToWin=revealToWin-1\
      field[y][x].revealed=true\
      drawTile(x,y)\
      if field[y][x].count==0 then\
        forEachValidNeighbor(x,y,\
          function(x,y) \
            if not visited[x+y*level.width] and (field[y][x].revealed or field[y][x].flag)==false then\
              revealStack[#revealStack+1]={x,y} \
            end\
          end\
        )\
      end\
    end\
  end\
end\
\
--declared here, so drawBar can see it\
local seconds=0\
local numMinesLeft=0\
\
local function drawInfoBar(message,fg,bg)\
  fg=fg or infoBarColor\
  bg=bg or infoBarBG\
  \
  local text\
  if message then\
    text=\"[\"..message..\"]\"\
  else\
    text=string.format(\"[ %2d/%2d  %3ds ]\",numMinesLeft,level.mines,seconds)\
  end\
\
  writeCentered(text,2,false,fg,bg,\"-\")\
    \
end\
\
local function confirm(text)\
  writeCentered(text,1,true,infoBarColor,infoBarBG)\
  local x=writeCentered(\"[ yes no ]\",2,true,infoBarColor,infoBarBG,\"-\")+2\
  local res  \
  while true do\
    local e={os.pullEvent()}\
    if e[1]==\"mouse_click\" or e[1]==\"monitor_touch\" then\
      if e[4]==2 then\
        local cx=e[3]-x+1\
        if cx>0 and cx<4 then\
          res=true\
          break\
        elseif cx>4 and cx<7 then\
          res=false\
          break\
        end\
      end\
    end\
  end\
  drawButtons()\
  drawInfoBar()\
  return res\
end\
\
--length of a real second, in units of os.time()\
local timeSecond=1/50\
\
function runGame()\
  while true do\
    term.setTextColor(colors.white)\
    term.setBackgroundColor(screenBg)  \
    term.clear()\
    drawInfoBar()\
\
    genField()\
    drawGrid()\
    revealToWin=level.width*level.height-level.mines\
    numMinesLeft=level.mines\
\
    drawButtons()\
\
    gameover=nil\
    local startTime=nil\
    local alarmTime=nil\
    local secondAlarm=nil\
    seconds=0\
\
    while true do\
      local e={os.pullEventRaw()}\
      if e[1]==\"terminate\" then\
        exitnow(true)\
      elseif e[1]==\"alarm\" and e[2]==secondAlarm then\
        seconds=seconds+1\
        drawInfoBar()\
        alarmTime=(alarmTime+timeSecond)%24\
        secondAlarm=os.setAlarm(alarmTime)\
      elseif e[1]==\"mouse_click\" or e[1]==\"monitor_touch\" then\
        local clickModeX=clickMode\
\
        if e[1]==\"mouse_click\" and e[2]~=1 then\
          --use button to determine action\
          clickModeX=e[2]\
        end\
\
        --determine target tile\
        local x,y=e[3],e[4]\
        if x>xoff and x<=xoff+level.width and y>yoff and y<=yoff+level.height then\
          --clicked field!\
          x,y=x-xoff,y-yoff\
          local tile=field[y][x]\
          if clickModeX==1 then\
            --reveal, unless flagged?\
            if tile.revealed then\
              --count flags around\
              local count=0\
              forEachValidNeighbor(x,y,function(x,y) if not field[y][x].revealed and field[y][x].flag then count=count+1 end end)\
              if count==tile.count then\
                forEachValidNeighbor(x,y,\
                  function(x,y) \
                    if field[y][x].revealed==false and field[y][x].flag==false then \
                      if field[y][x].mine then \
                        gameover=\"lose\" \
                      else \
                        reveal(x,y)\
                      end \
                    drawTile(x,y) \
                    end \
                  end)\
                if gameover then break end\
              end\
            elseif tile.flag==false then\
              if startTime==nil then\
                startTime=os.time()\
                alarmTime=startTime+timeSecond\
                secondAlarm=os.setAlarm(alarmTime)\
              end\
              reveal(x,y)\
              if tile.mine then\
                gameover=\"lose\"\
                break\
              end\
            end\
          elseif clickModeX==2 then\
            --toggle flag\
            if tile.revealed==false then\
              if tile.flag then\
                numMinesLeft=numMinesLeft+1\
              else\
                numMinesLeft=numMinesLeft-1\
              end\
              drawInfoBar()\
              tile.flag=not tile.flag\
              drawTile(x,y)          \
            else\
              --flag all tiles if the surrounding unrevealed count equals mine count\
              local count=0\
              forEachValidNeighbor(x,y,\
                function(x,y) \
                  if not field[y][x].revealed then \
                    count=count+1 \
                  end \
                end)\
              if count==field[y][x].count then\
                forEachValidNeighbor(x,y,\
                  function(x,y)\
                    if not field[y][x].revealed and not field[y][x].flag then\
                      field[y][x].flag=true\
                      numMinesLeft=numMinesLeft-1\
                      drawTile(x,y)\
                    end\
                  end)\
                drawInfoBar()\
              end\
            end          \
          end\
        else\
          --not a tile, check menu\
          if y==1 then\
            x=x-buttonOffset+1\
            if x>0 and x<4 then\
              --new\
              if confirm(\"Start new game?\") then\
                gameover=\"new\"\
                break\
              end\
            elseif x>4 and x<9 then\
              --quit\
              if confirm(\"Exit minesweep?\") then\
                gameover=\"quit\"\
                break\
              end\
            elseif x>9 and x<14 then\
              clickMode=clickMode==1 and 2 or 1\
              drawButtons()\
            end\
          end\
        end\
      else\
        --any other event\
      end\
      if revealToWin==0 then\
        gameover=\"win\"\
        break\
      end\
    end\
    term.setTextColor(colors.white)\
    term.setBackgroundColor(colors.black)\
    if gameover==\"quit\" then\
      break\
    end\
    if gameover~=\"new\" then\
\
      drawInfoBar(\"You \"..gameover..\"!\",gameover==\"win\" and winColor or loseColor, gameover==\"win\" and winColorBG or loseColorBG)\
      term.setTextColor(colors.white)\
      for y=1,level.height do\
        for x=1,level.width do\
          if field[y][x].mine and not field[y][x].revealed then\
            field[y][x].revealed=true\
            drawTile(x,y)\
          elseif field[y][x].mine==false and field[y][x].flag then\
            field[y][x].revealed=true\
            drawTile(x,y)\
          end\
        end\
      end\
\
      os.startTimer(5)\
      while ({os.pullEvent()})[1]==\"alarm\" do\
        --skip alarm so it doesn't override within a second from the game timer events\
      end\
\
      drawInfoBar()\
\
      if not confirm(\"Play Again?\") then\
        break\
      end\
    end  \
  end\
end\
\
local ok, err=pcall(runGame)\
\
term.setTextColor(colors.white)\
term.setBackgroundColor(colors.black)\
term.clear()\
\
if not ok then\
  print(err)\
end\
\
exitnow()",
}