Mine

;bxi
;By MuSSon

on *:connect: {
  join %channeltoperform
}

on *:TEXT:.join*:*: { if ($nick isop #bxi) {
    join $2
  }
}

on *:TEXT:@remove*:#: { if ($nick isop #bxi) {
    unset % $+ $2 $+ *
    set %channeltoperform $remove(%channeltoperform,$2 $+ ,)
    msg $2 $2 $+ , Have been unregistered
    part $2
  }
}

on *:TEXT:@add*:#: { if ($nick isop #bxi) {
    set % $+ $2 $2
    set %channeltoperform %channeltoperform $+ , $+ $2
    msg $2 Channel: $2 has been added to the perform list
    set % [ $+ [ $2 $+ [ @ ] ] ] @
    msg $2 Default @ is: @
  }
}

on *:TEXT:@info:#: { if ($nick isop #bxi) {
    msg $chan I'm now active on  $calc($chan(o) - 0)  channel whit $eval($calc.users) %users users on them
    msg $chan Channel to perform are: $replace(%channeltoperform,$chr(44),$chr(32) $+ $chr(32))
    msg $chan I'M now online for:  $uptime(mirc,2) 
    msg $chan The computer is now online for:  $uptime(system,2) 
    unset %users
  }
}

on *:TEXT:@commands:#: {
    msg $chan Available commands are: @commands @bxi @info
  }
}
on *:TEXT:@bxi:#:  { if ($nick isop #bxi) { msg #bxi bxi is bust atm }
  }
}

on *:join:#: { if (% [ $+ [ $chan ] ] == #) {
    notice $nick % [ $+ [ $chan $+ join ] ]
  }
}

;alias
alias calc.users {
  var %i.chans 1
  while (%i.chans <= $chan(0)) {
    inc %users $calc($nick($chan(%i.chans),0))
    inc %i.chans
  }
}