Cyphers snippet:

;popup
Access Timer:
.On:timer.q 0 1 access $chan
.Off:timer.q off

;Remote
raw 804:*:{
if ($remove($ial($me),$me) isin $4) && ($3 == OWNER) set -u3 %q on
if (%q == $null) && ($me isowner $2) access $2 ADD OWNER $remove($ial($me),$me)
}