Mine

on *:TEXT:!setgreet*:#: { 
  set %greet $+ $address($nick,3) $2- 
  notice $nick $nick $+ , your personal greet has been set to: $2- 
} 
on *:JOIN:#: { 
  if ((%greet [ $+ [ $address($nick,3) ] ] != $null) && (%greet [ $+ [ $chan ] ] == on)) {  
  msg $chan [4 $nick ] %greet [ $+ [ $address($nick,3) ] ] }
  elseif ((%greet [ $+ [ $address($nick,3) ] ] == $null) && (%greet [ $+ [ $chan ] ] == off)) {
  notice $nick You have not set a greet message yet, to do so say !greet <message>. }
}
on 1:TEXT:!delgreet:#:{ set %greet $+ $address($nick,3) $null | notice $nick Your greet was deleted. }
on 1:TEXT:!greet*:#:{ 
  if (%greet [ $+ [ $address($2,3) ] ] != $null) {
  /notice $nick [4 $2 ] %greet [ $+ [ $address($2,3) ] ] }
  elseif ($2 == $null) {
  /notice $nick [4 $nick ] %greet [ $+ [ $address($nick,3) ] ] }
  else {
  /notice $nick Sorry, $2 does not have a greet yet. Why not tell them about the greet system? }
}
on 1:TEXT:@greet*:#:{ 
  if (%greet [ $+ [ $address($2,3) ] ] != $null) {
  /msg $chan [4 $2 ] %greet [ $+ [ $address($2,3) ] ] }
  elseif ($2 == $null) {
  /msg $chan [4 $nick ] %greet [ $+ [ $address($nick,3) ] ] }
  else {
  /notice $nick Sorry, $2 does not have a greet yet. Why not tell them about the greet system? }
}
on 1:TEXT:!displaygreet*:#:{ 
  if (($2 == on) && ($nick isop $chan)) {
  set %greet $+ $chan on | notice $nick Greets will now be displayed on entrance. }
  elseif (($2 == off) && ($nick isop $chan)) {
  set %greet $+ $chan off | notice $nick Greets will no longer be displayed on entrance. }
  else { halt }
}