zom8.p8

pico-8 cartridge // http://www.pico-8.com
version 41
__lua__
-- main

-- 0 = title, 1 = game loop, 2 = death
state=0

function _init()

    map_width=64
    map_height=48
    m={}
    spawners={}
    walls={}
    barriers={}
    vending={}
    z_id=0
    cost = 500

    text_frames=0
    msg={text='',dx=0}
    coinmsg=false

    shakestart=false

    pal(10, 1+128, 1)
    pal(12, 5+128, 1)

    --player init
	p=make_player(6,7)
    crs=make_cursor()
    crs:update_cursor(p)

	cam=make_camera()

    --enemies init
    zombies={}

    --map init
    m=make_map()
    walls=make(7)
    barriers=make(8)
    vending=make_vending()

    --projectile init
    proj={}

    --bombs init
    bombs={}

    -- laser init
    lasers={}

    -- particles init
    particles={}

    --spawner init
    spawners=make(6)

    frict=0.9
end

function _draw()
    if(state == 0) then
        cls()
        
        map(0,0)         
        print_3D_map(m, p)
        
        rectfill(0, 45, 130, 80, 0)
        
        local lastx
        for tx = 39, 41 do
            lastx = print('<', tx,55,7)
        end
        lastx += 1
        for tx = 43, 47 do
            lastx = print('<', tx,55,7)
        end
        lastx += 2
        lastx = print('zom8', lastx, 55, 7)
        lastx += 2
        for tx = lastx, lastx + 4 do
            lastx = print('>', tx,55,7)
        end
        lastx -= 2
        for tx = lastx, lastx + 2 do
            lastx = print('>', tx, 55,7)
        end

        print('< press ❎ or 🅾️ to begin >', 10, 65, 7)
    end

    if(state == 1) then
        cls()
        
        map(0,0)
        
        --player
        p:draw(crs)
        crs:draw_cursor()

        --map
        -- print_map(m)
        cam:draw()

        --zombie
        for zombie in all(zombies) do
            zombie:draw()
        end

        print_3D_map(m, p)

        crs:draw_box_barrier(barriers, p)
        crs:draw_box_wall(walls, p)
        crs:draw_box_vending(vending, p)

        if(text_frames > 0)then
            draw_ui_prompt(msg.text, p.x*8 + msg.dx, p.y*8 + 58)
        end

        -- projectile
        for projectile in all(proj) do
            projectile:draw()
        end

        for bomb in all(bombs) do
            bomb:draw()
        end

        for laser in all(lasers) do
            laser:draw()
        end

        -- particles
        for particle in all(particles) do
            particle:draw()
        end

        --debug
        p:ui()
        -- -- print(p.x,p.x*8-62,p.y*8-62,8)
        -- -- print(p.y,p.x*8-62,p.y*8-56,8)
        -- print(p.dx,p.x*8-62,p.y*8-50,8)
        -- print(p.dy,p.x*8-62,p.y*8-44,8)
    end
end

function _update()
    if(state == 0) then
        cam:update(p.x, p.y)

        m=make_map()
        distmap()

        if btnp(❎) or btnp(🅾️) then
            state = 1
        end
    end

    if(state == 1) then
        if text_frames > 0 then
            text_frames-=1
        elseif text_frames == 0 then
            coinmsg=false
        end

        p:control(crs)
        p:update()
        crs:update_cursor(p)
        
        -- map
        m=make_map()
        distmap()

        cam:update(p.x, p.y)

        --zombie
        for zombie in all(zombies) do
            -- player collide
            enemy_collide(p, zombie)

            -- projectile collide
            for projectile in all(proj) do
                projectile_collide(zombie, projectile, p)
            end
            
            -- actions
            zombie:getPath()
            zombie:control()
        end

        -- projectiles
        for projectile in all(proj) do
            projectile:update()
        end

        for bomb in all(bombs) do
            bomb:update(p)
        end

        for laser in all(lasers) do
            laser:update(p)
        end

        -- spawners
        for spawner in all(spawners) do
            spawner:spawn_zombie()
        end

        -- walls
        for wall in all(walls) do
            wall:degrade()
        end

        -- particle
        for particle in all(particles) do
            particle:update()
        end
    end
end
-->8
-- player and zombies

