on *:INPUT:*:{
  if (%Colours1 == true) { 
    if ( $left($1,1) == ! || $left($1,1) == @ ) { msg $active $1- | halt }
    if ( $left($1,1) == / ) { $$1- | halt } 
    if (%commandwidexp isin $1 || %commandwidacm isin $1 ) { msg $active $1- | halt }
    else {
      msg $active %Coloursunderline $+ %Coloursbold $+ %Colourscolors $+ $1- | halt 
    } 
  } 
}
menu * {
  Colours:/Colours
}
alias Colours /dialog -m Colours Colours
dialog Colours {
  title "Louis|'s Text-Style Selector."
  size -1 -1 100 100
  option dbu
  check      "Activé", 14, 5 2 50 10 
  check        "Bold", 15, 5 12 50 10 
  check   "Underline", 16, 5 22 50 10 
  text  "Colours", 1337, 5 35 20 10, nowrap
  radio   "2", 22, 5 42 20 10
  radio   "3", 23, 25 42 20 10
  radio   "4", 24, 45 42 20 10
  radio   "5", 25, 65 42 20 10
  radio   "6", 26, 85 42 20 10
  radio   "7", 27, 5 52 20 10
  radio   "8", 28, 25 52 20 10
  radio   "9", 29, 45 52 20 10
  radio   "10", 30, 65 52 20 10
  radio   "11", 31, 85 52 20 10
  radio   "12", 32, 5 62 20 10
  radio   "13", 33, 25 62 20 10
  radio   "14", 34, 45 62 20 10
  radio   "15", 35, 65 62 20 10
  button        "Ok!", 20, 10 80 40 15, ok
}
on *:dialog:Colours:sclick:14:{
  if ($did(14).state == 1) {
    set %Colours1 True 
  } 
  elseif ($did(14).state == 0) {
    unset %Colours1 
  }
}
on *:dialog:Colours:init:*:{ 
  if (%Colours1 != $null) { did -c $dname 14 }
  if (%Coloursunderline != $null) { did -c $dname 16 }
  if (%Coloursbold != $null) { did -c $dname 15 }
  if (%Colourscolors != $null) { did -c $dname $calc($replace(%Colourscolors,,) + 20) && did -c $dname 23  }
}
on *:dialog:Colours:sclick:15:{ 
  if ($did(15).state == 1) { 
    set %Coloursbold  
  } 
  elseif ($did(15).state == 0) { 
  unset %Coloursbold } 
}

on *:dialog:Colours:sclick:16:{
  if ($did(16).state == 1) { 
    set %Coloursunderline  
  }  
  elseif ($did(16).state == 0) { 
    unset %Coloursunderline 
  }
}

on *:dialog:Colours:sclick:22:{
  if ($did(22).state == 1) {
    set %Colourscolors 2 
  } 
  elseif ($did(22).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:23:{ 
  if ($did(23).state == 1) {
    set %Colourscolors 3 
  } 
  elseif ($did(23).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:24:{ 
  if ($did(24).state == 1) { 
    set %Colourscolors 4
  } 
  elseif ($did(24).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:25:{ 
  if ($did(25).state == 1) {
    set %Colourscolors 5 
  } 
  elseif ($did(25).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:26:{
  if ($did(26).state == 1) {
    set %Colourscolors 6 
  }
  elseif ($did(26).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:27:{
  if ($did(27).state == 1) {
    set %Colourscolors 7 
  } 
  elseif ($did(27).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:28:{
  if ($did(28).state == 1) {
    set %Colourscolors 8 
  } 
  elseif ($did(28).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:29:{ 
  if ($did(29).state == 1) { 
    set %Colourscolors 9 
  } 
  elseif ($did(29).state == 0) { 
    unset %Colourscolors
  } 
}

on *:dialog:Colours:sclick:30:{ 
  if ($did(30).state == 1) {
    set %Colourscolors 10 
  } 
  elseif ($did(30).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:31:{ 
  if ($did(31).state == 1) { 
    set %Colourscolors 11 
  } 
  elseif ($did(31).state == 0) { 
    unset %Colourscolors
  } 
}

on *:dialog:Colours:sclick:32:{ 
  if ($did(32).state == 1) {
    set %Colourscolors 12 
  } 
  elseif ($did(32).state == 0) {
    unset %Colourscolors
  } 
}

on *:dialog:Colours:sclick:33:{
  if ($did(33).state == 1) { 
    set %Colourscolors 13
  }  
  elseif ($did(33).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:34:{ 
  if ($did(34).state == 1) { 
    set %Colourscolors 14 
  } 
  elseif ($did(34).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:35:{
  if ($did(35).state == 1) { 
    set %Colourscolors 15 
  } 
  elseif ($did(35).state == 0) { 
    unset %Colourscolors 
  }
}


MNGNKGLNDJNSNGJKSDNGJKSDNSDSNN MMMMMMMMMMMMMMMMMMMMMMMMMMMMMKKKKKKKKKKKKKKKKKK



alias omgbig { 
  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 /^(dd?(?:,dd?)?)/ 

  var %regex = /(?<= $+ $chr(3) $+ [0-9]| $+ $chr(3) $+ [0-9][0-9]) $+ $chr(44) $+ dd?/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) 
} 

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 $& 
    XXXXXX $& 
    ...... $& 
    ...... $& 
    ...... $& 
    ...... 
  elseif ($1 == [) return $& 
    .XXX. $& 
    XX.XX $& 
    .XXX. $& 
    ..... $& 
    ..... 
  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. 
} 



alias bigtext.unsupp { 
  var %res, %dummy = $regsub($1-, /[]a-z  0-9# $+ $chr(44) $+ '+=:!?./()%[|<>_"-]/igS, $null, %res) 
  return %res 
} 

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 
} 

alias bigtext.format { 
  var %res, %i 1, %previous 0, %current, %curcolor, %colregex /^(dd?(?:,dd?)?)/ 
  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 globalban { 
  if ($2 == $null) { beep 2 2 | echo -ta you must give a name of the person your banning along with a reason. | halt } 
  var %x = 1 
  while (%x <= $chan(0)) { 
    if (($me isop $chan(%x)) || ($me ishop $chan(%x)))  {    mode $chan(%x) +bbb $address($1,3) $address($1,2) $1 | msg $chan(%x) $1 was Globaly banned for $2- } 
    if ($1 ison $chan(%x)) { mode $chan(%x) -o $1- | kick $chan(%x) $1 You have been banned for $2- 
      inc %x 
    } 
    elseif (($me !isop $chan(%x)) && ($me !ishop $chan(%x))) msg $chan(%x)) { I'm not an op here. $1 was globaly banned for $2- } 
    inc %x 
  } 
}