   	>                                                              Ø?                       ĢĢ¬ŖŖJDD                                                     ’’’’’’                                                   ĢĢ¬ŖŖJDD                                                    š’’’’šīīž                                                   ĢĢŖŖĢD                                                    ’’’’’ļīīī                                                 ĄĢ  ŹĢĢŖ                                                 ’’’’’’’īīīīž                                                      ŹĢĢŖ
                                            š’’’’’’ļīīīīī                                                     ĄĢĢŖŖ                                  !"""  š’’š  ’’’’’’’ļīīīīī                                        Ą             Ģ¬ŖŖ
                             !""3# ’’’š’’’’’’’ļīīīž’’                                                       ŖŖŖŖ                  !"        !""333#š’’’’šš’’’’š’’’ļīīžļī’                                                      ŖŖŖŖ
                 !""" """"333#ņ’’’’šš’’’’’’’ļīīžīīžž                                                       JDŖŖ                !"""""""23333ņ’’’’šš’’’’’š’’šīīļīīīļ                                                      DD¤Ŗ
              """""""""23333ņ’’’’šš’’’’’   ’ļžļīīīļž                              0                       DDDŖŖ             23#""""!""""23333ņ’’’’š’’’’    šžļīīīļž                                                      DDD¤Ŗ
            333""""!"""""333#’’’’š’’’     š’žīīžīž                                                      @DJŖŖŖ           2333#"""!"""""333#š’’š’  ’’      ’žļī’īž                                                        ŖŖD¤
          2333#"""""""""3#ņ 	  ’           šīž’īīž                                                         JDDŖ          2333#"""""""!""’š’’š             ļīīīī                                                         JDD¬Ź        )3333"""""’’’’’’’             šīīīž                                                         @DDLĢ      23333"’’"ņ’’’’              ļīī                                                           DÄLŹ
     2333#	’"3#’’’’             ’’’                                                           ĄĢDŖŖ    2333" "	 /233’’’’          šīīīž                                                            D¤Ŗ     )33#!23"š 333#’’’’	          šīīīž                                                             ŖDD  )23"!33#	’š2333#’’’’          šīīīž                                                             JDD "2333	  /2333#’’’         šļīī’                                                             @DDD 	!2333 š!3333š’’	        š’īž’                                                             @DDÄD93"3333	2333#	           ļ’ļ                                                            D4ĢL34!2333#	 !2333#	        ’īž                                                             3ÄLCD!3333# !3333         ’                                                              CDC*"4!23333	2333#!"	                                                                        3DDC2Ć#"3333# 2333#""  0                                                                     1ÄĢ43Ģ<!23333"	"3333ņ!"""	                                                                     AĢĢL3Ģ3"3333# 2333#!""""             
                                                      !"AĢĢLDĆĆĢ23333"	!3333#"""""3#                                                                   !""" @ĢĢLD4ĢĢ,3333#	  "3333"""233                                                                  """"IĢĢLD4ĢĢ,3333"	š’2333#!""")333#                                 P                                !""""9ÄĢDDDĆĢ,333#	’’"3333!""")333#                                                                 !""""9DDDDDĆĢD233"š’’23333""""2333#	                                                                """"CDDDDCDD"3#)"š’’ !3333#!"""2333#                                                                """!"1CDD4DDDĢ""3"š’’!3333"""""f)2333                                                     `          ""!"""9CDDDÄĢĢ)23#	’/" !2333#!"""")3333	                                                               """"""9D4 ĄĢĢŖ333"D4š"# !33333!"""23333                                                               """""""CDD ŖĢ¬:C4#BĢL23233333"""""Y2333#                                                               !!""""""CDD#"ŖŖŖ:DD#ÄĢĢ423ņ233333#!"""Y)3333"	                                                               !""""""CD$23"ŖŖ:C4ÄĢĢ4"#ņ!233333#"""""333#	                                                               """"""C$233#ŖŖš33OĢĢĢ4/"""33333#""""2333#                                                              """"""9"3333¢
