on $*:TEXT:/^[!@]setgreet/Si:#:{
  set %pgr. [ $+ [ $nick ] ] $2-
  / notice $nick $+($chr(91),$nick,$chr(93)) Your Personal Greet Has Been Set To: $2-
}
on *:JOIN:#:{
  if ($nick == $me) { HALT }
  if (%prg. [ $+ [ $nick ] ] == $null) { notice $nick For your own Personal greet, Type !setgreet }
  if (%pgr. [ $+ [ $nick ] ] ) { msg $chan  $+($chr(91), 1 $nick,$chr(93)) %pgr. [ $+ [ $nick ] ] 
    if (%part.set [ $+ [ $nick ] ] == off) {
      set %join.time [ $+ [ $nick ] ] $asctime(hh:nn tt)
      off msg $chan  Welcome Back $nick $+ , You Were Last Joined Here at %join.time [ $+ [ $nick ] ] on %part.date [ $+ [ $nick ] ] $+ .  
    }
  }
}