on $*:TEXT:/^[!@]setgreet/Si:#:{
  set %pgr. [ $+ [ $nick ] ] $2-
  msg $chan $+($chr(91),$nick,$chr(93)) Your Personal Greet Has Been Set To: 14[[12  $2- 14]]
}
on *:JOIN:#:{
  if ($nick == $me) { HALT }
  if (!%pgr. [ $+ [ $nick ] ]) { notice $nick 1Get A Greet! [ Type  !setgreet <GREET>  ] }
  if (%pgr. [ $+ [ $nick ] ] ) { msg $chan 4 ~ $+($chr(91),$nick,$chr(93)) ~ 1 %pgr. [ $+ [ $nick ] ] 
    if (%part.set [ $+ [ $nick ] ] == off) {
      set %join.time [ $+ [ $nick ] ] $asctime(hh:nn tt)
    }
  }
}

on *:PART:#:{
  set %part.set [ $+ [ $nick ] ] off
  set %part.time [ $+ [ $nick ] ] $time(hh:nn:ss tt)