alias pwgen {
  if (!$isid) { halt }
  var %pw
; pw variable
  var %length =  6
; change the number above for the length of the password
  while (%length) {
    var %pw = $( [ %pw ] ,$r(0,9))
; add 0-9 to %pw
    dec %length
; decrease looping var
  }
  return %pw
; return our result
}
 
on 10:text:!addbnc *:?:{
var %pw = $pwgen
  sbnc adduser $2 %pw
  sbnc simul $1 set server irc.quakenet.org 6667
  sbnc simul $1 set realname www.lead.no user
  sbnc simul $1 set vhost user.lead.no
  timer 1 20 sbnc simul $1 join #lead.no
  write sbncs.txt $2
  msg $1 You ident is: $2 and your password: %pw
  msg $1 ip&port to bnc: connected.lead.no:6669 (if you dont know how to change ident read www.lead.no/bncfaq) note: The bnc will add quakenet server it self, and connect. Please give it a few minutes to connect
}