API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 21st, 2017
61
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.32 KB | None | 0 0
raw download clone embed print report
  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 (!op == $1) return
  11. if (!k == $1) return
  12. if (!kb == $1) return
  13. if (!ban == $1) return
  14. if (!halfop == $1) return
  15. if (!protect == $1) return
  16. if (!voice == $1) return
  17. if (!halfop == $1) return
  18. if (!owner == $1) return
  19. if (!deop == $1) return
  20. if (!dehalfop == $1) return
  21. if (!deprotect == $1) return
  22. if (!devoice == $1) return
  23. if (!dehalfop == $1) return
  24. if (!deowner == $1) return
  25. if ( %txtver == Butterflies ) { say 13,1ɛȉɜ3 $1- 13,1ɛȉɜ | halt }
  26. 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) }
  27. if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,<.<,«.«,BRB,-Be Right Back-,HB,-Hurry Back-,WB,-Welcome Back-,ILY,-I <3 You-,ROFLMAO,-Rolling On Floor Laughing My Ass Off-,LMAO,-Laughing My Ass Off-,ROFL,-Rolling On Floor Laughing-,BBL,-Be Back Later-,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-,)
  28. 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,ƒ))
  29. 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])(?<![]^_`\\[])$/),)
  30.  
  31. 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 } }
  32. else tokenize 32 $regsubex($1-,/(?<=[]})"'.?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $+($me,\E,|\Q,$target) $+ \E)(?=[]})"'.?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$iif(\1 == $me,$me,$target),))
  33. var %y $chan(0) | while (%y) { tokenize 32 $regsubex($1-,/(?<=[]})".?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $chan(%y) $+ \E)(?=[]})".?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$chan(%y),)) | dec %y }
  34.  
  35. if (%c.punc) tokenize 32 $regsubex($1-,/((?: $+ $c.ereg $+ |[^A-z\s]|[]^_`\\[])+)/gi,$+(,%c.punc,\1,%c.norm))
  36. 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))
  37.  
  38. tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(,2,%c.hnick,$strip(\1),%c.norm,))
  39. .msg $target %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  40. echo $target $timestamp $+(4,$chr(40),,9,$regsubex($iif($chan,$nick(#,$me).pnick,$me),/^([~&@%+])([~&@%+]*)/,$+(4,$replace(\1,$regml(2),$null),14)),,4,$chr(41),) %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  41. haltdef
  42. }
  43. }
  44. }
  45. }
  46. ON ^*:TEXT:*:#:{
  47. echo $chan $timestamp $+(4,$chr(40),,9,$regsubex($iif($chan,$nick(#,$nick).pnick,$nick),/^([~&@%+])([~&@%+]*)/,$+(9,$replace(\1,$regml(2),$null),4)),,4,$chr(41),) 14 $+ $1-
  48. haltdef
  49. }
  50. ON *:TEXT:*:#:{
  51. if $left($1,3) == §€¥ {
  52. if $r.set(Invision,Decrypt) == On {
  53. set -u0 %rtndc $decrypt($1-)
  54. if %rtndc == §§§ {
  55. echo -a $nick on $chan $c(2) $+ Your key did not match that used to encrypt. $bracket(Decryption Failed)
  56. }
  57. else { echo -a $nick on $chan $c(1) $+ DECRYPTED: $c(1) $+ < $+ $c(2) $+ $nick $+ $c(1) $+ >  $+ $decrypt($1-) }
  58. }
  59. }
  60. if $left($1,3) == §ť {
  61. if $r.set(Invision,Decrypt) == On {
  62. echo -a $nick on $chan $ts $c(1) $+ DECRYPTED: $c(1) $+ < $+ $c(2) $+ $nick $+ $c(1) $+ >  $+ $decrypt2($1-)
  63. }
  64. }
  65. if $left($1,3) == ] {
  66. if $2 != $null && $r.set(Invision,Decrypt) == On {
  67. crypt 1 $r.set(Invision,CryptKey) $2-
  68. echo -a $nick on $chan $c(1) $+ < $+  $+ $nick - $c(2) $+ ircN Decrypt $+ $c(1) $+ >  $+ $result
  69. haltdef
  70. }
  71. }
  72. }
  73. Menu *,menubar {
  74. $me $+ 's Exclusive Talker
  75. .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
  76. .-
  77. .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon 1) | echo -a [Emoticons turned $iif(%emoticon,on,off) $+ .]
  78. .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat 1) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
  79. .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym 1) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
  80. .$iif(%addnick,$style(1)) Address Nicks:$iif(%addnick,unset %addnick,set %addnick 1) | echo -a [Address Nicks turned $iif(%addnick,on,off) $+ .]
  81. .-
  82. .$iif(%bold,$style(1)) Bold:$iif(%bold,unset %bold,set %bold 1) | echo -a [Bold turned $iif(%bold,on,off) $+ .]
  83. .$iif(%underline,$style(1)) Underline:$iif(%underline,unset %underline,set %underline 1) | echo -a [Underline turned $iif(%underline,on,off) $+ .]
  84. .-
  85. .Talkers
  86. ..$iif(%txtver == Butterflies,$style(3)) Butterflies:set %txtver Butterflies | echo -a [ $+ %txtver is enabled.]
  87. }
  88. on ^*:TEXT:*:?: {
  89. echo $nick $theme.text($nick, $address, $nick, $1-)
  90. haltdef
  91. }
  92. alias theme.text {
  93. return $timestamp 4(14 $+ $1 $+ 4)15 $4-
  94. }
  95. ON ^*:action:*:#:{
  96. echo $chan $timestamp $+(4,$chr(40),,9,$regsubex($iif($chan,$nick(#,$nick).pnick,$nick),/^([~&@%+])([~&@%+]*)/,$+(9,$replace(\1,$regml(2),$null),4)),,4,$chr(41),) * 14 $+ $1-
  97. haltdef
  98. }
  99. alias came ame %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  100. alias cme describe $active %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  101. alias c.ereg return (?<=[]})"'.?!:({[]| ['"]| ||^)(?:[DX'O:;x=>][])<ZOPFSGDVX3:;\|=([](?<![ods][fosbvp])|[\Q0xcvuo-><\E][_,.']+[\Q0xcvuo-><\E]|\.o\.)(?=[]})"'.?!:({[]| ['"]| |$)
  102. alias c.rand.upper.o return $replace($rand(1,7),1,Ø,2,Ò,3,Ó,4,Ô,5,Õ,6,Ö,7,©)
  103. alias c.rand.lower.o return $replace($rand(1,9),1,ø,2,ò,3,ó,4,ô,5,õ,6,ö,7,ð,8,¤,9,º)
  104. alias c.rand.hap return $replace($rand(1,6),1,$chr(41),2,›,3,»,4,>,5,$chr(125),6,])
  105. alias c.rand.unhap return $replace($rand(1,7),1,$chr(40),2,‹,3,«,4,¢,5,<,6,$chr(123),7,[)
  106. 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)) $+ )(?=[]})".?!:({[]| |$) }
  107. #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!