on $*:TEXT:/^[!@]setgreet/Si:#:{
  set %pgr [ $+ [ $nick ] ] $2-
  msg $chan $+($chr(91),$nick,$chr(93) Your Personal Greet Has Been Set To: $2-
}
on *:JOIN:#:{
  if ($nick != $me) {
    if (%prg [ $+ [ $nick ] ]) msg $chan $+($chr(91),$nick,$chr(93) %personal.greet [ $+ [ $nick ] ])
    elseif (!%prg [ $+ [ $nick ] ]) notice $nick Get A Greet! [ !setgreet  ]
    if (%part.set [ $+ [ $nick ] ] == on) {
      set %join.time [ $+ [ $nick ] ] $asctime(h:nntt)
      msg $chan  Welcome Back $nick $+ , You Were Last Here %part.time [ $+ [ $nick ] ] on %part.date [ $+ [ $nick ] ] $+ .  
    }
  }
  on *:PART:#:{
    set %part.set [ $+ [ $nick ] ] on
    set %part.time [ $+ [ $nick ] ] $time(h:nn:ss tt)
    set %part.date [ $+ [ $nick ] ] $asctime(dddd mmmm dd yyyy)
  }