turbulence particle step event

var vec_x=0;
var vec_y=0;
var that_one=id;

var distance_sum=0;

with (objWindSource)
{
if (place_meeting(x,y,that_one))
    {
    distance_sum+=power(strength*(radius-point_distance(that_one.x,that_one.y,x,y)),2);
    }
}

with (objWindSource)
{
if (place_meeting(x,y,that_one))
    {
    var len=point_distance(that_one.x,that_one.y,x,y);
    var dir=point_direction(that_one.x,that_one.y,x,y)+polarity*90;

    var impact=(len*strength)/1000;

    var weight=(power(strength*(radius-len),2)/distance_sum);

    vec_x+=lengthdir_x(weight*impact,dir)+random_range(-0.1,0.1);
    vec_y+=lengthdir_y(weight*impact,dir)+random_range(-0.1,0.1);
    }
}

hspeed=vec_x;
vspeed=vec_y;

image_blend=make_colour_hsv((point_direction(0,0,vec_x,vec_y)/360)*255,255,255);
image_alpha=min(16,point_distance(0,0,vec_x,vec_y))/16;