The CONCEPT of SPACE

В этом году участие в джеме #Pico1k.

Использует 1023 сжатых байта кода, без внешних ресурсов (без изображений или звуковых файлов).

Запись предыдущего года была pico-xkcd.

• Запускайте шары в пустое пространство. Шары будут расширяться, чтобы заполнить все доступное пространство.
• Ударьте предыдущие шары 3 раза, чтобы лопнуть их и заработать очко. Шары обозначают оставшиеся попадания (красный = 3, оранжевый = 2, зеленый = 1).
• Вы проигрываете, когда запущенный мяч перекатывается через пунктирную "линию опасности" внизу.
Функции
• коллизии, основанные на физике
• простые эффекты частиц
• Использование P8SCII для заголовка, счета и звуковых эффектов.
• алгоритмическое заполнение доступного пространства ( учет других объектов и границ)
• высокая экономия очков
Признания

Демонстрация Speed-pool-1k компании Liquidream из прошлогоднего джема 1k для упрощения физики эластичного 2D-мяча PC101.

Эта игра является ремейком самодельной игры для портативного устройства GamePark, в которую я, помню, играл 20 лет назад.

Исходный код с комментариями

Доступно здесь: суть


Исходный код

Сжатый код == 1023 байта (из 1024 предела для Pico1k Jam)


данные карты("tcos") л={} тп=2 тб=92 сб=15 и=1 г=-1 с=0 ч = дгет (0) р={} _set_fps (60) ::_:: клс() строка(2,ТБ,2,2,7) линия(126,2) строка(126,ТБ) fillp(░)line(2,tb)fillp() ss="\^pscore "..s.." высокий "..h хо=мин(2,128-?сс,0,-128) ?ss,xo,116 МВ=0 если (#l > 0) сделать б=л[#л] х=б.х у=б.у б.в*=.97 б.б*=0,97 х+=б.в у+=бб mv=abs(б.в)+абс(б.б) если (mv < 0,02) делать МВ=0 б.в=0 б.б=0 конец e = мин (мин (мин (мин (96, x-tp-2), 126-x-1), y-tp-2), tb-y-1) для k,t в парах(l)do circ(t.x,t.y,t.r,({11,9,8})[t.c]) если(k!=#l), то a=x-t.x z=y-t.y d=sqrt(a*a+z*z) е = мин (е, d-t.r-1) если(d<=b.r+t.r), то т.с-=1 о = (d-b.r-t.r) х-=о*(а/г) у-=о*(г/д) n=(t.x-b.x)/d r=(t.y-b.y)/d v=b.v*-r+b.b*n k=t.v*n+t.b*r б.в=(-г*в+п*к)*1,15 б.б=(n*v+r*k)*1,15 для i=0,20 сделать add(p,{x=t.x-n*(d-b.r),y=t.y-r*(d-b.r),a=rnd(100)/100.0,s=rnd(3)/3,c=max (т.с,1),n=80}) конец ?"\as0c",0,0 конец конец конец если(mv==0 и e>b.r)b.r+=1 foreach(l,функция(t) если(t.c==0)del(l,t)s+=1 конец) if(x+b.r>126 или x-b.r<2+1)b.v*=-1,1 если(y-b.r 0 и y+b.r>tb)dset(0,h)g=1 б.х=х б.у=у конец foreach (р, функция (о) o.x+=rnd(1)*sin(o.a)*o.s o.y+=rnd(1)*cos(o.a)*o.s pset(o.x,o.y,({11,9,8})[o.c]) о.н-=1 если(o.n<=0)del(p,o) конец) ч = макс (ч, с) rt=flr(t()%3)*4-4 if(g==1)?"\^t\^wигра окончена",30+rt,24+rt,12 if(g!=0)?"\^t\#7понятие пространства",25,44,0 if(g!=0)?"нажмите x, чтобы начать",34,64,12 co=cos(sa/360) си=грех(са/360) строка(64,112,64-16*co,112+16*si,7) если mv <=0 и g==0, то если(sa<=15)u=1 если(sa>=165)u=-1 са+=у конец если бтнп(5) то если g==0 и mv <=0, то b = добавить (l, {x = 64, y = 112, r = 4, c = 3, a = 0, v = -5,9 * co, b = 5,9 * si}) иначе, если г!=0, то л={}г=0 с=0 конец конец флип () перейти к _