’’ÄĢĢĢō’’""33333"""")3333                                                               """""23333Bōš’/ÄĢĢL’’’!"333333"""")3333                                                               !"""")33333BD’’2ÄĢĢō’’’!"33333#""""Y2333#	                                                              """"")23333#DD’/3CĢLš’’’!333333#""Y2333"	                                                              """"""33333"DD/233D
’’’"33333#!""3333                    Ą                  `                      !""""""33333"D2333#©š’’233333#2333#                                                              !"""""!233333© 3333ņŖ
  23333#)3333#                                                             !""""""33333#	2333#’¬Ŗ©Ŗ233333#©ŖY)3333	                                            0                """""233333"š2333ņĻĢŖ*23333#ŖŖ2333#’’	                                                             """"233333" 333#š ¬ŖŖ233333#©Ŗ©Ŗ2333łīīž	                                                             """33333# 333ņ ŹĢŖ*233333"ŖŖ2333ļīīī	                                                            !23333#  33#’ Ŗ¬Ŗ2333333¢Ŗ©Ŗ©©Y)33#łīīīīž                                                            )33333"	’’23ņ’ ŖŖ*233333"ŖŖ)23"ļīīīīī                                                            23333#"š’’/"’Ŗ©Ŗ2333333B3©Ŗ©©©©)"ļīīīīī                                                            23333""	’’’’’ Ŗ*233333"DD3ŖYļīīīīī                                                            2333"""š’’’’’ Ŗ©Ŗ2333333BDDD£©©©Yļīīīīī                                                            )33#"""š’’’’’ Ŗ*233333"ĢLDD4Ŗ©ļīīīīī                                                            )23""""š’’’’’ ©Ŗ2333333ĀĢĢLDD£©Ŗ©łīīīīž	                                                           )"""""š’’’’’Ŗ*233333"ĢĢĢĢDDŖ©3*"ļīīī	                                                           !"""š’’’’’ Ŗ2333333ĀĢĢĢĢLD4:DT33’łīīž	                                                           """")"’’’’Ŗ*233333"ĢĢĢĢĢĢD4©CDED4#’īž’’	                                                          !""")23"’’’ Ŗ)333333ĀĢĢĢĢĢĢDD3DDDDD#ļīī	                                                          """")33#’’©*33333"ĢĢĢĢĢĢĢLDCDEDDD#’’’łīīīž	                                                           """")2333 ©©*33333ĀĢĢĢĢĢĢĢL4DTDDDDóīīž’īīīž	                                                           """"3333Ŗ*2333"ĢĢĢĢĢĢĢĢLCDDD3D4ļīīī’īīīž!"	                                                           !"""33333Ŗ©2333BĢĢĢĢĢĢĢĢ<DDE43óīīīīžļīī""  	                                                           "23333#IDŖ)23"DĢĢĢĢĢĢĢĢ<DDD£©ļīīīīī’īž!"""                                                           "33333"DLd:""BDÄĢĢĢĢĢĢ<3DE4Ŗ©ļīīīīī’!""""                                                          )23333#IÄĢ¤Ŗ3:DÄĢĢĢĢĢ<CDSD£©ļīīīīī""""!""                                                        ° )233333"IĢL¤Ŗ©:DDĢĢĢĢĢCDD43Ŗ©Iļīīīīī""""""""                                                          "33333#IÄDŖ©ŖjfffĢĢĢ<DDT4Ŗ"Jļīīīīī!""""""""" 
                            P                          "33333#ņDŖ©fVUUUfĘĢ<DDE4*3#)Bōīīīīž""""""""""                                                         )"333333ņ’©fUUUUUUeĘCDDD£233"#Dļīīī!"""""!"""            
                                           )2333333#ņ©iUUUUUUUUeDDE4*33323¢śīīž""""""""""                                           P            )3333333"’ VUUUUUUUUUFDD£23333#’’’"""""""""                                               P         2333333"	 iiUUUUUUUUUUeE4*3Ģ<33’īž!"""""!"""                                                          233333#VUUUUUUUUUUUF£2ĆĢĢ##ļīī"""""!"""                                                          23333#iUUUUUUUUUUUõ’’3ĆĢĢ"ņīīīž!""""""""                                                           )3333"iiUUUefUUUUUUļīī?ĆĢĢ3óīīīž""""!""""                                                           )23#"iVUUefffUUUUõīīīž3Ģ<Dōīīīž!""""!"""                          
   `                             )"VUUefffUUUUļīīīī?BCDDļīī!"""""""                                                            VUUffffVUUUļīīīī/:DDD’īž	 !"""""""                                                            iiUUUffffVUUUļīīīīÆCDDDD’Æ© """""                                                             iiUUUffffVUUUļīīīīCDDDD4Ŗ	!"!""                                                             aUUUefffUUUUļīīīī?CDDDD4¤Ŗ "                                                              bUUUefffUUUUõīīīž4:DDDDCÄĢ                                                               bUUUUefUUUUUUļīīO3CDD4DĢĢ	                                                               i!bUUUUUUUUefUUõ’’4£©CDDCDĢĢ                                                                i!bUUUUUUUUVUVUUUe4Ŗ:D4ŖDĢĢD                                                                i!""VUUUUUUUVUVUUUF©Ŗ3Ŗ
ĄĢADD                                                                """VUUUUUUUVUVUUUF©Ŗ©ŖADDD	                                                                 """VUUUUUUUe’’_UUŖ
ADDDD"                                                                i!"""bUUUUUUUõīīžUeDDDD"""                                   
                             i!"""eUUUUUUUļīīī_e	ADDD"""                                                                 !U"U%"VUUUUUõīīīīžDLD!""""                                                          š’’    !"U"""aUUUUUļīīīīī	AÄĢ4!""""                                                          ’’’š’’  """""VUUUUļīīīīī	AĢĢ433"""""                                                         š’’’’š’ !"""""iUUUUļīīīīī	AÄL4DD<3"""""                                                         š’’š’’’’!"""""fUUUļīīīīī	0DDCDÄĢ$2"""""                                                        š’’š’’š’’’"!""fVUļīīīīī	 CD3ÄĢDL$3#"""                                                         š’’š’’š’’’!"iföīīīīž0DDDĢĢLD23#"""                                                          š’’š’’š’’’"!’’ļīīī	 CDDDĢĢLD233#"                                                           ’’š’’’’ !"""ńīīžłīīž  CDDDĢĢLD2333 °                                                          š’’’š’  """""ļīīī’’CDD#ÄĢ4D$333                                                                š’’    !""""ņīīīīž’9D4"BD2C$23#                                                                       """""ņīīīīžī’"3#"""DL$"       @                                                        ’’      """""ņīī’ļžīž""""""""ÄĢĄ                                                               š’’’       """""ņī’īž’ī’’"""!"""DLÄ¬Ģ                                                               š’’      !"""ńīļīī’žīīž!""""!"""!DDÄĢŹ                                                              ’’’’       ""’īīīžļīīī!"""""!"""BDĢĢŖ                                                             š’’’š’        "łīīīžīīīīž""""""!"""ĮĢĢŖ
                                                            ’’’’’        """łīīīžīīīīž""""""!"""   Ģ¬ŖŖ                                                            ’’’’’        """ļīī’īīīīž!""""""""""   ŖŖŖŖ
                                                           ’’’’’         !""""’īž’īīīīž!"""""""""""    ŖŖŖŖ                                                           ’’’’         !""""ļ’ļžīīīīž)""""""""""""     ŖŹŖŖ
                                                          ’’’’          !""""ļīīīļīīī)23"!""""""""""      Ģ¬ŖŖ                                                          š’’’           """ņ’’īīīžīīž)233#!"""""""!""     ĄĢĢŖŖJ                                                          ’’    š’’    """ļīīļīīī’’"3333""""""""     ĄĢĢŖŖÄD                                                                ļīī’’ "ņīīīžīīž"33333""""""""       ĄĢĢŖŖĢL                                                             šīīīžīīž ļīīīī’’233333"""""""           Ģ¬ŖŖÄD                         °                                 š’’ļīīīļīīī  ļīīīī)33333#"""""""	              ŖŖDD                                                          ļīīļīīžīīīīž ļīīīī)33333"""""""	              ĄĢŖJDŖ    P                                                    šīīīžīīļīīīīī’ļīīīī )3333"!""""""               ĢĢ¬ŖŖŖ
                                                   
     ļīīīīļīļīīīīīļļīīīī   233#"""""                ĢĢ¬ŖŖŖŖ                                                         ļīīīīļīļīīīīīļžšīīīž       "33""""""                 ĢĢŖŖJŖ
                                                        ļīīīīļīļīīīīīļž ļīī        ""   ""                  ĄĢ  ŖD¤Ŗ                                                        ļīīīīļīļīīīīīļž š’’                                     ŖJŖŖ
                                                       ļīīīī’’’īīīīžī                                              ŖŖŖŖ                                      
                šīīīžžīīļīīīļž                                              ŖŖŖŖ
                                                      šļīīļžīī’īīž’                       `                        ŖŖŖŖ                                                       ’’’ī’’’ ’’?                                                  ŖŖŖŖ
                                                      šīīž                                                          ŖŖŖŖe -- title: fire solar system - 2
