///Create Event
randomize();
line = 0;
min_column = 1;
column = 5; // 1-2-3-4-5-6-7-8-9
max_column = 9;
planet = array_create(irandom_range(8,10));
planet_line[array_length_1d(planet)+1] = 0;
planet_sec = array_create(array_length_1d(planet));
for(var i = 1; i < array_length_1d(planet_sec); i++){
planet_sec[i] = false;
planet_continue[i] = false;
planet_last_c[i] = false
}
for(var i = 1; i < array_length_1d(planet); i++){
if(i>1){planet_line[i] = planet_line[i-1] + 1;}
else{planet_line[i] = line+1;}
var r = choose(-1,0,1);
if(i!=1){var sec_r = choose(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1);}
else{sec_r = 0;}
if(planet_last_c[i] == false){
if(planet_continue[i] == false){
if(sec_r == 0){
if(i>1){
while(planet_column[i-1] + r < min_column or planet_column[i-1] + r > max_column){r = choose(-1,0,1);}
planet_column[i] = planet_column[i-1] + r;
planet_line[i] = planet_line[i-1] + 1;
}
else{
r = 0;
planet_column[i] = column;
planet_line[i] = 1;
}
}else{
if(i>1){
while(planet_column[i-1] + r < min_column or planet_column[i-1] + r > max_column or planet_column[i-1] - r <min_column or planet_column[i-1]>max_column){r = choose(-1,1);}
planet_column[i] = planet_column[i-1] + r;
planet_line[i] = planet_line[i-1] + 1;
sec_column[i] = planet_column[i-1] - r;
sec_line[i] = planet_line[i-1] + 1;
planet_sec[i] = true;
}
var cc = choose(0);
if(cc == 0){
planet_column[i+1] = planet_column[i];
planet_line[i+1] = planet_line[i] + 1;
sec_column[i+1] = sec_column[i];
sec_line[i+1] = planet_line[i] + 1;
planet_sec[i+1] = true;
planet_continue[i+1] = true;
}
}
}else{
var cc = choose(0,1,1,1,1);
if(cc == 0){
planet_column[i+1] = planet_column[i];
planet_line[i+1] = planet_line[i] + 1;
sec_column[i+1] = sec_column[i];
sec_line[i+1] = planet_line[i] + 1;
planet_sec[i+1] = true;
planet_continue[i+1] = true;
}else{
var rr = i;
var new_c = 0;
while(planet_continue[rr] == true){new_c = planet_column[rr-1]; rr-=1; }
planet_column[i+1] = new_c;
planet_line[i+1] = planet_line[i] + 1;
planet_last_c[i+1] = true;
}
}
}
}
column_x[9] = room_width/2 + 16*4;
column_x[8] = room_width/2 + 16*3;
column_x[7] = room_width/2 + 16*2;
column_x[6] = room_width/2 + 16;
column_x[5] = room_width/2;
column_x[4] = room_width/2 - 16;
column_x[3] = room_width/2 - 16*2;
column_x[2] = room_width/2 - 16*3;
column_x[1] = room_width/2 - 16*4;