breakhack/data/maproombuilder.lua

542 lines
16 KiB
Lua
Raw Normal View History

2017-12-08 09:45:57 +01:00
-- FUNCTIONS
local random = map_random
local layoutparser = require "layoutparser"
2017-12-08 09:45:57 +01:00
2017-12-06 17:00:51 +01:00
-- CONSTANTS
local UP = 1
local LEFT = 2
local RIGHT = 3
local DOWN = 4
2017-12-06 17:00:51 +01:00
local floor = {
center = nil,
top = nil,
bottom = nil,
left = nil,
right = nil,
topleft = nil,
topright = nil,
bottomleft = nil,
2017-12-08 09:45:57 +01:00
bottomright = nil
}
local wall = {
topleft = nil,
topright = nil,
bottomleft = nil,
bottomright = nil,
vertical = nil,
horizontal = nil
}
2017-12-22 06:27:58 +01:00
local special = { level_exit = nil }
2017-12-08 09:45:57 +01:00
local floorDecor = { }
local blockingFloorDecor = { }
2017-12-11 11:53:18 +01:00
local lightDecor = { }
2017-12-08 09:45:57 +01:00
2017-12-08 14:40:33 +01:00
local function load_decor_textures()
td0 = add_texture(map, "Objects/Decor0.png")
td1 = add_texture(map, "Objects/Decor1.png")
2017-12-08 09:45:57 +01:00
-- Skulls
2017-12-10 19:51:24 +01:00
table.insert(floorDecor, { td0, td1, 0, 12 * 16, false, false })
table.insert(floorDecor, { td0, td1, 32, 12 * 16, false, false })
table.insert(floorDecor, { td0, td1, 0, 13 * 16, false, false })
table.insert(floorDecor, { td0, td1, 32, 13 * 16, false, false })
table.insert(floorDecor, { td0, td1, 64, 12 * 16, false, true })
2017-12-10 19:51:24 +01:00
table.insert(floorDecor, { td0, td1, 64, 13 * 16, false, true })
2017-12-08 09:45:57 +01:00
-- Bones
2017-12-10 19:51:24 +01:00
table.insert(floorDecor, { td0, td1, 16, 12 * 16, false, false })
table.insert(floorDecor, { td0, td1, 48, 12 * 16, false, false })
table.insert(floorDecor, { td0, td1, 16, 13 * 16, false, false })
table.insert(floorDecor, { td0, td1, 48, 13 * 16, false, false })
2017-12-08 09:45:57 +01:00
-- Webs
table.insert(floorDecor, { td0, td1, 0 * 16, 19 * 16, false })
table.insert(floorDecor, { td0, td1, 1 * 16, 19 * 16, false })
table.insert(floorDecor, { td0, td1, 2 * 16, 19 * 16, false })
table.insert(floorDecor, { td0, td1, 3 * 16, 19 * 16, false })
table.insert(floorDecor, { td0, td1, 4 * 16, 19 * 16, false })
2017-12-08 09:45:57 +01:00
-- Urns
table.insert(floorDecor, { td0, td1, 6 * 16, 48, false, false })
table.insert(floorDecor, { td0, td1, 7 * 16, 48, false, false })
-- Urns
--table.insert(blockingFloorDecor, { td0, td1, 0 * 16, 48, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 1 * 16, 48, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 2 * 16, 48, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 3 * 16, 48, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 4 * 16, 48, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 5 * 16, 48, true, false })
2017-12-08 09:45:57 +01:00
2017-12-08 12:27:36 +01:00
-- Racks
--table.insert(blockingFloorDecor, { td0, td1, 0 * 16, 11 * 16, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 1 * 16, 11 * 16, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 2 * 16, 11 * 16, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 3 * 16, 11 * 16, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 4 * 16, 11 * 16, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 5 * 16, 11 * 16, true, false })
--table.insert(blockingFloorDecor, { td0, td1, 6 * 16, 11 * 16, true, false })
2017-12-08 12:27:36 +01:00
2017-12-08 09:45:57 +01:00
-- Headstones
table.insert(blockingFloorDecor, { td0, td1, 0 * 16, 17 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 1 * 16, 17 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 2 * 16, 17 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 3 * 16, 17 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 4 * 16, 17 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 0 * 16, 18 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 1 * 16, 18 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 2 * 16, 18 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 3 * 16, 18 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 4 * 16, 18 * 16, true, false })
2017-12-08 14:40:33 +01:00
-- Altars
table.insert(blockingFloorDecor, { td0, td1, 0 * 16, 20 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 1 * 16, 20 * 16, true, false })
table.insert(blockingFloorDecor, { td0, td1, 2 * 16, 20 * 16, true, false })
2017-12-08 14:40:33 +01:00
-- Statues
--table.insert(blockingFloorDecor, { td0, td1, 3 * 16, 20 * 16, true })
--table.insert(blockingFloorDecor, { td0, td1, 4 * 16, 20 * 16, true })
2017-12-11 11:53:18 +01:00
lightDecor.candle0 = { td0, td1, 0, 8 * 16, false, true }
lightDecor.candle1 = { td0, td1, 16, 8 * 16, false, true }
lightDecor.candle2 = { td0, td1, 32, 8 * 16, true, true }
2017-12-08 14:40:33 +01:00
end
2017-12-08 09:45:57 +01:00
2017-12-22 06:27:58 +01:00
local function load_special_tiles()
tt = add_texture(map, "Objects/Tile.png")
2017-12-22 06:27:58 +01:00
special.level_exit = { tt, -1, 16, 16, false, true, true }
end
2017-12-10 19:51:24 +01:00
local function repack(data)
return {
textureIndex0 = data[1],
2017-12-22 06:27:58 +01:00
textureIndex1 = data[2] or -1,
2017-12-10 19:51:24 +01:00
tileClipX = data[3],
tileClipY = data[4],
isCollider = data[5] or false,
isLightSource = data[6] or false,
2017-12-22 06:27:58 +01:00
isLevelExit = data[7] or false,
isLethal = data[8] or false
2017-12-10 19:51:24 +01:00
}
end
local function room_tile_available(room, rx, ry)
return not room.chests[rx][ry]
and not room.traps[rx][ry]
and not room.monsters[rx][ry]
and not room.decor[rx][ry]
and (room.tiles[rx][ry]
and not room.tiles[rx][ry][5]
and not room.tiles[rx][ry][7]
and not room.tiles[rx][ry][8])
end
local function add_random_decor_to_room(room, blockingDecor)
2018-08-10 20:09:56 +02:00
local decor_count = random(8)
if blockingDecor then
decor_count = random(4)
end
2017-12-08 09:45:57 +01:00
for i=1,decor_count do
local success = false
while not success do
x = random(11) + 1
y = random(8) + 1
if room_tile_available(room, x, y) then
room.decor[x][y] = floorDecor[random(#floorDecor)]
success = true
end
end
end
if blockingDecor then
decor_count = random(4)
for i=1,decor_count do
local success = false
while not success do
x = random(11) + 1
y = random(8) + 1
if room_tile_available(room, x, y) then
room.decor[x][y] = blockingFloorDecor[random(#blockingFloorDecor)]
success = true
end
end
end
end
if blockingDecor then
if random(2) == 1 and room_tile_available(room, 4, 3) then
room.decor[4][3] = lightDecor.candle2
end
if random(2) == 1 and room_tile_available(room, 11, 3) then
room.decor[11][3] = lightDecor.candle2
end
if random(2) == 1 and room_tile_available(room, 4, 9) then
room.decor[4][9] = lightDecor.candle2
end
if random(2) == 1 and room_tile_available(room, 11, 9) then
room.decor[11][9] = lightDecor.candle2
end
2017-12-08 09:45:57 +01:00
end
end
2018-10-15 22:19:23 +02:00
local function add_tiles_to_room (room, singletile)
for i=0,15 do
for j=0,11 do
if (i >= 1 and i <= 14 and j >= 1 and j <= 10) then
if (i == 1 and j == 1) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.topleft
elseif (i == 14 and j == 1) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.topright
elseif (i == 1 and j == 10) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.bottomleft
elseif (i == 14 and j == 10) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.bottomright
elseif (i == 1) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.left
elseif (i == 14) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.right
elseif (j == 1) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.top
elseif (j == 10) then
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.bottom
else
2018-10-15 22:19:23 +02:00
room.tiles[i][j] = singletile and floor.single or floor.center
end
end
end
end
end
local function add_walls_to_room (room)
for i=0,15 do
for j=0,11 do
if (i == 0 and j == 0) then
room.tiles[i][j] = wall.topleft
elseif (i == 15 and j == 0) then
room.tiles[i][j] = wall.topright
elseif (i == 0 and j == 11) then
room.tiles[i][j] = wall.bottomleft
elseif (i == 15 and j == 11) then
room.tiles[i][j] = wall.bottomright
elseif (i == 0 or i == 15) then
room.tiles[i][j] = wall.vertical
elseif (j == 0 or j == 11) then
room.tiles[i][j] = wall.horizontal
end
end
end
end
local function build_vert_center_coridoor(room, offset)
for i=0,4 do
room.tiles[6][offset+i] = wall.vertical
room.tiles[7][offset+i] = floor.center
room.tiles[8][offset+i] = floor.center
room.tiles[9][offset+i] = wall.vertical
end
2017-12-11 11:53:18 +01:00
if random(2) == 1 then
room.decor[6][offset+2] = lightDecor.candle1
2017-12-11 11:53:18 +01:00
end
if random(2) == 1 then
room.decor[6][offset+2] = lightDecor.candle1
2017-12-11 11:53:18 +01:00
end
end
local function build_horiz_center_coridoor(room, offset)
for i=0,6 do
room.tiles[offset+i][4] = wall.horizontal
room.tiles[offset+i][5] = floor.center
room.tiles[offset+i][6] = floor.center
room.tiles[offset+i][7] = wall.horizontal
end
2017-12-11 11:53:18 +01:00
if random(2) == 1 then
room.decor[offset+3][4] = lightDecor.candle1
2017-12-11 11:53:18 +01:00
end
if random(2) == 1 then
room.decor[offset+3][7] = lightDecor.candle1
2017-12-11 11:53:18 +01:00
end
end
local function build_center_corner_walls(room, exits)
if exits.down then
if exits.left then
room.tiles[6][7] = wall.topright
end
if exits.right then
room.tiles[9][7] = wall.topleft
end
else
if not exits.left then
room.tiles[6][7] = wall.bottomleft
end
if not exits.right then
room.tiles[9][7] = wall.bottomright
end
end
if exits.up then
if exits.left then
room.tiles[6][4] = wall.bottomright
end
if exits.right then
room.tiles[9][4] = wall.bottomleft
end
else
if not exits.left then
room.tiles[6][4] = wall.topleft
end
if not exits.right then
room.tiles[9][4] = wall.topright
end
end
end
local function add_exits_to_room(room)
for _,direction in ipairs(room.exits) do
if direction == UP then
room.tiles[6][0] = wall.bottomright
room.tiles[7][0] = floor.singleleft
room.tiles[8][0] = floor.singleright
room.tiles[9][0] = wall.bottomleft
elseif direction == LEFT then
room.tiles[0][4] = wall.bottomright
room.tiles[0][5] = floor.singletop
room.tiles[0][6] = floor.singlebottom
room.tiles[0][7] = wall.topright
elseif direction == RIGHT then
room.tiles[15][4] = wall.bottomleft
room.tiles[15][5] = floor.singletop
room.tiles[15][6] = floor.singlebottom
room.tiles[15][7] = wall.topleft
elseif direction == DOWN then
room.tiles[6][11] = wall.topright
room.tiles[7][11] = floor.singleleft
room.tiles[8][11] = floor.singleright
room.tiles[9][11] = wall.topleft
end
end
2018-02-09 13:27:25 +01:00
end
local function build_coridoor_room(room)
local exits = {
up = false,
down = false,
left = false,
right = false
}
for _,exit in ipairs(room.exits) do
if UP == exit then exits.up = true
elseif DOWN == exit then exits.down = true
elseif LEFT == exit then exits.left = true
elseif RIGHT == exit then exits.right = true
end
end
-- Fill the center
room.tiles[6][5] = wall.vertical
room.tiles[6][6] = wall.vertical
room.tiles[7][4] = wall.horizontal
room.tiles[7][5] = floor.center
room.tiles[7][6] = floor.center
room.tiles[7][7] = wall.horizontal
room.tiles[8][4] = wall.horizontal
room.tiles[8][5] = floor.center
room.tiles[8][6] = floor.center
room.tiles[8][7] = wall.horizontal
room.tiles[9][5] = wall.vertical
room.tiles[9][6] = wall.vertical
-- Build the coridoors
if exits.down then build_vert_center_coridoor(room, 7) end
if exits.up then build_vert_center_coridoor(room, 0) end
if exits.left then build_horiz_center_coridoor(room, 0) end
if exits.right then build_horiz_center_coridoor(room, 9) end
build_center_corner_walls(room, exits)
end
2017-12-11 20:07:05 +01:00
local function add_level_exit(room)
local success = false
while not success do
x = random(14)
y = random(10)
if room_tile_available(room, x, y) then
success = true
room.tiles[x][y] = special.level_exit
end
end
end
local function build_shop_room(room, roomx, roomy)
add_tiles_to_room(room, false)
add_walls_to_room(room)
add_exits_to_room(room)
layoutparser.add_shop_layout(room, roomx, roomy)
return room
end
local function build_normal_room(room)
local crumbling = (CURRENT_LEVEL > 3 or QUICK_MODE) and random(8) == 1
local pitsAdded = false;
local interiorWallsAdded = false
2018-10-15 22:19:23 +02:00
add_tiles_to_room(room, crumbling)
add_walls_to_room(room)
add_exits_to_room(room)
if not crumbling then
pitsAdded = layoutparser.add_pits_to_room(room)
end
if not pitsAdded then
interiorWallsAdded = layoutparser.add_walls_to_room(room)
end
add_random_decor_to_room(room, not interiorWallsAdded)
if room.goal then
add_level_exit(room)
end
2018-10-15 22:19:23 +02:00
if crumbling then
room.modifier.type = "CRUMBLING"
room.modifier.arg = ""
elseif (CURRENT_LEVEL > 3 or QUICK_MODE) and random(8) == 1 then
2018-09-09 12:50:35 +02:00
room.modifier.type = "FIRE"
room.modifier.arg = ""
elseif ((not pitsAdded and not crumbling and (CURRENT_LEVEL > 1 or QUICK_MODE)) or CURRENT_LEVEL > 3) and random(8) == 1 then
directions = { "LEFT", "RIGHT", "UP", "DOWN" }
room.modifier.type = "WINDY"
room.modifier.arg = directions[random(#directions)]
end
return room
end
local module = {}
function module.add_exit(room, direction)
if direction > 4 then
return
end
table.insert(room.exits, direction)
end
function module.add_full_lighting(room)
room.decor[4][3] = lightDecor.candle2
room.decor[11][3] = lightDecor.candle2
room.decor[4][9] = lightDecor.candle2
room.decor[11][9] = lightDecor.candle2
end
2018-08-10 20:09:56 +02:00
function module.is_tile_avilable(room, rx, ry)
return room_tile_available(room, rx, ry);
2018-08-10 20:09:56 +02:00
end
function module.create_empty_room()
room = {
2017-12-11 20:07:05 +01:00
exits = {},
active = false,
goal = false,
path_dir = 0,
type = "room",
tiles = {},
decor = {},
modifier = {
type = nil,
arg = nil
},
monsters = {},
2018-08-10 20:09:56 +02:00
chests = {},
traps = {}
2017-12-11 20:07:05 +01:00
}
for i=0,15 do
room.tiles[i] = {}
room.decor[i] = {}
room.monsters[i] = {}
room.traps[i] = {}
2018-08-10 20:09:56 +02:00
room.chests[i] = {}
for j=0,11 do
room.tiles[i][j] = nil
room.decor[i][j] = nil
room.monsters[i][j] = nil
room.traps[i][j] = nil
2018-08-10 20:09:56 +02:00
room.chests[i][j] = nil
end
end
return room
2017-12-11 20:07:05 +01:00
end
function module.build_room(room, roomx, roomy)
if room.type == "coridoor" then
build_coridoor_room(room)
elseif room.type == "shop" then
build_shop_room(room, roomx, roomy)
else
build_normal_room(room)
2017-12-22 06:27:58 +01:00
end
end
function module.load_room(map, room)
for i=0, 15 do
for j=0, 11 do
if room.tiles[i][j] then
add_tile(map, i, j, repack(room.tiles[i][j]))
end
if room.decor[i][j] then
add_decoration(map, i, j, repack(room.decor[i][j]))
end
end
end
if room.modifier.type then
set_modifier(map, room.modifier.type, room.modifier.arg)
end
2017-12-11 20:07:05 +01:00
end
function module.load_textures(map)
t_floor = add_texture(map, "Objects/Floor.png")
t_wall = add_texture(map, "Objects/Wall.png")
2017-12-11 20:07:05 +01:00
local seed = get_random_seed(CURRENT_LEVEL);
info("Map room random seed: " .. seed)
map_randomseed(seed)
2019-03-06 18:21:27 +01:00
2017-12-11 20:07:05 +01:00
local xo = (random(3) - 1) * 112
local yo = (random(8)) * 48
2017-12-11 20:07:05 +01:00
2019-03-06 18:21:27 +01:00
layoutparser.load_textures(map, xo, yo)
2017-12-11 20:07:05 +01:00
floor.center = { t_floor, -1, xo + 16, yo + 16, false }
floor.top = { t_floor, -1, xo + 16, yo + 0, false }
floor.bottom = { t_floor, -1, xo + 16, yo + 32, false }
floor.left = { t_floor, -1, xo + 0, yo + 16, false }
floor.right = { t_floor, -1, xo + 32, yo + 16, false }
floor.topleft = { t_floor, -1, xo + 0, yo + 0, false }
floor.topright = { t_floor, -1, xo + 32, yo + 0, false }
floor.bottomleft = { t_floor, -1, xo + 0, yo + 32, false }
floor.bottomright = { t_floor, -1, xo + 32, yo + 32, false }
floor.singletop = { t_floor, -1, xo + 48, yo + 0, false }
floor.singlebottom = { t_floor, -1, xo + 48, yo + 32, false }
floor.singleleft = { t_floor, -1, xo + 64, yo + 16, false }
floor.singleright = { t_floor, -1, xo + 96, yo + 16, false }
2018-10-15 22:19:23 +02:00
floor.single = { t_floor, -1, xo + 80, yo + 0, false }
2017-12-11 20:07:05 +01:00
wall.topleft = { t_wall, -1, xo + 0, yo + 0, true }
wall.topright = { t_wall, -1, xo + 32, yo + 0, true }
wall.bottomleft = { t_wall, -1, xo + 0, yo + 32, true }
wall.bottomright = { t_wall, -1, xo + 32, yo + 32, true }
wall.vertical = { t_wall, -1, xo + 0, yo + 16, true }
wall.horizontal = { t_wall, -1, xo + 16, yo + 0, true }
load_decor_textures()
2017-12-22 06:27:58 +01:00
load_special_tiles()
2017-12-11 20:07:05 +01:00
end
return module