API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 29th, 2017
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.40 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:*:{
  8. if (/* iswm $1) { if (%cme) { if (/me == $1) goto process | else return } | else return } | if ($ctrlenter) || ($inpaste) || (@ isin $target) return | else {
  9. :process
  10. 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 }
  11. 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 }
  12. 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])(?<![]^_`\\[])$/),)
  13. if ( %txtver == RainbowColor ) { var %a = 00 09 08 07 04 13 06 12 10 11 | 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 == RainbowCollour2 ) { var %a = 06 12 10 11 00 09 08 07 04 13 | 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 ( %txtver == BMW's Colour 1 ) { var %c.norm 06,01 | var %c.punc 07 | var %c.caps 10 | var %c.hnick 10 }
  16. if ( %txtver == BMW's Colour 2 ) { var %c.norm 12,01 | var %c.punc 08 | var %c.caps 04 | var %c.hnick 00 }
  17. if ( %txtver == BMW's Colour 3 ) { var %c.norm 00,01 | var %c.punc 04 | var %c.caps 13 | var %c.hnick 11 }
  18. if ( %txtver == BMW's Colour 4 ) { var %c.norm 07,01 | var %c.punc 11 | var %c.caps 12 | var %c.hnick 00 }
  19. if ( %txtver == BMW's Colour 5 ) { var %c.norm 06,01 | var %c.punc 11 | var %c.caps 15 | var %c.hnick 15 }
  20. tokenize 32 $strip($1-,c)
  21. if (/me == $1) && (%cme) { tokenize 32 $2- | var %me $true }
  22. 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) }
  23. if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,BUTTERFLY, Ƹ̵̡Ӝ̵̨̄Ʒ,<.<,«.«,CENT,¢,PEE,¶,<3,«3,LOL,~.:Laughing Øut Loud:.~,CUT, ✄,WINGS,☜♥☞,BRB,~.:Bee Are Bee:.~,WTF,~.:What the Flip?:.~,OMG,~.:Øh My Dios!:.~,HB,~.:Hurry Back:.~,STAR,☆,WB,~.:Welcome Back=] :.~,ILY,~.:I «3 You:.~,LMAO,~.:Laughing My Big @ss Øff:.~,DEATH,†,MUSIC,♫,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,~.:Ageless || IT || SupermassiveBlackHole:.~,musica,♪,JK,~.:Just Kidding:.~,LMSO,~.:Laughing My Socks Øff:.~,DOT,•,CROSS,‡,WTH,~.:What The Halibut?!:.,q.q,µ.µ,WTD,~.:What the Devil?!:.~,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!, 웃 ❤ ìœ, if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,BUTTERFLY, Ƹ̵̡Ӝ̵̨̄Ʒ,<.<,«.«,CENT,¢,PEE,¶,<3,«3,LOL,~.:Laughing Øut Loud:.~,CUT, ✄,WINGS,☜♥☞,BRB,~.:Bee Are Bee:.~,WTF,~.:What the Flip?:.~,OMG,~.:Øh My Dios!:.~,HB,~.:Hurry Back:.~,STAR,☆,WB,~.:Welcome Back=] :.~,ILY,~.:I «3 You:.~,LMAO,~.:Laughing My Big @ss Øff:.~,DEATH,†,MUSIC,♫,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,~.:Ageless || IT || SupermassiveBlackHole:.~,musica,♪,JK,~.:Just Kidding:.~,LMSO,~.:Laughing My Socks Øff:.~,DOT,•,CROSS,‡,WTH,~.:What The Halibut?!:.,q.q,µ.µ,WTD,~.:What the Devil?!:.~,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!, 웃 ❤ ìœ,,x,×,X,×,s,§,S,§,D,Ð,d,Ð,p,Þ,P,þ,?,¿?,O,$c.rand.upper.o,o,$c.rand.lower.o,-,?,>.<,[-.-]" )
  24. 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,?))
  25. 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])(?<![]^_`\\[])$/),.)
  26. 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 } }
  27. else tokenize 32 $regsubex($1-,/(?<=[]})".?¿!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $+($me,\E,|\Q,$target) $+ \E)(?=[]})".?¿!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$iif(\1 == $me,$me,$target),))
  28. var %y $chan(0) | while (%y) { tokenize 32 $regsubex($1-,/(?<=[]})".?¿!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $chan(%y) $+ \E)(?=[]})".?¿!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$chan(%y),)) | dec %y }
  29. if (%c.punc) tokenize 32 $regsubex($1-,/((?: $+ $c.ereg $+ |[^A-z\s]|[]^_`\\[])+)/gi,$+(%c.punc,\1,%c.norm))
  30. if (%c.caps) tokenize 32 $regsubex($1-,/(?<=^|[A-z\s]| $+ %c.norm $+ )(?<! $+ %c.punc $+ [A-z])([A-Z]+)(?=[A-z\s]| $+ %c.punc $+ |$)/g,$+( $+ $chr(2) $+ %c.caps,\1,$+ $chr(2) $+ %c.norm))
  31. if (%txtver == BMW's Colour 1) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+( 07• 10,%c.hnick,$strip(\1) 07•))
  32. if (%txtver == BMW's Colour 2) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(08,$chr(40),00,%c.hnick,$strip(\1),%c.punc,08,$chr(41),,
  33. if (%txtver == BMW's Colour 3) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(06,$chr(40),08,%c.hnick,$strip(\1),%c.punc,06,$chr(41),,))
  34. if (%txtver == BMW's Colour 4) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(09,$chr(40),00,%c.hnick,$strip(\1),%c.punc,09,$chr(41),,))
  35. if (%txtver == BMW's Colour 5) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(04,$chr(40),13,%c.hnick,$strip(\1),%c.punc,04,$chr(41),,))
  36. if (%txtver == custom) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(%c.hnick,$strip(\1),%c.punc,))
  37.  
  38. if (%me) me $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  39. else say %txtn $+($iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  40. halt
  41. \ }
  42. }
  43. alias c.ereg return (?<=[]})"'.?¿!:({[]| ['"]| ||^)(?:[DXO:;x=>][])<ZOPFSGDVX3:;\|=([](?<![ods][fosbvp])|[\Q0xcvuo-><\E][_,.']+[\Q0xcvuo-><\E]|\.o\.)(?=[]})"'.?¿!:({[]| ['"]| |$)
  44. alias c.rand.upper.o return $replace($rand(1,7),1,Ø,2,Ò,3,Ó,4,Ô,5,Õ,6,Ö,7,©)
  45. alias c.rand.lower.o return $replace($rand(1,9),1,ø,2,ò,3,ó,4,ô,5,õ,6,ö,7,ð,8,¤,9,º)
  46. alias c.rand.hap return $replace($rand(1,6),1,$chr(41),2,-,3,<,4,>,5,$chr(125),6,])
  47. alias c.rand.unhap return $replace($rand(1,7),1,$chr(40),2,-,3,-,4,>,5,<,6,$chr(123),7,[)
  48. 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)) $+ )(?=[]})".?¿!:({[]| |$) }
  49. Menu *,menubar {
  50. _z3r0_'s shit talker
  51. .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
  52. .-
  53. .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon $true) | echo -a [Emoticons turned $iif(%emoticon,on,off) $+ .]
  54. .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat $true) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
  55. .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym $true) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
  56. .$iif(%addnick,$style(1)) Address Nicks:$iif(%addnick,unset %addnick,set %addnick $true) | echo -a [Address Nicks turned $iif(%addnick,on,off) $+ .]
  57. .$iif(%cme,$style(1)) Coloured /me:$iif(%cme,unset %cme,set %cme $true) | echo -a [Coloured /me turned $iif(%cme,on,off) $+ .]
  58. .-
  59. .$iif(%bold,$style(1)) Bold:$iif(%bold,unset %bold,set %bold $true) | echo -a [Bold turned $iif(%bold,on,off) $+ .]
  60. .$iif(%underline,$style(1)) Underline:$iif(%underline,unset %underline,set %underline $true) | echo -a [Underline turned $iif(%underline,on,off) $+ .]
  61. .-
  62. .Talkers
  63. ..$iif(%txtver == FireColour1,$style(3)) Fire Colour 1:set %txtver FireColour1 | echo -a [ $+ %txtver is enabled.]
  64. ..$iif(%txtver == FireColour2,$style(3)) Fire Colour 2:set %txtver FireColour2 | echo -a [ $+ %txtver is enabled.]
  65. ..$iif(%txtver == RainbowColour,$style(3)) Rainbow Colour:set %txtver RainbowColour | echo -a [ $+ %txtver is enabled.]
  66. ..$iif(%txtver == RainbowColor,$style(3)) Rainbow Colour:set %txtver RainbowColor | echo -a [ $+ %txtver is enabled.]
  67. ..$iif(%txtver == RainbowCollour,$style(3)) Rainbow Colour:set %txtver RainbowCollour | echo -a [ $+ %txtver is enabled.]
  68. .Coloured Caps/Punctuation
  69. ..$iif(%txtver != Custom,$style(1)) Presets
  70. ...BMW's Colour
  71. ....$iif(%txtver == BMW's Colour 1,$style(3)) BMW's Colour 1:set %txtver BMW's Colour 1 | echo -a [ $+ %txtver is enabled.]
  72. ....$iif(%txtver == BMW's Colour 2,$style(3)) BMW's Colour 2:set %txtver BMW's Colour 2 | echo -a [ $+ %txtver is enabled.]
  73. ....$iif(%txtver == BMW's Colour 3,$style(3)) BMW's Colour 3:set %txtver BMW's Colour 3 | echo -a [ $+ %txtver is enabled.]
  74. ....$iif(%txtver == BMW's Colour 4,$style(3)) BMW's Colour 4:set %txtver BMW's Colour 4 | echo -a [ $+ %txtver is enabled.]
  75. ....$iif(%txtver == BMW's Colour 5,$style(3)) BMW's Colour 5:set %txtver BMW's Colour 5 | echo -a [ $+ %txtver is enabled.]
  76. ..$iif(%txtver == Custom,$style(1)) Custom
  77. ...$iif(((%txtver == Custom) && (%c.norm)),$style(1)) Normal
  78. ....$iif(00* iswm %c.norm,$style(1)) White (00):set %txtver Custom | set %c.norm 00
  79. ....$iif(01* iswm %c.norm,$style(1)) Black (01):set %txtver Custom | set %c.norm 01
  80. ....$iif(02* iswm %c.norm,$style(1)) Navy (02):set %txtver Custom | set %c.norm 02
  81. ....$iif(03* iswm %c.norm,$style(1)) Green (03):set %txtver Custom | set %c.norm 03
  82. ....$iif(04* iswm %c.norm,$style(1)) Red (04):set %txtver Custom | set %c.norm 04
  83. ....$iif(05* iswm %c.norm,$style(1)) Brown (05):set %txtver Custom | set %c.norm 05
  84. ....$iif(06* iswm %c.norm,$style(1)) Purple (06):set %txtver Custom | set %c.norm 06
  85. ....$iif(07* iswm %c.norm,$style(1)) Orange (07):set %txtver Custom | set %c.norm 07
  86. ....$iif(08* iswm %c.norm,$style(1)) Yellow (08):set %txtver Custom | set %c.norm 08
  87. ....$iif(09* iswm %c.norm,$style(1)) Lime (09):set %txtver Custom | set %c.norm 09
  88. ....$iif(10* iswm %c.norm,$style(1)) Teal (10):set %txtver Custom | set %c.norm 10
  89. ....$iif(11* iswm %c.norm,$style(1)) Aqua (11):set %txtver Custom | set %c.norm 11
  90. ....$iif(12* iswm %c.norm,$style(1)) Blue (12):set %txtver Custom | set %c.norm 12
  91. ....$iif(13* iswm %c.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm 13
  92. ....$iif(14* iswm %c.norm,$style(1)) Gray (14):set %txtver Custom | set %c.norm 14
  93. ....$iif(15* iswm %c.norm,$style(1)) Silver (15):set %txtver Custom | set %c.norm 15
  94. ....$iif(!%c.norm,$style(1)) Unset:set %txtver Custom | unset %c.norm
  95. ...$iif((%txtver == Custom) && ($mid(%c.norm,4)),$style(1)) Background
  96. ....$iif(($mid(%c.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,00
  97. ....$iif(($mid(%c.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,01
  98. ....$iif(($mid(%c.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,02
  99. ....$iif(($mid(%c.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,03
  100. ....$iif(($mid(%c.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,04
  101. ....$iif(($mid(%c.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,05
  102. ....$iif(($mid(%c.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,06
  103. ....$iif(($mid(%c.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,07
  104. ....$iif(($mid(%c.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,08
  105. ....$iif(($mid(%c.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,09
  106. ....$iif(($mid(%c.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,10
  107. ....$iif(($mid(%c.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,11
  108. ....$iif(($mid(%c.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,12
  109. ....$iif(($mid(%c.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,13
  110. ....$iif(($mid(%c.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,14
  111. ....$iif(($mid(%c.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,15
  112. ....$iif(!$mid(%c.norm,4),$style(1)) Unset:set %txtver Custom | set %c.norm $mid(%c.norm,1,3)
  113. ...$iif(((%txtver == Custom) && (%c.punc)),$style(1)) Punctuation
  114. ....$iif(00* iswm %c.punc,$style(1)) White (00):set %txtver Custom | set %c.punc 00
  115. ....$iif(01* iswm %c.punc,$style(1)) Black (01):set %txtver Custom | set %c.punc 01
  116. ....$iif(02* iswm %c.punc,$style(1)) Navy (02):set %txtver Custom | set %c.punc 02
  117. ....$iif(03* iswm %c.punc,$style(1)) Green (03):set %txtver Custom | set %c.punc 03
  118. ....$iif(04* iswm %c.punc,$style(1)) Red (04):set %txtver Custom | set %c.punc 04
  119. ....$iif(05* iswm %c.punc,$style(1)) Brown (05):set %txtver Custom | set %c.punc 05
  120. ....$iif(06* iswm %c.punc,$style(1)) Purple (06):set %txtver Custom | set %c.punc 06
  121. ....$iif(07* iswm %c.punc,$style(1)) Orange (07):set %txtver Custom | set %c.punc 07
  122. ....$iif(08* iswm %c.punc,$style(1)) Yellow (08):set %txtver Custom | set %c.punc 08
  123. ....$iif(09* iswm %c.punc,$style(1)) Lime (09):set %txtver Custom | set %c.punc 09
  124. ....$iif(10* iswm %c.punc,$style(1)) Teal (10):set %txtver Custom | set %c.punc 10
  125. ....$iif(11* iswm %c.punc,$style(1)) Aqua (11):set %txtver Custom | set %c.punc 11
  126. ....$iif(12* iswm %c.punc,$style(1)) Blue (12):set %txtver Custom | set %c.punc 12
  127. ....$iif(13* iswm %c.punc,$style(1)) Fuchsia (13):set %txtver Custom | set %c.punc 13
  128. ....$iif(14* iswm %c.punc,$style(1)) Gray (14):set %txtver Custom | set %c.punc 14
  129. ....$iif(15* iswm %c.punc,$style(1)) Silver (15):set %txtver Custom | set %c.punc 15
  130. ....$iif(!%c.punc,$style(1)) Unset:set %txtver Custom | unset %c.punc
  131. ...$iif(((%txtver == Custom) && (%c.caps)),$style(1)) Caps
  132. ....$iif(00* iswm %c.caps,$style(1)) White (00):set %txtver Custom | set %c.caps 00
  133. ....$iif(01* iswm %c.caps,$style(1)) Black (01):set %txtver Custom | set %c.caps 01
  134. ....$iif(02* iswm %c.caps,$style(1)) Navy (02):set %txtver Custom | set %c.caps 02
  135. ....$iif(03* iswm %c.caps,$style(1)) Green (03):set %txtver Custom | set %c.caps 03
  136. ....$iif(04* iswm %c.caps,$style(1)) Red (04):set %txtver Custom | set %c.caps 04
  137. ....$iif(05* iswm %c.caps,$style(1)) Brown (05):set %txtver Custom | set %c.caps 05
  138. ....$iif(06* iswm %c.caps,$style(1)) Purple (06):set %txtver Custom | set %c.caps 06
  139. ....$iif(07* iswm %c.caps,$style(1)) Orange (07):set %txtver Custom | set %c.caps 07
  140. ....$iif(08* iswm %c.caps,$style(1)) Yellow (08):set %txtver Custom | set %c.caps 08
  141. ....$iif(09* iswm %c.caps,$style(1)) Lime (09):set %txtver Custom | set %c.caps 09
  142. ....$iif(10* iswm %c.caps,$style(1)) Teal (10):set %txtver Custom | set %c.caps 10
  143. ....$iif(11* iswm %c.caps,$style(1)) Aqua (11):set %txtver Custom | set %c.caps 11
  144. ....$iif(12* iswm %c.caps,$style(1)) Blue (12):set %txtver Custom | set %c.caps 12
  145. ....$iif(13* iswm %c.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %c.caps 13
  146. ....$iif(14* iswm %c.caps,$style(1)) Gray (14):set %txtver Custom | set %c.caps 14
  147. ....$iif(15* iswm %c.caps,$style(1)) Silver (15):set %txtver Custom | set %c.caps 15
  148. ....$iif(!%c.caps,$style(1)) Unset:set %txtver Custom | unset %c.caps
  149. ...$iif(((%txtver == Custom) && (%c.hnick)),$style(1)) Nick Highlighter
  150. ....$iif(00* iswm %c.hnick,$style(1)) White (00):set %txtver Custom | set %c.hnick 00
  151. ....$iif(01* iswm %c.hnick,$style(1)) Black (01):set %txtver Custom | set %c.hnick 01
  152. ....$iif(02* iswm %c.hnick,$style(1)) Navy (02):set %txtver Custom | set %c.hnick 02
  153. ....$iif(03* iswm %c.hnick,$style(1)) Green (03):set %txtver Custom | set %c.hnick 03
  154. ....$iif(04* iswm %c.hnick,$style(1)) Red (04):set %txtver Custom | set %c.hnick 04
  155. ....$iif(05* iswm %c.hnick,$style(1)) Brown (05):set %txtver Custom | set %c.hnick 05
  156. ....$iif(06* iswm %c.hnick,$style(1)) Purple (06):set %txtver Custom | set %c.hnick 06
  157. ....$iif(07* iswm %c.hnick,$style(1)) Orange (07):set %txtver Custom | set %c.hnick 07
  158. ....$iif(08* iswm %c.hnick,$style(1)) Yellow (08):set %txtver Custom | set %c.hnick 08
  159. ....$iif(09* iswm %c.hnick,$style(1)) Lime (09):set %txtver Custom | set %c.hnick 09
  160. ....$iif(10* iswm %c.hnick,$style(1)) Teal (10):set %txtver Custom | set %c.hnick 10
  161. ....$iif(11* iswm %c.hnick,$style(1)) Aqua (11):set %txtver Custom | set %c.hnick 11
  162. ....$iif(12* iswm %c.hnick,$style(1)) Blue (12):set %txtver Custom | set %c.hnick 12
  163. ....$iif(13* iswm %c.hnick,$style(1)) Fuchsia (13):set %txtver Custom | set %c.hnick 13
  164. ....$iif(14* iswm %c.hnick,$style(1)) Gray (14):set %txtver Custom | set %c.hnick 14
  165. ....$iif(15* iswm %c.hnick,$style(1)) Silver (15):set %txtver Custom | set %c.hnick 15
  166. ....$iif(!%c.hnick,$style(1)) Unset:set %txtver Custom | unset %c.hnick
  167. .-
  168. .Reset colours:unset %txtver | unset %c.* | echo -a [Colors Off]
  169. }
  170. alias cset dialog -md cset cset
  171. dialog cset {
  172. title "Colours [/cset]"
  173. size -1 -1 325 187
  174. option dbu
  175. tab "Preset Colours", 8, 5 3 242 179
  176. tab "Custom Colours", 7
  177. box "Options", 1, 250 122 70 59
  178. check "Elite Emotes", 2, 253 131 65 8
  179. check "Automatic Formatting", 3, 253 141 65 8
  180. check "Acronyms", 4, 253 151 65 8
  181. check "Address Nicks", 5, 253 161 65 8
  182. check "Coloured Actions [/me]", 6, 253 171 65 8
  183. }
  184. on *:dialog:cset:*:*:{
  185. if ($devent == init) {
  186. if (%emoticon) did -c $dname 2
  187. if (%autoformat) did -c $dname 3
  188. if (%acronym) did -c $dname 4
  189. if (%addnick) did -c $dname 5
  190. if (%cme) did -c $dname 6
  191. }
  192. if ($devent == sclick) {
  193. if ($did == 2) { did - $+ $iif(%emoticon,u,c) $dname $did | $iif(%emoticon,unset %emoticon,set %emoticon $true) }
  194. if ($did == 3) { did - $+ $iif(%autoformat,u,c) $dname $did | $iif(%autoformat,unset %autoformat,set %autoformat $true) }
  195. if ($did == 4) { did - $+ $iif(%acronym,u,c) $dname $did | $iif(%acronym,unset %acronym,set %acronym $true) }
  196. if ($did == 5) { did - $+ $iif(%addnick,u,c) $dname $did | $iif(%addnick,unset %addnick,set %addnick $true) }
  197. if ($did == 6) { did - $+ $iif(%cme,u,c) $dname $did | $iif(%cme,unset %cme,set %cme $true) }
  198. }
  199. }
  200.  
  201.  
  202.  
  203.  
  204. alias /ctype {
  205. if ($1 == light) { /set %colortype light }
  206. if ($1 == dark) { /set %colortype dark }
  207. }
  208. alias /cbold {
  209. if ($1 == on) { /set %colorbold on }
  210. if ($1 == off) { /set %colorbold off }
  211. }
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!