opencomputers teleport touch screen
local component = require("component")
local gpu = component.gpu
local keyboard = require('keyboard')
--local colors = require("colors")
local event = require('event')
local computer = require('computer')
local unicode = require('unicode')

local w,h = 80,35
gpu.setResolution(w,h)

opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
local map = {} -- 3x3
local inventory = {
    food = 0,
    water = 0,
    poison = 0,
}

local keybinds = {
    drink = keyboard.keys.t,
    eat = keyboard.keys.y,
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
    poison = keyboard.keys.u
}

local colors = {
    white = 0xF0F0F0,
    orange = 0xF2B233,
    magenta = 0xE57FD8,
    lightBlue = 0x99B2F2,
    yellow = 0xDEDE6C,
    lime = 0x7FCC19,
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
    pink = 0xF2B2CC,
    gray = 0x4C4C4C,
    lightGray = 0x999999,
    cyan = 0x4C99B2,
    purple = 0xB266E5,
    blue = 0x3366CC,
    brown = 0x7F664C,
    green = 0x57A64E,
    red = 0xCC4C4C1,
    black = 0x111111
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
}

local sizeX,sizeY = 25,25

local cntX,cntY = 13,13

local upgrades = {
    {name = "Range+", price=90, level=0, max_level = 2},
    {name = "Coins+", price=40, level=0, max_level = 2},
    {name = "", price=1000000000, level=2, max_level = 1}
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
}
local range = 2
local stanRange = range
local coins_range = {1,6}

local once_upgrades = {
    {name = "No Lava", price=100,has=false},
    {name = "Noclip", price=250,has=false},
    {name = "Second life", price=50,has=false}
}
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen

local shop_items = { -- {name = name, price = price}
    {name = "Food", price = 10, id = "food"},
    {name = "Water", price = 25, id = "water"},
    {name = "Alcohol", price = 500, id = "poison"}
}

local coins = 25
local food = 100 --100% = 100 units
local water = 10 --100% = 10 units.
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen

local rarity = { --1 in rarity^rarity room. (it's random to it's more like a chance)
    food = 3,
    water = 2,
    coins = 5
}

local plrS = unicode.char(0xEC12) -- Player icon
local shpS = unicode.char(0x20AC)-- Shop icon
local prtS = unicode.char(0x62C) -- Portal icon
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
local lavS = unicode.char(0xE188)-- Lava icon
local oshS = unicode.char(0x22AB)-- Once shop
local ushS = unicode.char(0x22AA)-- Upgrades shop
local wllS = unicode.char(0x28FF)-- Wall Symbol
local drkS = unicode.char(0x28FF)-- Darkness symbol

local gameOver = false
local reason = "Something went wrong"

print("Choose difficulity(0-any number)")
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
local difficulity
local endless = false
while true do
    difficulity = io.read()
    if difficulity == "D" then
        once_upgrades[1].has = true
        once_upgrades[2].has = true
        difficulity = 0
        coins = 20000
        break
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
    end
    if tonumber(difficulity) ~= nil then
        break
    end
end
print("Endless or not? (Y/n)")
while true do
    endless = io.read()
    if string.lower(endless) == "n" then
        endless = false
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
        break
    elseif string.lower(endless) == "y" then
        endless = true
        break
    end
end

local wwpt = 0.4*difficulity --Water waste per Turn
local fwpt = 6*difficulity --Water waste per Turn

opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
function possibleToMove(direction)
    if once_upgrades[2].has == true then
        return true
    end
    if direction == "top" then
        return map[cntY][cntX].top
    elseif direction == "right" then
        return map[cntY][cntX+1].left
    elseif direction == "down" then
        return map[cntY+1][cntX].top
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
    elseif direction == "left" then
        return map[cntY][cntX].left
    end
end

function init()
    for i=1,sizeY,1 do
        table.insert(map, {})
        for y=1,sizeX,1 do
            table.insert(map[i], nil)
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
        end
    end
end

function clearMap()
    for y=1,sizeY,1 do
        for x=1,sizeX,1 do
            map[y][x] = nil
        end
    end
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
end

