This is a shooter I made with less than 1k compressed bytes
P#125677 2023-02-10 17:26
Good game, @scrapSavage. Gold star work.
Your code is 653-tokens in size and uses 1505 characters.
Here now I compressed it further to 637-tokens and 1353 characters.
β§=-5::βͺ::π="\\()/\n/`'\\"μ="(())\n('`)"β¬
οΈ={-1,1,0,0}β¬οΈ={0,0,-1,1}β‘οΈ=60β¬οΈ=64β=0π
ΎοΈ=0β
={}π±={}β={}β=0β€=1for i=1,96do add(β
,{x=rnd(128),y=rnd(128)})end function …(β,x,y)return((x>=β.x)and(y>=β.y)and x<=β.x+14and y<=β.y+16)end::_::for i=1,4do if btn(i-1)then β+=β¬
οΈ[i]*0.5π
ΎοΈ+=β¬οΈ[i]*0.5end end β‘οΈ+=β β¬οΈ+=π
ΎοΈ for i=1,#β
do pset(β
[i].x,β
[i].y,5)β
[i].y+=4if β
[i].y>128then β
[i].y-=128end end for i=1,#π± do?(time()\1%2==0and π or μ),π±[i].x,π±[i].y,7
π±[i].x+=π±[i].v π±[i].y-=(π±[i].y-π±[i].t)/3if π±[i].x>112or π±[i].x<0then π±[i].v*=-1π±[i].t+=14+(β€-1)*4end if((β‘οΈ>=π±[i].x)and(β‘οΈ<=π±[i].x+16)and(β¬οΈ>=π±[i].y)and(β¬οΈ<=π±[i].y+14))then β§=time()goto βͺ end if((β‘οΈ+14>=π±[i].x)and(β‘οΈ+14<=π±[i].x+16)and(β¬οΈ+12>=π±[i].y)and(β¬οΈ+12<=π±[i].y+14))then β§=time()goto βͺ end if π±[i].y>=116then β§=time()goto βͺ end end for i=1,#β do β=β[#β+1-i]?"|",β.x,β.y,7
β.y+=β.v for o=1,#π± do a=π±[#π±+1-o]if …(a,β.x,β.y)then a.h-=1β+=5if a.h==0then del(π±,a)β+=200break end β.y+=β.v-20end end end for i=1,#β do o=β[#β+1-i]if o.y<0then del(β,o)break end end for i=4,5 do if btnp(i)then for x=1,2do add(β,{x=β‘οΈ+(x-1)*12,y=β¬οΈ,v=-8})end end end?"|/\\|\n<__>",β‘οΈ,β¬οΈ,7
β*=0.75π
ΎοΈ*=0.75?"\^tscore: "..β,1,116
?"\^t\^iscore: "..β,1,116,0
if β§+5>time()then?"\^iyou died",48,120,0
?"you died",48,120,7
end if#π±==0then for r=1,β€ do for i=1,6do add(π±,{h=6,x=(i-1)*20,y=-256,t=-12-(r-1)*12,v=β€*0.5*(r%2==0and 1or-1)})end end β€+=1end flip()cls()goto _
|
P#125682 2023-02-10 18:40 ( Edited 2023-02-10 18:42)
Awesome, I totally forgot about ?"" and those other optimizations are great.
P#125686 2023-02-10 19:43
[Please log in to post a comment]
