MAZE 3D (itch) (Munro)

От создателя VULF 3D представляет суперпродвинутое высокотехнологичное продолжение: MAZE 3D - захватывающий такти-крутой лабиринт!

Функции:

• Полностью текстурированные стены и пол! вау, это снова 1980-е!
• Столкновения стен! Никаких вам больше призрачных способностей!
• Автоматическое картографирование! выбросьте ручку и бумагу в мусор!
• Эпический финал! одна строка поздравительного текста!

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

• Мышь, чтобы посмотреть влево/вправо.
• Щелкните левой кнопкой мыши, чтобы двигаться вперед.
• Z, чтобы просмотреть карту.
• Щелкните правой кнопкой мыши, чтобы увидеть невероятную скорость при взгляде на карта

Код:

1017 символов:

z=прямое заполнение ч = мгет функция a(x,y,u,v) if(pget(u,v)>1)line(x,y)for i=rnd(4)\1/4,2,.25do a(u,v,u+cos(i)*2,v+ грех(я)*2)конец конец cls()z(0,0,62,62,2)?"\f1" a(9,9,9,9)a=63circ(61,61,2)для i=0,7^5do mset(i%a,i/a,pget(i%a,i/a))end fillp(8015)z(0,0,7,7,40)z(8,0,15,7,79)memcpy(0,●-웃,999)poke(14-😐,7)fillp()c =0t=1e=0f=.5x=9.5y=9.5::_::r=stat(38)/999m=stat(34)/9g=cos(r)v=sin(r) if(h(x+c*m*2,y)<2)x+=c*m if(h(x,y+t*m*2)<2)y+=t*m c,t,f,e=c*g-t*v,c*v+t*g,f*g-e*v,f*v+e*g для n=a,127do rd=a/(n-a)tline(0,n,127,n,x+rd*(c-f),y+rd*(t-e),rd*f/a,rd*e/a)end для i=0,127do cx=i/a-1j=c+f*cx к=т+е*cx l=x\1w=y\1n=abs(1/j)o=abs(1/k)p=sgn(j)q=sgn(k)r=n*(j>0 и l-x+1или x-l )u=o*(k>0 и w-y+1или y-w)s=1b=0, пока s<2do б+=1m=r20)перейти к if(m)r+=n l+=p если(не m)u+=o w+=q s=h(l,w)конец d=m и (l-x+.5-p/2)/j или (w-y+.5-q/2)/к n=(m и y+d*k или x+d*j)%1d=64/d\1sspr(n*8,0,1,8,i,64-d,1,d*2):: а::конец для i=0,1,1/8do j=x+cos(i)k=y+sin(i)sset(j+64,k,h(j,k)+4)end если(btn(4))spr(8,0,0,8,8)pset(x,y) ?"⁶1⁶cc" если (h(x,y)>0)перейти к _ ?" ⁶t⁶wнашёл выход!"

Устаревший и неоптимизированный «исходный» код:

оценка=0 ::начинать:: функция map_gen(px,py,u,v) if(pget(u,v)>6)line(px,py)for i=rnd(4)\1/4,2,.25do map_gen(u,v,u+cos(i)*2,v+ грех(я)*2)конец конец кл() прямоугольникзаполнение(0,0,64,64,7) цвет(6) map_gen(9,9,9,9) для х=0,63до для у=0,63до mset(x,y,7-pget(x,y))end конец мсет(10,10,2) кл() заполнить(8015) прямоугольникзаполнение(0,0,7,7,40) прямоугольникзаполнение(8,0,15,7,79) мемкпи(0,24576,8191) тыкать(24365,7) заполнить() pdirx=0 pdiry=1 планекс=0 Плани = 0,5 пикс=9,5 ру=9,5 ::_:: г = статистика (38)/999 м = статистика (34)/9 pcos=cos(r) псин = грех (г) pm=mget(px+pdirx*m,py+pdiry*m) if(pm>0)px+=pdirx*m py+=pdiry*m if(pm>1)score+=1перейти к старту pdirx,pdiry,planey,planex= pdirx*pcos-pdiry*psin, pdirx*psin+pdiry*pcos, planey*pcos-planex*psin, planey*psin+planex*pcos для y=63,127do рд=63/(у-63) шаг=2/128 tline(0,y,128,y, px+rd*(pdirx-плани), py+rd*(pdiry-planex), рд*плани*степ, рд*планекс*шаг) конец для i=0,127do сх=я/63-1 rayx=pdirx+planey*cx rayy=pdiry+planex*cx мапх=px\1 мапи=py\1 дельтакс = абс (1/rayx) deltay=abs(1/rayy) шагx=sgn(rayx) Stepy = знак (луч) distx=deltax*(rayx>0and mapx-px+1или px-mapx) disty=deltay*(rayy>0и Mapy-py+1или py-mapy) с=1 пока s>0do m=distx<дисти если(м)distx+=deltax mapx+=stepx if(not m)disty+=deltay Mapy+=stepy s=mget(mapx,mapy) конец d=m и(mapx-px+.5-stepx/2)/rayx или(mapy-py+.5-stepy/2)/rayy wallx=(m и py+d*rayy или px+d*rayx)%1 д=64/д\1 сспр(стена*8,0,1,8,i,64-d,1,d*2) конец ?оценка.." flr⁶1⁶c" идти к _

Создано для 1k Jam!