multiple ifelse statements - some not working

Very new to R, I'm trying to create a variable 'Accuracy' based on different conditions:

If first row is Image2, and image2 is selected from rows 2 to 40 then assign 1. If first row is Image2, and image1 is selected from rows 42 to 80 then assign 1. If first row is Image1, and image1 is selected from rows 2 to 40 then assign 1. If first row is Image1, and image2 is selected from rows 42 to 80 then assign 1

If none of these are satisfied then assign 0.

The first 2 statements work fine, but the last 2 don't, any suggestions would be appreciated

data1$Accuracy <- ifelse(data1$Correct_image[1] == "Image2" & between(data1$Trial_number, 2, 40) & data1$Image_selected == "image2", 1,
                  ifelse(data1$Correct_image[1] == "Image2" & between(data1$Trial_number, 42, 80) & data1$Image_selected == "image1", 1,
                  ifelse(data1$Correct_image[1] == "Image1" & between(data1$Trial_number, 2, 40) & data1$Image_selected == "image1", 1,
                  ifelse(data1$Correct_image[1] == "Image1" & between(data1$Trial_number, 42, 80) & data1$Image_selected == "image2", 1, 0))))