on *:TEXT:!register*:?:{ 
  if (!$3) msg $nick Invalid parameters - !register Displayname Password
  elseif (%name. [ $+ [ $2 ] ]) msg $nick Sorry, but this name is already taken. Please try a different display name.
  else {
    set %name. [ $+ [ $2 ] ] $3
    set % $+ $2 $2
    msg $nick Congratulations, your registration was successful. To login, please type !login Displayname Password.
  }
}

on *:TEXT:!login*:?:{
  if (!$3) msg $nick Invalid parameters - !login Displayname Password
  elseif (!%name. [ $+ [ $2 ] ]) msg $nick Error logging in - this username was not registered, are you sure that you spelt it correctly?
  elseif (%name. [ $+ [ $2 ] ] != $3) msg $nick Error logging in - incorrect password.
  else {
    set %login. [ $+ [ $2 ] ] 1
    set %host. [ $+ [ $2 ] ] $address($nick,2)
    set %user. [ $+ [ %host. [ $+ [ $2 ] ] ] ] $2
    msg $nick Log in successful - name $2 from $address($nick,2) $+ .
  }
}

alias user { return %user. [ $+ [ %host. [ $+ [ $2 ] ] ] ] }

alias logout { unset %login. [ $+ [ $1 ] ] host. [ $+ [ $1 ] ] | msg $nick You have been logged out. }

on *:TEXT:!logout*:?:{ logout }
on *:QUIT:{ if (%login. [ $+ [ $nick ] ]) { logout } }

on *:TEXT:!*tribe*:?:{
  if ($1 == !newtribe) {
    if (!$3) { msg $nick Invalid parameters - !newtribe Name Description }
    elseif (%tribe. [ $+ [ $2 ] ]) { msg $nick Err in making a new tribe - Tribal name already taken. Please try a different name. }
    elseif ($($+(%,in.,%user,.,%host,.,$2),2)) { msg $nick Error making a new tribe - You are already in tribe " $+ $($+(%,in.,%user,.,%host,.,$2),2) $+ ". !leavetribe to leave. }
    else {
      set %tribe. [ $+ [ $2 ] ] $2 $3-
      set $+(%,in.,$($+(%,user.,$address($nick,2)),2)) $2
      msg $nick Congratulations, you have joined $($+(%,in.,$($+(%,user.,$address($nick,2)),2)),2) $+ .
    }
  }
  elseif ($1 == !leavetribe) {

  }
}