Open-Terrarium/menu.lua
2017-07-10 05:02:38 -04:00

163 lines
4.3 KiB
Lua

--menu animation and info
menu = {}
mx,my = 1,1
menutitle = {"O","p","e","n"," ","T","e","r","r","a","r","i","u","m"," ","0",".","0",".","1"}
menu_char = {}
for i, v in ipairs(menutitle) do
--print(i)
menu_char[i] = 0
end
print(menutitle[1])
menutimer = 0
characters = table.getn(menutitle)
pause = false
letter = 1
function menu.animate()
if pause == false then
menutimer = menutimer + 1
end
if menutimer > 10 then
--push up
menu_char[letter] = menu_char[letter] + 2
if menutimer >= 20 then
menutimer = 0
letter = letter + 1
--skip spaces
if menutitle[letter] == " " then
letter = letter + 1
end
if letter > characters then
letter = 1
end
end
elseif menutimer <= 10 then
--push down
menu_char[letter] = menu_char[letter] - 2
end
end
selected_chunkx,selected_chunky = 0,0
function menu.draw()
menu.cursor()
love.graphics.setFont(font)
love.graphics.setColor(255,0,0,255)
for i = 1,characters do
love.graphics.print(menutitle[i], screenwidth-260+(12*i),screenheight-10+menu_char[i] )
end
--redo this as a table
--love.graphics.setFont(fontbig)
--love.graphics.setColor(255,0,0,255)
--love.graphics.print("D", 400, menutitle.g)
--love.graphics.print("I", 440, menutitle.a)
--love.graphics.print("G", 480, menutitle.m)
--love.graphics.print("!", 520, menutitle.e)
local xxer = 600
--score debug
love.graphics.setFont(font)
love.graphics.setColor(255,255,255,255)
love.graphics.print("Score:"..tostring(score),xxer,12)
--debug mining
if player.mining == true then
love.graphics.setColor(255,0,0,255)
love.graphics.print("Mining", xxer,24)
love.graphics.setColor(128,128,128,255)
love.graphics.print("Placing", xxer+80,24)
elseif player.mining == false then
love.graphics.setColor(128,128,128,255)
love.graphics.print("Mining", xxer,24)
love.graphics.setColor(255,0,0,255)
love.graphics.print("Placing", xxer+80,24)
--love.graphics.print("PosX:"..player.playerx.." PosY:"..player.playery, 400,150)
end
--debug player's pos
love.graphics.setColor(255,255,255,255)
love.graphics.print("PosX:"..(player.playerx+(chunkx*map_max)).." PosY:"..((map_max-player.playery)+(chunky*map_max)), 5,5)
--debug mouse's pos
love.graphics.setColor(255,255,255,255)
love.graphics.print("MX:"..mx.." MY:"..my, xxer,36)
--debug selected item
love.graphics.setColor(255,255,255,255)
love.graphics.print("ITEM:", xxer,48) love.graphics.draw(texture_table[player.selected],xxer+60,45,0,0.8,0.8)
love.graphics.print("Chunkx:"..chunkx, xxer,60)
love.graphics.print("Chunky:"..chunky, xxer,72)
love.graphics.print("Current FPS:"..tostring(love.timer.getFPS( )), xxer, 84)
love.graphics.print("Intx:"..tostring(player.inertiax), xxer, 96)
love.graphics.print("Inty:"..tostring(player.inertiay), xxer, 108)
love.graphics.print("Deaths:"..tostring(deaths), xxer, 250)
end
function menu.cursor()
local x, y = love.mouse.getPosition( )
--love.graphics.circle( "fill", player_drawnx, player_drawny, 4 )
--local xx,yy = math.floor(x/scale),math.floor((y+3)/scale)
local xx,yy = math.floor((x-player_drawnx)/scale)*scale,math.floor((y-player_drawny)/scale)*scale
mx,my = player.playerx + (xx/scale),player.playery + (yy/scale)
selected_chunkx,selected_chunky = 0,0
--only change and draw if in boundaries
if ((mx >= 1 and mx <= map_max) and (my >= 1 and my <= map_max)) and (math.abs(player.playerx-mx) <=5 and math.abs(player.playery-my) <=5) then
love.graphics.rectangle("line", player_drawnx+xx, player_drawny+yy, scale, scale )
--reach outside of chunk
elseif (math.abs(player.playerx-mx) <=5 and math.abs(player.playery-my) <=5) then
--ocal chunkex,chunkey = math.floor(mx/map_max),math.floor(my/map_max)
--overreach x
if mx > map_max then
mx = mx - map_max
selected_chunkx = 1
elseif mx < 1 then
mx = mx + map_max
selected_chunkx = -1
else
--mx = 0
end
--overreach y
if my < 1 then
my = my + map_max
selected_chunky = 1
--print("up")
elseif my > map_max then
my = my - map_max
selected_chunky = -1
--print("down")
--else
--my = 0
end
--print("chunkey:"..chunkey.."|my:"..my)
--print(selected_chunkx, selected_chunky)
love.graphics.rectangle("line", player_drawnx+xx, player_drawny+yy, scale, scale )
else
mx,my = -1,-1
end
end