Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1.menu * {
- 2. .Colors
- 3. ..On: { .Enable #Color-Talker | echo Colors are now Enabled, $me $+ . }
- 4. ..Off: { .Disable #Color-Talker | echo Colors are Disabled, $me $+ . }
- 5.}
- 6.#Color-Talker on
- 7.ON *:INPUT:*:{ if ( $left($1,1) == / ) || ($ctrlenter) || ($inpaste) return | else {
- 8. if (%fuck1 == off) return {
- 9. else {
- 10. if (!* isin $1) return
- 11. if ( %txtver == FireColour1 ) { say 0,8/7,8\8,7/4,7\7,4/5,4\4,5/1,5\5,7/4,8 $1- 5,7\1,5/4,5\5,4/7,4\4,7/8,7\7,8/0,8\ | halt }
- 12. if ( %txtver == FireColour2 ) { say 8,0%0,8%8,84,8%8,4%4,45,4%4,5%5,50,5%5,1%0,10,1 $1- 0,15,1%0,5%5,54,5%5,4%4,48,4%4,8%8,80,8%8,0% | halt }
- 13. if ( %txtver == RainbowColor ) { var %a = 10 11 6 14 9 15 | msg $target $regsubex($1-,/([^ ])/g,$+($chr(3),$gettok(%a,$iif($calc(\n % $numtok(%a,32)),$v1,$numtok(%a,32)),32),$chr(44),01,\1)) | halt }
- 14. if ( %txtver == RainbowColour2 ) { var %a = 04 07 08 09 11 12 06 | msg $target $regsubex($1-,/([^ ])/g,$+($chr(3),$gettok(%a,$iif($calc(\n % $numtok(%a,32)),$v1,$numtok(%a,32)),32),$chr(44),01,\1)) | halt }
- 15. if (%addnick) && (!%me) && ($regex($gettok($1-,1,32),/^( $+ $iif($chan,$c.nicks,$+(\Q,$target,\E|\Q,$me,\E)) $+ ):$/Si)) { var %txtn $+(9,$mid(%c.norm,4),$chr(40),14,$regml(1),9,$chr(41),) | tokenize 32 $gettok($1-,2-,32) }
- 16. if (%acronym) tokenize 32 $replacexcs($1-,evil,(04â—£_04â—¢ $+ %c.punc $+ ),foff,$chr(31) $+ ┌∩┠$+ $chr(31) $+ (4â—£15_4â—¢ $+ %c.punc $+ ) $+ $chr(31) $+ ┌∩┠$+ $chr(31) $+,:3,â¤,f.f,ƒ.ƒ,>.>,».»,BUTTERFLY, Ƹ̵̡Ӝ̵̨̄Ʒ,c.c,ç.ç,<.<,«.«,<3,«3,LOL,-Laughing Øut Loud-,BRB,-Bee Are Bee-,?,?¿,WTF,-What the Fudge?-,OMG!,-Øh My Dios!-,HB,-Hurry Back-,STAR,☆,WB,-Welcome Back-,ILY,-I «3 You-,LMAO,-Laughing My @ss Øff-,LMFAO,-Laughing My Fat @ss Øff-,BBL,-Be Back Later!-,BBS,-Be Back Soon-,TTYL,-Talk To You Later-,TY,-Thank You-,YW,-You're Welcome-,OMG!!,-Øh My Garrah!-,AFK,-Away From Keyboard-,ASL,-Age//Sex/Location-,JK,-Just Kidding-,LMSO,-Laughing My Socks Øff-,WTH,-What The Hell?!-,WTD,-What the Devil?!-,FU,-Fµck Yourself-,hbg,~Hurry Back Gorgeous ;]~,CUT, ✄,WINGS,☜♥☞,STAR,☆,LOVE,â¤,degrees,°,2!,²,darkdot,,FU,~.:Fµck Yourself:.~,3/4,¾,1/2,½,hbg,~.:Hurry Back Gorgeous ;]:.~,HEART,♥,!A, â“,!B,â“‘,!C,â“’ ,!D,â““ ,!E,â“” ,!F,â“•,!G,â“– ,!H,â“— ,!I,ⓘ ,!J,â“™ ,!K,â“š ,!L,â“› ,!M,â“œ ,!N,â“ ,!O,â“ž ,!P,â“Ÿ ,!Q,â“ ,!R,â“¡ ,!S,â“¢ ,!T,â“£ ,!U,ⓤ ,!V,â“¥ ,!W,ⓦ ,!X,ⓧ ,!Y,ⓨ ,!Z,â“©,MALE,♂ ,FEMALE,♂ ,FLOWER, ✿,PEACE, ☮,lovers!, 웃 â¤ ìœ ,TARGET,⊙,BABY,εїз,SIDEWAYS,â¥,YIN,☯,SOD,✡,1`,➊,2`,âž‹,3`,➌,4`,âž ,5`,➎,6`,âž,7`,âž,8`,âž‘,9`,âž’,C1,â™”,C2,♚,C3,â™›)
- 17. 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,ƒ))
- 18. 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])(?<![]^_`\\[])$/),)
- 19. if (%addnick) && ($chan) { var %x $nick(#,0) | while (%x) { tokenize 32 $regsubex($1-,/(?<=[]})"'.?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $nick(#,%x) $+ \E)(?=[]})"'.?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$nick(#,%x),)) | dec %x } }
- 20. else tokenize 32 $regsubex($1-,/(?<=[]})"'.?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $+($me,\E,|\Q,$target) $+ \E)(?=[]})"'.?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$iif(\1 == $me,$me,$target),))
- 21. var %y $chan(0) | while (%y) { tokenize 32 $regsubex($1-,/(?<=[]})"'.?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $chan(%y) $+ \E)(?=[]})".'?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$chan(%y),)) | dec %y }
- 22.
- 23. if (%c.punc) tokenize 32 $regsubex($1-,/((?: $+ $c.ereg $+ |[^A-z\s]|[]^_`\\[])+)/gi,$+(,%c.punc,\1,%c.norm))
- 24. 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))
- 25.
- 26. tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(,%c.hnick,$strip(\1),%c.norm,))
- 27. tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(12,$chr(40),04,%c.hnick,$strip(\1),09,%c.norm,12,$chr(41),,))
- 28. msg $target %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
- 29. haltdef
- 30. }
- 31. }
- 32. }
- 33.}
- 34.
- 35.Menu *,menubar {
- 36. $me $+ 's Exclusive Talker
- 37. .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
- 38. .-
- 39. .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon 1) | echo -a [Emoticons turned $iif(%emoticon,on,off) $+ .]
- 40. .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat 1) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
- 41. .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym 1) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
- 42. .$iif(%addnick,$style(1)) Address Nicks:$iif(%addnick,unset %addnick,set %addnick 1) | echo -a [Address Nicks turned $iif(%addnick,on,off) $+ .]
- 43. .-
- 44. .$iif(%bold,$style(1)) Bold:$iif(%bold,unset %bold,set %bold 1) | echo -a [Bold turned $iif(%bold,on,off) $+ .]
- 45. .$iif(%underline,$style(1)) Underline:$iif(%underline,unset %underline,set %underline 1) | echo -a [Underline turned $iif(%underline,on,off) $+ .]
- 46. .-
- 47. .Talkers
- 48. ..$iif(%txtver == FireColour1,$style(3)) Fire Colour 1:set %txtver FireColour1 | echo -a [ $+ %txtver is enabled.]
- 49. ..$iif(%txtver == FireColour2,$style(3)) Fire Colour 2:set %txtver FireColour2 | echo -a [ $+ %txtver is enabled.]
- 50. ..$iif(%txtver == RainbowColor,$style(3)) Rainbow Colour:set %txtver RainbowColor | echo -a [ $+ %txtver is enabled.]
- 51. ..$iif(%txtver == RainbowColour2,$style(3)) Rainbow Colour:set %txtver RainbowColour2 | echo -a [ $+ %txtver is enabled.]
- 52. .Coloured Caps/Punctuation
- 53. ..$iif(%txtver == Custom,$style(1)) Custom
- 54. ...$iif(((%txtver == Custom) && (%c.norm)),$style(1)) Normal
- 55. ....$iif(00* iswm %c.norm,$style(1)) White (00):set %txtver Custom | set %c.norm 00
- 56. ....$iif(01* iswm %c.norm,$style(1)) Black (01):set %txtver Custom | set %c.norm 01
- 57. ....$iif(02* iswm %c.norm,$style(1)) Navy (02):set %txtver Custom | set %c.norm 02
- 58. ....$iif(03* iswm %c.norm,$style(1)) Green (03):set %txtver Custom | set %c.norm 03
- 59. ....$iif(04* iswm %c.norm,$style(1)) Red (04):set %txtver Custom | set %c.norm 04
- 60. ....$iif(05* iswm %c.norm,$style(1)) Brown (05):set %txtver Custom | set %c.norm 05
- 61. ....$iif(06* iswm %c.norm,$style(1)) Purple (06):set %txtver Custom | set %c.norm 06
- 62. ....$iif(07* iswm %c.norm,$style(1)) Orange (07):set %txtver Custom | set %c.norm 07
- 63. ....$iif(08* iswm %c.norm,$style(1)) Yellow (08):set %txtver Custom | set %c.norm 08
- 64. ....$iif(09* iswm %c.norm,$style(1)) Lime (09):set %txtver Custom | set %c.norm 09
- 65. ....$iif(10* iswm %c.norm,$style(1)) Teal (10):set %txtver Custom | set %c.norm 10
- 66. ....$iif(11* iswm %c.norm,$style(1)) Aqua (11):set %txtver Custom | set %c.norm 11
- 67. ....$iif(12* iswm %c.norm,$style(1)) Blue (12):set %txtver Custom | set %c.norm 12
- 68. ....$iif(13* iswm %c.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm 13
- 69. ....$iif(14* iswm %c.norm,$style(1)) Gray (14):set %txtver Custom | set %c.norm 14
- 70. ....$iif(15* iswm %c.norm,$style(1)) Silver (15):set %txtver Custom | set %c.norm 15
- 71. ....$iif(!%c.norm,$style(1)) Unset:set %txtver Custom | unset %c.norm
- 72. ...$iif((%txtver == Custom) && ($mid(%c.norm,4)),$style(1)) Background
- 73. ....$iif(($mid(%c.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,00
- 74. ....$iif(($mid(%c.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,01
- 75. ....$iif(($mid(%c.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,02
- 76. ....$iif(($mid(%c.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,03
- 77. ....$iif(($mid(%c.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,04
- 78. ....$iif(($mid(%c.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,05
- 79. ....$iif(($mid(%c.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,06
- 80. ....$iif(($mid(%c.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,07
- 81. ....$iif(($mid(%c.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,08
- 82. ....$iif(($mid(%c.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,09
- 83. ....$iif(($mid(%c.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,10
- 84. ....$iif(($mid(%c.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,11
- 85. ....$iif(($mid(%c.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,12
- 86. ....$iif(($mid(%c.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,13
- 87. ....$iif(($mid(%c.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,14
- 88. ....$iif(($mid(%c.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,15
- 89. ....$iif(!$mid(%c.norm,4),$style(1)) Unset:set %txtver Custom | set %c.norm $mid(%c.norm,1,3)
- 90. ...$iif(((%txtver == Custom) && (%c.punc)),$style(1)) Punctuation
- 91. ....$iif(00* iswm %c.punc,$style(1)) White (00):set %txtver Custom | set %c.punc 00
- 92. ....$iif(01* iswm %c.punc,$style(1)) Black (01):set %txtver Custom | set %c.punc 01
- 93. ....$iif(02* iswm %c.punc,$style(1)) Navy (02):set %txtver Custom | set %c.punc 02
- 94. ....$iif(03* iswm %c.punc,$style(1)) Green (03):set %txtver Custom | set %c.punc 03
- 95. ....$iif(04* iswm %c.punc,$style(1)) Red (04):set %txtver Custom | set %c.punc 04
- 96. ....$iif(05* iswm %c.punc,$style(1)) Brown (05):set %txtver Custom | set %c.punc 05
- 97. ....$iif(06* iswm %c.punc,$style(1)) Purple (06):set %txtver Custom | set %c.punc 06
- 98. ....$iif(07* iswm %c.punc,$style(1)) Orange (07):set %txtver Custom | set %c.punc 07
- 99. ....$iif(08* iswm %c.punc,$style(1)) Yellow (08):set %txtver Custom | set %c.punc 08
- 100. ....$iif(09* iswm %c.punc,$style(1)) Lime (09):set %txtver Custom | set %c.punc 09
- 101. ....$iif(10* iswm %c.punc,$style(1)) Teal (10):set %txtver Custom | set %c.punc 10
- 102. ....$iif(11* iswm %c.punc,$style(1)) Aqua (11):set %txtver Custom | set %c.punc 11
- 103. ....$iif(12* iswm %c.punc,$style(1)) Blue (12):set %txtver Custom | set %c.punc 12
- 104. ....$iif(13* iswm %c.punc,$style(1)) Fuchsia (13):set %txtver Custom | set %c.punc 13
- 105. ....$iif(14* iswm %c.punc,$style(1)) Gray (14):set %txtver Custom | set %c.punc 14
- 106. ....$iif(15* iswm %c.punc,$style(1)) Silver (15):set %txtver Custom | set %c.punc 15
- 107. ....$iif(!%c.punc,$style(1)) Unset:set %txtver Custom | unset %c.punc
- 108. ...$iif(((%txtver == Custom) && (%c.caps)),$style(1)) Caps
- 109. ....$iif(00* iswm %c.caps,$style(1)) White (00):set %txtver Custom | set %c.caps 00
- 110. ....$iif(01* iswm %c.caps,$style(1)) Black (01):set %txtver Custom | set %c.caps 01
- 111. ....$iif(02* iswm %c.caps,$style(1)) Navy (02):set %txtver Custom | set %c.caps 02
- 112. ....$iif(03* iswm %c.caps,$style(1)) Green (03):set %txtver Custom | set %c.caps 03
- 113. ....$iif(04* iswm %c.caps,$style(1)) Red (04):set %txtver Custom | set %c.caps 04
- 114. ....$iif(05* iswm %c.caps,$style(1)) Brown (05):set %txtver Custom | set %c.caps 05
- 115. ....$iif(06* iswm %c.caps,$style(1)) Purple (06):set %txtver Custom | set %c.caps 06
- 116. ....$iif(07* iswm %c.caps,$style(1)) Orange (07):set %txtver Custom | set %c.caps 07
- 117. ....$iif(08* iswm %c.caps,$style(1)) Yellow (08):set %txtver Custom | set %c.caps 08
- 118. ....$iif(09* iswm %c.caps,$style(1)) Lime (09):set %txtver Custom | set %c.caps 09
- 119. ....$iif(10* iswm %c.caps,$style(1)) Teal (10):set %txtver Custom | set %c.caps 10
- 120. ....$iif(11* iswm %c.caps,$style(1)) Aqua (11):set %txtver Custom | set %c.caps 11
- 121. ....$iif(12* iswm %c.caps,$style(1)) Blue (12):set %txtver Custom | set %c.caps 12
- 122. ....$iif(13* iswm %c.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %c.caps 13
- 123. ....$iif(14* iswm %c.caps,$style(1)) Gray (14):set %txtver Custom | set %c.caps 14
- 124. ....$iif(15* iswm %c.caps,$style(1)) Silver (15):set %txtver Custom | set %c.caps 15
- 125. ....$iif(!%c.caps,$style(1)) Unset:set %txtver Custom | unset %c.caps
- 126. ...$iif(((%txtver == Custom) && (%c.hnick)),$style(1)) Nick Highlighter
- 127. ....$iif(00* iswm %c.hnick,$style(1)) White (00):set %txtver Custom | set %c.hnick 00
- 128. ....$iif(01* iswm %c.hnick,$style(1)) Black (01):set %txtver Custom | set %c.hnick 01
- 129. ....$iif(02* iswm %c.hnick,$style(1)) Navy (02):set %txtver Custom | set %c.hnick 02
- 130. ....$iif(03* iswm %c.hnick,$style(1)) Green (03):set %txtver Custom | set %c.hnick 03
- 131. ....$iif(04* iswm %c.hnick,$style(1)) Red (04):set %txtver Custom | set %c.hnick 04
- 132. ....$iif(05* iswm %c.hnick,$style(1)) Brown (05):set %txtver Custom | set %c.hnick 05
- 133. ....$iif(06* iswm %c.hnick,$style(1)) Purple (06):set %txtver Custom | set %c.hnick 06
- 134. ....$iif(07* iswm %c.hnick,$style(1)) Orange (07):set %txtver Custom | set %c.hnick 07
- 135. ....$iif(08* iswm %c.hnick,$style(1)) Yellow (08):set %txtver Custom | set %c.hnick 08
- 136. ....$iif(09* iswm %c.hnick,$style(1)) Lime (09):set %txtver Custom | set %c.hnick 09
- 137. ....$iif(10* iswm %c.hnick,$style(1)) Teal (10):set %txtver Custom | set %c.hnick 10
- 138. ....$iif(11* iswm %c.hnick,$style(1)) Aqua (11):set %txtver Custom | set %c.hnick 11
- 139. ....$iif(12* iswm %c.hnick,$style(1)) Blue (12):set %txtver Custom | set %c.hnick 12
- 140. ....$iif(13* iswm %c.hnick,$style(1)) Fuchsia (13):set %txtver Custom | set %c.hnick 13
- 141. ....$iif(14* iswm %c.hnick,$style(1)) Gray (14):set %txtver Custom | set %c.hnick 14
- 142. ....$iif(15* iswm %c.hnick,$style(1)) Silver (15):set %txtver Custom | set %c.hnick 15
- 143. ....$iif(!%c.hnick,$style(1)) Unset:set %txtver Custom | unset %c.hnick
- 144. .-
- 145. .Reset colours:unset %txtver | unset %c.* | echo -a [Colors Off]
- 146.}
- 147.alias c.ereg return (?<=[]})"'.?!:({[]| ['"]| ||^)(?:[DX'O:;x=>][])<ZOPFSGDVX3:;\|=([](?<![ods][fosbvp])|[\Q0xcvuo-><\E][_,.']+[\Q0xcvuo-><\E]|\.o\.)(?=[]})"'.?!:({[]| ['"]| |$)
- 148.alias c.rand.upper.o return $replace($rand(1,7),1,Ø,2,Ò,3,Ó,4,Ô,5,Õ,6,Ö,7,©)
- 149.alias c.rand.lower.o return $replace($rand(1,9),1,ø,2,ò,3,ó,4,ô,5,õ,6,ö,7,ð,8,¤,9,º)
- 150.alias c.rand.hap return $replace($rand(1,6),1,$chr(41),2,›,3,»,4,>,5,$chr(125),6,])
- 151.alias c.rand.unhap return $replace($rand(1,7),1,$chr(40),2,‹,3,«,4,¢,5,<,6,$chr(123),7,[)
- 152.alias c.nicks { var %x 1,%r | while (%x <= $nick(#,0)) && ($len(%r) < 928) { var %r %r $+(\Q,$nick(#,%x),\E) | inc %x } | return (?<=[]})".?`!:({[]| ['"]| |^)( $+ $replace(%r,$chr(32),$chr(124)) $+ )(?=[]})".?!:({[]| |$) }
- 153.#Color-Talker end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement