The name should tell you, but for the idiots out there, here it is again :P. When services split from the network, this script should remove +R on any channels you have op in.
I unfortunately do not know if, once triggered, it will remove +R for all channels in multiple networks at once or not. Someone please try to break it :D.
When you first load this, create a variable in your variables tab called %quit and set it to value 0. It should read as "%quit 0" in the display. Replace "Services.Caelestia.net" with your services server, whatever it is, and you should be good to go.
I'm hoping the %quit thing will keep it from triggering multiple times from multiple bots.
I use %NumberOfChannels here on purpose so I know what I'm looking at. I'm not used to the mIRC notation yet.
<-- uses Java too much

on *:QUIT:{
  if (( Services.* isin $1- ) && (%quit == 0)) {
    set %quit 1
    timer 1 5 set %quit 0
    var %NumberOfChannels = $chan(0)
    var %i = 1
    while (%i <= %NumberOfChannels) {
      if ((R isincs $chan(%i).mode) && ($me isop $chan(%i)) { mode $chan(%i) -R }
      inc %i
    }
  }
}