Someone

off *:ACTION:*hug*:*: { if ($2 == $me) { /describe $chan huggles6 $nick 13<3 } } }

off *:ACTION:*slap*:#: { if ($2 == $me) { /describe $chan stomps on2 $nick $+ ! 2>:[ } } }



ON ^*:TEXT:*:*:{ 
  if ($nick isop $chan) { haltdef
  echo -tm $iif($chan,$chan,$nick) $+($chr(60) $+ 04@ $+ $chr(31),$left($nick,1),$chr(31),$right($nick,-1) $+ 01>) $+ $chr(32) $+ 01 $+ $replace($1-,Justine,3Justine) | halt }
  if ($nick ishelp $chan) { haltdef
  echo -tm $iif($chan,$chan,$nick) $+($chr(60) $+ 07% $+ $chr(31),$left($nick,1),$chr(31),$right($nick,-1) $+ 01>) $+ $chr(32) $+ 01 $+ $replace($1-,Justine,3Justine) | halt }
  if ($nick isvoice $chan) { haltdef
  echo -tm $iif($chan,$chan,$nick) $+($chr(60) $+ 02+ $+ $chr(31),$left($nick,1),$chr(31),$right($nick,-1) $+ 01>) $+ $chr(32) $+ 01 $+ $replace($1-,Justine,3Justine) | halt }
  if ($nick isreg $chan) { haltdef
  echo -tm $iif($chan,$chan,$nick) $+($chr(60) $+ 10 $+ $chr(31),$left($nick,1),$chr(31),$right($nick,-1) $+ 01>) $+ $chr(32) $+ 01 $+ $replace($1-,Justine,3Justine) }
}












alias colors {
  var %length = $len($1-)
  var %letter = 1
  while (%letter <= %length) {
    if ($mid($1-,%letter,1) == $chr(32)) {
      var %output = %output $+ &
      goto xxx
    } 
    var %output = %output $+  $+ $rand(03,013) $+ $mid($1-,%letter,1)
    :xxx
    inc %letter
  }
  var %output = $replace(%output,$chr(38),$chr(32))
  msg $active %output
}

