ASTERO1K

Элементы управления

• Кнопки "влево" и "вправо" для вращения корабля
• C для включения двигателя, т. е. стрелять и двигаться одновременно

Код 1к. функция i()f=l%#e
g=99-f*20d=e[f+1]srand(l)?"\aszi7v7e0x1v4ev2ev0e"
t=0p={t=0, c=7,x=64,y=64,r=3,a=.25,s=0,n=100}m={p}
для n=-1,l\#e*2do
добавить(m,{t=1,c=k[l%#k+1],x=r(99)-50,y=r(99)-50,a=r(),s =r(.2)+.1,r=r(9)+4})end
end
функция _update60()a=circfill
p.a-=(b()\2 %2-b()%2)*.01if(b(4)и t%3<1и p.n>5)добавить(m,{t=2,c=10,x=x,y=y,r= 1,a=p.a,s=2,d=30*d})p.s-=.2p.n-=1?"\ax5i0g"
p.s*=.99-d*.01cls(k[( l-1)%#k+1])для v=#m,1,-1do
n=m[v]для w=#m,v+1,-1do
o=m [w]ts=n.t+o.t
если n.r+o.r>=sqrt((n.x-o.x)^2+(n.y-o.y)^2)then
if(ts== 1)p.n-=1a=circ?"\ai2c0"
если ts==3то
n.r*=.7?"\as9i3x5e1e0"
если n.r<3.5то
del (m,n)else
o.r,o.t,o.s,o.c=n.r*.5,1,n.s,n.c
конец
конец
конец
конец
n.x+=n.s*cos(n.a)n.y+=n.s*sin(n.a)n.x%=128n.y%=128a(n.x,n.y,n.r,n.c)if n.t==2then
n.d -=1
if(n.d<0)del(m,n)
end
end
x,y,p.n=p.x+cos(p.a)*p.r* 1.5,p.y+sin(p.a)*p.r*1.5,mid(0,p.n,g)a(x,y,2,10)rect(13+g-p.n,11,13+g,15)? "astero1k\n\nl𝘷𝘭 "..1+l\#e ..". "..f+1,13,5
if(#m<2)l+=1i()
if(p.n<=0)i()?"\ascv7x3i3c3c2c1"
p .n+=.1
t+=1
end
k={12,4,1,3,9,8,14,13,2}l=0r=rnd
e={2,1,.7,.4}i()b=btn Как насчет исходного кода?

Приведенный выше код ЯВЛЯЕТСЯ исходным кодом. Я сделал игру таким образом, чтобы точно контролировать ее размер. Но я сохранил документ, чтобы отслеживать мой 1 символпеременные:

• a() = circfill()
• b() = btn()
• c = столкновение
• e = трудности
• f = l%#e
• g = 99-f*16
• i() = init()
• k = цвета
• l = уровень
• m = мобы
  • a = угол
  • c = цвет
  • n = nrg
  • r = радиус
  • s = скорость
  • t = тип (0 = самолет, 1 = противник, 2 = пуля)
  • x, y = позиция
• n = текущий моб
• o = моб проверен на столкновение с n
• p = игрок
• r() = rnd()
• v = # из n (текущая толпа)
• w = # из o (проверенная моб)
• x , y = x, y оружие/двигатель