First commit
This commit is contained in:
Juhani Krekelä
commit
2471c619f4
|
|
@ -0,0 +1,2 @@
|
|||
*.swp
|
||||
*.love
|
||||
|
|
@ -0,0 +1,116 @@
|
|||
CC0 1.0 Universal
|
||||
|
||||
Statement of Purpose
|
||||
|
||||
The laws of most jurisdictions throughout the world automatically confer
|
||||
exclusive Copyright and Related Rights (defined below) upon the creator and
|
||||
subsequent owner(s) (each and all, an "owner") of an original work of
|
||||
authorship and/or a database (each, a "Work").
|
||||
|
||||
Certain owners wish to permanently relinquish those rights to a Work for the
|
||||
purpose of contributing to a commons of creative, cultural and scientific
|
||||
works ("Commons") that the public can reliably and without fear of later
|
||||
claims of infringement build upon, modify, incorporate in other works, reuse
|
||||
and redistribute as freely as possible in any form whatsoever and for any
|
||||
purposes, including without limitation commercial purposes. These owners may
|
||||
contribute to the Commons to promote the ideal of a free culture and the
|
||||
further production of creative, cultural and scientific works, or to gain
|
||||
reputation or greater distribution for their Work in part through the use and
|
||||
efforts of others.
|
||||
|
||||
For these and/or other purposes and motivations, and without any expectation
|
||||
of additional consideration or compensation, the person associating CC0 with a
|
||||
Work (the "Affirmer"), to the extent that he or she is an owner of Copyright
|
||||
and Related Rights in the Work, voluntarily elects to apply CC0 to the Work
|
||||
and publicly distribute the Work under its terms, with knowledge of his or her
|
||||
Copyright and Related Rights in the Work and the meaning and intended legal
|
||||
effect of CC0 on those rights.
|
||||
|
||||
1. Copyright and Related Rights. A Work made available under CC0 may be
|
||||
protected by copyright and related or neighboring rights ("Copyright and
|
||||
Related Rights"). Copyright and Related Rights include, but are not limited
|
||||
to, the following:
|
||||
|
||||
i. the right to reproduce, adapt, distribute, perform, display, communicate,
|
||||
and translate a Work;
|
||||
|
||||
ii. moral rights retained by the original author(s) and/or performer(s);
|
||||
|
||||
iii. publicity and privacy rights pertaining to a person's image or likeness
|
||||
depicted in a Work;
|
||||
|
||||
iv. rights protecting against unfair competition in regards to a Work,
|
||||
subject to the limitations in paragraph 4(a), below;
|
||||
|
||||
v. rights protecting the extraction, dissemination, use and reuse of data in
|
||||
a Work;
|
||||
|
||||
vi. database rights (such as those arising under Directive 96/9/EC of the
|
||||
European Parliament and of the Council of 11 March 1996 on the legal
|
||||
protection of databases, and under any national implementation thereof,
|
||||
including any amended or successor version of such directive); and
|
||||
|
||||
vii. other similar, equivalent or corresponding rights throughout the world
|
||||
based on applicable law or treaty, and any national implementations thereof.
|
||||
|
||||
2. Waiver. To the greatest extent permitted by, but not in contravention of,
|
||||
applicable law, Affirmer hereby overtly, fully, permanently, irrevocably and
|
||||
unconditionally waives, abandons, and surrenders all of Affirmer's Copyright
|
||||
and Related Rights and associated claims and causes of action, whether now
|
||||
known or unknown (including existing as well as future claims and causes of
|
||||
action), in the Work (i) in all territories worldwide, (ii) for the maximum
|
||||
duration provided by applicable law or treaty (including future time
|
||||
extensions), (iii) in any current or future medium and for any number of
|
||||
copies, and (iv) for any purpose whatsoever, including without limitation
|
||||
commercial, advertising or promotional purposes (the "Waiver"). Affirmer makes
|
||||
the Waiver for the benefit of each member of the public at large and to the
|
||||
detriment of Affirmer's heirs and successors, fully intending that such Waiver
|
||||
shall not be subject to revocation, rescission, cancellation, termination, or
|
||||
any other legal or equitable action to disrupt the quiet enjoyment of the Work
|
||||
by the public as contemplated by Affirmer's express Statement of Purpose.
|
||||
|
||||
3. Public License Fallback. Should any part of the Waiver for any reason be
|
||||
judged legally invalid or ineffective under applicable law, then the Waiver
|
||||
shall be preserved to the maximum extent permitted taking into account
|
||||
Affirmer's express Statement of Purpose. In addition, to the extent the Waiver
|
||||
is so judged Affirmer hereby grants to each affected person a royalty-free,
|
||||
non transferable, non sublicensable, non exclusive, irrevocable and
|
||||
unconditional license to exercise Affirmer's Copyright and Related Rights in
|
||||
the Work (i) in all territories worldwide, (ii) for the maximum duration
|
||||
provided by applicable law or treaty (including future time extensions), (iii)
|
||||
in any current or future medium and for any number of copies, and (iv) for any
|
||||
purpose whatsoever, including without limitation commercial, advertising or
|
||||
promotional purposes (the "License"). The License shall be deemed effective as
|
||||
of the date CC0 was applied by Affirmer to the Work. Should any part of the
|
||||
License for any reason be judged legally invalid or ineffective under
|
||||
applicable law, such partial invalidity or ineffectiveness shall not
|
||||
invalidate the remainder of the License, and in such case Affirmer hereby
|
||||
affirms that he or she will not (i) exercise any of his or her remaining
|
||||
Copyright and Related Rights in the Work or (ii) assert any associated claims
|
||||
and causes of action with respect to the Work, in either case contrary to
|
||||
Affirmer's express Statement of Purpose.
|
||||
|
||||
4. Limitations and Disclaimers.
|
||||
|
||||
a. No trademark or patent rights held by Affirmer are waived, abandoned,
|
||||
surrendered, licensed or otherwise affected by this document.
|
||||
|
||||
b. Affirmer offers the Work as-is and makes no representations or warranties
|
||||
of any kind concerning the Work, express, implied, statutory or otherwise,
|
||||
including without limitation warranties of title, merchantability, fitness
|
||||
for a particular purpose, non infringement, or the absence of latent or
|
||||
other defects, accuracy, or the present or absence of errors, whether or not
|
||||
discoverable, all to the greatest extent permissible under applicable law.
|
||||
|
||||
c. Affirmer disclaims responsibility for clearing rights of other persons
|
||||
that may apply to the Work or any use thereof, including without limitation
|
||||
any person's Copyright and Related Rights in the Work. Further, Affirmer
|
||||
disclaims responsibility for obtaining any necessary consents, permissions
|
||||
or other rights required for any use of the Work.
|
||||
|
||||
d. Affirmer understands and acknowledges that Creative Commons is not a
|
||||
party to this document and has no duty or obligation with respect to this
|
||||
CC0 or use of the Work.
|
||||
|
||||
For more information, please see
|
||||
<http://creativecommons.org/publicdomain/zero/1.0/>
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
BIN=eitmer.love
|
||||
|
||||
.PHONY: all clean distclean run
|
||||
|
||||
all: $(BIN)
|
||||
|
||||
$(BIN): bundle/main.lua bundle/conf.lua
|
||||
cd bundle; zip -9 -r ../$@ .
|
||||
|
||||
clean:
|
||||
rm -f $(BIN)
|
||||
|
||||
distclean: clean
|
||||
|
||||
run: $(BIN)
|
||||
love $<
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
function love.conf(t)
|
||||
t.window.title = "Eitmer"
|
||||
t.window.width = 1280
|
||||
t.window.height = 960
|
||||
t.window.resizable = true
|
||||
end
|
||||
|
|
@ -0,0 +1,335 @@
|
|||
local cavern = {}
|
||||
local tiletypes = {unknown = 0, empty = 1, wall = 2}
|
||||
|
||||
local spawn_x = nil
|
||||
local spawn_y = nil
|
||||
|
||||
local directions = {up = 0, upleft = 1, left = 2, downleft = 3, down = 4, downright = 5, right = 6, upright = 7}
|
||||
local player_x = nil
|
||||
local player_y = nil
|
||||
local player_direction = nil
|
||||
|
||||
-- ------------------------------------------------------------------
|
||||
-- Cavern generation
|
||||
-- ------------------------------------------------------------------
|
||||
|
||||
function generateCavern()
|
||||
repeat
|
||||
cavern = {}
|
||||
|
||||
cavern.width = 80
|
||||
cavern.height = 60
|
||||
|
||||
-- Create a cavern.width × cavern.height array filled with tiletypes.unknown
|
||||
for x = 1, cavern.width do
|
||||
local list = {}
|
||||
for y = 1, cavern.height do
|
||||
table.insert(list, tiletypes.unknown)
|
||||
end
|
||||
table.insert(cavern, list)
|
||||
end
|
||||
|
||||
-- Fill top and bottom edges with walls
|
||||
for x = 1, cavern.width do
|
||||
cavern[x][1] = tiletypes.wall
|
||||
cavern[x][cavern.height] = tiletypes.wall
|
||||
end
|
||||
|
||||
-- Fill the left and right edges with walls
|
||||
for y = 1, cavern.height do
|
||||
cavern[1][y] = tiletypes.wall
|
||||
cavern[cavern.width][y] = tiletypes.wall
|
||||
end
|
||||
|
||||
local queue = {}
|
||||
local size = 1
|
||||
|
||||
-- Limit spawn to locations not on the edge walls
|
||||
spawn_x = math.random(2, cavern.width - 1)
|
||||
spawn_y = math.random(2, cavern.height - 1)
|
||||
|
||||
cavern[spawn_x][spawn_y] = tiletypes.empty
|
||||
|
||||
table.insert(queue, {x = spawn_x, y = spawn_y - 1})
|
||||
table.insert(queue, {x = spawn_x, y = spawn_y + 1})
|
||||
table.insert(queue, {x = spawn_x - 1, y = spawn_y})
|
||||
table.insert(queue, {x = spawn_x + 1, y = spawn_y})
|
||||
|
||||
repeat
|
||||
queue, size = stepTilesGeneration(queue, size)
|
||||
until #queue == 0
|
||||
until size > 200
|
||||
end
|
||||
|
||||
function stepTilesGeneration(queue, size)
|
||||
-- Tuning this parameter will change how open and cavernous vs. closed and corridory the
|
||||
-- cavern will be
|
||||
local spread_probability = 0.6
|
||||
|
||||
local new_queue = {}
|
||||
local new_size = size
|
||||
|
||||
for i, location in ipairs(queue) do
|
||||
if cavern[location.x][location.y] == tiletypes.unknown then
|
||||
-- We haven't covered this tile yet
|
||||
|
||||
if math.random() < spread_probability then
|
||||
-- Empty
|
||||
cavern[location.x][location.y] = tiletypes.empty
|
||||
size = size + 1
|
||||
|
||||
-- Up
|
||||
if location.y - 1 >= 1 then
|
||||
table.insert(new_queue, {x = location.x, y = location.y - 1})
|
||||
end
|
||||
|
||||
-- Down
|
||||
if location.y + 1 <= cavern.height then
|
||||
table.insert(new_queue, {x = location.x, y = location.y + 1})
|
||||
end
|
||||
|
||||
-- Left
|
||||
if location.x - 1 >= 1 then
|
||||
table.insert(new_queue, {x = location.x - 1, y = location.y})
|
||||
end
|
||||
|
||||
-- Right
|
||||
if location.x + 1 <= cavern.width then
|
||||
table.insert(new_queue, {x = location.x + 1, y = location.y})
|
||||
end
|
||||
else
|
||||
-- Wall
|
||||
cavern[location.x][location.y] = tiletypes.wall
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
return new_queue, size
|
||||
end
|
||||
|
||||
-- ------------------------------------------------------------------
|
||||
-- Spawning objects
|
||||
-- ------------------------------------------------------------------
|
||||
|
||||
function spawnPlayer()
|
||||
player_x = spawn_x
|
||||
player_y = spawn_y
|
||||
|
||||
-- Check what direction we can spawn the player
|
||||
if cavern[player_x][player_y + 1] == tiletypes.empty then
|
||||
-- There's space under, spawn facing up
|
||||
player_direction = directions.up
|
||||
elseif cavern[player_x + 1][player_y] == tiletypes.empty then
|
||||
-- There's space to the right, spawn facing left
|
||||
player_direction = directions.left
|
||||
elseif cavern[player_x - 1][player_y] == tiletypes.empty then
|
||||
-- There's space to the left, spawn facing right
|
||||
player_direction = directions.right
|
||||
elseif cavern[player_x][player_y - 1] == tiletypes.empty then
|
||||
-- There's space above, spawn facing down
|
||||
player_direction = directions.down
|
||||
else
|
||||
error("Cavern is weirdly generated and player cannot spawn")
|
||||
end
|
||||
end
|
||||
|
||||
-- ------------------------------------------------------------------
|
||||
-- Player helper functions
|
||||
-- ------------------------------------------------------------------
|
||||
|
||||
function getBodyLocation(x, y, facing)
|
||||
if x == nil then x = player_x end
|
||||
if y == nil then y = player_y end
|
||||
if facing == nil then facing = player_direction end
|
||||
|
||||
if facing == directions.up then
|
||||
-- Facing up, body is down
|
||||
return x, y + 1
|
||||
elseif facing == directions.left then
|
||||
-- Facing left, body is right
|
||||
return x + 1, y
|
||||
elseif facing == directions.down then
|
||||
-- Facing down, body is up
|
||||
return x, y - 1
|
||||
elseif facing == directions.right then
|
||||
-- Facing right, body is left
|
||||
return x - 1, y
|
||||
else
|
||||
error("Player facing an impossible direction")
|
||||
end
|
||||
end
|
||||
|
||||
function movePlayer(direction)
|
||||
local dx = 0
|
||||
local dy = 0
|
||||
local new_direction = direction
|
||||
|
||||
-- If we are moving backwards, keep the old direction of facing
|
||||
if player_direction == directions.up and direction == directions.down or
|
||||
player_direction == directions.down and direction == directions.up or
|
||||
player_direction == directions.left and direction == directions.right or
|
||||
player_direction == directions.right and direction == directions.left then
|
||||
new_direction = player_direction
|
||||
end
|
||||
|
||||
if direction == directions.up then
|
||||
dy = -1
|
||||
elseif direction == directions.down then
|
||||
dy = 1
|
||||
elseif direction == directions.left then
|
||||
dx = -1
|
||||
elseif direction == directions.right then
|
||||
dx = 1
|
||||
elseif direction == directions.upleft then
|
||||
if player_direction == directions.down then
|
||||
-- ## ##
|
||||
-- x# xo#
|
||||
-- #o# # #
|
||||
dy = -1
|
||||
new_direction = directions.right
|
||||
elseif player_direction == directions.right then
|
||||
-- # # #x#
|
||||
-- #xo #o
|
||||
-- ## ##
|
||||
dx = -1
|
||||
new_direction = directions.down
|
||||
else
|
||||
new_direction = player_direction
|
||||
end
|
||||
elseif direction == directions.downleft then
|
||||
if player_direction == directions.up then
|
||||
-- #o# # #
|
||||
-- x# xo#
|
||||
-- ## ##
|
||||
dy = 1
|
||||
new_direction = directions.right
|
||||
elseif player_direction == directions.right then
|
||||
-- ## ##
|
||||
-- #xo #o
|
||||
-- # # #x#
|
||||
dx = -1
|
||||
new_direction = directions.up
|
||||
else
|
||||
new_direction = player_direction
|
||||
end
|
||||
elseif direction == directions.downright then
|
||||
if player_direction == directions.up then
|
||||
-- #o# # #
|
||||
-- #x #ox
|
||||
-- ## ##
|
||||
dy = 1
|
||||
new_direction = directions.left
|
||||
elseif player_direction == directions.left then
|
||||
-- ## ##
|
||||
-- ox# o#
|
||||
-- # # #x#
|
||||
dx = 1
|
||||
new_direction = directions.up
|
||||
else
|
||||
new_direction = player_direction
|
||||
end
|
||||
elseif direction == directions.upright then
|
||||
if player_direction == directions.down then
|
||||
-- ## ##
|
||||
-- #x #ox
|
||||
-- #o# # #
|
||||
dy = -1
|
||||
new_direction = directions.left
|
||||
elseif player_direction == directions.left then
|
||||
-- # # #x#
|
||||
-- ox# o#
|
||||
-- ## ##
|
||||
dx = 1
|
||||
new_direction = directions.down
|
||||
else
|
||||
new_direction = player_direction
|
||||
end
|
||||
else
|
||||
error("Player moving in an impossible direction")
|
||||
end
|
||||
|
||||
local body_x, body_y = getBodyLocation(player_x + dx, player_y + dy, new_direction)
|
||||
|
||||
if cavern[player_x + dx][player_y + dy] == tiletypes.empty and
|
||||
cavern[body_x][body_y] == tiletypes.empty then
|
||||
player_x = player_x + dx
|
||||
player_y = player_y + dy
|
||||
player_direction = new_direction
|
||||
end
|
||||
end
|
||||
|
||||
-- ------------------------------------------------------------------
|
||||
-- Callbacks
|
||||
-- ------------------------------------------------------------------
|
||||
|
||||
function love.load()
|
||||
math.randomseed(os.time())
|
||||
|
||||
generateCavern()
|
||||
spawnPlayer()
|
||||
end
|
||||
|
||||
function love.update(dt)
|
||||
end
|
||||
|
||||
function love.keypressed(key)
|
||||
if key == 'r' then
|
||||
generateCavern()
|
||||
spawnPlayer()
|
||||
elseif key == 'i' then
|
||||
movePlayer(directions.up)
|
||||
elseif key == 'j' then
|
||||
movePlayer(directions.left)
|
||||
elseif key == 'k' then
|
||||
movePlayer(directions.down)
|
||||
elseif key == 'l' then
|
||||
movePlayer(directions.right)
|
||||
elseif key == 'u' then
|
||||
movePlayer(directions.upleft)
|
||||
elseif key == 'm' then
|
||||
movePlayer(directions.downleft)
|
||||
elseif key == '.' then
|
||||
movePlayer(directions.downright)
|
||||
elseif key == 'o' then
|
||||
movePlayer(directions.upright)
|
||||
elseif key == 'q' then
|
||||
love.event.quit()
|
||||
else
|
||||
display_inputinfo_counter = 1
|
||||
end
|
||||
end
|
||||
|
||||
function love.draw()
|
||||
local x_scale = love.graphics.getWidth() / cavern.width
|
||||
local y_scale = love.graphics.getHeight() / cavern.height
|
||||
|
||||
-- Draw the cavern
|
||||
for tile_x, list in ipairs(cavern) do
|
||||
local x = (tile_x - 1) * x_scale
|
||||
for tile_y, tile in ipairs(list) do
|
||||
local y = (tile_y - 1) * y_scale
|
||||
|
||||
if tile == tiletypes.empty then
|
||||
love.graphics.setColor(0, 0, 0)
|
||||
elseif tile == tiletypes.wall then
|
||||
love.graphics.setColor(1, 1, 1)
|
||||
else
|
||||
love.graphics.setColor(1, 0.5, 0.5)
|
||||
end
|
||||
|
||||
love.graphics.rectangle('fill', x, y, x_scale, y_scale)
|
||||
end
|
||||
end
|
||||
|
||||
-- Draw the player
|
||||
local player_head_center_x = (player_x - 1) * x_scale + 0.5 * x_scale
|
||||
local player_head_center_y = (player_y - 1) * y_scale + 0.5 * y_scale
|
||||
love.graphics.setColor(0.7, 0.3, 0.3)
|
||||
love.graphics.ellipse('fill', player_head_center_x, player_head_center_y, x_scale/2, y_scale/2)
|
||||
|
||||
local player_body_x, player_body_y = getBodyLocation()
|
||||
local player_body_x = (player_body_x - 1) * x_scale
|
||||
local player_body_y = (player_body_y - 1) * y_scale
|
||||
love.graphics.setColor(0, 0, 1)
|
||||
love.graphics.rectangle('fill', player_body_x, player_body_y, x_scale, y_scale)
|
||||
end
|
||||
Loading…
Reference in New Issue