alias rev {
  var %len = $len($1-)
  var %return = $null
  while (%len > 0) {
    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32)
    dec %len
  }
  return %return
}
alias reverse { //say $rev( $1- ) }
alias mereverse { //me $rev( $1- ) }

alias rainbow {
  var %pos = 1, %color = 04, %result = $chr(3)
  while (%pos <= $len($1-)) {
    %result = %result $+ %color $+ $mid($1-,%pos,1) $+ $chr(3)
    inc %pos
    %color = $nextcolor(%color)
  }
  if ($isid) return %result
  else say %result
}

alias -l nextcolor {
  if ($$1 == 04) return 07
  elseif ($$1 == 07) return 08
  elseif ($$1 == 08) return 09
  elseif ($$1 == 09) return 11
  elseif ($$1 == 11) return 12
  elseif ($$1 == 12) return 02
  elseif ($$1 == 02) return 06
  elseif ($$1 == 06) return 13
  elseif ($$1 == 13) return 04
}

alias mt {
  if ($bigtext.unsupp($1-)) {
    echo -ac info * Characters not supported by Big Text present in your message: $bigtext.unsupp($1-)
    return
  }
  var %lia, %lib, %lic, %lid, %lie, %i 1, %text $strip($1-, bur), %colregex /^(\d\d?(?:,\d\d?)?)/

  var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ \d\d?/g, %res, %dummy = $regsub(%text, %regex, $null, %text)

  while (%i <= $len(%text)) {
    if ($mid(%text, %i, 1) == $chr(3)) {
      var %lia $+(%lia, $chr(3)), %lib $+(%lib, $chr(3)), %lic $+(%lic, $chr(3)), %lid $+(%lid, $chr(3)), %lie $+(%lie, $chr(3))
      if ($mid(%text, $calc(%i + 1), 1) != $chr(32)) && ($regex(mtcol, $mid(%text, $calc(%i + 1), $mid(%text, $calc(%i + 1), 0)), %colregex)) {
        var %m $regml(mtcol, 1)
        var %lia %lia $+ %m, %lib %lib $+ %m, %lic %lic $+ %m, %lid %lid $+ %m, %lie %lie $+ %m
        inc %i $len(%m)
      }
    }
    else { 
      tokenize 32 $bigtext.char($mid(%text, %i, 1))
      var %lia $+(%lia, $1), %lib $+(%lib, $2), %lic $+(%lic, $3), %lid $+(%lid, $4), %lie $+(%lie, $5)
      ; if ($bigtext.kern($mid(%text, %i, 2))) {
      var %lia $+(%lia, .), %lib $+(%lib, .), %lic $+(%lic, .), %lid $+(%lid, .), %lie $+(%lie, .)
      ; }
    }
    inc %i
  }
  say $bigtext.format(%lia)
  say $bigtext.format(%lib)
  say $bigtext.format(%lic)
  say $bigtext.format(%lid)
  say $bigtext.format(%lie)
}

; You may customize this alias however you want to.
; It is Big Text's font, used above.
; The return value consists of dots and X's, to denote
;   unlit and lit points in the font, respectively;
;   there are 5 tokens of the same length, each
;   corresponding to a line in the 5-line output.
; Note how the . and X's look like the characters;
;   you can use this to your advantage!
alias -l bigtext.char {
  if ($1 === $chr(32)) || ($1 === $null) return $&
    ... $&
    ... $&
    ... $&
    ... $&
    ...
  if ($1 === $chr(160)) return $&
    ..... $&
    ..... $&
    ..... $&
    ..... $&
    .....
  elseif ($1 == 0) return $&
    .XXXX. $&
    XX..XX $&
    XX.XXX $&
    XXX.XX $&
    .XXXX.
  elseif ($1 == 1) return $&
    .XXXX $&
    XX.XX $&
    ...XX $&
    ...XX $&
    ...XX
  elseif ($1 == 2) return $&
    XXXXX. $&
    ....XX $&
    ..XX.. $&
    XX.... $&
    XXXXXX
  elseif ($1 == 3) return $&
    XXXXX. $&
    ....XX $&
    .XXXX. $&
    ....XX $&
    XXXXX.
  elseif ($1 == 4) return $&
    .....XXX. $&
    ...XX.XX. $&
    .XX...XX. $&
    XXXXXXXXX $&
    ......XX.
  elseif ($1 == 5) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    ...XX $&
    XXXX.
  elseif ($1 == 6) return $&
    .XXXX. $&
    XX.... $&
    XXXXX. $&
    XX..XX $&
    .XXXX.
  elseif ($1 == 7) return $&
    XXXXXX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX....
  elseif ($1 == 8) return $&
    .XXXX. $&
    XX..XX $&
    .XXXX. $&
    XX..XX $&
    .XXXX.
  elseif ($1 == 9) return $&
    .XXXX. $&
    XX..XX $&
    .XXXXX $&
    ....XX $&
    .XXXX.
  elseif ($1 == A) return $&
    .XXXX. $&
    XX..XX $&
    XXXXXX $&
    XX..XX $&
    XX..XX
  elseif ($1 == B) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX..XX $&
    XXXXX.
  elseif ($1 == C) return $&
    .XXXX. $&
    XX..XX $&
    XX.... $&
    XX..XX $&
    .XXXX.
  elseif ($1 == D) return $&
    XXXX.. $&
    XX.XX. $&
    XX..XX $&
    XX..XX $&
    XXXXX.
  elseif ($1 == E) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    XX... $&
    XXXXX
  elseif ($1 == F) return $&
    XXXXX $&
    XX... $&
    XXXX. $&
    XX... $&
    XX...
  elseif ($1 == G) return $&
    .XXXX. $&
    XX.... $&
    XX.XXX $&
    XX..XX $&
    .XXXXX
  elseif ($1 == H) return $&
    XX...XX $&
    XX...XX $&
    XXXXXXX $&
    XX...XX $&
    XX...XX
  elseif ($1 == I) return $&
    XXXX $&
    .XX. $&
    .XX. $&
    .XX. $&
    XXXX
  elseif ($1 == J) return $&
    ....XX $&
    ....XX $&
    ....XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == K) return $&
    XX..XX $&
    XX.XX. $&
    XXXX.. $&
    XX.XX. $&
    XX..XX
  elseif ($1 == L) return $&
    XX... $&
    XX... $&
    XX... $&
    XX... $&
    XXXXX
  elseif ($1 == M) return $&
    XX....XX $&
    XXX..XXX $&
    XXXXXXXX $&
    XX.XX.XX $&
    XX....XX
  elseif ($1 == N) return $&
    XX..XX $&
    XXX.XX $&
    XXXXXX $&
    XX.XXX $&
    XX..XX
  elseif ($1 == O) return $&
    .XXXX. $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == P) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX.... $&
    XX....
  elseif ($1 == Q) return $&
    .XXXX.. $&
    XX..XX. $&
    XX..XX. $&
    XX..XX. $&
    .XXXXXX
  elseif ($1 == R) return $&
    XXXXX. $&
    XX..XX $&
    XXXXX. $&
    XX..XX $&
    XX..XX
  elseif ($1 == S) return $&
    .XXXX. $&
    XX.... $&
    .XXXX. $&
    ....XX $&
    XXXXX.
  elseif ($1 == T) return $&
    XXXXXX $&
    ..XX.. $&
    ..XX.. $&
    ..XX.. $&
    ..XX..
  elseif ($1 == U) return $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    XX..XX $&
    .XXXX.
  elseif ($1 == V) return $&
    XX....XX $&
    XX....XX $&
    .XX..XX. $&
    ..XXXX.. $&
    ...XX...
  elseif ($1 == W) return $&
    XX...XX $&
    XX...XX $&
    XX.X.XX $&
    XXXXXXX $&
    .XX.XX.
  elseif ($1 == X) return $&
    XX...XX $&
    .XX.XX. $&
    ..XXX.. $&
    .XX.XX. $&
    XX...XX
  elseif ($1 == Y) return $&
    XX..XX $&
    XX..XX $&
    .XXXX. $&
    ..XX.. $&
    ..XX..
  elseif ($1 == Z) return $&
    XXXXXX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XXXXXX
  elseif ($1 == $chr(35)) return $&
    .XX..XX. $&
    XXXXXXXX $&
    .XX..XX. $&
    XXXXXXXX $&
    .XX..XX.
  elseif ($1 == ') return $&
    .XX $&
    XX. $&
    ... $&
    ... $&
    ...
  elseif ($1 == ") return $&
    XX..XX $&
    XX..XX $&
    ...... $&
    ...... $&
    ......
  elseif ($1 == +) return $&
    ...... $&
    ..XX.. $&
    XXXXXX $&
    ..XX.. $&
    ......
  elseif ($1 == =) return $&
    ...... $&
    XXXXXX $&
    ...... $&
    XXXXXX $&
    ......
  elseif ($1 == -) return $&
    ...... $&
    ...... $&
    XXXXXX $&
    ...... $&
    ......
  elseif ($1 == _) return $&
    ...... $&
    ...... $&
    ...... $&
    ...... $&
    XXXXXX
  elseif ($1 == ?) return $&
    XXXXX $&
    ...XX $&
    ..XX.. $&
    ...... $&
    ..XX..
  elseif ($1 == :) return $&
    .. $&
    XX $&
    .. $&
    XX $&
    ..
  elseif ($1 == !) return $&
    XX $&
    XX $&
    XX $&
    .. $&
    XX
  elseif ($1 == ?) return $&
    XXX. $&
    ..XX $&
    .XX. $&
    .... $&
    .XX.
  elseif ($1 == .) return $&
    .. $&
    .. $&
    .. $&
    .. $&
    XX
  elseif ($1 == /) return $&
    ....XX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX....
  elseif ($1 == \) return $&
    XX.... $&
    .XX... $&
    ..XX.. $&
    ...XX. $&
    ....XX
  elseif ($1 == $chr(40)) return $&
    ...XX $&
    .XX.. $&
    XX... $&
    .XX.. $&
    ...XX
  elseif ($1 == $chr(41)) return $&
    XX... $&
    ..XX. $&
    ...XX $&
    ..XX. $&
    XX...
  elseif ($1 == $chr(37)) return $&
    XX..XX $&
    ...XX. $&
    ..XX.. $&
    .XX... $&
    XX..XX
  elseif ($1 == [) return $&
    XXXXX $&
    XX... $&
    XX... $&
    XX... $&
    XXXXX
  elseif ($1 == ]) return $&
    XXXXX $&
    ...XX $&
    ...XX $&
    ...XX $&
    XXXXX
  elseif ($1 == |) return $&
    .XX. $&
    .XX. $&
    .XX. $&
    .XX. $&
    .XX.
  elseif ($1 == <) return $&
    ....XX $&
    ..XX.. $&
    XX.... $&
    ..XX.. $&
    ....XX
  elseif ($1 == >) return $&
    XX.... $&
    ..XX.. $&
    ....XX $&
    ..XX.. $&
    XX....
  elseif ($1 == ?) return $&
    .... $&
    .... $&
    .XX. $&
    ..XX $&
    XXX.
  elseif ($1 == ,) return $&
    ... $&
    ... $&
    XXX $&
    .XX $&
    XX. 
  elseif ($1 == $chr(42)) return $&
    .XXXX.. $&
    XX..XX. $&
    XX..XX. $&
    XX..XX. $&
    .XXXXXX
}

; Returns all unsupported characters within a Big Text message
; Supported characters are a-z, space, digits, #'"+=?:!?./\()%-[]<>|?,
alias bigtext.unsupp {
  var %res, %dummy = $regsub($1-, /[]a-z  0-9# $+ $chr(44) $+ '+=?:!?./\\()%[|<>_?"?-]/igS, $null, %res)
  return %res
}

; Returns $true if a space should be added between two characters,
;   or $false if not.
; Note: This is here only for aesthetic purposes. :)
alias bigtext.kern {
  var %res $true
  if ($regex($1-, /^(.|[_GDSQL-]T|[TPFVY7/"]J|T\.|L[1Y\\"]|[LTK<[]-|-[]>%\\]|S1|T4|\?\.|\.\?|[467L\\]?|?[J/]|L'|\/\/|\\\\|?J|[_?]?|[?T_]_|>\.|\.<)$/i)) %res = $false
  return %res
}

; Takes an input string of the form:
; .XX..XX....XX.XX.XXXXX
; And formats it for display.
alias bigtext.format {
  var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(\d\d?(?:,\d\d?)?)/
  while (%i <= $len($1-)) {
    if ($mid($1-, %i, 1) == $chr(3)) {
      if ($regex(mtcol, $mid($1-, $calc(%i + 1), $mid($1-, $calc(%i + 1), 0)), %colregex)) {
        if ($gettok($regml(mtcol, 1), 1, 44) != %curcolor) {
          %curcolor = $gettok($regml(mtcol, 1), 1, 44)
          if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
        }
        inc %i $len($regml(mtcol, 1))
      }
      elseif (%curcolor) {
        %curcolor =
        if (%i != 1) && ($mid($1-, $calc(%i - 1), 1) == X) %res = %res $+ $chr(15)
      }
    }
    else {
      %current = $iif($mid($1-, %i, 1) == ., 0, 1)
      if (%previous != %current) {
        %previous = %current
        if (%curcolor) {
          if (%current) %res = %res $+ $chr(3) $+ %curcolor $+ , $+ %curcolor
          else %res = %res $+ $chr(3)
        }
        else %res = %res $+ $chr(22)
      }
      %res = %res $+ $chr(160)
    }
    inc %i
  }
  return %res
}

alias mtrainbow { //mt $rainbow( $+ $1- $+ ) }










on *:TEXT:*Justine*:#: { 
  if ($chan == $active) { BEEP }
  else { echo $active 2(12 $+ $time $+ 2)2  —›13 $nick highlighted you in13 $chan $+ : $1- } | beep
}

on *:TEXT:*JJ*:#: { 
  if ($chan == $active) { BEEP }
  else { echo $active 2(12 $+ $time $+ 2)2  —›13 $nick highlighted you in13 $chan $+ : $1- } | beep
}

on *:TEXT:*Jstar101*:#: { 
  if ($chan == $active) { BEEP }
  else { echo $active 2(12 $+ $time $+ 2)2  —›13 $nick highlighted you in13 $chan $+ : $1- } | beep
}

on *:TEXT:*Jstar*:#: { 
  if ($chan == $active) { BEEP }
  else { echo $active 2(12 $+ $time $+ 2)2  —›13 $nick highlighted you in13 $chan $+ : $1- } | beep
}







}
on *:TEXT:*Justine*:*:{ beep | if (%away == 1) { if (!%told [ $+ [ $nick ] ] ) {
    notice $nick I am away,13 %reason $+ . One time response to highlight. 
    set %told [ $+ [ $nick ] ] 1 
  halt }
else { halt } } }

alias aw {
  if ($1 isnum) { set %away.timer $1 }
  if ($1-) { set %reason $1- }
  else { set %reason None Set }
  unset %aw.time
  inc -c %aw.time
  away %reason
  nick Justine|Away
amsg 14[13»AWAY«14] I am now away,13 %reason $+ . 14 Left at13 $time $+ . }


alias ba {
  nick Justine
  amsg 14[13»BACK«14] I am now back from13 %reason $+ 14. Was gone for13 $duration(%aw.time) $+ . 
  .timer_away off
  unset %reason %aw.time %away.timer
  away
}

unset %told* }








