on !*:join:#help: {
  var %gnn = 1
  while %gnn <= $nick(#help,0) {
    if %girennick $+ %gnn == $null {
      .set %girennick $+ %gnn  $nick
      goto end
    }
    else {
       inc %gnn
       .set %enyuksekgiris %gnn
    }
  }
:end
}

on !*:part:#help: {
  var %cnn = 1
  while %cnn  <= %enyuksekgiris {
    if $nick == %girennick $+ %cnn {
      .unset %girennick $+ %cnn
      goto :end
    }
    else {
       inc %cnn
    }
  }
:end
} 

if $1 == !next {
  var %gnn2 = 1
  while %gnn2 <= %enyuksekgiris {
    if %girennick $+ %gnn2 !isvoice #help {
      mode # +v %girennick $+ %gnn2
      goto end
    }
    else {
       inc %gnn2
    }
  }
:end
} 

on *:text:*:#: {
  if $1 == !next {
    var %gnn2 = 1
    while %gnn2 <= %enyuksekgiris {
      if %girennick $+ %gnn2 !isvoice #help {
        mode # +v %girennick $+ %gnn2
        goto end
      }
      else {
        inc %gnn2
      }
    }
  :end
  }
} 

alias next {
  var %gnn2 = 1
  while %gnn2 <= %enyuksekgiris {
    if %girennick $+ %gnn2 !isvoice #help {
      mode # +v %girennick $+ %gnn2
      goto end
    }
    else {
       inc %gnn2
    }
  }
:end
}