Schifahren update: Added enemies logic to track target to its last known position. A* pathfinding is based on massive 2D bitmap representing solid areas.
Oh, the town is a just debug level
"Agony again"
here's my entry for the Lovebyte 2024 party 256 bytes intro compo. Source below. Code may look bizarre as it was tuned for optimal ROM packing.
"Dragon's Teeth"
He cast the teeth upon the ground and immediately regretted it, horrified not by the sprouting warriors, but because they began planting their own teeth as well.
a={{0,0,0,2,1,1}}::_::l={}?"^1^c9^!5f11█🐱✽5●"
for p in all(a)do
x=p[1]\1y=p[2]\1-p[3]u=p[4]v=p[5]h=mid(p[6],1)if(p[6]^2<1)u=0v=0
p[1]+=u/2p[2]+=v/2p[3]=max(p[3]-1)p[6]+=.02if(#a<32and rnd()<.03*h)g=rnd()add(a,{x,y,10,sin(g)*2,cos(g),-1.1})
if((x&-128)|(y&-128)~=0)del(a,p)
l[y]=l[y]or{}add(l[y],{x,y,u,v,h})end
for r=0,138do
for p in all(l[r])do
x=p[1]y=p[2]u=p[3]v=p[4]h=p[5]rect(x-h+.5,y-4h,x+h+.6,y-9h,7-h6)line(x,y-4h,x,y-11h)for i=.4-h,.4+h,h2do line(x+i,y-3h,x+i+uisin(t()3),y+2vi*sin(t()*3))end
end
end
if(#a<1)run()
goto _
"The Chosen"
Suddenly, the shape appears and instantly makes you nauseous. This is not right! You don't want to go anymore. The envious crowd cheers in awe.
64x64
You examine the rogue AI as its logic unravels on the screen. Your heartbeat quickens slightly. It is measured in hertz, while your enemy's is measured in petahertz
poke(24364,3)r=rnd::_::?"^1^c0^!5f11▒1⬇️⬅️;⌂♥"
g=sin(t()/4)^2*.8srand()for x=0,127do
j=x%2g+1f=(t()/(2+r(2))+r())%1d=r{1,-1}y=f64d-32p=x
q=y-d(16+r(16))if(x>63)x,y,p,q=y,x,q,p
for u=p,x,d do
for v=q,y,d do
u&=63v&=63c=pget(u,v)j+=c/4*(1-g)pset(u,v,c+j)end
end
end
goto _
"Deserter"
Fighting the tattooed was futile, so when the banner fell, he ran into the forest. Soon, he could no longer hear the battle, only his own breath and the weird creaking of the trees
"Nest"
Observing the flocking birds from your window for years, you came to realize there was something very strange about them. Your parents, too, realized this, observing your behavior.
function c(x,y,a,u,v,d,k)
e=cos(a)
f=sin(a)/2
p=x-ed/2
q=y-fd/2
r=p+ed
s=q+fd
o=.2
if(u==0)o=1
for i=0,d,o do
U=ui
V=vi
line(p+U,q+V,r+U,s+V,k)
line(p+ei,q+fi,p+ud+ei,q+vd+fi,k)
end
end
::_::
?"^1^cf"
a=t()/8
srand(3)
for j=1,18do
b=a*rnd()r=rnd(48)
x=sin(b)*r+63
y=cos(b)*r+78
z=({{-sin(a),cos(a)/2,8},{0,-1,9},{0,-1,1,.25}})[j%3+1]
a+=z[4]or 0
c(x,y,a,z[1],z[2],20+sin(a+rnd())*12,z[3])
end
goto _
"HUNTINGTON sleeps in a house six feet long.
Huntington dreams of railroads he built and owned.
Huntington dreams of ten thousand men saying: Yes, sir."
(genuary 2024/14, draw 10000 of something)
r,o,s=288,extcmd,"|+ci#+ckm"
for i=0,44do
m=i%9n=i\9pal(1,-10,1)cls(1)camera(m128,n128)srand()
for j=0,9999do
?s,j%r4,j\r18+rnd(3),rnd{0,15}
end
?"huntington dreams of ten thousand men saying: yes, sir. "..s,884,620,10
o('set_filename','e-'..n..m)o('screen')
end
"Curse"
The Seer knelt by the flowers, withered echoes of life lost. Struggling against the cold wind, just like the Warrior before. The Old Gods do not forgive easily.
r,o,s=rnd,line,sin::_::?"^1^c7"
f=t()srand()for i=0,20do
x=r(24)+48y=r(16)+86a=r()d=.3+s(a+f+s(a*.7-f/6)^2/3)/19o(x,y,x,y,0)l=r{0,0,15}for j=0,l do
u=cos(d)v=s(d)x+=u3y+=v3d*=.94o(x,y)end
for j=7-l\2,7do
u*=.9v*=.9x+=u2y+=v2e=j%22-1o(x+(u-ve)2,y+(v+ue)*2)end
end
goto _
r=0
::_::
cls(15)
srand(r\32)
u,v=rnd(128),rnd(128)
for i=0,255do
y=i\168+4
x=i%168+4
if((rnd()<.1 or (rnd()<.5 and (x-u)^2+(y-v)^2<2000)) and r%32<16)then poke(i,@i+4*rnd{-1,1})end
a=@i/256-1/8
clip(x-4,y-4,8,8)
circfill(x+cos(a)*99,y+sin(a)*99,99,8)
end
r+=1
flip()
goto _