Anonymous

on $*:TEXT:/^[!@]ownergreet/Si:#:{
    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 }
    off  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)
        off msg $chan  Welcome Back $nick $+ , You Were Last Joined Here at %join.time [ $+ [ $nick ] ] on %part.date [ $+ [ $nick ] ] $+ .  
      }
    }
  }