partikeleffekter år anmdreas

Function createparticles(lor)

p.particle = New particle
particles_y = spelarens_y + (spelarens_höjd - particles_höjd)

bredd = ((spelarens_bredd/2) - (particles_bredd/2))
particles_x = (spelarens_x + bredd)+(bredd*lor)

angle# = Rnd(0,-45)
particels_X_velocitet = Cos(angle)*lor
particels_Y_velocitet = Sin(angle)*4

particles_liv = Rand(5,15)

End Function