API tools faq
paste
Guest User

Untitled

a guest
Dec 9th, 2018
123
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.63 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 == AquaArrows ) { say 06,02-06,12-06,11-06,00>06,01[12,01 $1- 06,01]06,00<06,11-06,12-06,02- | halt }
  6. if ( %txtver == Pink LegoBlocks ) { say 00,13(6)13,06(1)14,01(06 $1- 14)01,06(13)06,13(00) | halt }
  7. if ( %txtver == GreenBoxes ) { say 01,03[09]03,09[00]09,01[00,01 $1- 9,01]00,09[03]09,03[01] | halt }
  8. if ( %txtver == BlueInferno ) { say 11,0|0,11|12,11|11,12|2,12|12,2|6,2|2,6|1,6|6,1|12,1 $1- 6,1|1,6|2,6|6,2|12,2|2,12|11,12|12,11|0,11|11,0| | halt }
  9. if ( %txtver == RainbowColour ) { var %a = 13 6 11 0 9 7 4 | 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 }
  10. if ( %txtver == Shot_Down's Colour 1 ) { var %c.norm 12,01 | var %c.punc 00 | var %c.caps 14 | var %c.hnick 06 }
  11. if ( %txtver == Shot_Down's Colour 2 ) { var %c.norm 04,01 | var %c.punc 00 | var %c.caps 05 | var %c.hnick 14 }
  12. if ( %txtver == Shot_Down's Colour 3 ) { var %c.norm 12,01 | var %c.punc 06 | var %c.caps 09 | var %c.hnick 14 }
  13. if ( %txtver == Shot_Down's Colour 4 ) { var %c.norm 10,01 | var %c.punc 00 | var %c.caps 11 | var %c.hnick 14 }
  14. if ( %txtver == Shot_Down's Colour 5 ) { var %c.norm 14,01 | var %c.punc 04 | var %c.caps 00 | var %c.hnick 04 }
  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-,idgaf,I dont give a fuck,)
  18. if (%emoticon) tokenize 32 $replacexcs($1-,?,?,c.c,ç.ç,c_c,ç_ç,x.x,×.×,x_x,×_×,x-x,×-×,xD,×Ð,;p,;Þ,>.>,¬.¬,<3,♥,:D,:Ð,D:<,Ð:<,:p,:Þ,:P,:Þ,;x,;×,-.-,[-.-])
  19. if (%autoformat) tokenize 32 $regsubex($replacex($1-,dont,don't,aint,ain'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 $+(12,$chr(40),,06,$regsubex($iif($chan,$nick(#,$me).pnick,$me),/^([~&@%+])([~&@%+]*)/,$+(9,$replace(\1,$regml(2),$null),06)),,12,$chr(41),) %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  34. haltdef
  35. }
  36. }
  37. }
  38. }
  39. ON ^*:TEXT:*:#:{
  40. echo $chan $timestamp $+(2,$chr(40),,9,$regsubex($iif($chan,$nick(#,$nick).pnick,$nick),/^([~&@%+])([~&@%+]*)/,$+(9,$replace(\1,$regml(2),$null),12)),,2,$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. .Talkers
  56. ..$iif(%txtver == AquaArrows,$style(3)) Aqua Arrows :set %txtver AquaArrows | echo -a [ $+ %txtver is enabled.]
  57. ..$iif(%txtver == Pink LegoBlocks,$style(3)) Pink Lego Blocks:set %txtver Pink LegoBlocks | echo -a [ $+ %txtver is enabled.]
  58. ..$iif(%txtver == GreenBoxes,$style(3)) Green Boxes:set %txtver GreenBoxes | echo -a [ $+ %txtver is enabled.]
  59. ..$iif(%txtver == BlueInferno,$style(3)) Blue Inferno:set %txtver BlueInferno | echo -a [ $+ %txtver is enabled.]
  60. ..$iif(%txtver == RainbowColour,$style(3)) Rainbow Colour:set %txtver RainbowColour | echo -a [ $+ %txtver is enabled.]
  61. .Coloured Caps/Punctuation
  62. ..$iif(%txtver != Custom,$style(1)) Presets
  63. ...Shot_Down's Colours
  64. ....$iif(%txtver == Shot_Down's Colour 1,$style(3)) Shot_Down's Colour 1:set %txtver Shot_Down's Colour 1 | echo -a [ $+ %txtver is enabled.]
  65. ....$iif(%txtver == Shot_Down's Colour 2,$style(3)) Shot_Down's Colour 2:set %txtver Shot_Down's Colour 2 | echo -a [ $+ %txtver is enabled.]
  66. ....$iif(%txtver == Shot_Down's Colour 3,$style(3)) Shot_Down's Colour 3:set %txtver Shot_Down's Colour 3 | echo -a [ $+ %txtver is enabled.]
  67. ....$iif(%txtver == Shot_Down's Colour 4,$style(3)) Shot_Down's Colour 4:set %txtver Shot_Down's Colour 4 | echo -a [ $+ %txtver is enabled.]
  68. ....$iif(%txtver == Shot_Down's Colour 5,$style(3)) Shot_Down's Colour 5:set %txtver Shot_Down's Colour 5 | echo -a [ $+ %txtver is enabled.]
  69. ..$iif(%txtver == Custom,$style(1)) Custom
  70. ...$iif(((%txtver == Custom) && (%c.norm)),$style(1)) Normal
  71. ....$iif(00* iswm %c.norm,$style(1)) White (00):set %txtver Custom | set %c.norm 00
  72. ....$iif(01* iswm %c.norm,$style(1)) Black (01):set %txtver Custom | set %c.norm 01
  73. ....$iif(02* iswm %c.norm,$style(1)) Navy (02):set %txtver Custom | set %c.norm 02
  74. ....$iif(03* iswm %c.norm,$style(1)) Green (03):set %txtver Custom | set %c.norm 03
  75. ....$iif(04* iswm %c.norm,$style(1)) Red (04):set %txtver Custom | set %c.norm 04
  76. ....$iif(05* iswm %c.norm,$style(1)) Brown (05):set %txtver Custom | set %c.norm 05
  77. ....$iif(06* iswm %c.norm,$style(1)) Purple (06):set %txtver Custom | set %c.norm 06
  78. ....$iif(07* iswm %c.norm,$style(1)) Orange (07):set %txtver Custom | set %c.norm 07
  79. ....$iif(08* iswm %c.norm,$style(1)) Yellow (08):set %txtver Custom | set %c.norm 08
  80. ....$iif(09* iswm %c.norm,$style(1)) Lime (09):set %txtver Custom | set %c.norm 09
  81. ....$iif(10* iswm %c.norm,$style(1)) Teal (10):set %txtver Custom | set %c.norm 10
  82. ....$iif(11* iswm %c.norm,$style(1)) Aqua (11):set %txtver Custom | set %c.norm 11
  83. ....$iif(12* iswm %c.norm,$style(1)) Blue (12):set %txtver Custom | set %c.norm 12
  84. ....$iif(13* iswm %c.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm 13
  85. ....$iif(14* iswm %c.norm,$style(1)) Gray (14):set %txtver Custom | set %c.norm 14
  86. ....$iif(15* iswm %c.norm,$style(1)) Silver (15):set %txtver Custom | set %c.norm 15
  87. ....$iif(!%c.norm,$style(1)) Unset:set %txtver Custom | unset %c.norm
  88. ...$iif((%txtver == Custom) && ($mid(%c.norm,4)),$style(1)) Background
  89. ....$iif(($mid(%c.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,00
  90. ....$iif(($mid(%c.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,01
  91. ....$iif(($mid(%c.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,02
  92. ....$iif(($mid(%c.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,03
  93. ....$iif(($mid(%c.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,04
  94. ....$iif(($mid(%c.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,05
  95. ....$iif(($mid(%c.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,06
  96. ....$iif(($mid(%c.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,07
  97. ....$iif(($mid(%c.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,08
  98. ....$iif(($mid(%c.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,09
  99. ....$iif(($mid(%c.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,10
  100. ....$iif(($mid(%c.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,11
  101. ....$iif(($mid(%c.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,12
  102. ....$iif(($mid(%c.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,13
  103. ....$iif(($mid(%c.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,14
  104. ....$iif(($mid(%c.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,15
  105. ....$iif(!$mid(%c.norm,4),$style(1)) Unset:set %txtver Custom | set %c.norm $mid(%c.norm,1,3)
  106. ...$iif(((%txtver == Custom) && (%c.punc)),$style(1)) Punctuation
  107. ....$iif(00* iswm %c.punc,$style(1)) White (00):set %txtver Custom | set %c.punc 00
  108. ....$iif(01* iswm %c.punc,$style(1)) Black (01):set %txtver Custom | set %c.punc 01
  109. ....$iif(02* iswm %c.punc,$style(1)) Navy (02):set %txtver Custom | set %c.punc 02
  110. ....$iif(03* iswm %c.punc,$style(1)) Green (03):set %txtver Custom | set %c.punc 03
  111. ....$iif(04* iswm %c.punc,$style(1)) Red (04):set %txtver Custom | set %c.punc 04
  112. ....$iif(05* iswm %c.punc,$style(1)) Brown (05):set %txtver Custom | set %c.punc 05
  113. ....$iif(06* iswm %c.punc,$style(1)) Purple (06):set %txtver Custom | set %c.punc 06
  114. ....$iif(07* iswm %c.punc,$style(1)) Orange (07):set %txtver Custom | set %c.punc 07
  115. ....$iif(08* iswm %c.punc,$style(1)) Yellow (08):set %txtver Custom | set %c.punc 08
  116. ....$iif(09* iswm %c.punc,$style(1)) Lime (09):set %txtver Custom | set %c.punc 09
  117. ....$iif(10* iswm %c.punc,$style(1)) Teal (10):set %txtver Custom | set %c.punc 10
  118. ....$iif(11* iswm %c.punc,$style(1)) Aqua (11):set %txtver Custom | set %c.punc 11
  119. ....$iif(12* iswm %c.punc,$style(1)) Blue (12):set %txtver Custom | set %c.punc 12
  120. ....$iif(13* iswm %c.punc,$style(1)) Fuchsia (13):set %txtver Custom | set %c.punc 13
  121. ....$iif(14* iswm %c.punc,$style(1)) Gray (14):set %txtver Custom | set %c.punc 14
  122. ....$iif(15* iswm %c.punc,$style(1)) Silver (15):set %txtver Custom | set %c.punc 15
  123. ....$iif(!%c.punc,$style(1)) Unset:set %txtver Custom | unset %c.punc
  124. ...$iif(((%txtver == Custom) && (%c.caps)),$style(1)) Caps
  125. ....$iif(00* iswm %c.caps,$style(1)) White (00):set %txtver Custom | set %c.caps 00
  126. ....$iif(01* iswm %c.caps,$style(1)) Black (01):set %txtver Custom | set %c.caps 01
  127. ....$iif(02* iswm %c.caps,$style(1)) Navy (02):set %txtver Custom | set %c.caps 02
  128. ....$iif(03* iswm %c.caps,$style(1)) Green (03):set %txtver Custom | set %c.caps 03
  129. ....$iif(04* iswm %c.caps,$style(1)) Red (04):set %txtver Custom | set %c.caps 04
  130. ....$iif(05* iswm %c.caps,$style(1)) Brown (05):set %txtver Custom | set %c.caps 05
  131. ....$iif(06* iswm %c.caps,$style(1)) Purple (06):set %txtver Custom | set %c.caps 06
  132. ....$iif(07* iswm %c.caps,$style(1)) Orange (07):set %txtver Custom | set %c.caps 07
  133. ....$iif(08* iswm %c.caps,$style(1)) Yellow (08):set %txtver Custom | set %c.caps 08
  134. ....$iif(09* iswm %c.caps,$style(1)) Lime (09):set %txtver Custom | set %c.caps 09
  135. ....$iif(10* iswm %c.caps,$style(1)) Teal (10):set %txtver Custom | set %c.caps 10
  136. ....$iif(11* iswm %c.caps,$style(1)) Aqua (11):set %txtver Custom | set %c.caps 11
  137. ....$iif(12* iswm %c.caps,$style(1)) Blue (12):set %txtver Custom | set %c.caps 12
  138. ....$iif(13* iswm %c.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %c.caps 13
  139. ....$iif(14* iswm %c.caps,$style(1)) Gray (14):set %txtver Custom | set %c.caps 14
  140. ....$iif(15* iswm %c.caps,$style(1)) Silver (15):set %txtver Custom | set %c.caps 15
  141. ....$iif(!%c.caps,$style(1)) Unset:set %txtver Custom | unset %c.caps
  142. ...$iif(((%txtver == Custom) && (%c.hnick)),$style(1)) Nick Highlighter
  143. ....$iif(00* iswm %c.hnick,$style(1)) White (00):set %txtver Custom | set %c.hnick 00
  144. ....$iif(01* iswm %c.hnick,$style(1)) Black (01):set %txtver Custom | set %c.hnick 01
  145. ....$iif(02* iswm %c.hnick,$style(1)) Navy (02):set %txtver Custom | set %c.hnick 02
  146. ....$iif(03* iswm %c.hnick,$style(1)) Green (03):set %txtver Custom | set %c.hnick 03
  147. ....$iif(04* iswm %c.hnick,$style(1)) Red (04):set %txtver Custom | set %c.hnick 04
  148. ....$iif(05* iswm %c.hnick,$style(1)) Brown (05):set %txtver Custom | set %c.hnick 05
  149. ....$iif(06* iswm %c.hnick,$style(1)) Purple (06):set %txtver Custom | set %c.hnick 06
  150. ....$iif(07* iswm %c.hnick,$style(1)) Orange (07):set %txtver Custom | set %c.hnick 07
  151. ....$iif(08* iswm %c.hnick,$style(1)) Yellow (08):set %txtver Custom | set %c.hnick 08
  152. ....$iif(09* iswm %c.hnick,$style(1)) Lime (09):set %txtver Custom | set %c.hnick 09
  153. ....$iif(10* iswm %c.hnick,$style(1)) Teal (10):set %txtver Custom | set %c.hnick 10
  154. ....$iif(11* iswm %c.hnick,$style(1)) Aqua (11):set %txtver Custom | set %c.hnick 11
  155. ....$iif(12* iswm %c.hnick,$style(1)) Blue (12):set %txtver Custom | set %c.hnick 12
  156. ....$iif(13* iswm %c.hnick,$style(1)) Fuchsia (13):set %txtver Custom | set %c.hnick 13
  157. ....$iif(14* iswm %c.hnick,$style(1)) Gray (14):set %txtver Custom | set %c.hnick 14
  158. ....$iif(15* iswm %c.hnick,$style(1)) Silver (15):set %txtver Custom | set %c.hnick 15
  159. ....$iif(!%c.hnick,$style(1)) Unset:set %txtver Custom | unset %c.hnick
  160. .-
  161. .Reset colours:unset %txtver | unset %c.* | echo -a [Colours Off]
Add Comment
Please, Sign In to add comment
Public Pastes
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!