function generateMap()
    for y=1,sizeY,1 do
        for x=1,sizeX,1 do
            if map[y][x] == nil then
                map[y][x] = {}
                local variant = math.random(1,3)
                local type = math.random(1,90)
                local inventory = {}
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                if type == math.random(1,90) then
                    type = "shop"
                else
                    type = math.random(1,90)
                    if type == math.random(1,60) then
                        type = "portal"
                    else
                        type = math.random(1,50)
                        if type == math.random(1,50) then
                            type = "lava"
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
                        else
                            type = math.random(1,300)
                            if type == math.random(1,300) then
                                type = "ushop"
                            else
                                type = math.random(1,250)
                                if type == math.random(1,250) then
                                    type = "oshop"
                                else
                                    type = "room"
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
                                end
                            end
                        end
                        type = math.random(1,300)
                        if type == math.random(1,300) then
                            type = "ushop"
                        else
                            type = math.random(1,250)
                            if type == math.random(1,250) then
                                type = "oshop"
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                            else
                                type = "room"
                            end
                        end
                    end
                end
                local wC1,wC2 = math.random(1,rarity.water),math.random(1,rarity.water)
                local fC1,fC2 = math.random(1,rarity.food),math.random(1,rarity.food)
                local cC1,cC2 = math.random(1,rarity.coins),math.random(1,rarity.coins)
                if wC1 == wC2 then
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
                    table.insert(inventory,"water")
                end
                if fC1 == fC2 then
                    table.insert(inventory,"food")
                end
                if cC1 == cC2 then
                    table.insert(inventory,"coin")
                end
                local dark = false
                if type ~= "lava" or tonumber(difficulity) > 1 then
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                    local t = math.random(1,3)
                    if t == math.random(1,2) then
                        dark = true
                    end
                end
                local form = {top = false, left = false, inventory = inventory, type = type, dark = dark}
                if variant == 1 then
                    form.top = true
                    map[y][x] = form
                elseif variant == 2 then
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                    form.left = true
                    map[y][x] = form
                elseif variant == 3 then
                    form.left = true
                    form.top = true
                    map[y][x] = form
                end
            end
        end
    end
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
end

function shiftMap(direction)
    local newMap = {}
    for y = 1, sizeY do
        newMap[y] = {}
        for x = 1, sizeX do
            newMap[y][x] = nil
        end
    end
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
    if direction == "down" then
        for x = 1, sizeX do
            for y=2,sizeY,1 do
                newMap[y-1][x] = map[y][x]
            end
        end
        for x=1,sizeY,1 do
            newMap[sizeY][x] = nil
        end
    elseif direction == "right" then
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
        for y=1,sizeY,1 do
            for x=2,sizeX,1 do
                newMap[y][x] = map[y][x+1]
            end
        end
        for y=1,sizeY,1 do
            newMap[y][sizeX] = nil
        end
    elseif direction == "top" then
        for x=1,sizeX,1 do
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
            for y=2,sizeY,1 do
                newMap[y][x] = map[y-1][x]
            end
        end
        for x=1,sizeX,1 do
            newMap[1][x] = nil
        end
    elseif direction == "left" then
        for y=1,sizeY,1 do
            for x=sizeX-1,1,-1 do
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                newMap[y][x] = map[y][x-1]
            end
        end
        for y=1,sizeY,1 do
            newMap[y][1] = nil
        end
    end
    map = newMap
end

opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
init()
generateMap()

