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 1:text:!noadd *:#redhat:{
  var %pw = $pwgen
  sbnc adduser $3 %pw
  sbnc simul $3 sbnc set server irc.quakenet.org 6667
  sbnc simul $3 sbnc set realname www.lead.no user
  sbnc simul $3 sbnc set vhost user.lead.no
  timer 1 20 sbnc simul $3 join #lead.no
  write nsrv.txt $3
  msg $2 Din ident: $2 og ditt passord er: %pw
  msg $2 ip&port til bnc: connected.lead.no:6669 (Vis du ikke vet hvordan du setter ident instillinger les www.lead.no/bncfaq ) PS: Bnc'n kobler seg til quakenet automatiskt. Så vennligst gi den et par minutter til å koble til.
}