-- author: potato imaginator
-- desc: Enjoy !
-- script: lua

cos=math.cos
sin=math.sin
pi=math.pi
t=0
t2=0
v1=math.sqrt(2)

arr={0,1,1}
col={[0]=0,1,2,3,4,12}
s_col={2,3,4,5,6,10,11,12}

p1={} -- fire particles
for i=1,75 do
 p1[i]=
 {ang1=2*pi*math.random(0,99)/100,
  ang2=2*pi*math.random(0,99)/100,
  da2=1/math.random(1,3),
  r=math.random(2,3),
  v=arr[math.random(1,3)],
  l=2*math.random(1,3),
  col=math.random(4,5)}
end

p2={}
for i=1,50 do
 p2[i]=
 {x=math.random(-4,4),
  y=math.random(-4,4),
  v=math.random(-68,68),
  spd=1/math.random(1,3),
  r=math.random(1,2),
  col=math.random(4,5)}
end

a={} -- Asteroid
for i=1,50 do
 a[i]=
 {v=math.random(-4,4),
  ang=2*pi*math.random(0,99)/100,
  da=1/math.random(1,3),
  r=math.random(4,6)}
end

s={} -- Stars
for i=1,100 do
 s[i]=
 {x=math.random(0,239),
  y=math.random(0,135),
  col=math.random(1,#s_col)}
end

function upd_p1()
 for i=1,#p1 do
  p1[i].ang2=p1[i].ang2+p1[i].da2/20
 end
end

function draw1()
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)>=0
   and cos(p1[i].ang2+j/10)>=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     p1[i].r+2,col[p1[i].col-3])
   end
  end
 end
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)>=0
   and cos(p1[i].ang2+j/10)>=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     p1[i].r+1,col[p1[i].col-2])
   end
  end
 end
