if (!directory_exists("snap"))
    directory_create(((working_directory + "/") + "snap"))
i = -1
do
{
    i += 1
} until ((!file_exists((((working_directory + "/snap/snap 0") + string(i)) + ".png"))) && (!file_exists((((working_directory + "/snap/snap 00") + string(i)) + ".png"))) && (!file_exists((((working_directory + "/snap/snap 000") + string(i)) + ".png"))));
sname = ("snap/snap " + string(i))
if (i < 1000)
    sname = ("snap/snap 0" + string(i))
if (i < 100)
    sname = ("snap/snap 00" + string(i))
if (i < 10)
    sname = ("snap/snap 000" + string(i))
screen_save((sname + ".png"))