AndyGFX [Lexaloffle Blog Feed]

Picolunky (level generator)

Tue, 02 Aug 2016 05:19:33 UTC

Picolunky 0.6

by AndyGFX

[Click to Play]

Update:

added function fixstages to TMap class, for prevent unreachable platforms from pattern in stage. Implementation is very simple and you can extend method as you wich. Currently is checked only "platform" tile id.

Method:

From generated POI point is created connection to free edge in stage and remove platform tiles between connected stages if exist.

Picolunky 0.5

by AndyGFX

[Click to Play]

This example show procedural level building combined from two method:
1) maze generator - for wall
2) predefined pattern - for stages (platform, ladder, obstacles, ...)

Every room is created from 2x2 stage, and stage is defined in sprite as template, where color index = tile id descibed in data structure:

    self.template[0] = {name="empty"    ,color=1,tile=self.starttile+0,probability=1.0}
    self.template[1] = {name="wall"     ,color=2,tile=self.starttile+1,probability=1.0}
    self.template[2] = {name="platform" ,color=3,tile=self.starttile+2,probability=1.0}
    self.template[3] = {name="breakable",color=4,tile=self.starttile+3,probability=0.5}
    self.template[4] = {name="obstacle" ,color=5,tile=self.starttile+4,probability=0.5}
    self.template[5] = {name="ladder"   ,color=6,tile=self.starttile+5,probability=1.0}
    self.template[6] = {name="item"     ,color=7,tile=self.starttile+6,probability=0.5}
    self.template[7] = {name="exit"     ,color=8,tile=self.starttile+7,probability=1.0}
    self.template[8] = {name="hazard"   ,color=9,tile=self.starttile+8,probability=1.0}

Maze is generated in stages count and walls are implemebted as wall to stage.

Control
[z] = generate new maze with wall
[x] = generate new order of patterns in stages
arrow=scroll map

Marching squares

Fri, 22 Jul 2016 18:05:56 UTC

Marching squares

by AndyGFX

[Click to Play]

here is my next cartridge which is combination of my previous Cellular automata class and Marching squares technique for generate procedural platform or top-down levels.

Control:
[z] tileset type #1
[x] tileset type #2
[arrows] scroll map

Note: source code is't optimized for tokens for now

AndyGFX

Cellular automata

Wed, 20 Jul 2016 10:40:44 UTC

Cellular automata class

by AndyGFX

[Click to Play]

Cellular automata

by AndyGFX

[Click to Play]

Hellou,

I think this is a very useful for everyone, who want create procedural maps.

Press Z key few times for smooth 'caves'.

EDIT: example is now as class.

How to:

...
    cave = TCellular:New()
    cave:Generate(128,116,0.6,4,5,5)
...
function DrawMap()
    for xm=1,cave._w do
        for ym=1,cave._h do
            if (cave:Map(xm,ym)==0) pset(xm,ym,0)
            if (cave:Map(xm,ym)==1) pset(xm,ym,7)

        end
    end
end
...

AndyGFX.

Actors and Actor as class ...

Sat, 16 Jul 2016 12:20:17 UTC

Hi,

here is example how to write lua code more as OOP using metatable and user defined callbacks for update and draw per actor.

Note: Plane sprite is created as sprite 2x1 on sprite id 1 and 2.

--   Actors+Actor CLASSes
-- andygfx - cubesteam - 2016

-- Define TActors container class ---------------------------------------------

TActors = {}

-- TActors CONSTRUCTOR 

function TActors:New() 

    o = { 
            list={}
        } 

    setmetatable(o, self) 
    self.__index = self 

    return o 

end 

-- TActors methods ------------------------------------------------------------

-- add actor to Actors list
function TActors:Add(actor)
    add(self.list,actor)
end

-- delete actor from Actors list
function TActors:Del(actor)
    del(self.list,actor)
end

-- return count of actors in list
function TActors:Count()
    return #self.list
end

-- call user defined update method on all actors in list
function TActors:Update()
    for a in all(self.list) do 
        if a.enable then
            a:update()
        end
    end
end

-- call user defined draw method on all actors in list
function TActors:Draw()
    for a in all(self.list) do 
        if a.enable then
            a:draw()
        end
    end
end

-- Define TActor class --------------------------------------------------------

TActor = {} 

-- TActor CONSTRUCTOR ---------------------------------------------------------

function TActor:New() 

    o = { 
            name="actor",
            enable=true,
            visible=true,
            x = 0, y = 0,
            _x = 0, _y = 0,
            sprite = 0,
            sx = 1, sy = 1,
            dx = 0, dy = 0,
            update = function() end,
            draw = function() end 
        } 

    setmetatable(o, self) 
    self.__index = self 

    return o 

end 

-- METHODS 

-- set actor fields
function TActor:Set(name,sprID,x,y,w,h,dx,dy)
    self.name=name
    self.sprite=sprID
    self.x=x
    self.y=y
    self._x=x
    self._y=y
    self.sx=w
    self.sy=h
    self.dx=dx
    self.dy=dy
end

-- set actor update and draw callback
function TActor:SetCallback(fncUpdate,fncDraw)
    self.update = fncUpdate
    self.draw = fncDraw
end

-- respawn acgtor to start position
function TActor:Respawn()
    self.x=self._x
    self.y=self._y
end

-- pico8 callbacks ------------------------------------------------------------ 

function _init()
end

function _update()
  Actors:Update()
end

function _draw()
  cls()
  Actors:Draw()
end

-- TEST ACTORS ----------------------------------------------------------------

-- create Actors container
Actors=TActors:New()

-- user defined UPDATE callback for actor
function UpdatePlane(self)
    self.x+=self.dx
    self.y+=self.dy

    if self.x>128 then self:Respawn() end

end

-- user defined DRAW callback fro actor
function DrawPlane(self)
    spr(self.sprite,self.x,self.y,self.sx,self.sy)
end

-- create actor#1
plane1 = TActor:New()
plane1:Set("plane1",1,10,20,2,1,1,0)
plane1:SetCallback(UpdatePlane,DrawPlane)

Actors:Add(plane1)

-- create actor#2
plane2 = TActor:New()
plane2:Set("plane2",1,10,35,2,1,2,0)
plane2:SetCallback(UpdatePlane,DrawPlane)

Actors:Add(plane2)

-- create actor#3
plane3 = TActor:New()
plane3:Set("plane3",1,10,50,2,1,3,0)
plane3:SetCallback(UpdatePlane,DrawPlane)

Actors:Add(plane3)