end

function draw2()
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)<=0
   and cos(p1[i].ang2+j/10)>=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)-z,
     p1[i].r,col[p1[i].col-1])
   end
  end
 end
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)<=0
   and cos(p1[i].ang2+j/10)>=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)-z,
     p1[i].r-1,col[p1[i].col])
   end
  end
 end
end

function draw3()
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)<=0
   and cos(p1[i].ang2+j/10)<=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)-z,
     p1[i].r,col[p1[i].col-2])
   end
  end
 end
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)<=0
   and cos(p1[i].ang2+j/10)<=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +20/v1*sin(p1[i].ang1+t)^7
      *sin(p1[i].ang2+j/10)-z,
     p1[i].r-1,col[p1[i].col-1])
   end
  end
 end
end

function draw4()
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)>=0
   and cos(p1[i].ang2+j/10)<=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     p1[i].r+2,col[p1[i].col-4])
   end
  end
 end
 for i=1,#p1 do
  for j=0,p1[i].l,0.5 do
   if sin(p1[i].ang1+t)>=0
   and cos(p1[i].ang2+j/10)<=0 then
    z=8*sin(p1[i].ang1+t)
      *cos(p1[i].ang2+j/10)
    circ
    (120+60*cos(p1[i].ang1+t)/v1
     -60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     68+60*cos(p1[i].ang1+t)/v1
     +60/v1*sin(p1[i].ang1+t)
      *sin(p1[i].ang2+j/10)+z,
     p1[i].r+1,col[p1[i].col-3])
   end
  end
 end