while true do
    local panelWidth = 10
    local dx,dy = 0,0

    local function draw()
        local width = panelWidth
        gpu.setBackground(colors.black)
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
        gpu.fill(0,0,w,h," ")
        --Map draw logic
        local offset = 2
        for y=cntY-range,cntY+range,1 do
            for x=cntX-range,cntX+range,1 do
                gpu.setForeground(colors.white)
                gpu.setBackground(colors.black)
                dx,dy = x*2+offset-(cntX-range)*2,y*2+offset-(cntY-range)*2
                if map[y][x].top == true then
                    gpu.set(dx, dy,wllS.." ")
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
                else
                    gpu.set(dx, dy,wllS..wllS)
                end
                dx,dy = x*2+offset-(cntX-range)*2,y*2+1+offset-(cntY-range)*2
                local s = ""
                local sC = colors.white
                if y == cntY and x == cntX then
                    s = plrS
                    sC = colors.yellow
                elseif map[y][x].dark == true then
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
                    s = drkS
                    sC = colors.gray
                end
                if map[y][x].dark == false or (y == cntY and x == cntX) then
                    if map[y][x].type == "shop" then
                        s = shpS
                        sC = colors.lime
                    elseif map[y][x].type == "portal" then
                        s = prtS
                        sC = colors.cyan
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
                    elseif map[y][x].type == "lava" then
                        s = lavS
                        sC = colors.red
                    elseif map[y][x].type == "ushop" then
                        s = ushS
                        sC = colors.blue
                    elseif map[y][x].type == "oshop" then
                        s = oshS
                        sC = colors.yellow
                    end
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
                end
                if map[y][x].left == true then
                    gpu.set(dx,dy," ")
                    gpu.setForeground(sC)
                    gpu.set(dx+1,dy,s)
                else
                    gpu.set(dx,dy,wllS)
                    gpu.setForeground(sC)
                    gpu.set(dx+1,dy,s)
                end
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
            end
        end
        -- Coins, Food, Water level
        --FOOD
        gpu.setForeground(colors.white)
        gpu.setBackground(colors.yellow)
        gpu.fill(0,h,w,1," ")
        gpu.set(1,h,"Food level: "..tostring(food))
        gpu.setForeground(colors.white)
        --Water
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
        gpu.setBackground(colors.cyan)
        gpu.fill(0,h-1,w,1," ")
        gpu.set(1,h-1,unicode.char(0x2615).."Water level: "..tostring(water*10))
        gpu.setForeground(colors.white)
        --Coins
        gpu.setBackground(colors.orange)
        gpu.fill(0,h-2,w,1," ")
        gpu.set(1,h-2,unicode.char(0x26C3).."Coins: "..tostring(coins))
        gpu.setForeground(colors.white)
        --Shop menu display
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
        gpu.setBackground(colors.black)
        gpu.setForeground(colors.white)
        if map[cntY][cntX].type == "shop" then
            dx,dy = w-width-1,1
            gpu.setForeground(colors.lime)
            gpu.set(dx,dy,unicode.char(0x20AC).."Shop menu")
            for i=1,#shop_items,1 do
                gpu.setForeground(colors.white)
                dx,dy = w-width,i*2
                gpu.set(dx,dy,shop_items[i].name)
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                if coins < shop_items[i].price then
                    gpu.setForeground(colors.red)
                end
                dx,dy = w-width,i*2+1
                gpu.set(dx,dy,tostring(shop_items[i].price))
            end
        end
        if map[cntY][cntX].type == "ushop" then
            dx,dy = w-width-1,1
            gpu.setForeground(colors.blue)
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
            gpu.set(dx,dy,unicode.char(0x22AA).."Upgrades")
            for i=1,#upgrades,1 do
                gpu.setForeground(colors.white)
                dx,dy = w-width,i*2
                gpu.set(dx,dy,upgrades[i].name..":"..tostring(upgrades[i].level))
                if coins < upgrades[i].price then
                    gpu.setForeground(colors.red)
                end
                dx,dy = w-width,i*2+1
                if upgrades[i].level >= upgrades[i].max_level then
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
                    gpu.setForeground(colors.yellow)
                    gpu.set(dx,dy,"Max LVL") 
                else
                    gpu.set(dx,dy,tostring(upgrades[i].price))
                end
            end
        end
        if map[cntY][cntX].type == "oshop" then
            dx,dy = w-width-1,1
            gpu.setForeground(colors.yellow)
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
            gpu.set(dx,dy,unicode.char(0x22AB).."Upgrades")
            for i=1,#once_upgrades,1 do
                gpu.setForeground(colors.white)
                dx,dy = w-width,i*2
                gpu.set(dx,dy,once_upgrades[i].name)
                if coins < once_upgrades[i].price then
                    gpu.setForeground(colors.red)
                end
                dx,dy = w-width,i*2+1
                if once_upgrades[i].has then
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                    gpu.setForeground(colors.yellow)
                    gpu.set(dx,dy,"Already")
                else
                    gpu.set(dx,dy,tostring(once_upgrades[i].price))
                end
            end
        end
        if map[cntY][cntX].type == "portal" then
            dx,dy = w-width-1,2
            gpu.setForeground(colors.cyan)
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
            gpu.set(dx,dy,unicode.char(0x62C).."Portal")
            dx,dy = w-width,4
            gpu.set(dx,dy,"TELEPORT")
        end
        --Inventory menu display
        gpu.setBackground(colors.black)
        gpu.setForeground(colors.white)
        dx,dy = w-width,8
        gpu.setForeground(colors.brown)
        gpu.set(w-width-2,8,unicode.char(0xA9B).."Backpack")
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
        dx,dy = w-width,9
        gpu.setForeground(colors.orange)
        gpu.set(dx,dy,"Food")
        dx,dy = w-width,10
        gpu.set(dx,dy,tostring(inventory.food).."x")
        dx,dy = w-width,11
        gpu.setForeground(colors.blue)
        gpu.set(dx,dy,"Water")
        dx,dy = w-width,12
        gpu.set(dx,dy,tostring(inventory.water).."x")
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
        dx,dy = w-width,13
        gpu.setForeground(colors.brown)
        gpu.set(dx,dy,"Alcohol")
        dx,dy = w-width,14
        gpu.set(dx,dy,tostring(inventory.poison).."x")
        --Room inventory display
        gpu.setBackground(colors.black)
        gpu.setForeground(colors.white)
        if #map[cntY][cntX].inventory > 0 then
            dx,dy = w-width,15
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
            gpu.setForeground(colors.gray)
            gpu.set(dx,dy,"Room")
            for i = 1,#map[cntY][cntX].inventory,1 do
                gpu.setForeground(colors.white)
                dx,dy = w-width,15+i
                gpu.set(dx,dy,map[cntY][cntX].inventory[i])
            end
        end
    end
    draw()
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
    local e,a,d,b,c,x = event.pull()
    if e == "key_up" then
        local key = b
        if key == keyboard.keys.left or key == keyboard.keys.a then
            if possibleToMove("left") then
                shiftMap("left")
                generateMap()
                water = water - wwpt
                food = food - fwpt
                coins = coins + 1
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
            end
        end
        if key == keyboard.keys.up or key == keyboard.keys.w then
            if possibleToMove("top") then
                shiftMap("top")
                generateMap()
                water = water - wwpt
                food = food - fwpt
                coins = coins + 1
            end
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
        end
        if key == keyboard.keys.right or key == keyboard.keys.d then
            if possibleToMove("right") then
                shiftMap("right")
                generateMap()
                water = water - wwpt
                food = food - fwpt
                coins = coins + 1
            end
        end
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
        if key == keyboard.keys.down or key == keyboard.keys.s then
            if possibleToMove("down") then
                shiftMap("down")
                generateMap()
                water = water - wwpt
                food = food - fwpt
                coins = coins + 1
            end
        end
        
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
        if key == keybinds.eat then
            if inventory.food > 0 then
                inventory.food = inventory.food - 1
                food = food + 15
                if food > 110 then
                    food = 110
                end
            end
        end
        if key == keybinds.drink then
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
            if inventory.water > 0 then
                inventory.water = inventory.water - 1
                water = water + 1
                if water > 15 then
                    water = 15
                end
            end
        end
        if key == keybinds.poison then
            if inventory.poison > 0 then
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                inventory.poison = inventory.poison - 1
                reason = "You drinked alcohol!"
                gameOver = true
            end
        end
    end
    if e == "touch" then
        local x,y = d,b
        if x >= w-panelWidth then
            --Shop logic
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
            y = y - 1
            if map[cntY][cntX].type == "shop" then
                if y >= 1 and y <= 6 then
                    local item = math.ceil(y/2)
                    if coins >= shop_items[item].price then
                        inventory[shop_items[item].id] = inventory[shop_items[item].id] + 1
                        coins = coins - shop_items[item].price 
                    end
                end
            end
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
            if map[cntY][cntX].type == "ushop" then
                if y >= 1 and y <= 6 then
                    local item = math.ceil(y/2)
                    if coins >= upgrades[item].price then
                        if upgrades[item].level < upgrades[item].max_level then
                            upgrades[item].level = upgrades[item].level + 1
                            coins = coins - upgrades[item].price
                        end
                    end
                end
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
            end
            if map[cntY][cntX].type == "oshop" then
                if y >= 1 and y <= 6 then
                    local item = math.ceil(y/2)
                    if coins >= once_upgrades[item].price then
                        if not once_upgrades[item].has then
                            once_upgrades[item].has = true
                            coins = coins - once_upgrades[item].price
                        end
                    end
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
                end
            end
            if map[cntY][cntX].type == "portal" then
                if y == 3 then
                    clearMap()
                    generateMap()
                end
            end
            -- Inventory logic
            if y >= 8 and y <= 9 then
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
                if inventory.food > 0 then
                    inventory.food = inventory.food - 1
                    food = food + 15
                    if food > 110 then
                        food = 110
                    end
                end
            end
            if y >= 10 and y <= 11 then
                if inventory.water > 0 then
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
                    inventory.water = inventory.water - 1
                    water = water + 1
                    if water > 15 then
                        water = 15
                    end
                end
            end
            if y >= 12 and y <= 13 then
                if inventory.poison > 0 then
                    inventory.poison = inventory.poison - 1
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
                    reason = "You drinked alcohol!"
                    gameOver = true
                end
            end
            --Room inventory logic
            if y > 14 and y <= 17 then
                local item = y-14
                if #map[cntY][cntX].inventory >= item then
                    if map[cntY][cntX].inventory[item] ~= "coin" then
                        inventory[map[cntY][cntX].inventory[item]] = inventory[map[cntY][cntX].inventory[item]] + 1
