Log In  

So, in between lunch breaks, I've made tiny-but-significant progress in my level generation code. It's part of a "bigger picture" thing, and meant to be useful across multiple projects; since I'm kind of digging into proc-gen core gaming. Even this little project is a proof-of-concept of a major undertaking, depending on if I can squish this into tokens available.

The idea here is to take a number of levels "LV" and make each one a 15-plus-one table - the first 15 being a kind of "perlin noise" function used to script "rooms" into the level, and the last being a control variable "BIOME" which influences the level's colors, themed elements, etc. I'm planning on coupling this with horizontal and vertical "targets" - ones to collect, ones to avoid, ones to attack, etc. Well, a "target" can be oriented both vertically and horizontally, and in varying speeds (more on this after my next WIP major chunk of code, "MAKETARGET()").

So MAKELEVEL(3) would generate 3 "output" tables:

LVL1={n1,n2...n15,biome}
LVL2={n1,n2...n15,biome}
LVL3={n1,n2...n15,biome}

...and then these tables will define the 5x3 screen map of each level.

I'll have to add "biome control" in later scripting, depending on the kind of game it generates, after the level generation. The "doorway" table definition occurs BEFORE it runs... for instance, it makes sense for a platformer to limit "doorways" to being {0,4,5,9,10,14}, where in top-down adventure or RPG games, it could be anywhere.

That said... still checking this for proper P8 syntax, and to see if it can be simplified. Being intermediate-level at best, I have the suspicion this can be streamlined a little bit still. Maybe even a lot.

function makelevel(lv or 15)
 if (lv>15) lv=15
 winlevel=lv
 for lv>0, do
  "lvl"lv={}
  level={scr1=0,scr2=0,scr3=0,scr4=0,scr5=0,scr6=0,scr7=0,scr8=0,scr9=0,scr10=0,scr11=0,scr12=0,scr13=0,scr14=0,scr15=0,biome}
-- create sequence of 16 doors
-- we don't have to use them all
 doorshuf={rnd(1,6),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5),rnd(1,5)}
 ezpath={}
 hdpath={}
 d=0
 n=1
 for n=1 to lv do
  d+=doorshuf(n)
  add doorlist (return doorways,d)
  n+=1
  end
--each exit makes a short,
--high-risk way, then a long
--low-risk alternative
 for n=1 to lv do
  stdoor=doorlist(n)
  endoor=doorlist(n+1)
--vertical paths?
  vstep=(stdoor/5)-(endoor/5)
  if (vstep<0) vstep*=-1
--horizontal paths?
  hstep=(stdoor\5)-(endoor\5)
  if (hstep<0) hstep*=-1
--add values to paths
  for n=vstep to 0 do
   if (stdoor/5)<(endoor/5) 
   then 
   add ezpath "5"
   add hdpath "5"
   else 
   add ezpath "-5"
   add hdpath "-5"
   vstep-=1
   end
  for n=hstep to 0 do
   if (stdoor\5)<(endoor\5)
   then 
   add ezpath "1"
   add hdpath "1"
   else
   add ezpath "-1"
   add hdpath "-1"
   hstep-=1
   end
 end
 add ezpath {"1","-1","5","-5"}
 if (#hdpath<3) add hdpath{"1","-1"}
--shuffle ezpath/hdpath order
 shuf(ezpath)
 shuf(hdpath)
--read paths, edit level table
    local pos=stdoor
    for i=#hdpath,2,-1 do
        local step={
        -1=(makelevel(pos)+=18,makelevel(pos-1)+=4,pos-=1),
         1=(makelevel(pos)+=20,makelevel(pos+1)+=2,pos+=1),
        -5=(makelevel(pos)+=17,makelevel(pos-5)+=8,pos-=5),
         5=(makelevel(pos)+=24,makelevel(pos+5)+=1,pos+=5)}
        end
    local pos=stdoor
    for i=#ezpath,2,-1 do
        local step={
        -1=(makelevel(pos)+=2,makelevel(pos-1)+=4,pos-=1),
         1=(makelevel(pos)+=4,makelevel(pos+1)+=2,pos+=1),
        -5=(makelevel(pos)+=1,makelevel(pos-5)+=8,pos-=5),
         5=(makelevel(pos)+=8,makelevel(pos+5)+=1,pos+=5)}
        end
    --return generated results as a
    --list of "lvl1,lvl2" tables...
    return "lvl"lv{}=level{}
 end

end

I use a pretty standard LUA shuffle script there, too. And I hope the FOR/DO/LOCAL STEP{..} is effectively equal to a switch/select case statement, because this is where I needed that!

As for the high variables on HDPATH, I'm adding a 16-factor to the typical 4-directional perlin noise, to designate them as "hard path rooms," where harsher penalties for screwups can occur.

WIP P8 file available here: https://app.box.com/s/95hozscthimtty9wsw2febpyfpi0zlw7

P#30416 2016-10-09 10:15 ( Edited 2016-10-09 15:25)

Never mind on the "later" part.

function maketarget(obj,scr,x,y,xrange or 0,yrange or 0,speed or 0,loop or 0)
--x/y position relative to map
 xpos=((scr\5)*16+x)
 ypos=((scr/5)*16+y)
--set sine motions to control
 local xmove=2*sqrt(xrange)*speed
 local ymove=2*sqrt(yrange)*speed
--reverse direction! 
 if (xmove=xrange or xrange<0) xmove*=-1
 if (ymove=yrange or yrange<0) ymove*=-1
--diagonals or curves
 if loop=1 then
  xmove=xrange
 elseif loop=-1 then
  xmove-=xrange
 end
--place object on trajectory
--and move accordingly! 
 mset xpos ypos obj
 obj.x+=xmove
 obj.y+=ymove  
end
P#30422 2016-10-09 11:25 ( Edited 2016-10-09 15:25)

[Please log in to post a comment]

Follow Lexaloffle:        
Generated 2021-07-25 12:23:11 | 0.010s | Q:12