end

function upd_p2()
 for i=1,#p2 do
  p2[i].v=p2[i].v+p2[i].spd/2
  if p2[i].v>80 then
   p2[i]=
   {x=math.random(-4,4),
    y=math.random(-4,4),
    v=-80,
    spd=1/math.random(1,3),
    r=math.random(1,2),
    col=math.random(4,5)}
  end
 end
end

function draw_p2()
 for i=1,#p2 do
  circ
  (120+p2[i].x+p2[i].v,
   68+p2[i].y+p2[i].v,
   p2[i].r,col[p2[i].col])
 end
end

function draw_planet1()
 for i=0,pi,pi/60 do
  z=8*sin(i)
  pix
  (120-30*cos(i)+z,
   68+30*cos(i)+z,5)
 end
 if sin(t2)>=0 then
  z=8*sin(t2)
  circ
  (120-30*cos(t2)+z,
   68+30*cos(t2)+z,
   12+4*sin(t2),5)
  circb
  (120-30*cos(t2)+z,
   68+30*cos(t2)+z,
   12+4*sin(t2),6)
  circ
  (120-30*cos(t2)-4+z,
   68+30*cos(t2)-3+z,
   3+2*sin(t2),6)
  circb
  (120-30*cos(t2)+4+z,
   68+30*cos(t2)+4+z,
   2+sin(t2),6)
 end
end

function draw_planet2()
 for i=pi,2*pi,pi/60 do
  z=8*sin(i)
  pix
  (120-30*cos(i)+z,
   68+30*cos(i)+z,6)
 end
 if sin(t2)<=0 then
  z=8*sin(t2)
  circ
  (120-30*cos(t2)+z,
   68+30*cos(t2)+z,
   12+4*sin(t2),6)
  circb
  (120-30*cos(t2)+z,
   68+30*cos(t2)+z,
   12+4*sin(t2),7)
  circ
  (120-30*cos(t2)-4+z,
   68+30*cos(t2)-3+z,
   3+2*sin(t2),7)
  circb
  (120-30*cos(t2)+3+z,
   68+30*cos(t2)+3+z,
   2+sin(t2),7)
 end
end

function upd_a()
 for i=1,#a do
  a[i].ang=a[i].ang+a[i].da/90
 end
end

function draw_a1()
 for i=1,#a do
  if sin(a[i].ang)>=0 then
   z=16*sin(a[i].ang)
   circ
   (120-a[i].v+60*cos(a[i].ang)+z,
    68-a[i].v-60*cos(a[i].ang)+z,
    a[i].r,14)
   circb
   (120-a[i].v+60*cos(a[i].ang)+z,
    68-a[i].v-60*cos(a[i].ang)+z,
    a[i].r,15)
  end
 end
end

function draw_a2()
 for i=1,#a do
  if sin(a[i].ang)<=0 then
   z=16*sin(a[i].ang)
   circ
   (120-a[i].v+60*cos(a[i].ang)+z,
    68-a[i].v-60*cos(a[i].ang)+z,
    a[i].r,15)
   circb
   (120-a[i].v+60*cos(a[i].ang)+z,
    68-a[i].v-60*cos(a[i].ang)+z,
    a[i].r,16)
  end
 end
end

function draw_star()
 for i=1,#s do
  pix(s[i].x,s[i].y,s_col[s[i].col])
 end
end

function TIC()
 cls()
 upd_p1()
 upd_p2()
 upd_a()
 draw_star()
 circ(120,68,60,9)
 for i=0,pi,1/60 do
  z=20/v1*sin(i)^7
  line
  (120-60/v1*cos(i)+z,
   68-60/v1*cos(i)-z,
   120-60/v1*cos(i)-z,
   68-60/v1*cos(i)+z,
   10)
 end
 
 for i=-4,4 do
  line(120-68+i,0,120+68+i,136,10)
 end
 draw_a2()
 draw4()
 draw_planet2()
 draw3()
 draw_p2()
 circ(120,68,12,4)
 circb(120,68,12,3)
 circ(120,68,8,12)
 draw2()
 draw_planet1()
 draw1()
 draw_a1()
 t=t+1/480
 t2=t2+1/30
end
