Monster

Reg 5 color text script :)

Mar 6th, 2011
42
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. menu * {
  2. .Colors
  3. ..On: { .Enable #Color-Talker2 | echo Colors are now Enabled, $me $+ . }
  4. ..Off: { .Disable #Color-Talker2 | echo Colors are Disabled, $me $+ . }
  5. }
  6. #Color-Talker on
  7. ON *:INPUT:*:{ if ( $left($1,1) == / ) || ($ctrlenter) || ($inpaste) return | else {
  8. if (c isincs $gettok($chan($target).mode,1,32)) return
  9. if (%fuck1 == off) return {
  10. else {
  11. if (!* iswm $1) return
  12. if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,<.<,«.«,HB,-Hurry Back-,WB,-Welcome Back-,ILY,-I <3 You-,WTFB,-Welcome THE FUCK Back-,LMAO,-Laughing My Ass Off-,HTFB,-Hurry The Fuck Back-,Flamingo,BBIAB,-Be Back In A Bit-,BBS,-Be Back Soon-,PMSL,-Pissing Myself Laughing-,TBH,-To Be Honest-,TYVM,-Thank You Very Much-,TTYL,-Talk To You Later-,TY,-Thank You-,YW,-You're Welcome-,OMG,-Oh My God-,ASAP,-As Soon As Possible-,AFAIK,-As Far As I Know-,AFK,-Away From Keyboard-,BBN,-Bye Bye Now-,ASL,-Age/Sex/Location-,IMCO,-In My Considered Opinion-,IMHO,-In My Humble Opinion-,IMO,-In My Opinion-,JK,-Just Kidding-,LMSO,-Laughing My Socks Off-,NP,-No Problem-,WYSIWYG,-What You See Is What You Get-,WTH,-What The Hell?!-,TMI,-Too Much Information-)
  13. if (%emoticon) tokenize 32 $regsubex($1-,/( $+ $c.ereg $+ |\?(?=[]})".?!:({[]| ['"]| |$))/gi,$replacecs(\1,x,×,X,×,s,§,S,§,D,Ð,d,Ð,p,Þ,P,þ,?,?,O,$c.rand.upper.o,o,$c.rand.lower.o,-,¬,>.<,[-.-]",$chr(41),$c.rand.hap,$chr(40),$c.rand.unhap,C,Ç,c,ç,U,Û,u,û,F,ƒ,f,ƒ))
  14. if (%autoformat) && ($len($1-) > 1) && (!%me) tokenize 32 $regsubex($replacex($1-,dont,don't,w/ $+ $chr(32),$chr(32) $+ with,b/c,because),/(^[A-z]|(?<=[.?!:]\s)[A-z]|\bi\b)/g,$upper(\1)) $+ $iif($regex($1-,/^(?!['!?@.]).+(?<=[A-z0-9])(?<![]^_`\\[])$/),)
  15. if (%4.numb) tokenize 32 $regsubex($1-,/((?: $+ $c.ereg $+ |[^A-z\s]|[]^_`\\[])+)/gi,$+(,%4.numb,\1,%4.norm))
  16. if (%4.caps) tokenize 32 $regsubex($1-,/(?<=^|[A-z\s]| $+ %4.norm $+ )(?<! $+ %4.numb $+ [A-z])([A-Z]+)(?=[A-z\s]| $+ %c.punc $+ |$)/g,$+(,%4.caps,\1,%4.norm))
  17. tokenize 32 $strip($1-,c)
  18. msg $target %4.norm $+ $regsubex($regsubex($regsubex($1-,/([0-9]+)/g,%4.numb $+ \1 $+ %4.norm),/([][(){}<>\\|/%;:@_`'.!?£$^#&~"*+=-]+)/g,%4.cpunc $+ \1 $+ %4.norm),/(^[A-z]|[:]\s[A-z]|[A-Z]+)/g,%4.caps $+ $+(\1) $+ %4.norm)
  19. haltdef
  20. }
  21. }
  22. }
  23. }
  24. Menu *,menubar {
  25. $me $+ 's Exclusive Talker
  26. .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
  27. .-
  28. .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon 1) | echo -a [Aids turned $iif(%emoticon,on,off) $+ .]
  29. .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat 1) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
  30. .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym 1) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
  31. .-
  32. .Coloured Caps/Punctuation
  33. ..$iif(%txtver == Custom,$style(1)) Custom
  34. ...$iif(((%txtver == Custom) && (%4.norm)),$style(1)) Normal
  35. ....$iif(00* iswm %4.norm,$style(1)) White (00):set %txtver Custom | set %4.norm 00
  36. ....$iif(01* iswm %4.norm,$style(1)) Black (01):set %txtver Custom | set %4.norm 01
  37. ....$iif(02* iswm %4.norm,$style(1)) Navy (02):set %txtver Custom | set %4.norm 02
  38. ....$iif(03* iswm %4.norm,$style(1)) Green (03):set %txtver Custom | set %4.norm 03
  39. ....$iif(04* iswm %4.norm,$style(1)) Red (04):set %txtver Custom | set %4.norm 04
  40. ....$iif(05* iswm %4.norm,$style(1)) Brown (05):set %txtver Custom | set %4.norm 05
  41. ....$iif(06* iswm %4.norm,$style(1)) Purple (06):set %txtver Custom | set %4.norm 06
  42. ....$iif(07* iswm %4.norm,$style(1)) Orange (07):set %txtver Custom | set %4.norm 07
  43. ....$iif(08* iswm %4.norm,$style(1)) Yellow (08):set %txtver Custom | set %4.norm 08
  44. ....$iif(09* iswm %4.norm,$style(1)) Lime (09):set %txtver Custom | set %4.norm 09
  45. ....$iif(10* iswm %4.norm,$style(1)) Teal (10):set %txtver Custom | set %4.norm 10
  46. ....$iif(11* iswm %4.norm,$style(1)) Aqua (11):set %txtver Custom | set %4.norm 11
  47. ....$iif(12* iswm %4.norm,$style(1)) Blue (12):set %txtver Custom | set %4.norm 12
  48. ....$iif(13* iswm %4.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %4.norm 13
  49. ....$iif(14* iswm %4.norm,$style(1)) Gray (14):set %txtver Custom | set %4.norm 14
  50. ....$iif(15* iswm %4.norm,$style(1)) Silver (15):set %txtver Custom | set %4.norm 15
  51. ....$iif(!%4.norm,$style(1)) Unset:set %txtver Custom | unset %4.norm
  52. ...$iif((%txtver == Custom) && ($mid(%4.norm,4)),$style(1)) Background
  53. ....$iif(($mid(%4.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,00
  54. ....$iif(($mid(%4.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,01
  55. ....$iif(($mid(%4.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,02
  56. ....$iif(($mid(%4.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,03
  57. ....$iif(($mid(%4.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,04
  58. ....$iif(($mid(%4.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,05
  59. ....$iif(($mid(%4.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,06
  60. ....$iif(($mid(%4.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,07
  61. ....$iif(($mid(%4.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,08
  62. ....$iif(($mid(%4.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,09
  63. ....$iif(($mid(%4.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,10
  64. ....$iif(($mid(%4.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,11
  65. ....$iif(($mid(%4.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,12
  66. ....$iif(($mid(%4.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,13
  67. ....$iif(($mid(%4.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,14
  68. ....$iif(($mid(%4.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,15
  69. ....$iif(!$mid(%4.norm,4),$style(1)) Unset:set %txtver Custom | set %4.norm $mid(%4.norm,1,3)
  70. ...$iif(((%txtver == Custom) && (%4.numb)),$style(1)) Numbers
  71. ....$iif(00* iswm %4.numb,$style(1)) White (00):set %txtver Custom | set %4.numb 00
  72. ....$iif(01* iswm %4.numb,$style(1)) Black (01):set %txtver Custom | set %4.numb 01
  73. ....$iif(02* iswm %4.numb,$style(1)) Navy (02):set %txtver Custom | set %4.numb 02
  74. ....$iif(03* iswm %4.numb,$style(1)) Green (03):set %txtver Custom | set %4.numb 03
  75. ....$iif(04* iswm %4.numb,$style(1)) Red (04):set %txtver Custom | set %4.numb 04
  76. ....$iif(05* iswm %4.numb,$style(1)) Brown (05):set %txtver Custom | set %4.numb 05
  77. ....$iif(06* iswm %4.numb,$style(1)) Purple (06):set %txtver Custom | set %4.numb 06
  78. ....$iif(07* iswm %4.numb,$style(1)) Orange (07):set %txtver Custom | set %4.numb 07
  79. ....$iif(08* iswm %4.numb,$style(1)) Yellow (08):set %txtver Custom | set %4.numb 08
  80. ....$iif(09* iswm %4.numb,$style(1)) Lime (09):set %txtver Custom | set %4.numb 09
  81. ....$iif(10* iswm %4.numb,$style(1)) Teal (10):set %txtver Custom | set %4.numb 10
  82. ....$iif(11* iswm %4.numb,$style(1)) Aqua (11):set %txtver Custom | set %4.numb 11
  83. ....$iif(12* iswm %4.numb,$style(1)) Blue (12):set %txtver Custom | set %4.numb 12
  84. ....$iif(13* iswm %4.numb,$style(1)) Fuchsia (13):set %txtver Custom | set %4.numb 13
  85. ....$iif(14* iswm %4.numb,$style(1)) Gray (14):set %txtver Custom | set %4.numb 14
  86. ....$iif(15* iswm %4.numb,$style(1)) Silver (15):set %txtver Custom | set %4.numb 15
  87. ....$iif(!%4.numb,$style(1)) Unset:set %txtver Custom | unset %4.numb
  88. ...$iif(((%txtver == Custom) && (%4.caps)),$style(1)) Caps
  89. ....$iif(00* iswm %4.caps,$style(1)) White (00):set %txtver Custom | set %4.caps 00
  90. ....$iif(01* iswm %4.caps,$style(1)) Black (01):set %txtver Custom | set %4.caps 01
  91. ....$iif(02* iswm %4.caps,$style(1)) Navy (02):set %txtver Custom | set %4.caps 02
  92. ....$iif(03* iswm %4.caps,$style(1)) Green (03):set %txtver Custom | set %4.caps 03
  93. ....$iif(04* iswm %4.caps,$style(1)) Red (04):set %txtver Custom | set %4.caps 04
  94. ....$iif(05* iswm %4.caps,$style(1)) Brown (05):set %txtver Custom | set %4.caps 05
  95. ....$iif(06* iswm %4.caps,$style(1)) Purple (06):set %txtver Custom | set %4.caps 06
  96. ....$iif(07* iswm %4.caps,$style(1)) Orange (07):set %txtver Custom | set %4.caps 07
  97. ....$iif(08* iswm %4.caps,$style(1)) Yellow (08):set %txtver Custom | set %4.caps 08
  98. ....$iif(09* iswm %4.caps,$style(1)) Lime (09):set %txtver Custom | set %4.caps 09
  99. ....$iif(10* iswm %4.caps,$style(1)) Teal (10):set %txtver Custom | set %4.caps 10
  100. ....$iif(11* iswm %4.caps,$style(1)) Aqua (11):set %txtver Custom | set %4.caps 11
  101. ....$iif(12* iswm %4.caps,$style(1)) Blue (12):set %txtver Custom | set %4.caps 12
  102. ....$iif(13* iswm %4.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %4.caps 13
  103. ....$iif(14* iswm %4.caps,$style(1)) Gray (14):set %txtver Custom | set %4.caps 14
  104. ....$iif(15* iswm %4.caps,$style(1)) Silver (15):set %txtver Custom | set %4.caps 15
  105. ....$iif(!%4.caps,$style(1)) Unset:set %txtver Custom | unset %4.caps
  106. ...$iif(((%txtver == Custom) && (%4.cpunc)),$style(1)) punc
  107. ....$iif(00* iswm %4.cpunc,$style(1)) White (00):set %txtver Custom | set %4.cpunc 00
  108. ....$iif(01* iswm %4.cpunc,$style(1)) Black (01):set %txtver Custom | set %4.cpunc 01
  109. ....$iif(02* iswm %4.cpunc,$style(1)) Navy (02):set %txtver Custom | set %4.cpunc 02
  110. ....$iif(03* iswm %4.cpunc,$style(1)) Green (03):set %txtver Custom | set %4.cpunc 03
  111. ....$iif(04* iswm %4.cpunc,$style(1)) Red (04):set %txtver Custom | set %4.cpunc 04
  112. ....$iif(05* iswm %4.cpunc,$style(1)) Brown (05):set %txtver Custom | set %4.cpunc 05
  113. ....$iif(06* iswm %4.cpunc,$style(1)) Purple (06):set %txtver Custom | set %4.cpunc 06
  114. ....$iif(07* iswm %4.cpunc,$style(1)) Orange (07):set %txtver Custom | set %4.cpunc 07
  115. ....$iif(08* iswm %4.cpunc,$style(1)) Yellow (08):set %txtver Custom | set %4.cpunc 08
  116. ....$iif(09* iswm %4.cpunc,$style(1)) Lime (09):set %txtver Custom | set %4.cpunc 09
  117. ....$iif(10* iswm %4.cpunc,$style(1)) Teal (10):set %txtver Custom | set %4.cpunc 10
  118. ....$iif(11* iswm %4.cpunc,$style(1)) Aqua (11):set %txtver Custom | set %4.cpunc 11
  119. ....$iif(12* iswm %4.cpunc,$style(1)) Blue (12):set %txtver Custom | set %4.cpunc 12
  120. ....$iif(13* iswm %4.cpunc,$style(1)) Fuchsia (13):set %txtver Custom | set %4.cpunc 13
  121. ....$iif(14* iswm %4.cpunc,$style(1)) Gray (14):set %txtver Custom | set %4.cpunc 14
  122. ....$iif(15* iswm %4.cpunc,$style(1)) Silver (15):set %txtver Custom | set %4.cpunc 15
  123. ....$iif(!%4.cpunc,$style(1)) Unset:set %txtver Custom | unset %4.cpunc
  124. .-
  125. .Reset colours:unset %txtver | unset %4.* | echo -a [Colors Off]
  126. }
  127. alias c.ereg return (?<=[]})"'.?!:({[]| ['"]| ||^)(?:[DX'O:;x=>][])<ZOPFSGDVX3:;\|=([](?<![ods][fosbvp])|[\Q0xcvuo-><\E][_,.']+[\Q0xcvuo-><\E]|\.o\.)(?=[]})"'.?!:({[]| ['"]| |$)
  128. alias c.rand.upper.o return $replace($rand(1,7),1,Ø,2,Ò,3,Ó,4,Ô,5,Õ,6,Ö,7,©)
  129. alias c.rand.lower.o return $replace($rand(1,9),1,ø,2,ò,3,ó,4,ô,5,õ,6,ö,7,ð,8,¤,9,º)
  130. alias c.rand.hap return $replace($rand(1,6),1,$chr(41),2,›,3,»,4,>,5,$chr(125),6,])
  131. alias c.rand.unhap return $replace($rand(1,7),1,$chr(40),2,‹,3,«,4,¢,5,<,6,$chr(123),7,[)
  132. }
  133. #Color-Talker end
RAW Paste Data