2D minecraft - CODEA

--# Main
-- 2D minecraft
p = vec2(400, 185)
sun = vec2()
pi = false
cloud = vec2(math.random(100.50,800.50),700)

--MOB COORDS--
zombie = vec2(math.random(100, 700), 185)
ZOM = {}
zomPic = "Documents:Zombie" --IMG LINK: http://i.imgur.com/UtQnc.png
--NAME THE IMAGE Zombie

--PASSIVE MOB COORDS--
pig = vec2(math.random(100, 700), 185)
PIG = {}
pigPic = "Documents:Pig" --IMG LINK: http://towardsmecca.com/wp-content/uploads/2010/10/minecraft_pig.jpg
--NAME THE IMAGE Pig



--http://www.minecraftopia.com/images/blocks/redstone_dust.png
--NAME THAT IMAGE redstone
--Features:
--[[
Sun
cloud
steve
controls
day and night cycle
smaller D-PAD
better Steve skin
borders at the edge of the blocks(it sends you back to the middle)
bigger worlds(still working on code for the camera to move with you :) )
survival mode
lives
sounds when you go off the edge
deaths
5% speed
hotbar(still needs a little work though, this means mining coming soon!)
NameTags
pause menu(A little work still on it to pause.)
name tag color
sprinting
tint packs(tints everything 1 color)
apple(the red circle and it restores your lives back to 10 and in a later update when you touch it and eat it, it will be removed)
crafting()
neather(pretty simple... you can add more if you want to...)
apple pickup sounds
blocks
building
cursor at touch
XP(gives you 3 more lava for the moment..,)
bioms(plains and mesa wich are both flat for now, im hoping in 0.6.2 i will add roofed forest bioms and possiblys swamps or jungles)
trees(they will be minable in a future update, this means more blocks coming soon!)
start screen
survival mode option
creative mode option
creative mode flying
ores(coal,iron,gold,diamond,redstone,emerald)
picks(iron,gold,diamond,emerald)
moving clouds
now, you can close the command bar.
commands
pig
zombie
redstone
piston
]]--

--Blocks:
--[[
grass
obsidian
neather back
neatherrack
orange stained clay(uncraftible but can be found in the mesa biom)
]]--

--Items:
--[[
lava
water
neather igniter
water
seeds
coal
iron
diamond
gold
emerald
redstone(mineble but no use yet...)
in game recorder
]]--

--Experamrntal
--[[
more blocks
agressive mobs
passive mobs
]]--

--tools:
--[[
hoe
picks
]]--

--Update thoughts:
--[[
mining
ather
better animations
TNT
fire
flint and steel
stars
moon
more foods
mannualy building
random terrain structures
player y 0 and below
speaking (with text)
]]--

--Bug fixes:
--[[

]]--

--New features:
--[[
zombie at night
pig all the time.
redstone
pistons
commands
changed the creator's name to mine because i dont have a company
switched the version to Beta in the start screen
]]--

--Inspired by:
--©Mojang™

--This program built by:
--Marco V.

--Credit:
--©Mojang AB™

--Full credit:
--Markus Alexej Persson (thotherwise known as Notch)

function setup()

  displayMode(FULLSCREEN)
parameter.text("Username", "Steve") --CHANGE IF YOU WANT TO HAVE A DIFFERENT USERNAME!
parameter.color("NameTagColor", 255)
parameter.boolean("BlueTintPack", false)
parameter.boolean("GetFPS", false)
print("Please parten all the bugs there might be. This game is still in Alpha.")
Version = "0.8.0"
reco = false
paused=false
bioms = {1, 2}
terrainGeneration = bioms[math.random(1,2)]
next = 0
crafting = false
bulding = false
netherActive = false
neather = false
inven = false

    rsw = math.random(100, 300)
    rsh = math.random(50, 100)

    lava = 3
    obsidian = 0
    neatherIgniters = 1
    water = 1
    neatherBack = 0
    seeds = 1
    hoeWood = 1
    pistons = readLocalData("pistons", 0)
    redstone = readLocalData("redstone", 30)
    RedTorch = readLocalData("RedTorch", 3)
    XP = 0.0
lvl = readLocalData("pLvl", 0)
    appleSpawn = 0
    gold = {}
    iron = {}
    diamond = {}
    coal = {}
    emerald = {}


    table.insert(iron, 1)
    table.insert(PIG, 1)

    --Thankfully the resources in 1 world are limited. if not, you would fill up the local storage quick and crash your game! no more local storage saves, now we do the project ;)
    co = readLocalData("COA",0)
    go = readLocalData("GOL",0)
    ir = readLocalData("IRO",0)
    di = readLocalData("DIA",0)
    em = readLocalData("EME",0)
    re = readLocalData("RED",0)


