Someone

ON *:JOIN:#:{
  if ($Hget(Greet,$address($nick,3))) { /MSG $Chan $+(4[7,$nick,4]1) 3:::12 $ifmatch }
}
on *:text:!sgreets*:#: {
  if ($nick == Locke) {
      /HMake Greet 500
      BackUPStart
      notice $nick GREETS CREATED
  }
}
on $*:text:/^[!@.>~](setgreet|greet) */Si:#: { 
  if (!$2) { .notice $nick Specify A Greet Message. | halt } 
  else { 
    /Hadd Greet $address($nick,3) $2- 
    .Notice $Nick 4[3-1GREETS3-4]7 The greet,15 $2- $+ 7, Has Been added for Hostmask15 $address($nick,3)7 1
    /Hsave -stnoa Greet greet.htb
    Halt 
  } 
} 
on *:start: /hload greet greet.htb 
ALIAS BackUPStart { timer 0 1000 HSave Greet }