"Ceci n'est pas Binaire"
A visual binary counter in less than 300 characters!
(294 chars)
c={}q=256 f=flr n=rnd?"\^@5f2e00011\^!5f10ャ"
for i=1,q do add(c,f(n(2)))end::♥::t=time()/2cls(0)
if f(n(2))==0then u=1while c[u]==1do c[u]=0u+=1end
c[u]=1end
for i=1,q do
e=i-1v=c[i]x=(e%16)*8y=f(e/16)*8if v~=0then rrectfill(x,y,7,7,1,3)pset(x+1,y+1,0)end
end?"\fb\^o3ffrbn♥",108,2
flip()goto ♥
|

When I play the game it seems fine at a certain point, but when it hits a certain wave the game starts to lag like crazy. I need help!
function _init()
scene="title"
setup_game()
end
function _update()
if scene=="title" then
if btnp(❎) then
scene="game"
setup_game()
spawn_wave()
end
elseif scene=="game" then
if p.state=="alive" then
move_player()
update_hp()
update_bullets()
update_enemies()
update_effects()
upickups()
end
end
if btnp(❎) and scene=="game_over" then
scene="title"
setup_game()
end
end
function _draw()
cls()
if scene=="title" then
print("where the dead remain",27,30,8)
print("press ❎ to start",33,45,8)
print("press z or c to shoot",25,100,8)
print("move arrows ⬆️,⬇️,⬅️,➡️",20,120,8)
elseif scene=="game" then
print("wave:"..wave_number,6,12,8)
draw_hp()
if p.state=="alive" then
spr(p.frames
Fish & Beat - WIP -
description:
A little game about fishing and playing rhythm games to catch fish
features:
still in work in progress, so there's a lot to do
For now, only one fish and one music
the clock doesn't do anything yet, so there's no timer
controls:
left / right: move
X to fish, and do a bunch of other things
nameless girl
She doesn't have a name, but absolutely knows how to fish
|
[16x16] |
"Time isn't Holding up; Time isn't After us"
My first attempt at a postcart. I know the line code could probably be optimized a bit further, but I'm already quite proud of the compression I did to get the palette to fit, as well as getting to flex my trigonometry skills. I tried to make it cycle through a rainbow, and I hope you enjoy :)
(299 chars)
l=line c=circfill s=sin o=cos m=64 ?"\^@5f2e00011\^!5f10ヲン◜◝ワッャリュ¹ラョ\0⁵⁶⁷" ::♥::t=time()cls(t%12)?"\f3\^o2ffrbn♥",2,121,3 c(m+2,m+2,48,13)c(m,m,48,14)c(m,m,44,15) l(m,m,m+s(t/60)*40,m+o(t/60)*40,(t+1)%12)l(m,m,m+s(t/600)*20,m+o(t/600)*25,(t+1)%12)l(m,m,m+s(t/6)*30,m+o(t/6)*30,(t+2)%12) flip()goto ♥ |
With the limit on memory that each process has, and the fact that fetch() returns the whole contents of a file, files larger than a certain amount (16MB Lua ram?) can't be opened at all. I think it would be useful to have a way to read a subsection of a file, or stream in the data so that you can access the contents. It might be useful to be able to append to files so that you can store large files too.

Hi All!
I made a PICO-8 demake of my still WIP Android game, Orbit Rush!
Gameplay is inspired by an old Crash Bash minigame, guard your goal against up to three CPU opponents. Miss a ball and lose a point; get eliminated and your goal becomes a wall. Last pilot standing wins.
There are four arenas, four difficulty levels, power-ups and multiball.
Moving your paddle adds spin, DASH gives your shots extra punch, and GRAB lets you catch a ball and aim your throw.
Controls: Left/right to move, O/Z to dash, X to grab or throw. Enter/P to pause.
Hope you enjoy it!
(Had a little bit of help for this post from GenAi as i'm not a native English speaker :) )

Hi folks,
Currently trying to finish up the leaf game I've posted about previously, and been trying to get the token count down so I can add a more satisfying ending. One way I was hoping to do this was by turning some of the token-consuming tables into a more slick function. I currently have a table for each of the leaf pile objects in my game, that look like this:
leafpile1={
name="pile 1",
piletype="path",
x=5,
y=88,
sp=180,
spa=139,
animtimer=10,
animtimerreset=10+rnd(3),
interact=false,
interacting=false,
complete=false,
mapcelx=0,
mapcely=0,
mapoffset=0,
pathcomplete=false,
objectcomplete=false,
leavesadded=false,
leaves={}
}
leafpile2={
name="pile 2",
piletype="path",
x=90,
y=88,
sp=180,
spa=139,
interact=false,
interacting=false,
complete=false,
l=10,
r=50,
mapcelx=112,
mapcely=0,
mapoffset=896,
pathcomplete=false,
objectcomplete=false,
leavesadded=false,
leaves={}
}
And so on. I have six of these that use over 400 tokens between them. I was hoping to be able to use a function like this to simplify things a bit:
function leafpiletables(a,b,c,d,e,f,g,h)
a={
name=b,
piletype=c,
x=d,
y=e,
sp=180,
spa=139,
animtimer=10,
animtimerreset=10+rnd(3),
interact=false,
interacting=false,
complete=false,
l=10,
r=60,
mapcelx=f,
mapcely=g,
mapoffset=h,
pathcomplete=false,
objectcomplete=false,
leavesadded=false,
leaves={}
}
end
And then I would be able to call that function in the _init() like this:
leafpiletables(leafpile1,"pile 1","path",5,88,0,0,0)
leafpiletables(leafpile2,"pile 2","path",90,88,112,0,896)
leafpiletables(leafpile3,"pile 3","path",50,88,32,0,256)
etc etc
But when I do it like this, all the other functions where I use the leaf pile tables stop working and clearly can't find the information they need anymore. Is there a way to do this that would actually work?
Many thanks!

Another postcartified effect: original (https://www.lexaloffle.com/bbs/?tid=159220)
the function declaration is the problem, without it I could have even more diffrent layers. If anyone knows how to shorten the pass-a-function problem please help, thanks!
(285 chars)
q=sqrt function s(✽)local x,y,v=0,0,1for j=0,169do for i=0,q(v-1)do l=q(v*4)%4\1/4pset(64+x,64+y,✽(l,v))x+=cos(l)y+=sin(l)v+=1end if(j%5==0)flip() end end cls()rect(18,20,108,108) s(function(l)return l*4end) s(function(l,v)return sqrt(l+v)end) s(function(l,v)return((l+.2)&v/10)*10end) |
A memo from the new management
(300 chars)
::_::pal(0,1,1)?"⁶.◀⧗⧗⧗6\0𝘹𝘹⁶.はふふふc\0fk⁶.ᵉ◀◀◀ᵉ\0。-\n⁶.x00\0らららら⁶.kkを\0とにちそ⁶.。-,\0sふふu",1 for i=0,767do x=i%24y=i%384\24if(pget(x,y)>0)q=t()/7-(x+y)/150n=1/(1+2.72^(sin(q+.6)*6))h=n*(50+y*4)r=2+cos(q)*3circfill(44+x*4-y*4+sin(n/2)*8+h,6+x*3+y*3-h+sin(q*5)*2-i*r\768,r,14-(i\384)*7) end?"\^1\^c" goto _ |
Hacking the firewall, one block at a time.
My first postcart.
(297 chars)
k=rrect::✽::for p=1,256,2do line(0,p,s,p,0) circfill(rnd(s),rnd(s),3)end f=t()d=16x=d+sin(f/3)*8y=d+cos(f/2)*8s=128if(f==36)run() for i=0,f do for r=4,2,-1do g=1+r/10k(x*g+i%6*d+r,y*g+flr(i/6)*d+r,11,11,0,r+8)end rrectfill(x+i%6*d+1,y+flr(i/6)*d,13,13,0,rnd(2)+6)end k(x-3,y-3,101,101)flip()goto ✽ |





1 comment