function make_player(x, y)
    -- everything is in a table
    -- units are in tiles, where each tile is 8x8 pixels
    pl={
        -- fields
        x=x,
        y=y,
        w=0.45,
        h=0.45,
        dx=0,
        dy=0,
        max_dx=0.3,
        max_dy=0.3,
        accel=0.1,
        
        health=9,
        regen_timer=450,

        shielded=false,
        invincible_frames=0,

        sp=17,
        sp_frames=0,
        sp_flip=false,
        facing=1,

        -- 0 = pistol, 1 = shotgun, 2 = bomb, 3 = laser
        weapon=0,
        reload_frames=0,

        laser_charging=false,
        laser_timer=0,

        coins=0,

        -- functions
        control=function(self, c)
            if btn(⬅️) then
                self.dx-=self.accel
            end
            if btn(➡️) then
                self.dx+=self.accel
            end
            if btn(⬆️) then
                self.dy-=self.accel
            end
            if btn(⬇️) then
                self.dy+=self.accel
            end

            if btnp(❎) then
                self.facing+=1
                if self.facing > 4 then
                    self.facing = 1
                end
            end

            if btnp(🅾️) and c.boxed_wall then
                mset(c.x, c.y, 2)
                make_particles(c.x, c.y, 13)
                start_wall_timer(walls, c.x, c.y)
                shakestart = true
            elseif btnp(🅾️) and c.boxed_barrier then
                if (self.coins >= cost) then
                    bar = in_set(barriers, c.x, c.y)
                    destroy_barrier(bar)
                    self.coins -= cost
                    cost *= 2
                    shakestart = true
                    break_surprise_barriers()
                else
                    coinmsg = true
                    set_msg('< not enough coins! >', -40)
                end
            elseif btnp(🅾️) and c.boxed_vending then
                vend = in_set(vending, c.x, c.y)
                if(self.coins >= vend.cost) then
                    make_particles(vend.x1, vend.y1, 9)
                    if(vend.perk == 1) then
                        if(self.health < 9) then
                            self.health += 1
                        else
                            coinmsg = true
                            set_msg('< at full health! >', -40)
                            self.coins += vend.cost
                        end
                    elseif(vend.perk == 2) then
                        self.weapon = 1
                    elseif(vend.perk == 3) then
                        self.invincible_frames = 300
                        self.shielded = true
                    elseif(vend.perk == 4) then
                        self.weapon = 2
                    elseif(vend.perk == 5) then
                        self.weapon = 3
                    end
                    self.coins -= vend.cost
                    self.laser_charging = false
                else
                    coinmsg = true
                    set_msg('< not enough coins! >', -40)
                end
            elseif btnp(🅾️) then
                if self.facing == 1 then -- right
                    if(self.weapon == 0) then
                        make_projectile(self, 1, 0)
                    elseif(self.weapon == 1 and self.reload_frames == 0) then
                        make_shotgun_proj(self, 1, 0, 0, 0.3)
                    elseif(self.weapon == 2 and self.reload_frames == 0) then
                        make_bomb(self, 0.5, 0)
                    end
                elseif self.facing == 2 then -- down
                    if(self.weapon == 0) then
                        make_projectile(self, 0, 1)
                    elseif(self.weapon == 1 and self.reload_frames == 0) then
                        make_shotgun_proj(self, 0, 1, 0.3, 0)
                    elseif(self.weapon == 2 and self.reload_frames == 0) then   
                        make_bomb(self, 0, 0.5)
                    end
                elseif self.facing == 3 then -- left
                    if(self.weapon == 0) then
                        make_projectile(self, -1, 0)
                    elseif(self.weapon == 1 and self.reload_frames == 0) then
                        make_shotgun_proj(self, -1, 0, 0, 0.3)
                    elseif(self.weapon == 2 and self.reload_frames == 0) then
                        make_bomb(self, -0.5, 0)    
                    end
                else -- up
                    if(self.weapon == 0) then
                        make_projectile(self, 0, -1)
                    elseif(self.weapon == 1 and self.reload_frames == 0) then
                       make_shotgun_proj(self, 0, -1, 0.3, 0)
                    elseif(self.weapon == 2 and self.reload_frames == 0) then
                        make_bomb(self, 0, -0.5)
                    end
                end

                if(self.weapon == 3 and #lasers == 0 and not self.laser_charging) then
                    self.laser_timer = 60
                    self.laser_charging = true
                end
            end

            if(self.laser_timer == 0 and self.laser_charging) then
                self.laser_charging = false

                if self.facing == 1 then -- right
                    make_laser(self.x + 1, self.y - 1.5, self.x + 16, self.y + 0.5)
                elseif self.facing == 2 then -- down
                    make_laser(self.x - 1.5, self.y + 1, self.x + 0.5, self.y + 16)
                elseif self.facing == 3 then -- left
                    make_laser(self.x - 16, self.y - 1.5, self.x - 2, self.y + 0.5)   
                else -- up
                    make_laser(self.x - 1.5, self.y - 16, self.x + 0.5, self.y - 2)
                end
            end

            -- ensures player doesnt exceed max dx or dy in any direction
            self.dx=mid(-self.max_dx, self.dx, self.max_dx)
			self.dy=mid(-self.max_dy, self.dy, self.max_dy)
        end,

        draw=function(self,c)
            if(self.laser_timer % 8 == 0 and self.laser_charging) then
                add(particles, make_explosion(c.x, c.y, rnd(6), 7))
            end

            -- drawing self sprite
            self.sp_frames+=1
            if(self.sp_frames == 30) then
                self.sp_frames = 0
            end

            self.sp = 19
            -- facing up or down
            if(abs(self.dx) < 0.1 and abs(self.dy) < 0.1) then  
                self.sp = 17
            end

            if(self.facing == 4) then
                self.sp += 4
            end
            if (self.sp_frames >= 15) then
                self.sp += 1
            end

            if self.invincible_frames > 0 and not self.shielded then
                self.sp = 25
            elseif self.invincible_frames > 0 and self.shielded then
                print('<', self.x*8-8,self.y*8-2,7)
                print('<', self.x*8-7,self.y*8-2,7)
                print('>', self.x*8+4,self.y*8-2,7)
                print('>', self.x*8+5,self.y*8-2,7)
            end

            -- facing left or right
            self.sp_flip = self.facing == 3 or (self.dx < 0 and self.facing == 4)

            spr(self.sp,(self.x*8)-4,(self.y*8)-4, 1, 1, self.sp_flip)
        end,

        update=function(self)
            -- invincibility
            if self.invincible_frames > 0 then
                self.invincible_frames -= 1
            end

            if(self.invincible_frames == 0) then
                self.shielded = false
            end

            if self.reload_frames > 0 then
                self.reload_frames -= 1
            end

            if self.laser_timer > 0 then
                self.laser_timer -= 1
            end

            if(self.health < 9 and self.regen_timer > 0) then
                self.regen_timer -= 1
            end

            if(self.health < 9 and self.regen_timer == 0) then
                self.health += 1
                self.regen_timer = 450
            end
        
            -- wall collide
            if not (solid_area(self.x+self.dx,self.y,self.w,self.h) or solid_area_player_only(self.x+self.dx,self.y,self.w,self.h)) then
                self.x+=self.dx
            else
                self.dx*=-0.25
                self.x+=self.dx
            end
					
            if not (solid_area(self.x,self.y+self.dy,self.w,self.h) or solid_area_player_only(self.x,self.y+self.dy,self.w,self.h)) then
                self.y+=self.dy
            else
                self.dy*=-0.25
                self.y+=self.dy
            end

            self.dx*=frict
			self.dy*=frict
        end,

        lose_health=function(self)
            self.health-=1
            self.invincible_frames=30
        end,

        ui=function(self)
            rectfill(self.x*8-64, self.y*8-51, self.x*8+66, self.y*8-62, 0)
            print('< health:', self.x*8-58,self.y*8-59,7)
            draw_health(self, -20, 1, -59, -55)
            end_bracket = print('coins:'..self.coins,self.x*8+10,self.y*8-59,7)  
            print(' >', end_bracket,self.y*8-59,7)
        end
    }

    return pl
end

function make_zombie(x, y)
    add(zombies,{
        id=z_id,
		x=x,
		y=y,
		w=0.4,
		h=0.4,
		dx=0,
		dy=0,
		max_dx=0.12,
		max_dy=0.12,
		accel=0.075,

        health=2,
        hit=false,

        sp=4,
        sp_frames=0,
        sp_flip=false,

        pathToP={},
		
        getPath=function(self)
            self.pathToP = pathfind(self)
        end,

		control=function(self)
            if #self.pathToP > 0 then
                local nextTile = self.pathToP[#self.pathToP]  -- Get the next tile in the path

                if flr(self.x) < nextTile.x then
                    self.dx += self.accel
                elseif flr(self.x) > nextTile.x then
                    self.dx -= self.accel
                end

                if flr(self.y) < nextTile.y then
                    self.dy += self.accel
                elseif flr(self.y) > nextTile.y then
                    self.dy -= self.accel
                end

                -- ensures player doesnt exceed max dx or dy in any direction
                self.dx=mid(-self.max_dx, self.dx, self.max_dx)
                self.dy=mid(-self.max_dy, self.dy, self.max_dy)

                -- Check if the zombie has reached the next tile
                if flr(self.x) == nextTile.x and flr(self.y) == nextTile.y then
                    del(path)  -- Remove the reached tile from the path
                else
                    zombie_collide(self)
                    --map collide	
                    if not solid_area(self.x+self.dx,self.y,self.w-0.3,self.h-0.3) then
                        self.x+=self.dx
                    end
                    
                    if not solid_area(self.x,self.y+self.dy,self.w-0.3,self.h-0.3) then 
                        self.y+=self.dy
                    end
                end
            end
		end,
		
		draw=function(self)
            -- for t in all(self.pathToP) do
            --     print("p", t.x*8, t.y*8, 7)
            -- end

            -- Drawing sprites
            self.sp_frames+=1
            if(self.sp_frames == 30) then
                self.sp_frames = 0
                self.hit = false
            end

            self.sp = 33
            if (self.dy < 0) then
                self.sp = 35
            end
            
            if(self.sp_frames >= 15) then
               self.sp += 1
            end

            if self.hit then
                self.sp = 37
            end

            -- Setting up facing
            self.sp_flip = self.dx < 0

			spr(self.sp,(self.x*8)-4,(self.y*8)-4, 1, 1, self.sp_flip)

            -- Drawing health
            draw_health(self, -2, 0, -6, -7)
		end,

        lose_health=function(self, pl, amt)
            self.health-=amt
            self.hit=true
            make_particles(self.x, self.y, 8)

            if self.health == 0 then
                pl.coins+=200
                del(zombies, self)
            end
        end
		})
    z_id+=1
end

function make_camera()
	cam={
		cx=0,
		cy=0,
        shake=2,
        shakex=0,
        shakey=0,
        dirx=0,
        diry=0,
		
		update=function(self,x,y)
			self.cx=x*8-62
			self.cy=y*8-62
		end,
		
		draw=function(self)
            if(shakestart) then
                self.dirx = rnd()
                self.diry = rnd()
                self.shakex=6+rnd(9)
                self.shakey=6+rnd(9)

                if(self.dirx < 0.5) self.shakex *= -1
                if(self.diry < 0.5) self.shakey *= -1

                shakestart = false
            end

            self.shakex*=self.shake
            self.shakey*=self.shake

			camera(self.cx+self.shakex,self.cy+self.shakey)

            self.shake = self.shake*0.80
            if (self.shake<0.10) then 
                self.shake = 2
                self.shakex = 0
                self.shakey = 0
            end
		end
		}
		
	return cam
end

function make_cursor(p)
    crs={x=0,
         y=0,
         px=0,
         py=0,
         boxed_wall=false,
         boxed_barrier=false,
         boxed_vending=false,

         draw_cursor=function(self)
            spr(49,self.px,self.py)
         end,

         update_cursor=function(self,p)
            self.x=p.x
            self.y=p.y
            self.px=(p.x*8)
            self.py=(p.y*8)

            if p.facing == 1 then -- right
                self.px+=4
                self.py-=4
                self.x+=1
            elseif p.facing == 2 then -- down
                self.px-=4
                self.py+=5
                self.y+=1
            elseif p.facing == 3 then -- left
                self.px-=13
                self.py-=4
                self.x-=1
            elseif p.facing == 4 then-- up
                self.px-=4
                self.py-=12
                self.y-=1
            end

            local spr_under = mget(self.x, self.y)

            self.boxed_wall = spr_under == 7
            self.boxed_barrier = spr_under == 8 
            self.boxed_vending = spr_under >= 50 and spr_under <= 54
         end,

         draw_box_wall=function(self, p)
            if(self.boxed_wall) then
                wall = in_set(walls, flr(self.x), flr(self.y))
                rect(wall.x1 * 8, wall.y1 * 8, wall.x2 * 8 - 1, wall.y2 * 8 - 1, 7)
                if(not coinmsg) then
                    set_msg('< build wall? 🅾️ >', -32)  
                end
            end      
         end,

         draw_box_vending=function(self, p)
            if(self.boxed_vending) then
                vend = in_set(vending, flr(self.x), flr(self.y))
                rect(vend.x1 * 8, vend.y1 * 8, vend.x2 * 8 - 1, vend.y2 * 8 - 1, 7)
                if(not coinmsg) then
                    set_msg('< '..vend.msg..' 🅾️ cost:'..vend.cost..' >', vend.text_offset)
                end
            end      
         end,

         draw_box_barrier=function(self,p)
            if(self.boxed_barrier) then
                bar = in_set(barriers, flr(self.x), flr(self.y))
                rect(bar.x1 * 8, bar.y1 * 8, bar.x2 * 8, bar.y2 * 8,7)
                if(not coinmsg) then
                    set_msg('< break barrier? 🅾️ cost:'..cost..' >', -58)  
                end
            end
         end
    }
    return crs
end

function draw_health(e, x1, width, y1, y2)
    incrementor=x1
    iterator=0

    while (iterator < e.health) do
        rectfill((e.x*8)+incrementor,(e.y*8)+y1,(e.x*8)+incrementor+width,(e.y*8)+y2,8)

        iterator+=1
        incrementor+=2+width
    end
end

function draw_ui_prompt(str, x, y)
    rectfill(p.x*8-64, p.y*8+55, p.x*8+66, p.y*8+66, 0)
    print(str, x, y, 7)
end

function set_msg(t, disx)
    text_frames = 50
    msg.text = t
    msg.dx = disx
end

function make_particles(mainx, mainy, colour)
    local numparticles = flr(rnd(6)) + 1
    for i=0, numparticles do
        local dx = -0.4 + rnd(0.8)
        add(particles, make_particle(mainx, mainy, dx, -rnd(1)+0.1,colour))
    end
end

function make_particle(mainx, mainy, ddx, ddy, col)
    local particle = {x = mainx,
                y = mainy,
                inity = mainy,
                dx = ddx,
                dy = ddy,
                colour = col,
                accely = 0.1,

                draw=function(self)
                    circfill(self.x*8, self.y*8, 1, self.colour)
                end,

                update=function(self)
                    self.dy += self.accely

                    self.x += self.dx
                    self.y += self.dy

                    if(self.y*8 >= self.inity*8 + 8) then
                        del(particles, self)
                    end
                end
                }
    return particle
end

function make_explosions(mainx, mainy, colour)
    local numparticles = flr(rnd(6)) + 1
    for i=0, numparticles do
        add(particles, make_explosion(mainx + (-0.75 + rnd(1.5)), mainy + (-0.75 + rnd(1.5)), rnd(15), colour))
        add(particles, make_smoke(mainx + (-0.75 + rnd(1.5)), mainy + (-0.75 + rnd(1.5)), rnd(11)))
    end
end

function make_explosion(mainx, mainy, r, col)
    ex_particle = {x = mainx,
                y = mainy,
                colour = col,
                rad = r,
                radx = 0.5,

                draw=function(self)
                    circfill(self.x*8, self.y*8, self.rad, self.colour)
                end,

                update=function(self)
                    if(self.rad > 0) then
                        self.rad -= self.radx
                    else
                        del(particles, self)
                    end
                end
                }

    return ex_particle
end

function make_smoke(mainx, mainy, r)
    smoke = {x = mainx,
            y = mainy,
            dx = 0.25,
            dy = 0.25,
            rad = r,
            radx = 0.5,

            draw=function(self)
                circfill(self.x*8, self.y*8, self.rad, 7)
            end,

            update=function(self)
                self.x += self.dx
                self.y -= self.dy

                if(self.rad > 0) then
                    self.rad -= self.radx
                else
                    del(particles, self)
                end
            end
            }

    return smoke
end

function make_projectile(p, pdx, pdy)
    add(proj,{
		sp=49,
		x=p.x,
		y=p.y,
		w=0.25,
		h=0.25,
		dx=pdx,
		dy=pdy,
        offset=rnd(0.30)-0.15,
        
        draw=function(self)
            spr(self.sp,(self.x*8)-4,(self.y*8)-4)
        end,
        
        update=function(self)
            -- wall colission, destroy self
            if not solid_area(self.x+self.dx,self.y,self.w,self.h) then
                self.x+=self.dx
                self.y+=self.offset
            else 
                del(proj, self)
            end
            
            if not solid_area(self.x,self.y+self.dy,self.w,self.h) then
                self.y+=self.dy
                self.x+=self.offset
            else
                del(proj, self)
            end

        end}
    )
end

function make_shotgun_proj(p, mainx, mainy, offsetx, offsety)
    add(particles, make_smoke(p.x + mainx, p.y + mainy, 3 + rnd(6)))
    add(particles, make_smoke(p.x + mainx + offsetx, p.y + mainy + offsety, 3 + rnd(6)))
    make_projectile(p, mainx, mainy)
    make_projectile(p, mainx+offsetx, mainy+offsety)
    make_projectile(p, mainx-offsetx, mainy-offsety)
    p.reload_frames = 20
end

function make_bomb(p, pdx, pdy)
    add(bombs, {sp=64,
                x=p.x,
                y=p.y,
                w=0.25,
                h=0.25,
                dx=pdx,
                dy=pdy,
                timer = 20,

                draw=function(self)
                    rect(self.x*8 - 16, self.y*8 - 16, self.x*8 + 16, self.y*8 + 16, 7)
                    spr(self.sp,(self.x*8)-4,(self.y*8)-4)
                end,

                update=function(self, pl)
                    if not solid_area(self.x+self.dx,self.y,self.w,self.h) then
                        self.x+=self.dx
                    else
                        self.dx*=-0.5
                        self.x+=self.dx
                    end
                            
                    if not solid_area(self.x,self.y+self.dy,self.w,self.h) then
                        self.y+=self.dy
                    else
                        self.dy*=-0.5
                        self.y+=self.dy
                    end

                    self.dx *= (frict-0.3)
                    self.dy *= (frict-0.3)

                    self.timer -= 1
                    if(self.timer == 0) then
                        make_explosions(self.x, self.y, 9)
                        make_explosions(self.x, self.y, 1)
                        del(bombs, self)

                        for zombie in all(zombies) do
                            if(self.x - 2 <= zombie.x and zombie.x <= self.x + 2) and 
                                (self.y - 2 <= zombie.y and zombie.y <= self.y + 2) then
                                zombie:lose_health(pl, 2)
                                shakestart=true
                            end
                        end
                    end
                end 
    })
    p.reload_frames = 30
end

function make_laser(x1, y1, x2, y2)
    add(lasers, {x1 = x1,
                y1 = y1,
                x2 = x2,
                y2 = y2,
                timer = 30,

                draw=function(self)
                    rectfill(self.x1 * 8, self.y1 * 8, self.x2 * 8 + 8, self.y2 * 8 + 8, 7)
                end,

                update=function(self, pl)
                    self.timer -= 1

                    for zombie in all(zombies) do
                        fzx = flr(zombie.x)
                        fzy = flr(zombie.y)
                        if(self.x1 - 0.5 <= fzx and fzx <= self.x2 + 0.5) and 
                            (self.y1 - 0.5 <= fzy and fzy <= self.y2 + 0.5) then
                            zombie:lose_health(pl, 2)
                            shakestart=true
                        end
                    end

                    if(self.timer == 0) then
                        laser_close(self.x1, self.x2, self.y1, self.y2)
                        del(lasers, self)
                    end
                end                 
                })
end

function laser_close(x1, x2, y1, y2)
    for j=y1, y2 do
        for i=x1, x2 do
            add(particles, make_smoke(i, j, rnd(12)))
        end
    end
end

function make(spr)
    arr={}
    for j=0, map_height do
        for i=0, map_width do
            if(spr == 6 and mget(j,i) == 6) then
                add(arr, get_spawner(j,i))
            elseif(spr == 7 and mget(j,i) == 7) then
                add(arr, get_wall(j,i))
            elseif(spr == 8 and mget(j,i) == 8 and in_set(arr,j,i) == nil) then
                add(arr, get_barrier(j,i))
            end
        end
    end
    return arr
end

function get_spawner(j, i)
    spawner={x=j, 
            y=i,
            timer= 90 + flr(rnd(200)),
            
            spawn_zombie=function(self)
                if(self.timer > 0) then
                    self.timer -= 1
                elseif(self.timer == 0 and m[self.y][self.x] > 0) then
                    self.timer = 90 + flr(rnd(200))
                    if(#zombies <= 12) then
                        make_zombie(self.x, self.y)
                    end
                end
            end}
    return spawner
end

function get_wall(j, i)
    wall={x1=j,
          y1=i,
          x2=j+1,
          y2=i+1,
          timer=-1,
        
          degrade=function(self)
            if(self.timer > 0) then
                self.timer -= 1
            elseif(self.timer == 0) then
                mset(self.x1,self.y1,7)
                make_particles(self.x1, self.y1, 13)
                self.timer = -1
            end
        end}
    return wall
end

function start_wall_timer(w, bx, by)
    for wall in all(w) do
        if (wall.x1 == flr(bx)) and (wall.y1 == flr(by)) then
            wall.timer = 350 + flr(rnd(400))
        end
    end
end

function get_barrier(x1, y1)
    x2 = x1
    y2 = y1

    while(mget(x2+1,y2) == 8) do
        x2+=1
    end

    while(mget(x2,y2+1) == 8) do
        y2+=1 
    end

    bar={x1 = x1,
         y1 = y1,
         x2 = x2+1,
         y2 = y2+1
    }

    return bar
end

function destroy_barrier(barrier)
   for j=barrier.x1, barrier.x2 - 1 do
        for i=barrier.y1, barrier.y2 - 1 do
            mset(j,i,5)
        end
    end
    make_particles(bar.x1,(bar.y1+bar.y2)/2,13)
    make_particles(bar.x2,(bar.y1+bar.y2)/2,13)
    del(barriers, barrier)
end

function in_set(b,x,y)
    for m in all(b) do
        if(m.x1 <= x and x <= m.x2) and (m.y1 <= y and y <= m.y2) then 
            return m
        end
    end
    return nil
end

function make_vending()
    arr={}
    for j=0, map_height do
        for i=0, map_width do
            if(mget(j,i) == 50) then
                add(arr, get_vending(j,i,1,500,'+1 health?',-50))
            elseif(mget(j, i) == 51) then
                add(arr, get_vending(j,i,2,1000,'buy shotgun?',-57))
            elseif(mget(j, i) == 52) then
                add(arr, get_vending(j,i,3,1000,'invul shield?',-59))
            elseif(mget(j, i) == 53) then
                add(arr, get_vending(j,i,4,1000,'buy bombs?', -50))
            elseif(mget(j, i) == 54) then
                add(arr, get_vending(j,i,5,3000,'buy laser?', -50))
            end
        end
    end
    return arr
end

function get_vending(j,i,pe,c,m,off)
    vending={x1=j,
             y1=i,
             x2=j+1,
             y2=i+1,
             perk=pe,
             cost=c,
             msg=m,
             text_offset=off
    }
    return vending
end

-->8
-- map
key_direction = {
  [0] = {x = -1, y = 0},
  [1] = {x = 1, y = 0},
  [2] = {x = 0, y = -1},
  [3] = {x = 0, y = 1},
  [4] = {x = 0, y = 0}
}

function make_map()
    m={}
    for j=0, map_height do
        -- adding new row
        m[j]={}
        for i=0, map_width do
            m[j][i]=0
        end
    end
    return m
end

-- for debug
function print_map(m)
    for j=0, map_height do
        -- adding new row
        for i=0, map_width do
            print(m[j][i],i*8,j*8,2)
        end
    end
end

function print_3D_map(m, p)
    for j=0, map_height do
        -- adding new row
        for i=0, map_width do
            if(p.x - 9 <= i and i <= p.x + 9) and (p.y - 9 <= j and j <= p.y + 9) then
                if(fget(mget(i,j),2)) then
                    copy_decor(i,j,m)
                end
                if ((m[j][i] == 0 or m[j][i] > 12) and not surround_player(i, j, m, pl) and not (j == flr(p.y) and i == flr(p.x))) then
                    spr(11, i*8, j*8)
                end
                if m[j][i] == 12 then 
                    spr(10, i*8, j*8)
                end
                if solid(i, j) and not fget(mget(i, j),1) and not fget(mget(i, j),2) then
                    if mget(i,j) == 8 then
                        spr(14,i*8,j*8)
                    else
                        spr(3,i*8,j*8)
                    end
                end
            end
        end
    end
end

function surround_player(x, y, m, pl)
    if(x == 0 or y == 0 or x == map_width or y == map_height) then
        return false
    end
    for i = 0, 3 do
        -- check adjacent tiles in the cardinal directions
        local tileval = m[y + key_direction[i].y][x + key_direction[i].x]

        if(tileval == 0 and (y + key_direction[i].y == flr(pl.y)) and (x + key_direction[i].x == flr(pl.x))) then
            return true
        end
    end 
    return false
end

function copy_decor(x,y,m)
    if(x == 0 or y == 0 or x == map_width or y == map_height) then
        return
    end
    local minval = 21
    for i = 0, 3 do
        -- check adjacent tiles in the cardinal directions
        local tileval = m[y + key_direction[i].y][x + key_direction[i].x]

        if(tileval > 0 and tileval <= 20 and tileval <= minval) then
            minval = tileval
        end
    end 
    m[y][x] = minval
    return
end

function break_surprise_barriers()
    if(cost == 4000) then
        break_surprise_barrier(112)
    end
end

function break_surprise_barrier(spr)
    for j=0, map_height do
        -- adding new row
        for i=0, map_width do
            if(mget(j,i) == spr)then
                mset(j,i,5)
                make_particles(i, j, 13)
            end
        end
    end
end


function pathfind(t)
    local min = m[flr(t.y)][flr(t.x)]
    local save_ax = flr(t.x)
    local save_ay = flr(t.y)

    -- base case
    if min <= 0 then
        return {x = t.x, y = t.y}
    end 

    for i=0, 3 do
        -- check adjacent tiles in the cardinal directions
        local d = key_direction[i]
        
        -- True "position" of tile in m[x][y] looking in every direction
        local ax = flr(t.x) + d.x    -- d.x looks left or right
        local ay = flr(t.y) + d.y    -- d.y looks up or down

        -- if the adjacent tile is passable and hasn't yet been traversed (i.e. distance is 9999)
        if not solid(ax, ay) and m[ay][ax] <= min then 
            min = m[ay][ax]
            save_ax = ax
            save_ay = ay
        end
    end

    local tile = {
        x = save_ax,
        y = save_ay
    }

    local path = pathfind(tile)

    add(path, tile)

    return path
end

function distmap()
    local queue = {}
    local toAdd = {}
    
    -- adding the players x, y to the queue
    add(queue, {
        x = flr(p.x),
        y = flr(p.y)
    })

   toAdd = goQueue(queue)

   while #toAdd > 0 do
        toAdd = goQueue(toAdd)
   end 

   m[flr(p.y)][flr(p.x)] = 0
end

function goQueue(queue)
     local toAdd = {}

    for t in all(queue) do
        -- note the distance of the current tile
        local curr_tile_dist = m[t.y][t.x]

        -- to reduce lag
        if curr_tile_dist > 19 then
            break
        end

        for i=0, 3 do
            -- check adjacent tiles in the cardinal directions
            local d = key_direction[i]
            
            -- True "position" of tile in m[x][y] looking in every direction
            local ax = t.x + d.x    -- d.x looks left or right
            local ay = t.y + d.y    -- d.y looks up or down

            -- if the adjacent tile is passable and hasn't yet been traversed (i.e. distance is 9999)
            if (not solid(ax, ay) and m[ay][ax] == 0) then
                -- set the distance of the adjacent tile to the current tile's distance + 1
                m[ay][ax] = curr_tile_dist + 1

                -- and add the adjacent tile to the frontier
                add(toAdd, {
                    x = flr(ax),
                    y = flr(ay)
                })
            end
        end

        -- after all adjacent tiles have been checked, remove the tile from the frontier
        del(queue, t) 
    end

    return toAdd
end

-->8
-- enemy collisions
function enemy_collide(p, z)
    if p.invincible_frames == 0 and detect_collide(p, z, 0.5) then
        p:lose_health()

        -- both going same direction, repel one
        local a = (p.dx > 0 and z.dx > 0) or (p.dx < 0 and z.dx < 0)
        local b = (p.dy > 0 and z.dy > 0) or (p.dy < 0 and z.dy < 0)

        if a and b then
            z.dx*=-1
            z.dy*=-1
        else
            p.dx *= -1
            p.dy *= -1

            if z.dx != 0 and z.dy != 0 then
                z.dx=0
                z.dy=0
            end
        end
    end
end

function projectile_collide(z, pr, pl)
    if detect_collide(pr, z, 0.5) then
        z:lose_health(pl, 1)
        del(proj, pr)
    end 
end

function detect_collide(p, z, offset)
    local a = (((p.y <= z.y+z.h+offset) and (z.y+z.h+offset <= p.y+p.h+offset)) or ((z.y <= p.y+p.h+offset) and (p.y+p.h+offset <= z.y+z.h+offset)))
    return (((p.x <= z.x) and (z.x <= p.x+p.w+offset)) and a or 
             (((z.x <= p.x) and (p.x <= z.x+z.w+offset)) and a))
end

function zombie_collide(z)
    for zombie in all(zombies) do
        if detect_zombie_collide(zombie, z) then
            -- both going same direction, repel one
            local a = (zombie.dx > 0 and z.dx > 0) or (zombie.dx < 0 and z.dx < 0)
            local b = (zombie.dy > 0 and z.dy > 0) or (zombie.dy < 0 and z.dy < 0)

            if a and b then
                z.dx*=-1
                z.dy*=-1
            else
                if zombie.dx != 0 and zombie.dy != 0 then
                    z.dx=0
                    z.dy=0
                end
            end
        end
    end
end

function detect_zombie_collide(z1, z2)
   return z1.id != z2.id and detect_collide(z1, z2, 0.5)
end

-- wall collision
--cr: zep tutorial
function solid(x,y)
	return fget(mget(x,y),0)
end

function solid_area(x,y,w,h)
 return 
  solid(x-w,y-h) or
  solid(x+w,y-h) or
  solid(x-w,y+h) or
  solid(x+w,y+h)
end

function solid_player_only(x,y)
	return fget(mget(x,y),3)
end

function solid_area_player_only(x,y,w,h)
 return 
  solid_player_only(x-w,y-h) or
  solid_player_only(x+w,y-h) or
  solid_player_only(x-w,y+h) or
  solid_player_only(x+w,y+h)
end

__gfx__
000000008888888866666666ddddddddbbbbbbbbaaaaaaaaaaaaaaaaaaaaaaaa66666666aaaaaaaaa0a0a0a0aaaaaaaaadadadadacacacac6d6d6d6d00000000
000000008888888866666666ddddddddbbbbbbbbccccacccaccccccaa7cccc7a66666666acc77cca0a0a0a0aaaaaaaaadadadadacacacacad6d6d6d600000000
007007008888888866666666ddddddddbbbbbbbbccccacccac7777caac7cc7ca66666666acc77ccaa0a0a0a0aaaaaaaaadadadadacacacac6d6d6d6d00000000
000770008888888866666666ddddddddbbbbbbbbaaaaaaaaac7777caacc77cca66666666a777777a0a0a0a0aaaaaaaaadadadadacacacacad6d6d6d600000000
000770008888888866666666ddddddddbbbbbbbbacccccccac7777caacc77cca66666666a777777aa0a0a0a0aaaaaaaaadadadadacacacac6d6d6d6d00000000
007007008888888866666666ddddddddbbbbbbbbacccccccac7777caac7cc7ca6666d666acc77cca0a0a0a0aaaaaaaaadadadadacacacacad6d6d6d600000000
000000008888888866666666ddddddddbbbbbbbbaaaaaaaaaccccccaa7cccc7a66666666acc77ccaa0a0a0a0aaaaaaaaadadadadacacacac6d6d6d6d00000000
000000008888888866666666ddddddddbbbbbbbbaaaaaaaaaaaaaaaaaaaaaaaa66666666aaaaaaaa0a0a0a0aaaaaaaaadadadadacacacacad6d6d6d600000000
00000000000000000011110000111100000000000000000000111100001111000000000000000000000000000000000000000000000000000000000000000000
0000000000111100001fff00001fff00001111000011110000111f00001111000011110000888800000000000000000000000000000000000000000000000000
00000000001fff0000f1f10000f1f100001fff0000111f0000111f0000111f0000111f0000888800000000000000000000000000000000000000000000000000
0000000001f1f11000ffff0000ffff0000f1f10001111f1000ffff0000ffff0000111f0008878780000000000000000000000000000000000000000000000000
0000000001ffff10001221000112211001ffff1001111110001111000111111001ffff1008888880000000000000000000000000000000000000000000000000
000000000f1221f000f22f00f01221f00f12210f0f1111f000111100f01111f00f11110f08888880000000000000000000000000000000000000000000000000
00000000002222000022220000222200002222000022220000222200002222000022220000888800000000000000000000000000000000000000000000000000
00000000001001000010010000100010010001000010010000100100001000100100010000800800000000000000000000000000000000000000000000000000
0000000000000000003bbb0000000000003bbb000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000003bbb00003bbb00003bbb00003bbb000088880000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000003bbb0000313100003bbb00003333000088880000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000013131100033330001333310003333000887878000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000013333100011b11b013333100b11111b0888888000000000000000000000000000000000000000000000000000000000000000000000000000000000
0000000000b1110b001111000011110b001111000088880800000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000001133000011330000113300001133000088880000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000003000100300010000300010030001000080008000000000000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000006116666661166666611666666116666661167776000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000006116868661166666611677766116665661167776000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000006116888661165556611677766116656661167776000000000000000000000000000000000000000000000000000000000000000000000000
00000000000660006116686661165666611677766116555661167776000000000000000000000000000000000000000000000000000000000000000000000000
00000000000660006116666661166666611667666116555661167776000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000006666666666666666666666666666666666666666000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000006111111661111116611111166111111661111116000000000000000000000000000000000000000000000000000000000000000000000000
00000000000000006666666666666666666666666666666666666666000000000000000000000000000000000000000000000000000000000000000000000000
00000000aaaaaaaa0000000000000000000000000000000000000000aaaaaaaaaaaaaa7777aaaaaaaaaaaaaa0000000000000000000000000000000000000000
00000900ccccaccc0000000000000000000000000000000000000000ccccacccccc7777777ccacccccccaccc0000000000000000000000000000000000000000
00006000ccccaccc0000000000000000000000000000000000000000ccccacccccc7777777ccacccccccaccc0000000000000000000000000000000000000000
00776700666666660000000000000000000000000000000000000000aaa77aaaaa76667777a77aaaaa77aaaa0000000000000000000000000000000000000000
00666600666666660000000000000000000000000000000000000000a77777cccc76667777777ccca77777cc0000000000000000000000000000000000000000
00666600666666660000000000000000000000000000000000000000a77777cccc77777777117ccca77777cc0000000000000000000000000000000000000000
00666600aaaaaaaa0000000000000000000000000000000000000000a77777aaaa71177777117aaaa77777cc0000000000000000000000000000000000000000
00000000aaaaaaaa0000000000000000000000000000000000000000aa7777aaaa71177777117aaaa7777aaa0000000000000000000000000000000000000000
22222222a777777a7777777777777777ab3aab3a0000000000000000aa777777aa71177777777aa1117777aa0000000000000000000000000000000000000000
99992999c666666c7775777777777777bbb3bb330000000000000000ccc77777cc77777777777cc1117777cc0000000000000000000000000000000000000000
99992999c677776c6665666666666666b333b3330000000000000000c777777777711777771177777766667c0000000000000000000000000000000000000000
22222222a677776a6665666666666666373333730000000000000000777777777711177777111777776666770000000000000000000000000000000000000000
29999999ac7777cc7775777777777777a633336c0000000000000000777777777777777777777777777777770000000000000000000000000000000000000000
29999999ac7777cc7777777777777777a677776c0000000000000000777777777777777777777777777777770000000000000000000000000000000000000000
22222222aa6776aa7775777777777777aa6666aa0000000000000000777777777777777777777777777777770000000000000000000000000000000000000000
22222222aaa66aaa6666666666666666aaa66aaa0000000000000000666666666666667777666666666666660000000000000000000000000000000000000000
aaa667666676aaaa777777777777777777777777aaa7776a77777777666688866666667777666666666666660000000000000000000000000000000000000000
ccc7776666777ccc776666677777777777777777ccc7776c77777777666677766111667777661116666666660000000000000000000000000000000000000000
ccc7776666777ccc776666677777666777777777ccc7776c77777777636677761111167777611111667775660000000000000000000000000000000000000000
aaa7776666777aaab76666677666666777777777aaa7776a7777777766d666661511117777111151667775660000000000000000000000000000000000000000
acc7776666777ccc737767777666666777777777ac67776c7777777767d777775551117777111555776661760000000000000000000000000000000000000000
acc7776666777ccc767666767666777777777777a677766c77777777677777775551117777111555776661760000000000000000000000000000000000000000
aaa7766666677aaa777777777777777777777777a7776aaa77777777677777777711177777771177777777760000000000000000000000000000000000000000
aaa6666666666aaa666666666666666666666666aa6666aa77777777671117777777776666777777777111760000000000000000000000000000000000000000
66666666000000000000000000000000000000000000000000000000667777666671176666711766667777660000000000000000000000000000000000000000
66666666000000000000000000000000000000000000000000000000c007770000711766667117000077700c0000000000000000000000000000000000000000
66666666000000000000000000000000000000000000000000000000c007777700711766667117007777700c0000000000000000000000000000000000000000
66d66666000000000000000000000000000000000000000000000000a000777700777766667777007777000a0000000000000000000000000000000000000000
66dd6666000000000000000000000000000000000000000000000000accc776cac666666666666cca777cccc0000000000000000000000000000000000000000
66666666000000000000000000000000000000000000000000000000accccc6cac000066660000cca6cccccc0000000000000000000000000000000000000000
66666666000000000000000000000000000000000000000000000000aa000666aa000066660000aa666000aa0000000000000000000000000000000000000000
66666666000000000000000000000000000000000000000000000000aaa0000aaaaaaa6666aaaaaa00000aaa0000000000000000000000000000000000000000
2045505050504520702020202020202020505050505050507050748494a450200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
2016505050505050505035353535455050505050505050502050758595a550200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
2016505050505050505050505050505050505050505050502050768696a650200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
2016505050505050505050505050505050505050505050502050778797a750200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505020455050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20202020202020208080808020202020202020202020202020202020202020200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20202020202020208080808020202020202020202020202020202020202020200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20505050505050505050505050505050505050505050505050505050505050200000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
20202020202020202020202020202020202020202020202020202020202020200000000000000000000000000000000000000000000000000000000000000000
__gff__
0000010001000008010000000000000000000000000000000000000000000000000000000000000000000000000000000000070707070700000000000000000000000000000000050505050000000000000505050500000504040500000000000000050505040505040405000000000001000000000000050505050000000000
0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
__map__
0202020202020202020202020202020202020202020202020202020202020202000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205055102050551023252535253520202543505050505050505050505355402000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205060502050505020505050505050202610505500505500505500505506002000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205050502050505020505050505050202610550500550500550500550506002000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0207020202050502020505050505050202610550500550500550500550506002000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205050505050505050505050505050202610550050550050550050550056002000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020550500505050505050505050505020205054748494a05054748494a050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020505050505050505050505050505020205055758595a05055758595a050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020208080808080202020202020202020205056768696a05056768696a050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020208080808080202020202020202020205057778797a05057778797a050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0233050505050502050505050505050202050505050505050505050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205055005056002050565050505050202050505050505050505050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020550500505600205666666050605020205054748494a050505050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020550500505600205646263050505020205055758595a050505050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020550050505050205050505050505020205056768696a050502020202020202000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020505050505050202020202020207020205057778797a050502020205050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205055005050554055353535305050808050505050505050502020205060502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205500261050505050505050505050808050505050505050502020241414102000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020550026105050505050505050505080805054748494a050502020241414102000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020550026105050505050505050505080805055758595a0505020b0b41414102000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020505540505055405050505050505080805056768696a0505020d0d41414102000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
020505500505050202020202020202020205057778797a050502050541414102000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205505005050502050505050505050202050505050505050502050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205506002050502050505666666050202050505050505050507050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205506002050502050605666666650202020808080808020202020202020202000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205050505050502050505636462050202020808080808020202020202020202000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205050505050507050505050505050202340505050505050205050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0270707002020202020202020202020202050505050505050205474805050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0205050505053602050505050565050202050505050505050205575805540502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0261050505050502050605666666050202414141414141410205676805050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0261050505056002050505636462050202414141414141410205777805060502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
0261050505056002050505050505050202050505050505050205050505050502000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000