kozm0naut [Lexaloffle Blog Feed]

Pilgrimage (1K)

Wed, 01 Oct 2025 03:35:21 UTC

Pilgrimage

An entry to the 2025 PICO-8 1K Jam

You are traveling back to your origin.
It is a journey of 200 steps.
Steps which grow longer, wider, taller, and deeper.
Some may even shift before your eyes.

But take a deep breath. Be patient.
Pay close attention to your surroundings.
You will grow stronger with every step you take.
Your capacity for flight (X) will extend.

It may not be possible to complete all journeys.
But there will be a new pilgrimage every day.

koz_pilgrimage

by kozm0naut

[Click to Play]

Press X to fly. Collect orbs to extend your flight time. Watch out for moving platforms!
The trial is different daily, but there are always 200 steps.

The Code

1024-byte version

Non-Minified Version

pico-8 cartridge // http://www.pico-8.com
version 43
__lua__
--pilgrimage
--by koz
x,y,z,a,pz,pa,pdx,pdy,pdz,pda=0,0,0,0,5,0,0,0,0,0
pspd=.0125
ptrn=2
ptank=2
pfuel=2
score=0

objs={}

date=stat(80)..stat(81).."."..stat(82)
srand(tonum(date))
r=rnd()

--poke4(0x5f00,0x309.041,0x702.0501)
pal{4,9,3,1,5,2,[15]=6}
--pal(15,6)
--pat=~rnd(0x8000)\1+0b.111
for i=1,200 do
 x+=8
 y+=8*sin(r+i/64)+rnd()*.8*i-.4*i
 z=i/2*cos(r+i/64)
 add(objs,{
  --x=5*i*cos(i/30.2),y=5*i*sin(i/30.2),z=i*sin(i/128),
  --x=i%15*10,y=i\15*10,z=10*sin(i/27),
  --x=5*i*(1+i/128),y=8*sin(i/32)+64*sin(i/64)-i*sin(i/17)-4*sin(i/1.7),z=i/2*sin(i/64),--+i/12*sin(i/12)
  x=x,y=y,z=z,
  c=14-i%6,ptil=i/2
 })
 if (i==1) px,py=x,y
end