lives = readLocalData("lives", 10)
    supportedOrientations(LANDSCAPE_ANY)
    ores = 1,2,3,4,5
    ore_names = "coal","iron","gold","diamond","emerald","redstone"
    hand = 0
    wood_pick = 0
    stone_pick = 1
    iron_pick = 2
    gold_pick = 3
    diamond_pick = 4
    emerald_pick = 5
    tool = hand
STM = 700
--Mining varables
    if tool == wood_pick then
        SMT = 450
        elseif tool == stone_pick then
        SMT = 400
        elseif tool == iron_pick then
        STM = 330
        elseif tool == gold_pick then
        STM = 160
        elseif tool == diamond_pick then
        STM = 180
        elseif tool == emerald_pick then
        STM = 50
    end
c = false

tre = vec2(math.random(300,600), 0)

mobs = {1,2}
if neather == true then
mtype = mobs[2]
end
chatCmds = false
chatCmdsSurv = false
fireball = 0
end

function draw()
    background(0, 0, 0, 255)
saveLocalData("pistons", pistons)
saveLocalData("IRO",ir)
saveLocalData("GOL",go)
saveLocalData("RED",re)
saveLocalData("DIA",di)
saveLocalData("COA",co)
saveLocalData("EME",em)
saveLocalData("redstone", redstone)
saveLocalData("RecTorch", RedTorch)

 Start:draw()

end
function touched(t)

       if t.x >949 and t.x <1004 and t.y >494 and t.y <504 then
        p.x = p.x + 5

        end
        if t.x >0 and t.x <23 and t.y >494 and t.y <504 then
            p.x = p.x - 5

        end
    --Sprint Left
    if t.x >0 and t.x <23 and t.y >294 and t.y <304 then
        p.x = p.x - 10
end
    --Sprint Right
    if t.x >949 and t.x <1004 and t.y >294 and t.y <304 then
        p.x = p.x + 10

    end



    --Sneak Right
    if t.x >949 and t.x <1004 and t.y >394 and t.y <404 then
        p.x = p.x + 1

    end
    --Sneak Left
    if t.x >0 and t.x <27 and t.y >394 and t.y <404 then
        p.x = p.x - 1

    end
    if p.x >=599 and p.x <=607 then
    addHealth()

end

--Fly in creative(you may edit it for flying in survival)
if cre == true then
if t.x >=500 and t.x <=551 and t.y >=500 and t.y <=551 then
p.y = p.y + 10
end
if t.x >=500 and t.x <=551 and t.y >=450 and t.y <=501 then
p.y = p.y - 10
    end
    end

end

function craftObsidian()
    obsidian = obsidian + 3
    lava = 0
    XP = XP + 0.6
end

function craftNeatherback()
    water = 0
    neatherBack = 1
    XP = XP + 0.6
end

function XPNewLava()
    sound(SOUND_POWERUP, 7443)
    lava = 3
    lvl = lvl + 1
    table.insert(coal, 1)
    XP = 0
end

function addHealth()

        sound(SOUND_PICKUP, 2626)
        lives = 10
        XP = XP + 1
end

function light()
tint(255, 0, 0, 255)
end

function craftPiston()
ir = ir - 5
redstone = redstone - 3
pistons = pistons + 1
end

function pstn()
alert("This will be finished in the next update! Thanks for playing my game!!!", "Coming soon!")
end
--# Play
Play = class()


function Play:draw()


    background(0, 5, sun.y, 255)
    saveLocalData("pLvl", lvl)




    if BlueTintPack == true then
        tint(0, 16, 255, 255)
    else
        tint(255, 255, 255, 255)
    end


    if sun.y >= 750 then
    background(0, 0, 0, 255)
   table.insert(ZOM, 1)
    sun.y = -500
    zombie.x = zombie.x + 1
    if zombie.x <=80 then
    zombie.x = zombie.x + 2
    end
    if zombie.x >=700 then
      zombie.x = zombie.x - 2
        end
    if p.x == zombie.x then
    lives = lives - 1
    end
    elseif sun.y >=185 then
    table.remove(ZOM)
end

if sun.y >=30 then
    --background(119, 119, 225, 255)
end
    fill(255, 255, 255, 255)
    text("Player Level: "..lvl,300, 700)
--Cursor
fill(127, 127, 127, 120)
ellipse(CurrentTouch.x, CurrentTouch.y, 30)