opencomputers teleport touch screen How to dowload it? opencomputers teleport touch screen
                    else
                        if upgrades[2].level > 0 then
                            coins = coins + math.random(coins_range[1]*upgrades[2].level,coins_range[2]*upgrades[2].level)*5
                        else
                            coins = coins + math.random(coins_range[1],coins_range[2])*5
                        end
                    end
                    table.remove(map[cntY][cntX].inventory,item) 

                end
opencomputers teleport touch screen PasteShr opencomputers teleport touch screen
            end
        end
    end
    if food < 0 or water < 0 then
        reason = "You ran out of food/water"
        gameOver = true
        if once_upgrades[3].has == true then
            once_upgrades[3].has = false
            food = 20
            water = 20
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
        else
            break
        end
    end
    if gameOver then
        break
    end
    if not endless and coins > 666 then
        reason = "You reached 666 coins!"
        break
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
    end
    if map[cntY][cntX].type == "lava" and once_upgrades[1].has == false then
        reason = "You stepped on lava!"
        gameOver = true
        if once_upgrades[3].has == true then
            once_upgrades[3].has = false
            clearMap()
            generateMap()
        else
            break
opencomputers teleport touch screen How to get it? opencomputers teleport touch screen
        end
    end
    if upgrades[1].level > 0 then
        range = stanRange+upgrades[1].level
    end
    map[cntY][cntX].dark = false
