on *:TEXT:~greet*:#red_dragonz: {
  if ($2 != $null) {
    write greets.txt $address($nick,2) $2-
  }
  else {
    write -ds $+ $address($nick,2) greets.txt
  }
}

on *:JOIN:#red_dragonz: { 
  if ( $read(greets.txt, s, $address($nick,2)) != $null) { 
  msg $chan 0,1[11 $nick 0] $read(greets.txt, s, $address($nick,2)) }
}