if(!debug_mode){
show_message("You must be in debd mode to run this application");
game_end();
}else{
show_message("all findings are printed on the debug message system#let the applicatin finish until you#see the 'done' marker#then you can view the message");
}
room_speed=99999;
var time;
function = ds_priority_create();
list = ds_list_create();
BigList = ds_priority_create();
time = current_time;
repeat(1000)
instance_create(irandom(room_width), irandom(room_height), obj_1);
show_debug_message("Time spent creating 1000 objects:");
show_debug_message(string(current_time-time)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
show_debug_message("-------------------------------------");
time = current_time; // place_free
repeat(100000)
place_free(irandom(room_width), irandom(room_height));
PFtotal = current_time - time;
ds_priority_add(function, "place_free", PFtotal);
ds_list_add(list, PFtotal);
show_debug_message("place_free 100000 times:");
show_debug_message(string(PFtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
time = current_time; // place_empty
repeat(100000)
place_empty(irandom(room_width), irandom(room_height));
PEtotal = current_time - time;
ds_priority_add(function, "place_empty", PEtotal);
ds_list_add(list, PEtotal);
show_debug_message("place_empty 100000 times:")
show_debug_message(string(PEtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
time = current_time; // instance_position
repeat(100000)
instance_position(irandom(room_width), irandom(room_height), obj_1);
IPtotal = current_time - time;
ds_priority_add(function, "instance_position", IPtotal);
ds_list_add(list, IPtotal);
show_debug_message("instance_position 100000 times:");
show_debug_message(string(IPtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
time = current_time; // position_meeting
repeat(100000)
position_meeting(irandom(room_width), irandom(room_height), obj_1);
PMtotal = current_time - time;
ds_priority_add(function, "position_meeting", PMtotal);
ds_list_add(list, PMtotal);
show_debug_message("position_meeting 100000 times:");
show_debug_message(string(PMtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
time = current_time; // instance_place
repeat(100000)
instance_place(irandom(room_width), irandom(room_height), obj_1);
IPLtotal = current_time - time;
ds_priority_add(function, "instance_place", IPLtotal);
ds_list_add(list, IPLtotal);
show_debug_message("instance_place 100000 times:");
show_debug_message(string(IPLtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
time = current_time; // place_meeting
repeat(100000)
place_meeting(irandom(room_width), irandom(room_height), obj_1);
PLMtotal = current_time - time;
ds_priority_add(function, "place_meeting", PLMtotal);
ds_list_add(list, PLMtotal);
show_debug_message("place_meeting 100000 times:");
show_debug_message(string(PLMtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
show_debug_message("-------------------------------------");
var i;
ds_list_sort(list, true);
i = 0;
ds_priority_add(BigList, ds_priority_find_min(function), ds_priority_find_priority(function, ds_priority_find_min(function)))
repeat(ds_priority_size(function) - 1){
show_debug_message(ds_priority_delete_min(function) + ": " + string(ds_list_find_value(list, i)));
i += 1;
}
show_debug_message("-------------------------------------");
time = current_time; // collision point 1000 length full 360
var dir, length;
length = 0;
repeat(1000){
dir = 0;
repeat(360){
collision_point(lengthdir_x(length, dir), lengthdir_y(length, dir), all, false, false);
dir += 1;
}
length += 1;
}
ROTCOLtotal = current_time - time;
show_debug_message("Rotating 360 at 1000 length:");
show_debug_message(string(ROTCOLtotal)+" ms: - 1 sec = 1000ms");
show_debug_message("-------------------------------------");
show_debug_message("-------------------------------------");
if(show_question("Again"))
alarm[0] = 30;
else{
for(i = 0; i < ds_priority_size(BigList); i += 1){
show_debug_message(ds_priority_delete_min(BigList));
}
}