alias colornick {
  if ($prop == br) {
    return $+([,4,$1,])
  }
  else {
    return $+(4,$1,1)
  }
}
;The above alias, colours a nick and gives it square brackets, it's just easier than typing it out every time.
on *:TEXT:!setgreet*:#:{
  if (!$2) {
    bs say # You need to specify a greet!
  }
  else {
    if ($len($2-) > 350) {
      bs say # Your greet should be under 350 characters!
    }
    else {
      if ($var($+(%,greet,$nick),1).value == $null) {
        set $+(%,greet,$nick) $2-
        bs say # Your new greet is: $colornick( $+ $nick $+ ).br $var($+(%,greet,$nick),1).value
      }
      else {
        bs say # Your current greet is: $colornick( $+ $nick $+ ).br $var($+(%,greet,$nick),1).value
        bs say # Are you sure you want to change it? Type !confirm to confirm the change.
        set %confirm $nick
        set %temphold $2-
      }
    }
  }
}
;Used to set the greet and initialise the confirm sequence.
on *:TEXT:!greet*:#:{
  if (!$2) {
    tokenize 32 $1 $nick
  }
  bs say # Your greet is: $colornick( $+ $nick $+ ).br $var($+(%,greet,$nick),1).value
}
;Used to view your greet, or someone elses greet if you specify a name.
on *:TEXT:!confirm:#:{
  if (%confirm != $null) {
    set $+(%,greet,$var(%confirm,1).value) %temphold
    bs say # Your greet has been changed to: $colornick( $+ $nick $+ ).br %temphold
    unset %temphold
    unset %confirm
  }
  else {
    bs say # Confirm what you silly person!?
  }
}
;Used to confirm nick changes.
on *:JOIN:#channel:{
  if (!$+(%,greet,$nick)) {
    bs say # $colornick( $+ $nick $+ ).br $var($+(%,greet,$nick),1).value
  }
  else {
    bs say # $colornick( $+ $nick $+ ).br Welcome $nick $+ ! Why not set a custom greet with !setgreet $+ ?
  }
}
;Used to activate the greet script when somebody joins. Change #channel to the channel you wish to use.
alias mygreet {
  set $+(%,greet,$me) $1-
}
;Change your own greet with /mygreet GreetHere
;Note greets can only be 350 characters or less.