Someone

alias MinIRC {
  //Window -Ban1odeR @MinIRC Tahoma
  //setlayer 125 @minirc
  set %text $iif($left($1,1) != $chr(35),# $+ $1,$1)
  join $1
  if ($me ison %text) {
    /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- 7-[10You are now in $1 $+ 7]-
    var %a = 1
    who $1 
    while (%a <= $nick($1,0)) {
      if ($nick($1,%a) isop $1) { var %o = 4@ }
      if ($nick($1,%a) ishop $1) { var %o = 7% }
      if ($nick($1,%a) isvoice $1) { var %o = 12+ }
      if ($nick($1,%a) isreg $1) { var %o = 10 }
      var %b = %o $+ $nick($1,%a) $+  %b
      inc %a
    }
    /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- 7-[10Nicklist Is4: %b $+ 7]-
  }
  else { /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- 7-[10Couldn't Join $1 For Some Reason.7]- }
}
alias mjoin {
  if ($window(@MinIRC) != $null) {
    set %text $iif($left($1,1) != $chr(35),# $+ $1,$1)
    $iif($me ison $1,,join $1)
    if ($me ison %text) {
      echo -at 7-[10You are now in $1 $+ 7]-
      var %a = 1
      who $1 
      while (%a <= $nick($1,0)) {
        if ($nick($1,%a) isop $1) { var %o = 4@ }
        if ($nick($1,%a) ishop $1) { var %o = 7% }
        if ($nick($1,%a) isvoice $1) { var %o = 12+ }
        if ($nick($1,%a) isreg $1) { var %o = 10 }
        var %b = %o $+ $nick($1,%a) $+  %b
        inc %a
      }
      echo -at 7-[10Nicklist Is4: %b $+ 7]-
    }
    else { echo -at 7-[10Couldn't Join $1 For Some Reason.7]- }
  }
}

alias whos {
  var %a = 1
  who $1 
  while (%a <= $nick($1,0)) {
    if ($nick($1,%a) isop $1) { var %o = 4@ }
    if ($nick($1,%a) ishop $1) { var %o = 7% }
    if ($nick($1,%a) isvoice $1) { var %o = 12+ }
    if ($nick($1,%a) isreg $1) { var %o = 10 }
    var %b = %o $+ $nick($1,%a) $+  %b
    inc %a
  }
  echo -at 7-[10Nicklist on $1 $+ 7( $+ 10 $+ $nick($1,0) $+ 7)10: %b $+ 7]-
}
on *:TEXT:*:%text:{
  if ($window(@MinIRC) != $null) {
    if ($nick isop $chan) { var %o = 4@ }
    if ($nick ishop $chan) { var %o = 7% }
    if ($nick isvoice $chan) { var %o = 12+ }
    if ($nick isreg $chan) { var %o = 10 }
    /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- < $+ %o $+ $nick $+ > $1-
  }
}
on *:INPUT:%text:{
  if ($left($1,1) == $chr(47)) { 
    $$$1- 
    halt
  }
  if ($window(@MinIRC) != $null) {
    if ($me isop $chan) { var %o = 4@ }
    if ($me ishop $chan) { var %o = 7% }
    if ($me isvoice $chan) { var %o = 12+ }
    if ($me isreg $chan) { var %o = 10 }
    /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- < $+ %o $+ $me $+ > $1-
  }
}
on *:INPUT:@MinIRC:{
  if (+ isin $1 && $1 != +ei) { mode %text $1- }
  if (- isin $1 && $1 != -ei) { mode %text $1- }
  if ($1 == w) { 
    HALTDEF
    //whois $2 $2
    halt
  }
  if ($1 == .op) { mode %text +o $2- }
  if ($1 == .add) { 
    .ignore chanserv!*@*
    /cs access %text add $2-
    .timer4444443 1 1 //echo -a 7 $+ $upper($2) has been added to the 7Acces List for12 %text $+ .7 $upper($2) has level12 $3 access.
    .timer4444444 1 3 .ignore -r chanserv!*@*
  }
  if ($1 == .halfop) { mode %text +h $2- }
  if ($1 == .Voice) { mode %text +v $2- }
  if ($1 == .kb) { 
    mode %text +b $address($2,2)
    kick %text $2-
  }
  if ($1 == .kick) { kick %text $2- }
  if ($1 == .ban) { mode %text +b $address($2,2) }
  if ($1 == .invite) { invite $2- %text }
  if ($1 == .mode) { mode %text $2- }
  if ($1 == +ei) {
    /scon -a1 /ei #
  } 
  if ($1 == -ei) {
    mode %text -eeII $address($me,2) $address($me,9) $address($me,2) $address($me,9)
  } 
  if ($left($1,1) == $chr(47)) { 
    $$$1- 
    halt
  }
  msg %text $1-
  if ($me isop %text) { var %o = 4@ }
  if ($me ishop %text) { var %o = 7% }
  if ($me isvoice %text) { var %o = 12+ }
  if ($me isreg %text) { var %o = 10 }
  /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- < $+ %o $+ $me $+ > $1-
}
on ^*:rawmode:%text:{
  haltdef
  /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- 7-[10 $+ $nick 10sets mode7 $1- 10on %text $+ 7]- 
}
on *:JOIN:%TEXT:{ /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- $nick ( $+ $+($remove($ial($nick),$gettok($ial($nick), 1,33),!))) $+ ) has joined %text }
on *:PART:%TEXT:{ /aline -p @MinIRC 14-15[07 $+ $time(HH) $+ 14:07 $+ $time(nn) $+ 14:07 $+ $time(ss) $+ 15]14- $nick ( $+ $+($remove($ial($nick),$gettok($ial($nick), 1,33),!))) $+ ) has parted %text }
on *:CLOSE:@MinIRC:{
  unset %text
}