function _update60()
 if (pdz<-1 and not plat) if (btn(5)) run() else print("❎",61,118,0) return
 cls(7)
 cx=px-8*cos(pa)
 cy=py-8*sin(pa)
 cz=pz+1.3
 pdx*=.92
 pdy*=.92
 pda*=.96
 if btn(2) then
  pdx+=pspd*cos(pa)
  pdy+=pspd*sin(pa)
 end
 if btn(3) then
  pdx-=pspd*cos(pa)
  pdy-=pspd*sin(pa)
 end
 if (btn(0)) pda+=ptrn
 if (btn(1)) pda-=ptrn
 --if (btnp(4)) _p=_p and _p+1 or 1 pstand=false px,py,pz=objs[_p].x,objs[_p].y,objs[_p].z+.01
 if pstand then
  pdz=0
  pfuel=ptank
 else
  pdz-=.003
 end

 objstax={}
 for i=1,1024 do add(objstax,{}) end

 plat=nil

 for o in all(objs) do
  dista(o.x-px,o.y-py)
  if d<2.17 then
   if pz>=o.z then
    plat=o
    if pz+pdz<o.z then
     if (not pstand and not o.pt) o.pt=1 o.ptil=t()+.1 score+=1 ptank+=.05 --pat=~rnd(0x8000)\1+0b.111
     pstand=1
     pz=plat.z
     pdz=0
    end
   else
    pdx*=-1
    pdy*=-1
   end
  end
  dista(o.x-cx,o.y-cy)
  add(objstax[1+d\.5],o)
 end
 if (not plat) pstand=nil
 px+=pdx
 py+=pdy
 pa+=pda>>14
 pz+=pdz

 for i=1024,8,-1 do
  --if (i>800 or i<10) fillp(▒)
  if (i>800 or i<10) fillp(░)
  for o in all(objstax[i]) do
   screenmap(o.x,o.y,o.z)
   wr,hr=320/d,(cz-o.z)*260/d/d
   c=t()<o.ptil and 7 or o.c
   rectfill(sx-wr,sy,sx+wr,sy+(1024+8*o.x)/d,c-8)
   --if (i<800 and i>10) fillp(▒) rectfill(sx-wr,sy+h+3,sx+wr,sy) fillp()
   ovalfill(sx-wr,sy-hr,sx+wr,sy+hr,hr>0 and c or c-8)
   if not o.pt then
    circfill(sx,sy-180/d,44/d,9+(d+32*pa)%6)
    if (o.x%64==8) o.y+=o.x/6000*cos(o.x/6000*t()) oval(sx-wr,sy-hr,sx+wr,sy+hr,7)
   end
  end
  --if (i>48 and i<96) screenmap(px-(px+128*sin(i/32))%32+16,py-(py+132*sin(i/27))%32+16,pz-(i+pz)%32+16) pset(sx,sy,score<50 and i or 8+(i+4*t()+rnd())%7)
  --if (i>2 and i<64) screenmap(px-(px+128*sin(i/32))%6+3,py-(py+132*sin(i/27))%6+3,pz-(i+pz+t())%9.1+8) pset(sx,sy,9+(i+6*t()+rnd(1.4))%6)
  if i==13 then
   --player shadow
   if plat then
    screenmap(px,py,plat.z)
    ovalfill(60,sy-2,68,sy,plat.c-8)
   end
   --player
   rrectfill(61,78,7,11,1,15)
   if (btn(5) and pfuel>0) fillp(▥) rectfill(61,88,67,89,rnd{0,7}) pfuel-=.04 pdz+=.005 pstand=nil
   --if btn(❎) and pfuel>0 then
    --for i=0,128 do screenmap(px-(px+128*sin(i/32))%32+16,py-(py+132*sin(i/27))%32+16,pz-(i+pz)%32+16) circfill(sx,sy,48/d,7) end
    --for i=0,1,.2 do line(61+64*i*pa%7,84+3*sin(i+t()),9+5*i) end
    --for i=0,2,.4 do line(64.5-4*cos(i+t()),88+sin(i+t())+128*pdz+i,9+(7*t()+rnd())%6) end
    --pat=pat or ~-rnd(0x8000)\1+0b.111
    --fillp(32765.875)
    --rectfill(62,72,66,75,15)
    --ovalfill(63,87,65,90,9+(7*t()+rnd())%6)
    --if (score>100) ovalfill(60,77,68,79)
   --else
    --pat=nil
   --end
   fillp(▒)
   rectfill(63,86,65,86-6,13)
   rectfill(63,86,65,86-6*pfuel/ptank,pfuel>0 and 7)
  end
  fillp()
 end
 rrectfill(3,4,3+ptank\.4*2,5,1,0)
 if (pfuel>0) fillp(▒) rectfill(4,5,4+pfuel\.4*2,7,7) fillp()
 ?score,3,12,0
 ?date,3,120
end

function dista(dx,dy)
 a=atan2(dx,dy)
 d=dx*cos(a)+dy*sin(a)
end

function screenmap(x,y,z)
 dista(x-cx,y-cy)
 sa=(.5+pa-a)%1-.5
 sx=64+1024*sa+.5
 sy=64-64/d*2.5*(z-cz)+.5
end

~~This was obviously intended to be an entry into this year's 1K Jam, but I left too many things to the last second and didn't realize the jam ended at 1PM (my fault, the time was clearly posted).~~ Edit: My submission was accepted as a late entry! Thanks, @Liquidream! In any case, I put a lot of time this month into tooling around with this, much of which had to be ripped right back out, but hopefully I kept the best bits for the space.

Hope you enjoy. Let me know what you think and what your scores are!

Mon, 02 Dec 2024 04:49:53 UTC

Bouncy Ball

Fri, 05 Apr 2024 17:45:38 UTC

Bouncy Ball

bouncyball

by kozm0naut

[Click to Play]

v3 2024-05-14:

