Speed Pool #Pico1K

Скоростной бассейн 1К 🎱

Это моя единственная запись (пока) в #Pico1k Jam.
Это игра в Speed ​​Pool (с таймером), размером всего 1024 байта (1022 символа), без использования предопределенных изображений и звуковых эффектов. активы! 😅
Изначально планировалось сделать демо-версию Arcade Pool, но быстро поняли, что это слишком амбициозно!

ЦЕЛЬ <р>

<р>

• Забей все шары (но не белые) как можно быстрее!

УПРАВЛЕНИЕ

• Прицелиться     = Переместить мышь
• Выстрелить = Щелкнуть мышью
  • Совет: чем дальше вы целитесь= удар сильнее (но слишком сильно, и вы улетите со стола!)
• Перезапустить игру = Обновить браузер (или Нажмите ВВОД > Сбросить корзину)
  (Извините, не хватило кода для создания хорошей логики перезапуска 😇)

ФУНКЦИИ

• 🎱 Реалистичная* 2D-физика
• ️🎞️ 60 кадров в секунду
  
• 🔊 SFX
• ⏱ Действие «На время»
  (Какое у вас лучшее время прохождения? 🏆)

БЛАГОДАРНОСТИ

• Большое спасибо PC101 за демонстрационный код Elastic 2D физики мяча

ИСХОДНЫЙ КОД 1024 байта / 1022 символа c = заполнение s=стат poke(24365,1)pal(4,0,1)l={}h=0y=0v=5for i=1,16do q=25+h*6w=y+48e=i==11 и 6или(i%2)*3 если (i>15)q=99w=64e=9 b=add(l,{x=q,y=w,c=e,a=0,s=0,v=0,b=0})y+=7v-=1if(v<1)h+=1v =5-h y=h*4конец _set_fps(60) while(#l>1)do m={}u=s(32)i=s(33)cls()?"\^pspeed пул \fd"..t() прямоугольник(0,25,127,102,3)для i=0,5do x=i*63c(x,26,5,0)c(x,101,5)конец для k,b в парах(l)do х=б.х y=by б.в*=.97б.б*=.97х+=б.в у+=б.б if(pget(x,y)<1)del(l,b)?"\ax3c1" для l,t в парах(l)do а=х-т.х z=y-t.y d=sqrt(a*a+z*z) if(k!=l и d<6)add(m,{b,t})o=(d-8)/2x-=o*(a/d)y-=o*(z/d)t .x+=o*(a/d)t.y+=o*(z/d)?"\as0c" конец if(x>124или x<4)b.v*=-1.1 if(y>q или y<29)b.b*=-1.1 для я=1,3до c(x+min(2-i),y+1-i,4-i,({2,8,14,9,10,7,4,4,5,6,7,7})[b .c+i])конец b.x=x b.y=y конец для p во всех (m) do a=p[1]z=p[2]d=sqrt((a.x-z.x)*(a.x-z.x)+(a.y-z.y)*(a.y-z.y))n=(z.x-a.x)/d r=(з.у-а.у)/д v=a.v*-r+a.b*n y=z.v*-r+z.b*n о=a.v*n+a.b*r k=z.v*n+z.b*r a.v=-r*v+n*k a.b=n*v+r*k z.v=-r*y+n*o z.b=n*y+r*o конец if(s(34)>0)b.v=-(b.x-u)/4b.b=-(b.y-i)/4 fillp(░)line(b.x,b.y,u,i)fillp()flip()end