Log In  
Follow
Yopenatal
Follow

Yopenatal

Cart #heartattack-0 | 2022-01-11 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA
2

Another great game made in under 560 characters.

This bad boy has

-Music
-Sound effects
-Particles
-Endless gameplay

Update

-slowed down player speed for better mobile play.

old version


Cart #heartattackyopenatal-0 | 2022-01-07 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA
2

 
d=0v=0m="deffdeffeddeffdeffeddceddceddeecceddceddee"function w()b={}x=64y=99s=0e={}l=136end w()c=btn::b::flip()cls()d=1+d%4if(d==3)add(e,{x=rnd(l),y=0,v=rnd(6)})v=1+v%#m?"\a"..sub(m,v,v)
if(c(0))x=-2+x%l
if(c(1))x=2+x%l
if(c(2))y=-2+y%l
if(c(3))y=2+y%l
if(btnp(4))add(b,{y=y})
for i in all(e)do
i.y+=i.v
p=i.x
k=i.y?"♥",p-8,k-8,8
if(x<p+8and p<x+4and k<y+4and y<k+8)w()?"\a"
if(k>l)del(e,i)
for o in all(b)do o.y-=1if(o.y<0)del(b,o)
if(x<p+6and p<x+6and k<o.y+8and o.y<k)s+=1del(e,i)?"★\aaa",7
?".",x-6,o.y-9
end
end?"☉",x-8,y-7,7
?"score:"..s,0,0
goto b

P#104458 2022-01-07 12:40 ( Edited 2022-01-11 22:57)


Yopenatal

Cart #zudonfah-0 | 2021-12-05 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA
2

A simple ball bouncing game made in under 560 characters.

Update 1.1

-Increased ball speed
-Fixed ball speed bug that made the ball faster than the paddle
-Graphical and sound changes
-Still under 560(555 according to Pico-8)

 
cartdata("paddle")p=dget(0,p)d=1c=btn
function v()r=rnd(-1)e=0w=64x=32y=0a=w
f=1g=1l=128s=w
if(r<0)d=-1
end
v()::b::flip()cls(1)for i=0,l do circ(8*i%l+sin(x/256)*i/2,8*i%l,(r*i)%l,5)end
if(c(0)and x>0)x-=2*g
if(c(1)and x<l-w)x+=2*g
a+=d*g
s+=f*g
if(a+4>l or a-4<0)d=-d ?"\ab"
if(s+4>l)f=-f ?"\ac"
if(s<0)v()
if(a+4>x and a-4<x+w and y+12>s and y<s)s=y+12f=-f e+=1y+=1w-=.5g+=.1 ?"\ad"
if(y>l)y=0g=1p+=l
if(g>5)g=5
if(w<32)w=32
if(e>p)p=e dset(0,p)
rectfill(x,y,w+x,8+y,9)circfill(a,s,4)
?e,x+w/2,y+2,5
?"hiscore "..p,0,l-16,9
?"by yopenatal",0,l-6
goto b

old version


Cart #fukobegeya-0 | 2021-11-18 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA
2

 
cartdata("paddle")c=btn
p=dget(0,p)o=rectfill
function v()r=rnd(-1)e=0w=64x=32y=0a=w
d=1g=1f=1l=128s=w end v()::b::flip()cls(1)
if(c(0)and x>0)x-=2*g
if(c(1)and x<l-w)x+=2*g
for i=0,l do circ(8*i%l,8*i%l,r*i%l,5)end a+=d*g s+=f*g
if(a>l or a<0)d=-d*g ?"\ab"
if(s>l)f=-f*g ?"\ab"
if(s<0)v()
if(a>x and a<x+w and y+9>s and y<s)s=y+9 f=-f*g e+=1y+=1w-=.5 g+=.001 ?"\ab"
if(g>5)g=5
if(w<32)w=32
if(e>p)p=e dset(0,p)
o(x,y,w+x,8+y,9)o(a-4,s-4,a+4,s+4,9)
?e,x+w/2,y+2,5
?"hiscore "..p,0,l-16,9
?"by yopenatal",0,l-6
goto b

P#100379 2021-11-18 23:17 ( Edited 2021-12-05 17:44)


Yopenatal

Cart #pigeo-0 | 2021-09-19 | Code ▽ | Embed ▽ | License: CC4-BY-NC-SA
3

My project for the Pico-1k jam.

Collect the green ball and avoid the red balls

 
--pigeo by yopenatal
cartdata("pigeo")function py(a,b,c)p(a,b+1,c,7)p(a,b,c,1)end
c=btn
r=rnd
p=print
s=circfill
x=68ll=0y=68t=0wa=0ma=0e=8+r(120)d=8+r(120)n=.1g={}z=0a=dget(0,a)st=0ti="pigeo"ef=0cx=ef
::b::flip()w=cos(ef/36)
if(ll>0)cls(7)ll-=1
if ll<=0then
ll=0cls(9)for kx=1,16 do for y=1,16do circ(kx*8-4,y*8-4,cx%36,14)end end if st==0then ef=(ef+1)%36cx=ef/2for i=1,3 do p(ti,53,48+w*5+w*i,7)end p(ti,53,48+w*5,1)py("made by yopenatal",32,118)py("press z to start",32,80)
if(btnp(4))st=1 g={}
end end
if st==1then
cx=z
x=(x+wa)%136y=(y+ma)%136ma+=n if(c(0))wa-=n
if(c(1))wa+=n
if(c(2))ma-=n*2t=(t+1)%2
if(c(3))ma+=n
if(x<e+9)and(x+9>e)and(y<d+9)and(y+9>d)then u={x=-flr(e/8)*8+128,y=-flr(d/8)*8+128}add(g,u)z+=1e=8+r(120)d=8+r(120) end
if(z>=a)a=z dset(0,a)
for o in all(g)do if(x<o.x+8)and(x+8>o.x)and(y<o.y+8)and(y+8>o.y)then x=68z=0y=68wa=0ma=0ll=15st=0end end for o in all(g)do circ(o.x-8,o.y-8,4,8)end s(x-8,y-8,4,13)s(e-8,d-8,4,11)end
py("score : "..z,1,10)py("hiscore : "..a,1,1)goto b
P#97554 2021-09-19 18:57

Follow Lexaloffle:        
Generated 2022-01-20 02:50:18 | 0.069s | Q:20