Something

on *:connect:{
  ;.timeridle 0 120 if ($away != $!true) && ($idle >= 900) { away 15 mins idle }
  unset %away.*
}

on ^*:join:#:{
  if ($nick != $me) {
    echo -t $chan -> $nick ( $+ $address $+ ) has joined  $+ $chan $+ 
  }
  halt
}

on ^*:part:#:{  
  if ($nick != $me) {
    echo -t $chan <- $nick ( $+ $address $+ ) has left  $+ $chan $+ 
  }
  halt
}

on *:notice:*Nickserv*IDENTIFY*:?:{
  if ($network == BRLink) { mode $me +p }
  if ($nick == Nickserv) {
    if ($readini($mircdirmisc\senhas.ini,$network,$me)) {
      $readini($mircdirmisc\senhas.ini,$network,metodo) $readini($mircdirmisc\senhas.ini,$network,$me)
    }
  }
}

on *:input:*:{
  if ($left($1,1) != /) {
    if ($1 == -o) { if ($2) { if ($me isop $chan) { mode $chan -ooooooooooooooooooo $2- } | else { chanserv deop $chan $2- } } | else { if ($me !isop $chan) { chanserv deop $chan $me } | else { mode $chan -o $me } } }
    elseif ($1 == +o) {  if ($2) { if ($me isop $chan) { mode $chan +oooooooooooooooooo $2- } | else { chanserv op $chan $2- } } | else { chanserv op $chan $me } }
    elseif ($1 == +v) { if ($2) { if ($me isop $chan) { mode $chan +vvvvvvvvvvvvvvvvvv $2- } | else { chanserv voice $chan $2- } } | else { if ($me !isop $chan) { chanserv voice $chan $me } | else { mode $chan +v $me } } }
    elseif ($1 == -v) { if ($2) { if ($me isop $chan) { mode $chan -vvvvvvvvvvvvvvvvvv $2- } | else { chanserv devoice $chan $2- } } | else { if ($me !isop $chan) { chanserv devoice $chan $me } | else { mode $chan -v $me } } }
    elseif ($1 == .k) { if ($me isop $chan) { k $2 $iif($3,$3-) } }
    elseif ($1 == .bk) { if ($me isop $chan) { bk $2 $iif($3,$3-) } }
    elseif ($1 == -b) { if ($me isop $chan) { mode $chan -bbbbbbbbb $2- } }
    elseif ($1 == +b) { if ($me isop $chan) { mode $chan +bbbbbbbbb $2- } }
    elseif ($1 == +m) { if ($me isop $chan) { mode $chan +m } } 
    elseif ($1 == -m) { if ($me isop $chan) { mode $chan -m } } 
    if ($active != Status Window) {
      if ($active ischan) {
        if ($me isop $chan) { echo -t $chan <10@ $+ $me $+ > $1- | .msg $active $1- }
        elseif ($me isvo $chan) { echo -t $chan <6+ $+ $me $+ > $1- | .msg $active $1- }
        elseif ($me isreg $chan) { echo -t $chan < $+ $me $+ > $1- | .msg $active $1- }
      } 
      else {
        echo -t $chan < $+ $me $+ > $1- | .msg $active $1-
      }
      halt
    }
  }
}

on ^*:text:*:#:{ 
  echo -tml $chan < $+ $replace($nick(#,$nick).pnick,@,10@,+,6+) $+ > $1- 
  halt
}