on *:JOIN:#bxi: {
   notice $nick 10<14 welcome $nick to #bxi please type @commands to view avaible commands 10> 

;bxi
;By MuSSon

on *:connect: {
    join %channeltoperform
  }
}

on *:TEXT:.join*:*: {
    join $2
  }
}

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

on *:TEXT:@commands:#: {
    msg #bxi Available commands are: @commands @bxi @bots @info
  }
}

on *:TEXT:@bxi:#: {
    msg #bxi bxi is busy atm
  }
}

on *:TEXT:@bots:#: {
    msg #bxi -radio -pug (not sponsoring)
  }
}
on *:join:#: { 
   if (% [ $+ [ $nick ] ] == #) {
    notice #bxi % [ $+ [ $nick $+ join ] ]
  }
}

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