FPS = 1/DeltaTime



--FPS
if GetFPS == true then
    fontSize(15)
        text("FPS:" ..FPS, 50, 100)

end


     --Cloud

        fill(255, 255, 255, 65)
    rect(cloud.x, cloud.y, rsw, 50)
  cloud.x = cloud.x - 1
if cloud.x <=0 then
cloud = vec2(math.random(500,1000),700)
end
    for k,v in ipairs(iron) do
    fill(103, 103, 103, 255)
    rect(300 * k, 400, 60, 60)
        fill(205, 146, 91, 255)
    ellipse(330 * k, 430, 20)
    end
    for k,v in ipairs(ZOM) do
    sprite(zomPic, zombie.x, zombie.y, 100, 130)
    end
    for k,v in ipairs(PIG) do
    sprite(pigPic, pig.x, pig.y)
    end
  if pi == true and CurrentTouch.tapCount >=3 then
table.remove(iron)
ir = ir + math.random(2,4)
pi = false
end

    fill(0, 0, 0, 255)
    fontSize(20)
    text("XP:", 200, 630)
    --XP Bar
    fill(0, 255, 0, 255)
    rect(200, 600, XP, 20)
pig.x = pig.x + 2
if pig.x >=1000 then
pig.x = 100
end

if chatCmdsSurv == true then
    showKeyboard()
    fill(255, 255, 255, 255)
    stroke(127, 127, 127, 255)
    strokeWidth(5)
    rect(0, 700, 1000, 100)
    noStroke()
    noStroke()
    noStroke()
    --Help keeps the game clean with 3 noStroke()
    textMode(CORNER)
    buf = keyboardBuffer()

    if buf then
        fill(0, 0, 0, 255)
    text( buf, 10, 750)
    end
    if buf == "/health me 10" then
  lives = 10
    end
    if buf == "/timeset morning" then
    sun.y = 0
    end
    if buf == "/timeset night" then
    sun.y =800
    end
    if buf == "/timeset day" then
    sun.y = HEIGHT/2
    end
    if buf == "/gamemode c" then
    pla = false
    cre = true
    PlayC:draw()
    end
    fill(255, 0, 0, 255)
    rect(600, 700, 100, 100)

    if CurrentTouch.x >= 600 and CurrentTouch.x <=700 and CurrentTouch.y >= 700 and CurrentTouch.y <=800 then
hideKeyboard()
chatCmdsSurv = false
    end
end
--Grass bottom
if terrainGeneration == 1 then
    fill(116, 73, 31, 255)
for i = 1,100 do
  rect(100 * i, 0, 100, 100)
    end
    fill(113, 81, 31, 255)
    rect(560, 125, 50, 50)
    rect(560, 175.1, 50, 50)
    rect(560, 225.1, 50, 50)
    fill(74, 255, 0, 255)
    rect(509, 225.1, 50, 50)
    rect(609, 225.1, 50, 50)
    rect(559, 275.1, 50, 50)
elseif terrainGeneration == 2 then
    fill(255, 152, 0, 255)
    for i = 1,100 do
        rect(100 * i, 0, 100, 100)
    end
end

if XP >= 100 then
    XPNewLava()

end

--Username tag
fill(NameTagColor)
text("" ..Username, p.x , 255)

    --Steve!
    sprite("Documents:Steve", p.x, 185, 100, 110)
    --Head
 -- fill(180, 154, 80, 255)
    --rect(p.x, 250, 70, 70)
    --Body
--    fill(0, 0, 255, 255)

if p.x >1000 then
p.x = 400
 saveLocalData("lives", lives)

    for i = 1,1 do
        sound(SOUND_HIT, 41660)
        lives = lives - 1
    end
end
--Text button
fill(127, 127, 127, 255)
rect(900, 700, 50, 50)
fontSize(25)
fill(255, 255, 255, 255)
text("📝", 925, 725)
if CurrentTouch.x >= 894 and CurrentTouch.x <=954 and CurrentTouch.y >= 694 and CurrentTouch.y <=754 then
chatCmdsSurv = true
end

--Build button
fill(30, 0, 255, 79)
rect(100, 500, 70, 70)
fill(255, 255, 255, 255)
text("Build", 135, 535)
--Build button touch quards
if CurrentTouch.x >=94 and CurrentTouch.x <=174 and CurrentTouch.y >494 and CurrentTouch.y <574 then
    building = true
end

if building == true then
    background(111, 108, 108, 255)
       fill(127, 127, 127, 105)
    rect(200, 600, 100, 70)
    rect(400, 600, 100, 70)
    fill(255, 0, 0, 123)
    rect(600, 200, 100, 100)
    fill(255)
    text("Exit", 650, 250)
