looks like a typo here:
Should be:
*EDIT*
Also, on the new door colours (nice btw) you can shoot out a single section but the other sections do not open, if you shoot out the middle section, the two parts are now treated as separate doors.
Case "playsoundonce" Select param Case "health_pickup":playoneshot(health_pickup,x,y) Case "key_pickup":playoneshot(key_pickup,x,y) End Select
Should be:
Case "playsoundonce" Select si\param <----- Case "health_pickup":playoneshot(health_pickup,x,y) Case "key_pickup":playoneshot(key_pickup,x,y) End Select
*EDIT*
Also, on the new door colours (nice btw) you can shoot out a single section but the other sections do not open, if you shoot out the middle section, the two parts are now treated as separate doors.