/// CREATE
particle_system = part_system_create();

type_count = 100;
particle_count = 100;

for (i = 0; i < type_count; i += 1) {
    particle_type = part_type_create();

    part_type_size(particle_type, random_range(0.25, 2), random_range(0.25, 2), 0, 0);
    part_type_direction(particle_type, random(360), random(360), 0, 0);
    part_type_speed(particle_type, random_range(0, 10), random_range(0, 10), 0, 0);
    part_type_shape(particle_type, choose(pt_shape_circle, pt_shape_cloud, pt_shape_disk, pt_shape_explosion));
    part_type_color3(particle_type, random(c_white), random(c_white), random(c_white));
    part_type_alpha3(particle_type, random(1), random(1), random(1));
    part_type_life(particle_type, 100, 200);

    emitter = part_emitter_create(particle_system);
    part_emitter_region(
        particle_system,
        emitter,
        1/4 * room_width,
        3/4 * room_width,
        1/4 * room_height,
        3/4 * room_height,
        ps_shape_rectangle,
        ps_distr_linear,
    );
    part_emitter_burst(particle_system, emitter, particle_type, particle_count);

    types[i] = particle_type;
    emitters[i] = emitter;
}

time = 0;

/// DESTROY
for (i = 0; i < type_count; i += 1) {
    part_emitter_destroy(particle_system, emitters[i]);
    part_type_destroy(types[i]);
}
part_system_destroy(particle_system);

/// ROOM END
instance_destroy();

/// STEP
time += 1;

if (time == 100) {
    room_restart();
}