on *:TEXT:!setgreet *:#: { 
  if ($ isin $2- || % isin $2-) {
    notice $nick You may not use % or $ characters in your greet.
    halt
  }
  if ($read(greets.txt,s,$nick)) { 
    write -ds $+ " $+ $nick $address($nick,2)) $+ " greets.txt
    write greets.txt $nick $address($nick,2) $2-
    notice $nick 6Your greet has changed to: $2- 6associated with the address:4 $address($nick,2)
  }
  else {
    write greets.txt $nick $address($nick,2) $2-
    notice $nick 6Your greet has been set to: $2- 6associated with the address:4 $address($nick,2)
  }
}

on *:JOIN:#: { if ($nick == $me) { halt }
  if ($read(greets.txt,s,$nick $address($nick,2))) {
    msg $chan 6[4 $+ $nick $+ 6] $read(greets.txt,s,$nick $address($nick,2))
  }
  else { 
    notice $nick 6You have no greet. To set one type: 4!setgreet GREET 
  }
}

on *:TEXT:!delgreet:#: {
  if ($read(greets.txt,s,$nick $address($nick,2))) {
    notice $nick 6You greet 4~(~ $read(greets.txt,s,$nick $address($nick,2)) 7~)~6 was deleted.
    write -ds $+ " $+ $nick $address($nick,2)) $+ " greets.txt
  }
  else {
    notice $nick 6You don't have a 4greet $+ .
  }
}

on *:TEXT:!greet:#: { 
  if ($read(greets.txt,s,$nick $address($nick,2))) { 
    notice $nick 6Your current greet is: $read(greets.txt,s,$nick $address($nick,2)) 6 associated with the address:4 $address($nick,2)
  }
  else {
    notice $nick 6You have no greet. To set one type: 4!setgreet GREET 
  }