//////////////
// PARTICLE //
//////////////

particle
    parent_type     = /obj

    // -- var -- //

    var
        position_x  = 0.00
        position_y  = 0.00
        life        = 45
        life_max    = 45
        velo_x      = 0.00
        velo_y      = 0.00

    New(X,Y,VX,VY)
        ..()
        loc = locate(1,1,1)
        icon = _picon
        SetPosition(X,Y)
        SetVelocity(VX,VY)

    proc
        Update()
            velo_x = velo_x * 0.95
            velo_y = velo_y + 0.125
            MovePosition(velo_x, velo_y)

            life--
            if (life <= 0)
                del src
            else
                color = rgb( 127 + (128 * (life/life_max)), (255 * (life/life_max)), 0)

            var/matrix/m = matrix()
            m.Turn(life*4)
            m.Scale((life/life_max)+0.25,(life/life_max)+0.25)
            transform = m

        SetPosition(X,Y)
            if (X != null) position_x = X
            if (Y != null) position_y = Y
            UpdatePixelCoords()

        MovePosition(X,Y)
            if (X != null) position_x += X
            if (Y != null) position_y += Y
            UpdatePixelCoords()

        UpdatePixelCoords()
            pixel_x = round(position_x)
            pixel_y = round(position_y)

        SetVelocity(X,Y)
            if (X != null) velo_x = X
            if (Y != null) velo_y = Y

        AddVelocity(X,Y)
            if (X != null) velo_x += X
            if (Y != null) velo_y += Y

/////////
// VAR //
/////////

var
    list/
        _list_particles = new/list()

    icon/
        _picon




proc
    _Init()
        _picon = icon('icons20.dmi',"white")


    _Update()
        for (var/d = 1 to 10)
            var/u = rand(0,320)
            var/e = rand(-10,10)
            var/f = rand(0,2)
            _list_particles += new/particle(u,-10,e,f)


        for (var/particle/d in _list_particles)
            d.Update()


world
    fps         = 30
    icon_size   = 20

    New()
        ..()
        _Init()
        spawn()
            while(TRUE)
                _Update()
                sleep(world.tick_lag)

//  o is each particle.
//  'shapes.dmi' is an icon I've been using in every little test project.
// it contains "square" and "circle" icon states.
//  Each particle is a light-blue square.
o.icon = 'shapes.dmi'
o.icon_state = "square"
o.color = rgb(128, rand(128, 255), 255)
o.alpha = 255

//  Each particle starts out as a tiny 1x1 square.
// An easy way to "set" an atom's size is to just use the formula
//   size / original_size
//  (not sure how obvious that was)
var matrix/a = new
a.Scale(1 / 32)

//  The particle animates to a slightly larger particle,
// moving 32 pixels in a random direction, and
// starting out at a random angle.
var matrix/b = new
b.Scale(4 / 32)
b.Turn(rand(360))
b.Translate(0, rand(32))
b.Turn(rand(360))

o.transform = a

//  It also fades away.
animate(o, alpha = 0, transform = b, time = 5)

world
    fps=25;icon_size=32;view=7
    mob=/mob/center
mob
    step_size=4;density=0;icon='mob.dmi';icon_state="center"
    New()
        ..()
        spawn(rand(1,20)) Orbit()
    proc/Orbit()
    electrons
        icon_state="electron"
        electron1
            Orbit()
                while(src)
                    var/matrix/M=matrix();transform=M
                    animate(src,pixel_x=138,pixel_y=-138,transform=M*4,layer=MOB_LAYER+5,time=10)
                    sleep(5);animate(src,transform=M/4,layer=MOB_LAYER-1,time=5)
                    sleep(5);animate(src,pixel_x=0,pixel_y=0,time=10)
                    sleep(5);animate(src,transform=M/2,pixel_y=0,time=5)
                    sleep(5)
        electron2
            Orbit()
                while(src)
                    var/matrix/M=matrix();transform=M
                    animate(src,pixel_x=0,pixel_y=-200,transform=M*4,layer=MOB_LAYER+5,time=10)
                    sleep(5);animate(src,transform=M/4,layer=MOB_LAYER-1,time=5)
                    sleep(5);animate(src,pixel_x=0,pixel_y=0,time=10)
                    sleep(5);animate(src,transform=M/2,pixel_y=0,time=5)
                    sleep(5)
        electron3
            Orbit()
                while(src)
                    var/matrix/M=matrix();transform=M
                    animate(src,pixel_x=-138,pixel_y=-138,transform=M*4,layer=MOB_LAYER+5,time=10)
                    sleep(5);animate(src,transform=M/4,layer=MOB_LAYER-1,time=5)
                    sleep(5);animate(src,pixel_x=0,pixel_y=0,time=10)
                    sleep(5);animate(src,transform=M/2,pixel_y=0,time=5)
                    sleep(5)
    center
        icon_state="center"
        Orbit() return
        New()
            ..()
            while(src)
                sleep(1);new/mob/stars(src.loc)
    stars
        icon_state="star";layer=TURF_LAYER
        Orbit() return
        New()
            ..()
            var/angle=round(rand(1,360),1)
            if(prob(50)) new/mob/stars(src.loc)
            var/matrix/M=matrix();M.Scale(rand(1,6),1);M.Turn(360-angle);src.color=rgb(rand(150,255),rand(150,255),255)
            src.transform=M
            var/dy=sin(angle)*500;var/dx=cos(angle)*500
            animate(src,pixel_x=dx,pixel_y=dy,time=10)
            spawn(60) del(src)
obj
    particle
        icon='mob.dmi';icon_state="trail"
turf
    icon='turf.dmi'
    background      icon='backdrop.dmi';layer=OBJ_LAYER;alpha=230