Blitzar

С помощью вашего верного космического корабля нанесите на карту огромную галактику! На одну звезду меньше, осталось еще 16383!

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

• Клавиши со стрелками для перемещения вашего корабля.
• Двигайтесь к краю экрана, чтобы лететь к другой звезде.
• Каждый раз, когда вы посещаете новую звезду, ваше исследование процент увеличивается.

Код q={}s=128x=9y=63pal({-15,1,-13,-4,12},1)b=0v=0j=0k=0g=0h=0e,u,w=srand,circfill ,rnd::_::p=btn()j+=(p\2%2-p%2)/4k+=(p\8%2-p\4%2)/4e(t())для i =0,400do n=w(s)m=w(s)circ(n,m,1,abs(pget(n,m)-1))конец камера(v,b)v*=.8b*=.8e(r)для i=0,99do n=w(s)m=w(s)pset(n,m,5)конец l=0для i=0,w(9)делать a=w()+t()/i/9f=i<1and w(3)+9or 1+w(i)u(l*cos(a)+63,l*sin(a)+63-i ,f,7)l+=f+w(9)+5конец х+=j у+=к if(x<0or x>s)g+=sign(j)v=s*-sign(j)x%=s if(y<0or y>s)h+=sign(k)b=s*-sign(k)y%=s ?(#q/4^7*100).."%",2,2 г=г+с*ч для я во всем (q) делать if(i==r) перейти к e конец добавить(q,r)::e::u(x,y,1,7)j*=.9k*=.9flip()goto _