Greetings

on $*:text:/^[!@.>](setgreet|greet|greeter) */Si:#cmtest: {
  if ($2) {
    if ($hget(greets,$address($nick,3))) hdel greets $address($nick,3)
    hadd greets $address($nick,3) $2-
    .notice $nick Your Greet has been set to: $2-
  }
  else .notice $nick Specify A greet!
}
on *:join:#cmtest: {
  if ($hget(greets,$address($nick,3))) .msg $chan $+([,$nick,],$chr(32),-,$chr(32),$hget(greets,$address($nick,3)))
  else .notice $nick Get a Greet! - !Setgreet GREET
}
on *:load:{
  if ($exists(greets.hsh)) hload greets greets.hsh
  else hmake greets 100
}
on *:connect:{
  if ($exists(greets.hsh)) hload greets greets.hsh
  else hmake greets 100
}
on *:disconnect:{
  hsave greets greets.hsh
}