var f, str;
global.animal[1] = ds_list_create()
global.animal[2] = ds_list_create()
global.animal[3] = ds_list_create()
global.animal[4] = ds_list_create()
global.animal[5] = ds_list_create()
f = file_text_open_read("ANIMAL.txt")
do
{
    str = file_text_read_string(f)
    ds_list_add(global.animal[real(string_char_at(str,string_pos(",",str)+2))],string_copy(str,1,string_pos(",",str)-1))
}
until (file_text_eof(f))
file_text_close(f)

room_goto_next()