alias checkchan {
timer 0 1800 chancheck 
}
alias chancheck {
  var %i 1
  while (%i <= $chan(N)) {
    set %chancheck $chan(%i)
    if ($me !isop $chan(%i)) {
      msg $chan(%i) Hey Guys im not opped op me before i part
      set % [ $+ [ $chan(%i) [ $+ [ .warn ] ] ] ] 1
      warnchan
    }
    inc %i
  }
  unset %chancheck
}


alias warnchan {
  .timerwarn [ $+ [ % [ $+ [ $chan(%i) [ $+ [ .warn ] ] ] ] ] ] 1 10 part %chanwarn | unset  [ $+ [ $chan(%i) [ $+ [ .warn ] ] ] ]
}
on *:op:#: {
  if (% [ $+ [ $chan [ $+ [ .warn ] ] ] ] == $chan) && ($opnick == me) {
    .timerwarn [ $+ [ % [ $+ [ $chan [ $+ [ .warn ] ] ] ] ] ] off
    unset  [ $+ [ $chan(%i) [ $+ [ .warn ] ] ] ]
  }
}