skarrmann hidden palette added
increased chance of seeing secret unlockables

"The depressing thing about tennis is that no matter how good I get, I'll never be as good as a wall."

- Mitch Hedberg

Game Guide

It takes a steady paddle...

The paddle imparts its speed on the ball, so keep it steady or use this to your advantage to control the ball.. if you can keep up with it!

Modifiers

Modifiers will refresh along the back wall every 5 bounces. Some will give you an advantage, others a disadvantage. Be careful what you land on!

Paddle Size

[7x7]

[7x7]
Paddle Speed

[7x7]

[7x7]
Ball Speed

[7x7]

[7x7]
Gravity Wells (Temporary! Take care when they expire!)

[7x7]

[7x7]

[7x7]

[7x7]
???

[7x7]
Secret Unlockables?????

[7x7]

[7x7]

[7x7]

...??

Demo Mode

Bouncy Ball includes a self-playing demo mode. Unlock up to 4 CPU demo skill levels by playing!

Thanks to the PICO-8 community!

Big heartfelt thanks to @zep for making this wonderfully fun tool!
Credit for nice smooth circles goes to @2darray: aacirc() is used from Marble Merger.
Thanks to everyone on the BBS and Discord for harboring such an amazing community!

This is my first PICO-8 game release, and my second complete game release overall. I tried desperately to keep it as simple as possible in order to actually bring it to completion. As such, the game is only 4 colors!...

...However, there may or may not be additional palettes included as hidden unlockables within the game...

Suggest a suitable (reasonable contrast) 4-color palette in the comments and I may just include it as a rare unlockable option, along with your name!

High Scores

49 skarrmann

One-line minimap

Sat, 02 Mar 2024 19:38:00 UTC

This is pretty simple but I thought some devs might find it useful as an easy way to add a minimap to your game. It uses tline to draw a miniature version of the full map area to screen (during your _draw loop):

for i=0,64 do tline(0,32+i,128,32+i,4/8,4/8+i,1) end

The representative pixel is drawn from the center (4/8,4/8) of each sprite, but you can alter this if you want a different selection.

Here's an example of what this looks like in Celeste:

And here's Air Delivery with this line added:

Obviously it can be a bit messy raw, but it's accurate. For your own project, you could put this against a solid background color in your pause menu, for example. And then you might add an indicator for player position ;)

I hope this can be useful out there!

Tweetcart: Shimmerscale

Mon, 22 Jan 2024 19:12:11 UTC

Shimmerscale

NOW IN GLORIOUS QUADRACOLOR

Consuming 239 chars because I didn't bother to minify further:

cls(13)s=sin
a=12b=4
::_::
t=time()/4
for i=0,36 do 
for j=0,42 do
r=(i+1.4*j)/64
m=12*s(t+r)
x=-8+4*i+3.4*s(t+r-.25)
y=-20+4*j+8*s(r)
if(btn(❎))a=11b=5
if(btn(🅾️))a=12b=4
o=a+(i/3+j/3+t*16)%b
line(x,y-m,x+1,y-m+s(t+r+.75),o)
end
end
goto _

Press ❎ to activate CHROMATOSIS:
An experimental bleeding-edge 5-color mode

Feel free to use/modify this effect for your projects!

a is the starting color and b is how many subsequent colors in the palette to use, so you can alter this to use any colors you want using pal({}) and those two variables. Note that the effect relies on not using cls() so this would be best suited to a splash screen or menu, or for use with clip()

*angle also slightly modified for this example

Tweetcart: Fire Dance

Mon, 08 Jan 2024 16:39:10 UTC

I've been working on a little tweetcart so that I might have something to actually release while still at work on more ambitious projects.

I was able to get it down to 272 chars. It runs at 60fps.

Edit: Used up the last few characters fixing a bug, refining the decay and adding some slight interactivity. Some chars can probably be reclaimed by combining the loops somehow (and using goto instead) but I'll probably just leave it at this.

It starts slow and continues building over time. Enjoy!

tc_firedance

by kozm0naut

[Click to Play]