on $*:TEXT:/^[!@]ownergreet/Si:#:{
  if ($nick == [-Curt-]) {
    set %pgr. [ $+ [ $nick ] ] $2-
    / notice [-Curt-] $+($chr(91),[-Curt-],$chr(93)) Your owner Greet Has Been Set To: $2-
  }
}
on *:JOIN:#:{
  if ($nick == [-Curt-]) { HALT }
    if (%prg. [ $+ [ $nick ] ] == $null) { notice $nick For your owner greet, Type !ownergreet }
      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)
          msg $chan  Welcome Back $nick $+ , You Were Last Joined Here at %join.time [ $+ [  $nick ] ] on %part.date [ $+ [ $nick ] ] $+ .  
        }
      }
    }
  }
}