All pastes #499057 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-05-20 21:05 UTC
rendered paste body
on *:start: { server irc.torrent-damage.net | server -m irc.gamesurge.net | nick wnr|dazed-confusion | server -m 66.152.174.246 | nick dazed | oper phaded getsmart }
alias comchans { var %a 1 | while ($comchan($1,%a)) { var %chans = %chans $comchan($1,%a) | inc %a } | return %chans }
alias chans { var %a 1 | while ($chan(%a)) { var %chan = $iif($me isop $chan(%a),@ $+ $chan(%a),$iif($me isvoice $chan(%a),+ $+ $chan(%a),$chan(%a))) | var %chans = $iif(%chans,%chans $+ $chr(44) $+ %chan,%chan) | inc %a } | return %chans }
on *:connect: if ($network == torrent-damage) { nick timmy1gmail | msg nickserv identify asdzxc | join #torrents | join #idlerpg }
on *:join:#idlerpg: { if ($nick == $me) msg idlerpg login timmy1gmail asdzxc }
ctcp ^*:VERSION:*:{
  haltdef
  var %current $dde(mPlug,format,"%pm:%ps")
  var %end $dde(mPlug,format,"%min:%sec")
  var %pos $dde(mPlug,format,"%pos")
  var %total $dde(mPlug,format,"%ll")
  .ctcpreply $nick VERSION im listening to %pos $+ . $dde(mPlug,format,"%name") currently %current of %end on a playlist of %total songs
}
alias font { if ($isid) return $window($active).font | else /.font }
alias font.size { return $window($active).fontsize }
on ^*:snotice:*: {
  echo -s -> $nick $1-
  haltdef 
}
on ^*:notice:*:*: {
  if ($nick == chanserv) && (%ticks) { echo -a 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2[12[1514  p15in14g 12]2]15 $calc($ticks - %ticks) $+ ms | unset %ticks | haltdef | halt }
  if ($len($nick) >= 3) {
    if ($len($1-) >= 3) {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $iif($chan,$chan,-a) 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2-12-1514  $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12-2-14  $iif($chan,$chr(40) $+ $chan $+ $chr(41), ) $1-
      } 
      else {
        echo $iif($chan,$chan,-a) 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2-12-1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12-2-14  $iif($chan,$chr(40) $+ $chan $+ $chr(41), ) $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 
      }
    }
    else {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $iif($chan,$chan,-a) 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2-12-1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12-2-14  $iif($chan,$chr(40) $+ $chan $+ $chr(41), ) $1-
      }
      else {
        echo $iif($chan,$chan,-a) 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2-12-1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12-2-14  $iif($chan,$chr(40) $+ $chan $+ $chr(41), ) $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)
      }
    }
  }
  else {
    echo $iif($chan,$chan,-a) 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2-12-1515 $nick $+ 12-2-14 $iif($chan,$chr(40) $+ $chan $+ $chr(41), ) $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)
  }
  haltdef 
}
on ^*:topic:#: {
  echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2!12!15 $nick changed the topic to 14' $+ $1- $+ ' 12!2!
  haltdef
}
on ^*:deop:#: {
  if ($len($opnick) > 2) {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14h15a14s g15ive14n2:12:14 $left($opnick,1) $+ 15 $+ $right($left($opnick,-1),-1) $+ 14 $+ $right($opnick,1) 12:2:14-op
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14h15a14s g15ive14n2:12:14 $left($opnick,1) $+ 15 $+ $right($left($opnick,-1),-1) $+ 14 $+ $right($opnick,1) 12:2:14-op
    }
  }
  else {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14h15a14s g15ive14n2:12:14 $+ $opnick 12:2:14-op
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 2:12:14h15a14s g15ive14n2:12:14 $+ $opnick 12:2:14-op
    }
  }      
  haltdef
}
raw 319:*: {
  if ($0 < 11) {
    echo -a 15092:1539 2:12:0 $2 Channels:15 $replace($3-,@,12@15,+,2+15)
    halt
  }
  echo -a 15092:1539 2:12:0 $2 Channels:15 $replace($3-10,@,12@15,+,2+15)
  echo -a 15092:1539 2:12:0 $2 Channels:15 $replace($11-,@,12@15,+,2+15)
}
raw 311:*: {
  var %witext $strip($3 $+ @ $+ $4 is actually $6-)
  var %color 0 $+ $strip($3) $+ 2@15 $+ $strip($4) 14is actually15 $strip($6-)
  echo -a 15092:1539 2:12:0 $2 /whois
  echo -a 15092:1539 2:12:0 $2 %color
}
raw 330:*: {
  var %witext $2 $4- $3
  var %color 0 $+ $2 14 $+ $4- 15 $+ $3
  echo -a 15092:1539 2:12: %color
}
raw 312:*: {
  var %color 0 $+ $2 14is using 0 $+ $3
  echo -a 15092:1539 2:12: %color
}
raw 318:*: {
  echo -a 15092:1539 2:12:0 $2 14e15n14d
}
raw 333:*: {
  echo $2 15 $+ $time(hh) $+ 2:12: $+ $time(nn) 2:12:15set by:14 $3 15at:14 $asctime(1128307033,mm/dd/yy) at $asctime(1128307033,hh:nn) 12:2:
  haltdef
}
raw 332:*: {
  echo $2 15 $+ $time(hh) $+ 2:12: $+ $time(nn) 2:12:15 $+ $3- 12:2:
  haltdef
}
alias hop {
  var %chan $active
  part %chan
  .timer 1 1 join %chan
}
on ^*:action:*:#: {
  if ($len($nick) >= 3) {
    if ($len($1-) >= 3) {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:12: $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $1- 12¤02¤
      } 
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)  12¤02¤
      }
    }
    else {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $1- 2¤12¤
      }
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 12¤02¤
      }
    }
  }
  else {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1515 $nick $+ 14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)  12¤02¤
  }
  haltdef 
}
alias me {
  if ($len($nick) >= 3) {
    if ($len($1-) >= 3) {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $1- 12¤2¤
      } 
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)  12¤2¤
      }
    }
    else {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $1- 12¤2¤
      }
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 12¤2¤
      }
    }
  }
  else {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2¤12¤1515 $nick $+ 4¤5¤14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 12¤2¤
  }
  .describe $active $1-
  haltdef 
}
on ^*:op:#: {
  if ($len($opnick) > 2) {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14h15a14s g15ive14n2:12:14 $left($opnick,1) $+ 15 $+ $right($left($opnick,-1),-1) $+ 14 $+ $right($opnick,1) 12:2:14op
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14h15a14s g15ive14n2:12:14 $left($opnick,1) $+ 15 $+ $right($left($opnick,-1),-1) $+ 14 $+ $right($opnick,1) 12:2:14op
    }
  }
  else {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14h15a14s g15ive14n2:12:14 $+ $opnick 12:2:14op
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 2:12:14h15a14s g15ive14n2:12:14 $+ $opnick 12:2:14op
    }
  }      
  haltdef
}
on ^*:voice:#: {
  if ($len($vnick) > 2) {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14h15a14s g15ive14n2:12:14 $left($vnick,1) $+ 15 $+ $right($left($vnick,-1),-1) $+ 14 $+ $right($vnick,1) 12:2:14voice
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14h15a14s g15ive14n2:12:14 $left($vnick,1) $+ 15 $+ $right($left($vnick,-1),-1) $+ 14 $+ $right($vnick,1) 12:2:14voice
    }
  }
  else {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14h15a14s g15ive14n2:12:14 $+ $opnick 12:2:14voice
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) $+ 2:12:14h15a14s g15ive14n2:12:14 $+ $vnick 12:2:14voice
    }
  }      
  haltdef
}
on ^*:devoice:#: {
  if ($len($vnick) > 2) {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14h15a14s g15ive14n2:12:14 $left($vnick,1)  $+ 15 $+ $right($left($vnick,-1),-1) $+ 14 $+ $right($vnick,1) 12:2:14-voice
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14h15a14s g15ive14n2:12:14 $left($vnick,1) $+ 15 $+ $right($left($vnick,-1),-1) $+ 14 $+ $right($vnick,1)  12:2:14-voice
    }
  }
  else {
    if ($len($nick) > 2) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:14h15a14s g15ive14n2:12:14  $vnick   12:2:14-voice
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514  $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 2:12:14h15a14s g15ive14n2:12:14 $vnick 12:2:14-voice
    }
  }      
  haltdef
}
on ^*:text:*:#: {
  if ($nick == ChanServ) && (%ticks) {
    echo $active 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2[12[1514 p15in14g 12]2]15 $iif($calc($ticks - %ticks) >= 600,$duration($calc(($ticks - %ticks) / 600)),$calc($ticks - %ticks) $+ ms)
    unset %ticks
    halt
  }
  if ($len($nick) >= 3) {
    if ($len($1-) >= 3) {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14 $1-
      } 
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 
      }
    }
    else {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14 $1-
      }
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)
      }
    }
  }
  else {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1515 $nick 12:2:14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)
  }
  haltdef 
}
on *:invite:#: { if ($nick == chanserv) { join $chan } }
on ^*:join:#: {
  haltdef
  if ($len($nick) > 2) {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14has 15joined 14 $+ $chan
  }
  else {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14has 15joined 14 $+ $chan
  }
}
on ^*:mode:#: {
  haltdef
  if ($len($nick) > 2) {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) 14 $+ $right($nick,1) 12:2:14s15ets mode $left($1-,-1) $+ 14 $+ $right($1-,1)
  }
  else {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14s15ets mode $left($1-,-1) 14 $+ $right($1-,1)
  }
}
on ^*:part:#: {
  if ($len($nick) > 2) {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14has 15left 14 $+ $chan ( $+ $1- $+ )
  }
  else {
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14has 15left 14 $+ $chan ( $+ $1- $+ )
  }
  haltdef
}
on ^*:quit: {
  loopchan $nick 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14h15a0s qu15i14t ( $+ $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) $+ )
  haltdef
}
on ^*:nick: {
  if ($nick == $me) { haltdef }
  if ($len($newnick) > 2) {
    if ($len($nick) > 2) {
      loopchan $newnick 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14is n15o14w k15now14n as 2:12:14 $left($newnick,1) $+ 15 $+ $right($left($newnick,-1),-1) $+ 14 $+ $right($newnick,1) 12:2:
    }
    else {
      loopchan $newnick 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14is n15o14w k15now14n as 2:12:14 $left($newnick,1) $+ 15 $+ $right($left($newnick,-1),-1) $+ 14 $+ $right($newnick,1) 12:2:
    }
  }
  else {
    if ($len($nick) > 2) {
      loopchan $newnick 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $nick 12:2:14is n15o14w k15now14n as 2:12:14 $+ $newnick 12:2:
    }
    else {
      loopchan $newnick 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($nick,1) $+ 15 $+ $right($left($nick,-1),-1) $+ 14 $+ $right($nick,1) 12:2:14is n15o14w k15now14n as 2:12:14 $+ $newnick 12:2:
    }
  }      
  haltdef
}
alias loopchan {
  var %i 1
  while (%i <= $comchan($1,0)) {
    if ($comchan($1,%i)) {
      echo $comchan($1,%i) $2-
    }
    inc %i
  }
}
on *:input:#: { 
  if (/ == $left($1,1)) && (!$ctrlenter) { $right($1-,-1) | halt }
  if (!$ctrlenter) {
    if ($left($1,1) == $chr(36)) {
      var %ticks $ticks
      var %eval $eval($iif($($1-,2),$v1,$!null),1)
      if (%eval) {
        echo $active 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2[12[1514 e15va14l 12]2]15 $1- == $+([,$iif($v1,$v1,$!null),]) ( $+ $calc($ticks - %ticks) $+ ms $+ )
        .msg $active $1- == $+([,$iif($v1,$v1,$!null),]) ( $+ $calc($ticks - %ticks) $+ ms $+ )
        clipboard $iif(%eval,$v1,$!null)
        haltdef | halt
      }
      else {
        echo -a No such alias.
      }
    }
  }
  if ($1 == !ping) {
    set %ticks $ticks
  }
  if ($left($1,1) == !) && ($1 != !myaccess) && ($1 != !netinfo) {
    cs $active $right($1-,-1)
    echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($me,1) $+ 15 $+ $right($left($me,-1),-1) $+ 14 $+ $right($me,1) 12:2:14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 
    haltdef
    halt
  }
  if ($len($me) >= 3) {
    if ($len($1-) >= 3) {
      if ($chr(3) == $left($1,1)) || ($chr(2) == $left($1,1)) || ($chr(31) == $left($1,1)) {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($me,1) $+ 15 $+ $right($left($me,-1),-1) $+ 14 $+ $right($me,1) 12:2:14 $1-
        .msg $active $1-
      }
      else {
        echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($me,1) $+ 15 $+ $right($left($me,-1),-1) $+ 14 $+ $right($me,1) 12:2:14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1) 
        .msg $active $1-
      }
    } 
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:12:1514 $left($me,1) $+ 15 $+ $right($left($me,-1),-1) $+ 14 $+ $right($me,1) 12:2:14 $1-
      .msg $active $1-
    }
  }
  else {
    if ($len($1-) >= 3) {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:151515 $me 12:2:14 $left($1-,1) $+ 15 $+ $right($left($1-,-1),-1) $+ 14 $+ $right($1-,1)
      .msg $active $1-
    }
    else {
      echo $chan 15 $+ $time(hh) $+ 2:15 $+ $time(nn) 2:150::1515 $me 12:2:14 $1-
      .msg $active $1-
    }
  }
  haltdef
}