You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

55 lines
1.5 KiB

var isolated, list, map, node1, node2;
isolated = ds_list_create()
list = ds_list_create()
map = global.roommap
ds_list_add(isolated, 136531)
ds_list_add(isolated, 135089)
ds_list_add(isolated, 135090)
ds_list_add(isolated, 136897)
ds_list_add(isolated, 135814)
ds_list_add(isolated, 146591)
ds_list_add(list, 108769)
ds_list_add(list, 134437)
ds_list_add(list, 111696)
ds_list_add(list, 127588)
ds_list_add(list, 120066)
ds_list_add(list, 134436)
ds_list_add(list, 129355)
ds_list_add(list, 134438)
ds_list_add(list, 134435)
ds_list_add(list, 134626)
ds_list_add(list, 135165)
ds_list_add(list, 134228)
ds_list_add(list, 134598)
ds_list_add(list, 134093)
ds_list_add(list, 134599)
ds_list_add(list, 111718)
fid = file_text_open_append("AreaRando/seed.txt")
while (ds_list_size(list) > 0)
{
if (ds_list_size(isolated) > 0)
{
ds_list_shuffle(isolated)
ds_list_shuffle(list)
node1 = ds_list_find_value(list, 0)
node2 = ds_list_find_value(isolated, 0)
ds_list_delete(list, 0)
ds_list_delete(isolated, 0)
}
else
{
ds_list_shuffle(list)
node1 = ds_list_find_value(list, 0)
node2 = ds_list_find_value(list, 1)
ds_list_delete(list, 0)
ds_list_delete(list, 0)
}
file_text_write_string(fid, ((string(node1) + "-") + string(node2)))
file_text_writeln(fid)
ds_map_add(map, node1, node2)
ds_map_add(map, node2, node1)
}
file_text_close(fid)
ds_list_destroy(list)
ds_list_destroy(isolated)