;    CCP-Pop2.ini
;    SleepyCP - Carl Paulson
;        to load  -->   type  "/LOAD -a  CCP-Pop2.ini"
;=======================================================================================
;    The file will load as an alias file
;=======================================================================================
;
;     /c-say   <text>           /c-me   <text>               does a /say or /me in random colors
;     /bc-say   <text>         /bc-me   <text>             does a /say or /me in random bold colors
;
;     /w-say   <text>          /w-me   <text>               says or does  the text in "elite" characters.
;     /wc-say   <text>        /wc-me   <text>             says or does  the text in randomly colored "elite" characters.
;     /wbc-say   <text>      /wbc-me   <text>           says or does  the text in bold randomly colored "elite" characters
;
;     /s-say   {color 1} {color 2 }  <text>                  says  or does <text> stripped with supplied colors.     The colors are 
;     /s-me    {color 1} {color 2 }  <text>                        optional.    In none are specified, ered and black are used.  If one
;     /bs-say {color 1} {color 2 }  <text>                        is specified, the other will be black.   Use mIRC numeric color codes.
;     /bs-me  {color 1} {color 2 }  <text>                 says  or does <text> stripped with supplied colors.  (Bold letters)
;
;     /bk-say  <text>         /bk-me  <text>               says or does  the text backwards
;     /cbk-say <text>        /cbk-me <text>              says or does  the text backwards in random colors
;
;     /HiOps                                                             Hi from the Ops on the channel 
;     /BeaUTiFuL <name>                                       Gee <name or nick parsed in random colors> sure is beautiful.
;
;     /HiOps                                                             A Hi from all the Ops on the Channel
;     /BeaUTiFuL <name>                                       Gee {name in random colors} sure is Bea-U-Ti-FuL today!!!
;
;     /BL_Hi        {window for name}                      Hi  ho name'erino   {Hi    in Big Letters}
;     /BL_LoL      {window for name}                      Big Lol for name     {LoL in Big Letters}
;     /BL_HaHa                                                      HeHe HaHa HoHo {HaHa in Big Letters}
;     /BL_HeHe                                                      Ohhhhhh HeHe HaHa  {HeHe in Big Letters}
;     /BL_CooL                                                       Coo Coo Cool   {CooL in Big Letters
;
;=======================================================================================
;
_back {
  %_msg = ""
  %_msgin = $replace($1-,$chr(32),$chr(1))
  set %_count $len(%_msgin)
  :_blabel1
  %_msg = %_msg $+ $mid(%_msgin,%_count,1)
  dec %_count
  if (%_count > 0) goto _blabel1
  return $replace(%_msg,$chr(1),$chr(32))
}


_color {                ; -- alias Random Color Text commands --
  %_count = 0
  %_msg = ""
  %_msgin = $replace($1-,$chr(32),$chr(1))
  %_numsv = $rand(1,15)
  :_clabel1
  inc %_count
  %_num = $rand(1,15)
  if (%_num == %_numsv) %_num = %_num + 1
  if (%_num == 16) %_num = 1
  %_numsv = %_num
  set %_msg %_msg $+  $+ %_num $+ ,00 $+ $mid(%_msgin,%_count,1)
  if (%_count < $len($1-)) goto _clabel1
  return $replace(%_msg,$chr(1),$chr(32)) $+ 1,0 
}

_elite  {               ; -- alias Elite Text commands --
  %leet = $replace($1-,0,=0=)    | %leet = $replace(%leet,1,=1=) | %leet = $replace(%leet,2,=2=)
  %leet = $replace(%leet,3,=3=) | %leet = $replace(%leet,4,=4=) | %leet = $replace(%leet,5,=5=)
  %leet = $replace(%leet,6,=6=) | %leet = $replace(%leet,7,=7=) | %leet = $replace(%leet,8,=8=)
  %leet = $replace(%leet,9,=9=)
  %leet = $replace(%leet,a,å) | %leet = $replace(%leet,A,Å) | %leet = $replace(%leet,b,ß)
  set %VarEl1 $rand(1,2) 
  if (%VarEl1 == 1) %leet = $replace(%leet,c,ç)
  if (%VarEl1 == 2) %leet = $replace(%leet,c,©)
  %leet = $replace(%leet,C,Ç) | %leet = $replace(%leet,d,Ð) | %leet = $replace(%leet,D,Ð)
  %leet = $replace(%leet,e,ê)  | %leet = $replace(%leet,E,Ê) | %leet = $replace(%leet,f,§)
  %leet = $replace(%leet,F,§)  | %leet = $replace(%leet,i,î)    | %leet = $replace(%leet,I,Î)
  %leet = $replace(%leet,l,£)   | %leet = $replace(%leet,L,£)  | %leet = $replace(%leet,n,ñ)
  %leet = $replace(%leet,N,Ñ) | %leet = $replace(%leet,o,ð) | %leet = $replace(%leet,O,Ô)
  %leet = $replace(%leet,P,Þ) | %leet = $replace(%leet,p,þ)  | %leet = $replace(%leet,r,®)
  %leet = $replace(%leet,R,®) | %leet = $replace(%leet,u,µ)  | %leet = $replace(%leet,U,Û)
  %leet = $replace(%leet,w,W) | %leet = $replace(%leet,x,×) | %leet = $replace(%leet,X,×)
  %leet = $replace(%leet,y,¥) | %leet = $replace(%leet,Y,¥) | %leet = $replace(%leet,!,-!-)
  %leet = $replace(%leet,?,-?-)
  ;  say %leet
  return %leet
}

_stripe {               ; -- alias Stripe Text commands --
  %_count = 0
  %_msg = ""
  %color1 = 20  |  %color2 = 17
  %_msgin = $1-
  if (( $1 < 16 ) && ( $1 > 0 )) { %color1 = $1 + 16 | %_msgin = $2- }
  if (( $2 < 16 ) && ( $2 > 0 )) { %color2 = $2 + 16 | %_msgin = $3- }
  %_msgin = $replace(%_msgin,$chr(32),$chr(1))
  :_slabel1
  inc %_count
  set %_msg %_msg $+  $+ %color1 $+ , $+ %color2 $+ $mid(%_msgin,%_count,1)
  %color0 = %color1 | %color1 = %color2 | %color2 = %color0 
  if (%_count < $len(%_msgin)) goto _slabel1
  return $replace(%_msg,$chr(1),$chr(32))
}

/c-say    {  _color $1- | say $result | halt }
/c-me     {  _color $1- | me $result | halt }
/bc-say  {  _color $1- | say  $+ $result | halt }
/bc-me   {  _color $1- | me  $+ $result | halt }

/w-say     {  _elite $1- | say $result | halt }
/w-me      {  _elite $1- | me $result | halt }
/wc-say   {  _elite $1- |  _color $result | say $result | halt }
/wc-me    {  _elite $1- |  _color $result | me $result | halt }
/wbc-say {  _elite $1- |  _color $result | say  $+ $result | halt }
/wbc-me  {  _elite $1- |  _color $result | me  $+ $result | halt }

/s-say     {  _stripe $1- | say $result | halt }
/s-me      {  _stripe $1- | me $result | halt }
/bs-say   {  _stripe $1- | say  $+ $result | halt }
/bs-me    {  _stripe $1- | me  $+ $result | halt }

/bk-say    { _back $1- | say $result | halt }
/bk-me    { _back $1- | me $result | halt }
/cbk-say  { _back $1- |  _color $result | say $result | halt }
/cbk-me  { _back $1- |  _color $result | me $result | halt }
;
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;                                                                            OTHER
;
_HiOps {
  %i  = $nick(#,0) | if ( $me  !isop $chan ) { HALT }
  %ii = 1
  %j  = $rand(2,12)
  %k = 0
  %names = 1The friendly Ops of $chan $+ :  
  %space = 1&
  :OpLoop
  %name1 = $nick(#,%ii)
  inc %ii
  if ( %name1 isop $chan) { 
    inc %k
    %name1 =  $+ %j %name1 1
    inc %j
    if (%j > 13) %j = 2
    if ( %k == 1 )  %names = %names $+ %name1
    else               %names = %names $+ %space $+ %name1
  }
  if ( %ii <= %i )  goto OpLoop
  %space = 1 $+ say Hi.
  %names = %names $+ %space
  return %names
}

Parse_Nam_ {
  %_msg   = ""
  %_msgin = $replace($1-,$chr(32),$chr(1))
  %i = 1
  %j = $len(%_msgin)
  %k = $rand(3,9)
  :loop2a
  %x = $mid(%i,1,%_msgin)
  if ((%x == $null ) || ( %i > %j )) { goto finish1a }
  %_msg = %_msg $+  $+ %k $+ %x
  inc %k
  inc %i
  goto loop2a
  :finish1a
  %_msg = $replace(%_msg,$chr(1),$chr(32))
  return %_msg
}

/HiOps  {  _HiOps | say $result | halt }
/BeaUTiFuL   { 
  %_msg1 = 01,00Gee 
  %_msg2 = 01sure is 09B03ea05-09U05-09T03i05-09F03u09L01 today!!!
  Parse_Nam_ $$1- 
  %_msg = %_msg1 $+ $result %_msg2
  say %_msg | halt 
}
;
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;                                                                            BIG WRITING
;
/BL_Hi {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13 Ho $$?="Enter nick or name:"
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4 Ho $$?="Enter nick or name:"
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8 Ho $$?="Enter nick or name:"
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12 Ho $$?="Enter nick or name:"
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15 Ho $$?="Enter nick or name:"
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9 Ho $$?="Enter nick or name:"
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  hi0 %Rvar  |  HALT
}

/BL_Hi1 {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13 Ho $$1
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4 Ho $$1
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8 Ho $$1
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12 Ho $$1
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15 Ho $$1
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9 Ho $$1
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  hi0 %Rvar  |  HALT
}

/BL_LoL {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13 $$?="Enter nick or name:"
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4 $$?="Enter nick or name:"
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8 $$?="Enter nick or name:"
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12 $$?="Enter nick or name:"
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15 $$?="Enter nick or name:"
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9 $$?="Enter nick or name:"
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  LoL0 %Rvar  |  HALT
}

/BL_LoL1 {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13 $$1
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4 $$1
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8 $$1
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12 $$1
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15 $$1
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9 $$1
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  LoL0 %Rvar  |  HALT
}

/BL_HaHa {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  HaHa0 %Rvar  |  HALT
}

/BL_HeHe {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  HeHe0 %Rvar  |  HALT
}

/BL_CooL {
  if ((%BL_Try1 == $NULL) || (%BL_Try1 < 1 ) || (%BL_Try1 > 6 )) { set %BL_Try1 $rand(1,6) }
  if ( %BL_Try1 == 1 )        set %Rvar 7 6 8 13
  elseif (%BL_Try1 == 2 )  set %Rvar  14 5 15 4
  elseif (%BL_Try1 == 3 )  set %Rvar  14 7 15 8
  elseif (%BL_Try1 == 4 )  set %Rvar  14 2 15 12
  elseif (%BL_Try1 == 5 )  set %Rvar  1 14 14 15
  elseif (%BL_Try1 == 6 )  set %Rvar 10 3 11 9
  inc %BL_Try1 1
  if (%BL_Try1 > 6 ) %BL_Try1 = 1
  CooL0 %Rvar  |  HALT
}

hi0 {
  set %BL_msg $5-
  set %col1 $4
  if (%col1 == 8  )  %col1 = 7
  if (%col1 == 15 ) %col1 = 10
  if (%col1 == 9  )  %col1 = 3
  say  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €      
  say  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ %col1 %BL_msg $+ 'er-ino
  say  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
}

LoL0 {
  set %BL_msg $5-
  set %col1 $4
  if (%col1 == 8 ) %col1 = 7
  if (%col1 == 15 ) %col1 = 10
  if (%col1 == 9  )  %col1 = 3
  say  $+ 00  $+ , $+ 00 $+ BiG  $+   $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €        $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ BiG  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €        $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ %col1 $+ BiG  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €        $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ %col1 FoR %BL_msg
  say  $+ 00  $+ , $+ 00 $+ BiG  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €        $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ BiG  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €
}

haha0 {
  set %col1 $4
  if (%col1 == 8 ) %col1 = 7
  if (%col1 == 15 ) %col1 = 10
  if (%col1 == 9  )  %col1 = 3
  say  $+ 00  $+ , $+ 00 $+ HeHe  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ HeHe  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ %col1 $+ HeHe  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€ $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€ $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ %col1 HoHo
  say  $+ 00  $+ , $+ 00 $+ HeHe  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ HeHe  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
}

hehe0 {
  set %col1 $4
  if (%col1 == 8 ) %col1 = 7
  if (%col1 == 15 ) %col1 = 10
  if (%col1 == 9  )  %col1 = 3
  say  $+ 00  $+ , $+ 00 $+ Ohhhhhh  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ Ohhhhhh  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €     $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ %col1 $+ Ohhhhhh  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+   $+ %col1 HaHa
  say  $+ 00  $+ , $+ 00 $+ Ohhhhhh  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €     $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ Ohhhhhh  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €
}

cool0 {
  set %col1 $4
  if (%col1 == 8 ) %col1 = 7
  if (%col1 == 15 ) %col1 = 10
  if (%col1 == 9  )  %col1 = 3
  say  $+ 00  $+ , $+ 00 $+ Coo Coo  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ Coo Coo  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €     $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ %col1 $+ Coo Coo  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €     $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ Coo Coo  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €     $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €    $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ € $+ $1 $+ , $+ $2 $+ €
  say  $+ 00  $+ , $+ 00 $+ Coo Coo  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€€€€ $+ $1 $+ , $+ $2 $+ €  $+ $1 $+ , $+ $2 $+ € $+ $3 $+ , $+ $4 $+ €€€€ $+ $1 $+ , $+ $2 $+ €
}
;
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;                                                                         NICK MENU
;menu nicklist {
;  -
;  Friends
;  .BeaUTiFuL1 { BeaUTiFuL $$1 | halt }
;  .BL_Hi         { BL_Hi1 $$1 | halt }
;  .BL_LoL      { BL_LoL1 $$1 | halt }
;  -
;}
;
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;