Forums Scripts & Popups Login

on *:text:!login*:?:{
  if !$2 || !$3 {    .msg $nick Usage !login User pAsSw0rD  }
  elseif $hget(Login,$+($nick,.User)) === $2 {
    if $hget(Login,$+($nick,.Password)) === $md5($3) {
      .auser user $nick
      .msg $nick For commands type !commands
    }
    else {      .msg $nick Invalid Password    }
  }
  else {    .msg $nick Invalid User Name  }
}
on user:*:text:!commands:*:{
  ;list of available commands
}
on *:start:{
  if !$hget(Login) { .hmake Login 100 }
  if $exists(Login.hsh) { .hload Login Login.hsh }
}
menu nicklist {
  Bot User Entries
  .Add User : add_user $1
  .Remove User : rem_user $1
}
alias add_user {
  .hadd -m Login $iif($1,$1,$$?="Enter User Name") $md5($$?="Enter password to be used")
}
alias rem_user {
  .hdel Login $iif($1,$1,$$?="Enter User Name")
}
on *:exit:{
  .hsave Login Login.hsh
}
on *:disconnect:{
  .hsave Login Login.hsh
}