if CurrentTouch.x >594 and CurrentTouch.x <704 and CurrentTouch.y >194 and CurrentTouch.y <304 then
    building = false
end
   if obsidian >= 3 then
    fill(255)
    text("Neather Portal", 250, 630)
    if CurrentTouch.x >194 and CurrentTouch.x <304 and CurrentTouch.y >594 and CurrentTouch.y <674 then
    obsidian = 0
    neatherIgniters = 0

        neatherActive = true
        building = false
        end
    end
if pistons >=1 and RedTorch >=1 then
fill(255)
text("Piston Contraption", 450, 630)
if CurrentTouch.x >=400 and CurrentTouch.x <=500 and CurrentTouch.x >=600 and CurrentTouch.y <=670 then
pistons = pistons - 1
RedTorch = RedTorch - 1
pstn()
        end
    end
end

if neatherActive == true then
fill(0, 0, 0, 255)
rect(95, 115, 100, 100)
fill(212, 0, 255, 255)
rect(95, 165, 100, 50)
if p.x >=95 and p.x <=105 then
    neather = true
    end
end

--NEATHER--
--NEATHER--
--NEATHER--

if neather == true then
    background(230, 21, 21, 255)
          sprite("Documents:Steve", p.x, 185, 100, 110)
        --Neatherrack
        for i = 1,10 do
        fill(179, 51, 51, 255)
        rect(100 * i, 0, 100, 130)
        sun.y = -400
        end
if neatherBack >0 then
    next = next + 3
    if next%40==0 then
        fill(230, 0, 255, 255)
    end
    if next%80==0 then
    fill(0, 255, 255, 255)
end
--GHAST--
    rect(700, 110, 100, 100)
    fill(255, 255, 255, 255)
    rect(400, 500, 300, 300)
    fill(0, 0, 0, 255)
    rect(450, 650, 50, 50)
    rect(650, 650, 50, 50)
    rect(550, 550, 70, 70)


    if p.x >694 and p.x <804 then
        neather = false
        end
    end
end

if p.x <100 then
    p.x = 400

        sound(SOUND_HIT, 41660)
        lives = lives - 1
end
fill(127, 127, 127, 90)
rect(300, 300, 70, 70)
fill(255, 255, 255, 255)
text("Craft", 330, 330)


if CurrentTouch.x >294 and CurrentTouch.x <374 and CurrentTouch.y >294 and CurrentTouch.y <374 then
    crafting = true
end

if crafting == true then
      background(123, 104, 30, 255)
     fill(255, 0, 0, 123)
    rect(600, 200, 100, 100)
    fill(255)
    text("Exit", 650, 250)
if CurrentTouch.x >594 and CurrentTouch.x <704 and CurrentTouch.y >194 and CurrentTouch.y <304 then
    crafting = false
end
    if lava >= 3 then
        fill(0, 0, 0, 255)
        rect(500, 500, 100, 100)
        fill(255, 255, 255, 255)
        text("OBSIDIAN", 500, 400)
        fill(127, 127, 127, 102)
        rect(600, 400, 70, 70)
        fill(255, 255, 255, 255)
        text("CraftObsidian", 630, 430)


       if CurrentTouch.x >594 and CurrentTouch.x <674 and CurrentTouch.y >394 and CurrentTouch.y <474 then

craftObsidian()
crafting = false

        end
    end
    if water >0 then
        fill(0, 255, 255, 255)
        rect(300, 500, 50, 50)
        fontSize(10)
        fill(255)
        text("NEATHERBACK", 340, 400)
        fill(127, 127, 127, 105)
        rect(300, 380, 70, 70)
        if CurrentTouch.x >294 and CurrentTouch.x <370 and CurrentTouch.y >374 and CurrentTouch.y <454 then
            craftNeatherback()
            crafting = false

        end
    end
        if redstone >=3 and ir >=5 then
            fill(127, 127, 127, 255)
            rect(400, 600, 100, 70)
        fill(255, 255, 255, 255)
        text("Piston", 450, 635)
if CurrentTouch.x >=400 and CurrentTouch.x <=500 and CurrentTouch.y >=600 and CurrentTouch.y <=670 then
craftPiston()
crafting = false
end
    end