menu nicklist {
Heart
.Do it:/heart $$1
}









on *:TEXT:*:*: {
var %t = $ini(mirc.ini,highlight,0)
while (%t) {
  if ($gettok($readini(mirc.ini,highlight,$+(n,%t)),2,34) isin $1-) || ($me isin $1-) && (!%delay) {
    if ($target ischan) {
      if ($active == $chan) || ($active == $target) { return }
    }
    elseif ($target !ischan) {
      if ($active == $nick) { return }
    }      
    var %c = $cid
    echo -at $iif($istok(~ & @ % +,$left($nick($chan,$nick).pnick,1),32),$left($nick($chan,$nick).pnick,1) $+ $nick,$nick) highlighted $iif($cid != $activecid,you on $iif($scid(%c).network,$v1,$scid(%c).server),you) $iif($target ischan,at $chan $+ :,(Query window $qt($target) $+ ):) $1-  
    set %delay 1
  }
  dec %t
}
unset %delay






on *:LOAD:{
  set %RainbowTextOn 0
  set %RainTxtStatus Enable
  set %RainTxtColK Background
  set %RainTxtColH 0
  halt
}

on *:INPUT:*:{
  if (/* !iswm $1) && (%RainbowTextOn == 1) && ($1- isalpha) {
    set %RainTxtCols 4,7,8,9,11,12,6
    var %RainTxtK = $replace($1-,$chr(32),~)
    var %k = $r(1,7), %l = 1
    while (%l <= $len(%RainTxtK)) {
      if (%k > 7) {
        var %k = 1
        continue
      }
      elseif ($mid(%RainTxtK,%l,1) == ~) {
        inc %l
        var %RainTxt = $+(%RainTxt,~)
        continue
      }
      else {
        var %RainTxtCol = $gettok(%RainTxtCols,%k,44)
        $iif(%RainTxtColH == 0,set -u0 %RainTxt $+(%RainTxt,,%RainTxtCol,$mid(%RainTxtK,%l,1)), $&
          set -u0 %RainTxt $+(%RainTxt,,1,$chr(44),%RainTxtCol,$mid(%RainTxtK,%l,1)))
        inc %l
        inc %k
      }
    }
    msg $target $replace(%RainTxt,~,$chr(32))
    halt
  }
}

menu channel {
  -
  Rainbow Text
  .%RainTxtStatus:{
    $iif(%RainTxtStatus == Enable,set %RainbowTextOn 1,set %RainbowTextOn 0)
    $iif(%RainTxtStatus == Enable,set %RainTxtStatus Disable,set %RainTxtStatus Enable)
    halt
  }
  .Use %RainTxtColK Colors:{
    $iif(%RainTxtColK == Foreground,set %RainTxtColH 0,set %RainTxtColH 1)
    $iif(%RainTxtColK == Foreground,set %RainTxtColK Background,set %RainTxtColK Foreground)
    halt
  }
  -
}

}
on *:START: {
.timestamp -f 11«15HH11:15nn11:15ss11»
}