end
local dx,dy
if gameOver then
    gpu.setBackground(colors.red)
opencomputers teleport touch screen How to use it? opencomputers teleport touch screen
    gpu.fill(0,0,w,h," ")
    gpu.setForeground(colors.white)
    dx,dy = (w-string.len("GAME OVER!"))/2,h/2
    gpu.set(dx,dy,"GAME OVER!")
    gpu.setForeground(colors.lightGray)
    dx,dy = (w-string.len(reason))/2,h/2+1
    gpu.set(dx,dy,reason)
    os.sleep(3)
    gpu.setBackground(colors.black)
    gpu.fill(0,0,w,h," ")
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
    dx,dy = 1,1
else
    gpu.setBackground(colors.green)
    gpu.fill(0,0,w,h," ")
    gpu.setForeground(colors.white)
    dx,dy = (w-string.len("YOU WON!"))/2,h/2
    gpu.set(dx,dy,"YOU WON!")
    gpu.setForeground(colors.lightGray)
    dx,dy = (w-string.len(reason))/2,h/2+1
    gpu.set(dx,dy,reason)
opencomputers teleport touch screen How to get it for free? opencomputers teleport touch screen
    os.sleep(3)
    gpu.setBackground(colors.black)
    gpu.fill(0,0,w,h," ")
    dx,dy = 1,1
end
opencomputers teleport touch screen