end
fontSize(20)
pick = vec2(CurrentTouch.x,CurrentTouch.y)
--Inventory/hotbar
fill(127, 127, 127, 107)
rect(700, 600, 70, 70)
rect(800, 600, 70, 70)
rect(900, 600, 70, 70)
fontSize(30)
fill(255, 255, 255, 255)
text("...", 930, 630)
if CurrentTouch.x >894 and CurrentTouch.x <974 and CurrentTouch.y >594 and CurrentTouch.y <674 then
  inven = true
end


fill(127, 127, 127, 110)
    rect(250, 500, 70, 70)
fill(120, 76, 30, 255)
ellipse(280, 530, 10, 40)
fill(127, 127, 127, 255)
rect(260, 545, 40, 15)
if CurrentTouch.x >=250 and CurrentTouch.x <=320 and CurrentTouch.y >=500 and CurrentTouch.y <=570 then
pi = true
end

if pi == true then
fill(127, 127, 127, 255)
rect(CurrentTouch.x, CurrentTouch.y, 40, 15)
end

if inven == true then
      background(51, 51, 51, 255)
    for i = 1,5 do
        fill(127, 127, 127, 141)
        rect(100 * i, 400, 90, 90)
        if ir >=1 then
fill(191, 191, 191, 255)
rect(240, 440, 40, 10)
text(""..ir, 220, 420)
end
    end

if RedTorch >=1 then
fill(255, 0, 0, 255)
rect(520, 420, 20, 20)
fill(120, 91, 30, 255)
rect(520, 400, 20, 30)
end

    if seeds >=1 then
        fill(57, 255, 0, 255)
        rect(130, 450, 20, 20)
        rect(100, 430, 20, 20)
        rect(120, 430, 15, 20)
    end
    if redstone >=1 then
    sprite("Documents:redstone", 340, 450, 50, 50)
    fill(163, 155, 155, 255)
    text("" ..redstone, 350, 420)
    end
    if pistons >=1 then
    fill(109, 106, 106, 255)
    rect(420, 410, 70, 70)
    fill(189, 129, 18, 255)
    rect(410, 410, 10, 70)
    fill(174, 174, 174, 255)
    text("" ..pistons, 450, 410)
    end

    fill(255, 0, 0, 121)
    rect(600, 200, 150, 150)
    fill(255, 255, 255, 255)
    text("Exit", 650, 250)
    if CurrentTouch.x >594 and CurrentTouch.x <704 and CurrentTouch.y >194 and CurrentTouch.y <304 then
        inven = false
    end
end

--player quards
fontSize(20)
fill(255, 255, 255, 255)
text("X: " ..p.x, 400, 400)
text("Y: " ..p.y, 500, 400)
if neatherIgniters >0 then
    fill(255, 108, 0, 255)
    ellipse(820, 620, 30)
    fill(255, 0, 0, 255)
    rect(820, 625, 10, 10)
    fill(255)
text("" .. neatherIgniters, 855, 612)
end
if obsidian > 0 then
    fill(0, 0, 0, 255)
    rect(710, 610, 40, 40)
    fill(255, 255, 255, 255)
    fontSize(15)
    text("" ..obsidian, 755, 612)
end


for i = 1,lives do
    sprite("Planet Cute:Heart", 70 * i, 600, 50, 50)
end

--Sun
fill(243, 255, 0, 193)
rect(600, 0 + sun.y, 300, 300)

sun.y = sun.y + 0.3

appleSpawn = appleSpawn + 1
if appleSpawn >=500 then
    fill(255, 0, 0, 255)
    ellipse(600, 150, 40)
end

    --Grass top

if terrainGeneration == 1 then
    fill(0, 255, 0, 255)
    rect(100, 100, 1000, 30)

elseif terrainGeneration == 2 then
    fill(255, 152, 0, 255)
    rect(100, 100, 1000, 30)
end
    --Controls
    sprite("Cargo Bot:Command Left", 15, 500)
   sprite("Cargo Bot:Command Right", 1000, 500)
   tint(196, 30, 30, 255)
    sprite("Cargo Bot:Command Left", 15, 300)
  sprite("Cargo Bot:Command Right", 1000, 300)
tint(0, 0, 255, 255)
sprite("Cargo Bot:Command Right", 1000, 400)
sprite("Cargo Bot:Command Left", 15, 400)

    if lives == 0 then
        restart()
    end
    fill(127, 127, 127, 113)
