qΠέΠΝΜΝΜΜΠΜΜΜΝάΝΜΝ ΠΜΝ ΝΝ Πέ Μά ΜΜάΜΜΜ ΜάΝάΜ ΠάάΠά Πάέ ΠΜάΠΜάΠΝΜάΝΜΜάΝΜΜΜΝΜΜΜΠέΝΜ άΜ ΝάΠΠΜέΝΠΜΜΜΝΜΜΠΜΝΠΜΝΠΜΝέΠ ΝάάέΜ ΜΜΜ ΜΜάάΜ άΜ άΜ έΠΜΝΠΜάΜΜ ΜΜΝ Π >ˆ:έέέέέέΠέέέέ ΜΐΜέΐΐ ΠέΜ ΜΠέΜΜΜΠ ΐΜέΜΜέέΜΜΜέέΜΜΜέέ Μ ΐΜέ Μ ΐέΠ έΐΜ έ ΜΜ ΐέΠ Μ ΐ ΜέέΜΜΜΐΐ έ ΜΜΜΜέ ΐΐΜΜΐΜέέΐΐΜΜΐΜΜέΠ έέΠέΠέΜ ΜΜΜΜέΜΜΜΐ Μέέ ΠέΠέέ έΐΐΐ ΜέΜΜ ΐΜΜΜ έΠέέέέέέέ ΠΜΜΜΜ ΜΜέ ΜΜΜΐΐΐΜΜέέΠΝΜΜ ΜΜΐ έΠ έ ΜΜΜΜΜΜέΠέέΐΜΜΜέέΐΜΜΜΜ ΜΜάέέέ ΜΜΜΜέέέ ΠΠέέΜ Μΐ έ ΝΜΐΐΜΜ ΜάέέέΜ ΜΜΜέΠέέέΜ ΜέΐΜΜΜΜΐΜΜΜΜΐ Μ ΐάέΐΜΐέέΜΜ έΝΜΐ ΜΜΜΜΜΐΜΜΜΐΠέΜΜΐΠ ΜΜέΝΜΜ ΜΜΜΜΜ ΜΜ άΠΜ ΠέάΠΜΜΜ ΜΜ ΜΜΐΜΜ ΜΜ ΜΠΝέέέΐΜΐΜΜΜΜΜΐ ΐΜΜ ΜΐΜΠέέέΐΜΜ ΜΜΜ Μΐ ΜΜΜ ΐ έέΝΜ άέέΝΜΜΐΜΜ ΌΜ έέ ΜΜάέέ Μ άέέΝΚΜΜΜΜΜΐ άΠΝΜ ΠέΠΐΐΜάέέ ΜΜΜΜΜΜΜέΠΝΜ άέέΐΜέ ΠέΜΜΜΜΜΜέΠέΜάέ Πΐΐέ ΜΜΐΜ έ ΠΠΜάέΝ ΠΜΐΐ ΜΜέ ΠέΐάέέΝΜ έΝΜΜΠέΠέΜά ΠΐΜέ έΐΜΜάΠΠέΜά ΠΝΐέ έΝ ΜάΠ ΐά έΝΐ ΠέΠΠέ άέέΝΜ Πέέ ΠΠΜΠ έΐΜ ΠέέΠΠΜ έΠΝΐ άέΠΠ έ Μά έΝΜΜ ΠΠΠ °έΝΜΜά έΜΜΠέΠΠέ ΜΜά ΠΠ ΜΜέέΠέΝΐ άέέέΜΐ έέΐ Μ έέέΝΜΜέέέέΐΜΜέ ΐ έέέΝ έΠέΜΜΜέ Πέ ΜΜΜΜΛΜ ΜΜΐΜΜΜΜΜΜέ °ΠΠΜΜΜΐΜΐΜ Μ ΐΜΐ ΜΐΜΜέ ΠέΜ ΜΜΜΜΐ ΐ ΜΜΜΜΜ ΜΜέ έΠΛΜ ΜΜΜΐΐΐΜΜΐΜ Μάέέ έΝΐΜΐΐΜΐΐΐ ΐΜΜΜάέ έέΜΠ ΜΜΜΜ ΜΜΜΜΐΜΐ ΐάΜέ°έ ΐΜ έ Μέ ΜΜάέΜΜΐέ ΐΐΜέέΜΜάέΜΜέΐΜΜ έΜΜΜέ ΐΜΜέέ ΜΜΜάέΜΐΜΠΝΐΜ έΜΜΜ ΐΜΜ έΐΐΐΐ έΜ ΐ ΝΜΜά ΜΜΐέΝ ΐΜ έέ έέΜΜΜΐ¬Πέ ΜΜέΝΜΜΠΠΜΜ έέΜΜΜΐ ΠέέΠΠέέέΜΜΜΐΜέΠ ΜΜΠΐΜΐ Π Μέέΐ ΜΜΜέέέ έΜΜΜ Μΐ ΠΠέΜ ΜέΝΜ άΠΜΜΜΠ έΜΜΜΐΜΐ Μέ°έ ΜΛΜΜΜΐέΠΐΜΜ ΝΜΜ έ ΐΜέ έΜΐΜΜΜ ΜΜέ ΜΜΐ ¬ΐ Π ΜΜ ΝΜΜ ΛΜΜέέ ΜΜΜΜΜΜέέΜΜ ΜΜΜΜΠέέ Πέ έΠ έέέ ΜΜΜ ΐ­έΜΐΜΐ Μ ΠέέΠέ έέ έ ΜΜΜ ΜέέΐΜΐΜΜΜέΠέέΠΠέ έέ έΜΜ ΜΜΐέ  έΜΜΜέέΜ¬ΜΜέέέέΐΜ ΛέΠΜΜ ­ ΜΜέ έΜ έΜ Μέ ΐΜΜέ Μ  έΜ ΜέέΜ ΜέέΜ έ ΠέΠ ΠέΠ°έέέ έέ° ° ° €€ €™ €™ € ˆ ° € € ‰€ ›  ˆ€ €™  €  Έ°˜€™ ˜°  ‰€  €€˜ ˆ€ €™ ‰  €  ‰ ˜     €€  €€ °  €  € °  €  €  € €€ €€ˆ€€€ € €€   €€° ˆ   €˜ € ˜ € ˜    €°€°€ ˜  ™™€    €ˆ™€€™€˜™ š  € °        €  € €˜€€€€™ ™€  €  € €™€ ˜ €™ € ‰˜ €€€° ™˜€ -- title: skull to text conversion -- author: potato imaginator -- desc: Enjoy -- script: lua function rperm(num) local m,z={},{} for i=1,num do m[i]=i end repeat local v=math.random(1,#m) z[#z+1]=m[v] table.remove(m,v) until #m==0 return z end cls(8) spr(2,68+16,18,0,2,0,0,2,2) spr(2,180-56,18,0,2,1,0,2,2) spr(2,68+16,68-16,0,2,2,0,2,2) spr(2,180-56,68-16,0,2,3,0,2,2) spr(0,120-32+8,68-40,0,3,0,0,2,2) print('SKULL',34,95,4,false,6) pix(116,73,13) pix(114,73,13) pix(125,73,13) pix(123,73,13) a={} for i=120-40,120+40 do for j=15,15+70 do if pix(i,j)==12 or pix(i,j)==13 then a[#a+1]= {x=i,y=j, spd=0, t=0, t2=0, dt2=0, v=0, col=pix(i,j)} end end end b={} for i=120-90,120+90 do for j=90,90+40 do if pix(i,j)==4 then b[#b+1]= {x=i,y=j} end end end ind1=rperm(#a) ind2=rperm(#b) function upd() for i=1,#a do local _a=a[ind1[i]] _a.t=_a.t+1 _a.v=_a.v+_a.spd _a.t2=_a.t2+_a.dt2 if _a.v<1 then if _a.t//3>=i then _a.spd=1/(15*math.random(8,12)) end else _a.v=1 _a.spd=0 _a.dt2=1 end end end col_map={[12]=11,[13]=10} function TIC() cls() upd() for i=1,#a do local _a=a[ind1[i]] local _b=b[ind2[i]] if _a.v==0 then pix (_b.x+(1-_a.v)*(_a.x-_b.x), _b.y+(1-_a.v)*(_a.y-_b.y), _a.col) end end for i=1,#a do local _a=a[ind1[i]] local _b=b[ind2[i]] if _a.v>0 then local v=0 if _a.t2>60 then v=-2 end pix (_b.x+(1-_a.v)*(_a.x-_b.x), _b.y+(1-_a.v)*(_a.y-_b.y), col_map[_a.col]+v) end end end