SHARE
TWEET

Untitled

a guest Jun 19th, 2017 47 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ON *:INPUT:*:{ if ( $left($1,1) == / ) || ($ctrlenter) || ($inpaste) return | else {
  2.     if (c isincs $gettok($chan($target).mode,1,32)) return
  3.     if (%fuck1 == off) return {
  4.       else {
  5.         if ( %txtver == Team Amasome's Colour ) { var %c.norm 06,01 | var %c.punc 00,01 | var %c.caps 09,01 | var %c.hnick 09,01 }
  6.         if ( %txtver == F34R iRC Colour ) { var %c.norm 14,01 | var %c.punc 13,01 | var %c.caps 06,01 | var %c.hnick 06,01 }
  7.         if ( %txtver == Fuck you Colour ) { var %c.norm 14,01 | var %c.punc 14,01 | var %c.caps 04,01 | var %c.hnick 04,01 }
  8.         if ( %txtver == Laylaa's Colour 1 ) { var %c.norm 12,01 | var %c.punc 07,01 | var %c.caps 09,01 | var %c.hnick 07,01 }
  9.         if ( %txtver == Laylaa's Colour 2 ) { var %c.norm 12,01 | var %c.punc 09,01 | var %c.caps 09,01 | var %c.hnick 09,01 }
  10.         if ( %txtver == Laylaa's Colour 3 ) { var %c.norm 14,01 | var %c.punc 05,01 | var %c.caps 04,01 | var %c.hnick 04,01 }
  11.         if ( %txtver == Laylaa's Colour 4 ) { var %c.norm 06,01 | var %c.punc 12,01 | var %c.caps 09,01 | var %c.hnick 09,01 }
  12.         if ( %txtver == Laylaa's Colour 5 ) { var %c.norm 14,01 | var %c.punc 09,01 | var %c.caps 06,01 | var %c.hnick 09,01 }
  13.         if ( %txtver == Laylaa's Colour 6 ) { var %c.norm 14,01 | var %c.punc 03,01 | var %c.caps 09,01 | var %c.hnick 09,01 }
  14.         if ( %txtver == Laylaa's Colour 7 ) { var %c.norm 14,01 | var %c.punc 00,01 | var %c.caps 11,01 | var %c.hnick 12,01 }
  15.         if  (!* isin $1) return
  16.         if (%addnick) && ($regex($gettok($1-,1,32),/^( $+ $iif($chan,$nicks,$+(\Q,$target,\E|\Q,$me,\E)) $+ ):$/Si)) { var %txtn $+(12,$mid(%c.norm,4),$chr(40),07,$chr(40),04,$regml(1),07,$chr(41),12,$chr(41),) | tokenize 32 $gettok($1-,2-,32) }
  17.         if (%acronym) tokenize 32 $replacexcs($1-,sob,[.:Son Of A Slut:.],www,[.:ɯooz ɯooz ɯooz:.],please,ǝsɐǝןd,nigga,ηιggα,dumplin,∂υмρℓιη,lmc,[.:Lick My Clit Bitch:.],ily,[.:I <3 You:.],fas,[.:Fuck A Slut!:.],butterfly,Ƹ̵̡Ӝ̵̨̄Ʒ,crown,â™”,q-q,.:~[Q_Q]~:.)
  18.         if (%emoticon) tokenize 32 $replacexcs($1-,>.>,».»,<.<,«.«,>.<,>_<,xd,:Ð,?,?¿,:d,:Ð,o.o,Ã’_ó,idc,[.:I Don't Care:.],idk,[.:I Don't Know Yo!.:])
  19.         if (%autoformat) tokenize 32 $regsubex($replacex($1-,dont,don't),/(^[A-z]|[.?!:]\s[A-z]|\bi\b)/g,$upper(\1)) $+ $iif(!$regex($1-,/^[!?@.]|[^A-z0-9]$/S),.)
  20.  
  21.         tokenize 32 $strip($1-,c)
  22.  
  23.         if ($chan) { var %x $nick(#,0) | while (%x) { tokenize 32 $regsubex($1-,/(?<=[]})".?¿!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $nick(#,%x) $+ \E)(?=[]})".?¿!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$nick(#,%x),)) | dec %x } }
  24.         else tokenize 32 $regsubex($1-,/(?<=[]})".?¿!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $+($me,\E,|\Q,$target) $+ \E)(?=[]})".?¿!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$iif(\1 == $me,$me,$target),))
  25.         var %y $chan(0) | while (%y) { tokenize 32 $regsubex($1-,/(?<=[]})".?¿!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $chan(%y) $+ \E)(?=[]})".?¿!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$chan(%y),)) | dec %y }
  26.  
  27.         if (%c.punc) tokenize 32 $regsubex($1-,/((?:\b[DXO][:;x\=]\b|\b[:;x\=][][\|ZOPSGDVX]\b|\b[0xvo][_.]+[0xvo]\b|\bXD\b|\bx]\b|[^a-z\s ])+)/gi,$+(%c.punc,\1,%c.norm))
  28.         if (%c.caps) tokenize 32 $regsubex($1-,/(?<=^|[A-z\s]| $+ %c.norm $+ )(?<! $+ %c.punc $+ [A-z])([A-Z]+)(?=[A-z\s]| $+ %c.punc $+ |$)/g,$+( %c.caps,\1, %c.norm))
  29.  
  30.         tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g, $+(,%c.hnick,$strip(\1),%c.punc,))
  31.  
  32.         .msg $target %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  33.         echo $target $timestamp $+(4,$chr(40),,5,$regsubex($iif($chan,$nick(#,$me).pnick,$me),/^([~&@%+])([~&@%+]*)/,$+(5,$replace(\1,$regml(2),$null),14)),,4,$chr(41),) %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  34.         haltdef
  35.       }
  36.     }
  37.   }
  38. }
  39. ON ^*:TEXT:*:#:{
  40.   echo $chan $timestamp $+(4,$chr(40),,5,$regsubex($iif($chan,$nick(#,$nick).pnick,$nick),/^([~&@%+])([~&@%+]*)/,$+(5,$replace(\1,$regml(2),$null),14)),,4,$chr(41),) 15 $+ $1-
  41.   haltdef
  42. }
  43. Menu *,menubar {
  44.   $me $+ 's Colour Talker
  45.   .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
  46.   .-
  47.   .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon 1) | echo -a [Emoticons turned $iif(%emoticon,on,off) $+ .]
  48.   .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat 1) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
  49.   .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym 1) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
  50.   .$iif(%addnick,$style(1)) Address Nicks:$iif(%addnick,unset %addnick,set %addnick 1) | echo -a [Address Nicks turned $iif(%addnick,on,off) $+ .]
  51.   .-
  52.   .$iif(%bold,$style(1)) Bold:$iif(%bold,unset %bold,set %bold 1) | echo -a [Bold turned $iif(%bold,on,off) $+ .]
  53.   .$iif(%underline,$style(1)) Underline:$iif(%underline,unset %underline,set %underline 1) | echo -a [Underline turned $iif(%underline,on,off) $+ .]
  54.   .-
  55.   .Coloured Caps/Punctuation
  56.   ..$iif(%txtver != Custom,$style(1)) Presets
  57.   ...Laylaa's Colours
  58.   ....$iif(%txtver == Team Amasome's Colour,$style(3)) Team Amasome's Colour:set %txtver Team Amasome's Colour | echo -a [ $+ %txtver is enabled.]
  59.   ....$iif(%txtver == F34R iRC Colour,$style(3)) F34R iRC Colour:set %txtver F34R iRC Colour | echo -a [ $+ %txtver is enabled.]
  60.   ....$iif(%txtver == Fuck you Colour,$style(3)) Fuck you Colour:set %txtver Fuck you Colour | echo -a [ $+ %txtver is enabled.]
  61.   ....$iif(%txtver == Laylaa's Colour 1,$style(3)) Laylaa's Colour 1:set %txtver Laylaa's Colour 1 | echo -a [ $+ %txtver is enabled.]
  62.   ....$iif(%txtver == Laylaa's Colour 2,$style(3)) Laylaa's Colour 2:set %txtver Laylaa's Colour 2 | echo -a [ $+ %txtver is enabled.]
  63.   ....$iif(%txtver == Laylaa's Colour 3,$style(3)) Laylaa's Colour 3:set %txtver Laylaa's Colour 3 | echo -a [ $+ %txtver is enabled.]
  64.   ....$iif(%txtver == Laylaa's Colour 4,$style(3)) Laylaa's Colour 4:set %txtver Laylaa's Colour 4 | echo -a [ $+ %txtver is enabled.]
  65.   ....$iif(%txtver == Laylaa's Colour 5,$style(3)) Laylaa's Colour 5:set %txtver Laylaa's Colour 5 | echo -a [ $+ %txtver is enabled.]
  66.   ....$iif(%txtver == Laylaa's Colour 6,$style(3)) Laylaa's Colour 6:set %txtver Laylaa's Colour 6 | echo -a [ $+ %txtver is enabled.]
  67.   ....$iif(%txtver == Laylaa's Colour 7,$style(3)) Laylaa's Colour 7:set %txtver Laylaa's Colour 7 | echo -a [ $+ %txtver is enabled.]
  68.   ..$iif(%txtver == Custom,$style(1)) Custom
  69.   ...$iif(((%txtver == Custom) && (%c.norm)),$style(1)) Normal
  70.   ....$iif(00* iswm %c.norm,$style(1)) White (00):set %txtver Custom | set %c.norm 00
  71.   ....$iif(01* iswm %c.norm,$style(1)) Black (01):set %txtver Custom | set %c.norm 01
  72.   ....$iif(02* iswm %c.norm,$style(1)) Navy (02):set %txtver Custom | set %c.norm 02
  73.   ....$iif(03* iswm %c.norm,$style(1)) Green (03):set %txtver Custom | set %c.norm 03
  74.   ....$iif(04* iswm %c.norm,$style(1)) Red (04):set %txtver Custom | set %c.norm 04
  75.   ....$iif(05* iswm %c.norm,$style(1)) Brown (05):set %txtver Custom | set %c.norm 05
  76.   ....$iif(06* iswm %c.norm,$style(1)) Purple (06):set %txtver Custom | set %c.norm 06
  77.   ....$iif(07* iswm %c.norm,$style(1)) Orange (07):set %txtver Custom | set %c.norm 07
  78.   ....$iif(08* iswm %c.norm,$style(1)) Yellow (08):set %txtver Custom | set %c.norm 08
  79.   ....$iif(09* iswm %c.norm,$style(1)) Lime (09):set %txtver Custom | set %c.norm 09
  80.   ....$iif(10* iswm %c.norm,$style(1)) Teal (10):set %txtver Custom | set %c.norm 10
  81.   ....$iif(11* iswm %c.norm,$style(1)) Aqua (11):set %txtver Custom | set %c.norm 11
  82.   ....$iif(12* iswm %c.norm,$style(1)) Blue (12):set %txtver Custom | set %c.norm 12
  83.   ....$iif(13* iswm %c.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm 13
  84.   ....$iif(14* iswm %c.norm,$style(1)) Gray (14):set %txtver Custom | set %c.norm 14
  85.   ....$iif(15* iswm %c.norm,$style(1)) Silver (15):set %txtver Custom | set %c.norm 15
  86.   ....$iif(!%c.norm,$style(1)) Unset:set %txtver Custom | unset %c.norm
  87.   ...$iif((%txtver == Custom) && ($mid(%c.norm,4)),$style(1)) Background
  88.   ....$iif(($mid(%c.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,00
  89.   ....$iif(($mid(%c.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,01
  90.   ....$iif(($mid(%c.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,02
  91.   ....$iif(($mid(%c.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,03
  92.   ....$iif(($mid(%c.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,04
  93.   ....$iif(($mid(%c.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,05
  94.   ....$iif(($mid(%c.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,06
  95.   ....$iif(($mid(%c.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,07
  96.   ....$iif(($mid(%c.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,08
  97.   ....$iif(($mid(%c.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,09
  98.   ....$iif(($mid(%c.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,10
  99.   ....$iif(($mid(%c.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,11
  100.   ....$iif(($mid(%c.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,12
  101.   ....$iif(($mid(%c.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,13
  102.   ....$iif(($mid(%c.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,14
  103.   ....$iif(($mid(%c.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,15
  104.   ....$iif(!$mid(%c.norm,4),$style(1)) Unset:set %txtver Custom | set %c.norm $mid(%c.norm,1,3)
  105.   ...$iif(((%txtver == Custom) && (%c.punc)),$style(1)) Punctuation
  106.   ....$iif(00* iswm %c.punc,$style(1)) White (00):set %txtver Custom | set %c.punc 00
  107.   ....$iif(01* iswm %c.punc,$style(1)) Black (01):set %txtver Custom | set %c.punc 01
  108.   ....$iif(02* iswm %c.punc,$style(1)) Navy (02):set %txtver Custom | set %c.punc 02
  109.   ....$iif(03* iswm %c.punc,$style(1)) Green (03):set %txtver Custom | set %c.punc 03
  110.   ....$iif(04* iswm %c.punc,$style(1)) Red (04):set %txtver Custom | set %c.punc 04
  111.   ....$iif(05* iswm %c.punc,$style(1)) Brown (05):set %txtver Custom | set %c.punc 05
  112.   ....$iif(06* iswm %c.punc,$style(1)) Purple (06):set %txtver Custom | set %c.punc 06
  113.   ....$iif(07* iswm %c.punc,$style(1)) Orange (07):set %txtver Custom | set %c.punc 07
  114.   ....$iif(08* iswm %c.punc,$style(1)) Yellow (08):set %txtver Custom | set %c.punc 08
  115.   ....$iif(09* iswm %c.punc,$style(1)) Lime (09):set %txtver Custom | set %c.punc 09
  116.   ....$iif(10* iswm %c.punc,$style(1)) Teal (10):set %txtver Custom | set %c.punc 10
  117.   ....$iif(11* iswm %c.punc,$style(1)) Aqua (11):set %txtver Custom | set %c.punc 11
  118.   ....$iif(12* iswm %c.punc,$style(1)) Blue (12):set %txtver Custom | set %c.punc 12
  119.   ....$iif(13* iswm %c.punc,$style(1)) Fuchsia (13):set %txtver Custom | set %c.punc 13
  120.   ....$iif(14* iswm %c.punc,$style(1)) Gray (14):set %txtver Custom | set %c.punc 14
  121.   ....$iif(15* iswm %c.punc,$style(1)) Silver (15):set %txtver Custom | set %c.punc 15
  122.   ....$iif(!%c.punc,$style(1)) Unset:set %txtver Custom | unset %c.punc
  123.   ...$iif(((%txtver == Custom) && (%c.caps)),$style(1)) Caps
  124.   ....$iif(00* iswm %c.caps,$style(1)) White (00):set %txtver Custom | set %c.caps 00
  125.   ....$iif(01* iswm %c.caps,$style(1)) Black (01):set %txtver Custom | set %c.caps 01
  126.   ....$iif(02* iswm %c.caps,$style(1)) Navy (02):set %txtver Custom | set %c.caps 02
  127.   ....$iif(03* iswm %c.caps,$style(1)) Green (03):set %txtver Custom | set %c.caps 03
  128.   ....$iif(04* iswm %c.caps,$style(1)) Red (04):set %txtver Custom | set %c.caps 04
  129.   ....$iif(05* iswm %c.caps,$style(1)) Brown (05):set %txtver Custom | set %c.caps 05
  130.   ....$iif(06* iswm %c.caps,$style(1)) Purple (06):set %txtver Custom | set %c.caps 06
  131.   ....$iif(07* iswm %c.caps,$style(1)) Orange (07):set %txtver Custom | set %c.caps 07
  132.   ....$iif(08* iswm %c.caps,$style(1)) Yellow (08):set %txtver Custom | set %c.caps 08
  133.   ....$iif(09* iswm %c.caps,$style(1)) Lime (09):set %txtver Custom | set %c.caps 09
  134.   ....$iif(10* iswm %c.caps,$style(1)) Teal (10):set %txtver Custom | set %c.caps 10
  135.   ....$iif(11* iswm %c.caps,$style(1)) Aqua (11):set %txtver Custom | set %c.caps 11
  136.   ....$iif(12* iswm %c.caps,$style(1)) Blue (12):set %txtver Custom | set %c.caps 12
  137.   ....$iif(13* iswm %c.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %c.caps 13
  138.   ....$iif(14* iswm %c.caps,$style(1)) Gray (14):set %txtver Custom | set %c.caps 14
  139.   ....$iif(15* iswm %c.caps,$style(1)) Silver (15):set %txtver Custom | set %c.caps 15
  140.   ....$iif(!%c.caps,$style(1)) Unset:set %txtver Custom | unset %c.caps
  141.   ...$iif(((%txtver == Custom) && (%c.hnick)),$style(1)) Nick Highlighter
  142.   ....$iif(00* iswm %c.hnick,$style(1)) White (00):set %txtver Custom | set %c.hnick 00
  143.   ....$iif(01* iswm %c.hnick,$style(1)) Black (01):set %txtver Custom | set %c.hnick 01
  144.   ....$iif(02* iswm %c.hnick,$style(1)) Navy (02):set %txtver Custom | set %c.hnick 02
  145.   ....$iif(03* iswm %c.hnick,$style(1)) Green (03):set %txtver Custom | set %c.hnick 03
  146.   ....$iif(04* iswm %c.hnick,$style(1)) Red (04):set %txtver Custom | set %c.hnick 04
  147.   ....$iif(05* iswm %c.hnick,$style(1)) Brown (05):set %txtver Custom | set %c.hnick 05
  148.   ....$iif(06* iswm %c.hnick,$style(1)) Purple (06):set %txtver Custom | set %c.hnick 06
  149.   ....$iif(07* iswm %c.hnick,$style(1)) Orange (07):set %txtver Custom | set %c.hnick 07
  150.   ....$iif(08* iswm %c.hnick,$style(1)) Yellow (08):set %txtver Custom | set %c.hnick 08
  151.   ....$iif(09* iswm %c.hnick,$style(1)) Lime (09):set %txtver Custom | set %c.hnick 09
  152.   ....$iif(10* iswm %c.hnick,$style(1)) Teal (10):set %txtver Custom | set %c.hnick 10
  153.   ....$iif(11* iswm %c.hnick,$style(1)) Aqua (11):set %txtver Custom | set %c.hnick 11
  154.   ....$iif(12* iswm %c.hnick,$style(1)) Blue (12):set %txtver Custom | set %c.hnick 12
  155.   ....$iif(13* iswm %c.hnick,$style(1)) Fuchsia (13):set %txtver Custom | set %c.hnick 13
  156.   ....$iif(14* iswm %c.hnick,$style(1)) Gray (14):set %txtver Custom | set %c.hnick 14
  157.   ....$iif(15* iswm %c.hnick,$style(1)) Silver (15):set %txtver Custom | set %c.hnick 15
  158.   ....$iif(!%c.hnick,$style(1)) Unset:set %txtver Custom | unset %c.hnick
  159.   .-
  160.   .Reset colours:unset %txtver | unset %c.* | echo -a [Your Colors Are Now Off]
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top