rect(830, 730, 50, 50)
fill(255, 255, 255, 255)
text("||", 850, 750)
if CurrentTouch.x >=824 and CurrentTouch.x <=874 and CurrentTouch.y >=724 and CurrentTouch.y <=784 then
    paused=true
    end
  -- table.insert(tree, 1) little buggy, see Main, line 304 for further details. :(
if paused == true then
background(127, 127, 127, 255)
fill(255)
text("Paused", 500, 600)
fill(0, 0, 0, 255)
rect(500,500, 100, 50)
rect(500, 350, 100, 50)
fill(255, 255, 255, 255)
text("Resume", 550,530)
text("Quit to Title", 545, 370)
if CurrentTouch.x >=500 and CurrentTouch.x <=600 and CurrentTouch.y >=494 and CurrentTouch.y <=554 then
paused = false
    end
if CurrentTouch.x >=500 and CurrentTouch.x <=600 and CurrentTouch.y >=344 and CurrentTouch.y <=404 then
paused = false
pla = false
Start:draw()
    end
    end
    function keyboard(key)
   if key == RETURN then
       hideKeyboard()
    end
end
end

function Play:touched(touch)
if touch.x >=694 and touch.y <=754 then

    end
end



--# PlayC
PlayC = class()


function PlayC:draw()


    background(0, 0, 0, 255)
    saveLocalData("pLvl", lvl)




    if BlueTintPack == true then
        tint(0, 16, 255, 255)
    else
        tint(255, 255, 255, 255)
    end


    if sun.y >= 750 then
    background(0, 0, 0, 255)

    sun.y = -500
end

if sun.y >=30 then
    background(119, 119, 225, 255)
end
    fill(255, 255, 255, 255)
    text("Player Level: "..lvl,300, 700)
--Cursor
fill(127, 127, 127, 120)
ellipse(CurrentTouch.x, CurrentTouch.y, 30)


FPS = 1/DeltaTime



--FPS
if GetFPS == true then
    fontSize(15)
        text("FPS:" ..FPS, 50, 100)

end
--Text button
fill(127, 127, 127, 255)
rect(900, 700, 50, 50)
fontSize(25)
fill(255, 255, 255, 255)
text("📝", 925, 725)
if CurrentTouch.x >=894 and CurrentTouch.x <=954 and CurrentTouch.y >=694 and CurrentTouch.y <=754 then
chatCmds = true
end
     --Cloud

        fill(255, 255, 255, 65)
    rect(400, 650, rsw, 50)


    fill(0, 0, 0, 255)
    fontSize(20)
    text("XP:", 200, 630)
    --XP Bar
    fill(0, 255, 0, 255)
    rect(200, 600, XP, 20)


--Grass bottom
if terrainGeneration == 1 then
    fill(116, 73, 31, 255)
for i = 1,100 do
  rect(100 * i, 0, 100, 100)
    end
    fill(113, 81, 31, 255)
    rect(560, 125, 50, 50)
    rect(560, 175.1, 50, 50)
    rect(560, 225.1, 50, 50)
    fill(74, 255, 0, 255)
    rect(509, 225.1, 50, 50)
    rect(609, 225.1, 50, 50)
    rect(559, 275.1, 50, 50)
elseif terrainGeneration == 2 then
    fill(255, 152, 0, 255)
    for i = 1,100 do
        rect(100 * i, 0, 100, 100)
    end
    fill(255,152,0,255)
    rect(700, 100, 100, 100)
end

if XP >= 100 then
    XPNewLava()

end

if chatCmds == true then
    showKeyboard()
    fill(255, 255, 255, 255)
    stroke(127, 127, 127, 255)
    strokeWidth(5)
    rect(0, 700, 1000, 100)
    noStroke()
    noStroke()
    noStroke()
    --Help keeps the game clean with 3 noStroke()
    textMode(CORNER)
    buf = keyboardBuffer()

    if buf then
        fill(0, 0, 0, 255)
    text( buf, 10, 750)
    end
    if buf == "/health me 10" then
  lives = 10
    end
    if buf == "/timeset morning" then
    sun.y = 0
    end
    if buf == "/timeset night" then
    sun.y =800
    end
    if buf == "/timeset day" then
    sun.y = 300
    end
    if buf == "/gamemode s" then
    pla = true
    cre = false
    Play:draw()
    end
    fill(255, 0, 0, 255)
    rect(600, 700, 100, 100)

    if CurrentTouch.x >= 600 and CurrentTouch.x <=700 and CurrentTouch.y >= 700 and CurrentTouch.y <=800 then
hideKeyboard()
chatCmds = false
end
    end

--Username tag
fill(NameTagColor)
text("" ..Username, p.x , 255)

    --Steve!
    sprite("Documents:Steve", p.x, p.y, 100, 110)
    --Head
 -- fill(180, 154, 80, 255)
    --rect(p.x, 250, 70, 70)
    --Body
--    fill(0, 0, 255, 255)

if p.x >1000 then
    --saveProjectData("health", 1)

    for i = 1,1 do
        sound(SOUND_HIT, 41660)
    end
end

--Build button
fill(30, 0, 255, 79)
rect(100, 500, 70, 70)
fill(255, 255, 255, 255)
text("Build", 135, 535)
--Build button touch quards
if CurrentTouch.x >=94 and CurrentTouch.x <=174 and CurrentTouch.y >494 and CurrentTouch.y <574 then
    building = true
end

if building == true then
    background(111, 108, 108, 255)
       fill(127, 127, 127, 105)
    rect(200, 600, 100, 70)
    fill(255, 0, 0, 123)
    rect(600, 200, 100, 100)
    fill(255)
    text("Exit", 650, 250)
if CurrentTouch.x >594 and CurrentTouch.x <704 and CurrentTouch.y >194 and CurrentTouch.y <304 then
    building = false
end
   if obsidian == 3 then
    fill(255)
    text("Neather Portal", 250, 630)
    if CurrentTouch.x >194 and CurrentTouch.x <304 and CurrentTouch.y >594 and CurrentTouch.y <674 then
    obsidian = 0
    neatherIgniters = 0

        neatherActive = true
        building = false
        end
    end
end

if neatherActive == true then
fill(0, 0, 0, 255)
rect(95, 115, 100, 100)
fill(212, 0, 255, 255)
rect(95, 165, 100, 50)
if p.x >=95 and p.x <=105 then
    neather = true
    end
end



if neather == true then
    background(230, 21, 21, 255)
          sprite("Documents:Steve", p.x, 185, 100, 110)
        --Neatherrack
        for i = 1,10 do
        fill(179, 51, 51, 255)
        rect(100 * i, 0, 100, 130)
        sun.y = -400
        end
if neatherBack >0 then
    next = next + 3
    if next%40==0 then
        fill(230, 0, 255, 255)
    end
    if next%40==0 then
    fill(0, 255, 255, 255)
end
    rect(700, 110, 100, 100)
    if p.x >694 and p.x <804 then
        neather = false
        end
    end
end

if p.x <100 then


        sound(SOUND_HIT, 41660)
end
fill(127, 127, 127, 90)
rect(300, 300, 70, 70)
fill(255, 255, 255, 255)
text("Craft", 330, 330)


if CurrentTouch.x >294 and CurrentTouch.x <374 and CurrentTouch.y >294 and CurrentTouch.y <374 then
    crafting = true
end

if crafting == true then
      background(123, 104, 30, 255)
     fill(255, 0, 0, 123)
    rect(600, 200, 100, 100)
    fill(255)
    text("Exit", 650, 250)
if CurrentTouch.x >594 and CurrentTouch.x <704 and CurrentTouch.y >194 and CurrentTouch.y <304 then
    crafting = false
end
    if lava >= 3 then
        fill(0, 0, 0, 255)
        rect(500, 500, 100, 100)
        fill(255, 255, 255, 255)
        text("OBSIDIAN", 500, 400)
        fill(127, 127, 127, 102)
        rect(600, 400, 70, 70)
        fill(255, 255, 255, 255)
        text("CraftObsidian", 630, 430)


       if CurrentTouch.x >594 and CurrentTouch.x <674 and CurrentTouch.y >394 and CurrentTouch.y <474 then

craftObsidian()
crafting = false

        end
    end
    if water >0 then
        fill(0, 255, 255, 255)
        rect(300, 500, 50, 50)
        fontSize(10)
        fill(255)
        text("NEATHERBACK", 340, 400)
        fill(127, 127, 127, 105)
        rect(300, 380, 70, 70)
        if CurrentTouch.x >294 and CurrentTouch.x <370 and CurrentTouch.y >374 and CurrentTouch.y <454 then
            craftNeatherback()
            crafting = false

        end
    end
end
fontSize(20)

--Inventory/hotbar
fill(127, 127, 127, 107)
rect(700, 600, 70, 70)
rect(800, 600, 70, 70)
rect(900, 600, 70, 70)
fontSize(30)
fill(255, 255, 255, 255)
text("...", 930, 630)
if CurrentTouch.x >894 and CurrentTouch.x <974 and CurrentTouch.y >594 and CurrentTouch.y <674 then
  inven = true
end


fill(127, 127, 127, 110)
    rect(250, 500, 70, 70)



if inven == true then
      background(51, 51, 51, 255)
    for i = 1,5 do
        fill(127, 127, 127, 141)
        rect(100 * i, 400, 90, 90)
    end

    if seeds >=1 then
        fill(57, 255, 0, 255)
        rect(130, 450, 20, 20)
        rect(100, 430, 20, 20)
        rect(120, 430, 15, 20)
    end


    fill(255, 0, 0, 121)
    rect(600, 200, 150, 150)
    fill(255, 255, 255, 255)
    text("Exit", 650, 250)
    if CurrentTouch.x >594 and CurrentTouch.x <704 and CurrentTouch.y >194 and CurrentTouch.y <304 then
        inven = false
    end
end

--player quards
fontSize(20)
fill(255, 255, 255, 255)
text("X: " ..p.x, 400, 400)
text("Y: " ..p.y, 500, 400)
if neatherIgniters >0 then
    fill(255, 108, 0, 255)
    ellipse(820, 620, 30)
    fill(255, 0, 0, 255)
    rect(820, 625, 10, 10)
    fill(255)
text("" .. neatherIgniters, 855, 612)
end
if obsidian > 0 then
    fill(0, 0, 0, 255)
    rect(710, 610, 40, 40)
    fill(255, 255, 255, 255)
    fontSize(15)
    text("" ..obsidian, 755, 612)
end

for i = 1,lives do
    sprite("Planet Cute:Heart", 70 * i, 600, 50, 50)
end

--Sun
fill(243, 255, 0, 193)
rect(600, 0 + sun.y, 300, 300)

sun.y = sun.y + 0.3

appleSpawn = appleSpawn + 1
if appleSpawn >=500 then
    fill(255, 0, 0, 255)
    ellipse(600, 150, 40)
end

    --Grass top

if terrainGeneration == 1 then
    fill(0, 255, 0, 255)
    rect(100, 100, 1000, 30)

elseif terrainGeneration == 2 then
    fill(255, 152, 0, 255)
    rect(100, 100, 1000, 30)
end
    --Controls
    sprite("Cargo Bot:Command Left", 15, 500)
   sprite("Cargo Bot:Command Right", 1000, 500)
   tint(196, 30, 30, 255)
    sprite("Cargo Bot:Command Left", 15, 300)
  sprite("Cargo Bot:Command Right", 1000, 300)
sprite("Cargo Bot:Command Grab", 500,450)
tint(0, 0, 255, 255)
sprite("Cargo Bot:Command Right", 1000, 400)
sprite("Cargo Bot:Command Left", 15, 400)
translate(500, 500)
tint(255, 0, 0, 255)
rotate(180)
sprite("Cargo Bot:Command Grab", 0, 0)
    if lives == 0 then
        restart()
    end
    fill(127, 127, 127, 113)
rect(830, 730, 50, 50)
fill(255, 255, 255, 255)
text("||", 850, 750)
if CurrentTouch.x >=824 and CurrentTouch.x <=874 and CurrentTouch.y >=724 and CurrentTouch.y <=784 then
    background(127, 127, 127, 0)
    fill(198, 193, 193, 255)
    text("Paused", 400, 600)
    fill(255, 255, 255, 255)
text("Touch to resume", 500, 500)
    end


end

function PlayC:touched(touch)

end

--# Start
Start = class()

function Start:setup()
pla = false
cre = false
end

function Start:draw()
   background(135, 100, 59, 255)
fontSize(75)
fill(48, 255, 0, 255)
text("Minecraft Codea Edition", 500, 650)
fill(127, 127, 127, 255)
fontSize(25)
rect(500, 450, 150, 90)
fill(255, 255, 255, 255)
text("Survival", 570, 490)
fill(127, 127, 127, 255)
rect(500, 300, 150, 90)
fill(255, 255, 255, 255)
text("Creative", 570, 340)
fill(127)
rect(500, 100, 100, 100)
fill(255)
text("Record", 550, 150)

fill(104, 45, 45, 255)
text("Beta "..Version, 100, 100)
fill(71, 172, 69, 255)
text("Created By: \n Marco V.", 170, 200)
if CurrentTouch.x >=500 and CurrentTouch.x <=650 and CurrentTouch.y >=450 and CurrentTouch.y <=590 then
pla = true
    end
if CurrentTouch.x >=500 and CurrentTouch.x <=650 and CurrentTouch.y >=300 and CurrentTouch.y <=390 then
cre = true
end
if pla == true then
Play:draw()
    end
if cre == true then
PlayC:draw()
    end

end

function Start:touched(touch)
   if touch.x >=494 and touch.x <=604 and touch.y >=94 and touch.y <=204 then
    startRecording()
    end
    if touch.tapCount >=3 then
    stopRecording()
    end
end