API tools faq
paste
Advertisement
Monster

Reg 5 color text script :)

Monster
Mar 6th, 2011
113
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.65 KB | None | 0 0
raw download clone embed print report
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!