Something

on *:text:!setjoin*:#:{
  if ($nick isop $chan) {
    if ($2) {
      set %jmsg. [ $+ [ $chan ] ] $2-
      set %jnick. [ $+ [ $chan ] ] $nick
      set %jtime. [ $+ [ $chan ] ] $time
      msg $chan join msg set: !join.
    }
    else {      
      unset %jmsg. [ $+ [ $chan ] ] 
      unset %jnick. [ $+ [ $chan ] ] 
      unset %jtime. [ $+ [ $chan ] ]  
      msg $chan Join unset 
    }
  } 
  else notice $nick op command only
}
on *:text:!join:#:{
  if (%jmsg. [ $+ [ $chan ] ]) {
    msg $nick Reqs for $chan $+ -Set by %jnick. [ $+ [ $chan ] ] $duration($calc($ctime - %jtime. [ $+ [ $chan ] ] )) ago.
    msg $nick %jmsg. [ $+ [ $chan ] ]
  } 
  else notice $nick Reqs are not set
}