var i, j, t;
i = ds_list_size(argument0)
while(i>1) {
    i -= 1
    j = floor(random(i))
    t = ds_list_find_value(argument0, i)
    ds_list_replace(argument0, i, ds_list_find_value(argument0, j))
    ds_list_replace(argument0, j, t)
}