API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 19th, 2017
90
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.78 KB | None | 0 0
raw download clone embed print report
  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]
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!