API tools faq
paste
Guest User

Untitled

a guest
Oct 23rd, 2017
73
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 18.86 KB | None | 0 0
raw download clone embed print report
  1. ON *:INPUT:*:{
  2. if (/* iswm $1) { if (%cme) { if (/me == $1) goto process | else return } | else return } | if ($ctrlenter) || ($inpaste) || (@* isin $target) return | else {
  3. :process
  4. 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 }
  5. 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 }
  6. if ( %txtver == RainbowColour ) { var %a = 04 07 08 09 11 12 06 | msg $target $chr(2) $+ $regsubex($1-,/([^ ])/g,$+($chr(3),$gettok(%a,$iif($calc(\n % $numtok(%a,32)),$v1,$numtok(%a,32)),32),$chr(44),01,\1)) | halt }
  7. if ( %txtver == Monique's Colour 1 ) { var %c.norm 03,01 | var %c.punc 09 | var %c.caps 09 | var %c.hnick 09 }
  8. if ( %txtver == Monique's Colour 2 ) { var %c.norm 07,01 | var %c.punc 09 | var %c.caps 09 | var %c.hnick 09 }
  9. if ( %txtver == Monique's Colour 3 ) { var %c.norm 06,01 | var %c.punc 13 | var %c.caps 13 | var %c.hnick 13 }
  10. if ( %txtver == Monique's Colour 4 ) { var %c.norm 11,01 | var %c.punc 10 | var %c.caps 10 | var %c.hnick 10 }
  11. if ( %txtver == Monique's Colour 5 ) { var %c.norm 04,01 | var %c.punc 07 | var %c.caps 07 | var %c.hnick 07 }
  12. tokenize 32 $strip($1-,c)
  13. if (/me == $1) && (%cme) { tokenize 32 $2- | var %me $true }
  14. 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) }
  15. if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,<.<,«.«,FAD,-Fuck A Duck-,LOL,-Laughing Out Loud-,HLI,- Hey L◕_◕K it's-,HTFB,-Hurry The Fuck Back-,HUCAB,-Hurry Your Candy Ass Back-,NM,-Nothin Much-,BRB,-Be Right Back-,FU,-Fuck U-,HB,-Hurry Back-,WB,-Welcome Back-,ILY,-I «3 You-,ROFLMAO,-Rolling On Floor Laughing My Ass Off-,WTD,-What The Deuce-,LMAO,-Laughing My Ass Off-,ROFL,-Rolling On Floor Laughing-,BBL,-Be Back Later-,DF,-Da Fuck?-,SMD,-Suck My Dick-,FML,-Fuck My Life-,LOOK,-L◕_◕K-,OMFG,-Oh My Fucking Gawd-,BBIAB,-Be Back In A Bit-,STFU,-Shut The Fuck Up-,BBIAF,-Be Back In A Few-,HAY,-How About You?-,SMC,-Suck My Clit-,BBS,-Be Back Soon-,WTHM,-What The Hell Marjani-,LY,-♥ℒ㍵ಲ ᵞℴᶷ♥-,PMSL,-Pissing Myself Laughing-,WTFF,-What The Fapping Fuck!-,SUA,-Shush U Applesauce-,TBH,-To Be Honest-,TYVM,-Thank You Very Much-,TTYL,-Talk To You Later-,OMGG,-Oh My Gawd!-,TY,-Thank You-,YW,-You're Welcome-,OMG,-Oh My God-,ASAP,-As Soon As Possible-,AFAIK,-As Far As I Know-,TTYS,-Talk To You Soon-,AFK,-Away From Keyboard-,KAM,-Kam Is The Best Friend I Could Ever Have-,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-,AGE,-State Your Age Please? Or I May Accidentally Kick You!-,EF,-Epic Fail-,YVW,-You're Very Welcome-,WTF,-What The Fuck!!-,HYSAB,-Hurry Your Sweet Ass Back!-,ATM,-At The Moment-,TAGE,-Type Your Age Like This !18 With The ! In Front Before The Bot KICKS YOU-,NICK,-To Change Your Nick Type /nick <new nick here>-,LMHAO,-Laughing My Hairy Ass Off-,KMDB,-Kiss My Dick Bitch-,IKR,-I Know Right?-,OML,-Oh My Lanta-,FS,-Fuck Salt-,OOPS,-I'm So Fucking Sorry-,NBD,-No Big Deal-,JS,-Just Sayin'-,SMPF,-Suck My Piss Flaps-,JJIA,-JayJay Is Amazing-,BFF,-Best Friends Forever-,FFS,-For Fuck Sakes-,YFAL,-You Fail At Life-,GTFO,-Get The Fuck Out-,GTFI,-Get The Fuck In-,SMH,-Shakin' Mah Head Foo'-,IDK,-I Don't Know-,IDC,-I Dont Care-,DG,-Dad Gum-,LMFAO,-Laughing My Fucking Ass Off-,HJB,-Holy Jizz Balls-,(),(•_•),<>, Ƹ̵̡Ӝ̵̨̄Ʒ ,E>, ❥❥,<33,❤❤❤❤,*, ☆,<3,♥ ♥ ♥,SRSLY,-Cereally-,crown, ?)
  16. 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,ƒ))
  17. 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])(?<![]^_`\\[])$/),.)
  18.  
  19. 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 } }
  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. if (%txtver == Monique's Colour 1) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(03,$chr(40),09,%c.hnick,$strip(\1),%c.punc,03,$chr(41),,))
  27. if (%txtver == Monique's Colour 2) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(07,$chr(40),09,%c.hnick,$strip(\1),%c.punc,07,$chr(41),,))
  28. if (%txtver == Monique's Colour 3) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(06,$chr(40),06,%c.hnick,$strip(\1),%c.punc,06,$chr(41),,))
  29. if (%txtver == Monique's Colour 4) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(11,$chr(40),07,%c.hnick,$strip(\1),%c.punc,11,$chr(41),,))
  30. if (%txtver == Monique'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),,))
  31. if (%txtver == custom) tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(%c.hnick,$strip(\1),%c.punc,))
  32.  
  33.  
  34. if (%me) me $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  35. else say %txtn $+($iif(%underline,),$iif(%bold,),%c.norm,$1-,)
  36. halt
  37. }
  38. }
  39.  
  40. alias c.ereg return (?<=[]})"'.?¿!:({[]| ['"]| ||^)(?:[DXO:;x=>][])<ZOPFSGDVX3:;\|=([](?<![ods][fosbvp])|[\Q0xcvuo-><\E][_,.']+[\Q0xcvuo-><\E]|\.o\.)(?=[]})"'.?¿!:({[]| ['"]| |$)
  41. alias c.rand.upper.o return $replace($rand(1,7),1,Ø,2,Ò,3,Ó,4,Ô,5,Õ,6,Ö,7,©)
  42. alias c.rand.lower.o return $replace($rand(1,9),1,ø,2,ò,3,ó,4,ô,5,õ,6,ö,7,ð,8,¤,9,º)
  43. alias c.rand.hap return $replace($rand(1,6),1,$chr(41),2,›,3,»,4,>,5,$chr(125),6,])
  44. alias c.rand.unhap return $replace($rand(1,7),1,$chr(40),2,‹,3,«,4,¢,5,<,6,$chr(123),7,[)
  45. 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)) $+ )(?=[]})".?¿!:({[]| |$) }
  46.  
  47. Menu *,menubar {
  48. Florentinoz's Exclusive Talker
  49. .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
  50. .-
  51. .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon $true) | echo -a [Emoticons turned $iif(%emoticon,on,off) $+ .]
  52. .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat $true) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
  53. .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym $true) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
  54. .$iif(%addnick,$style(1)) Address Nicks:$iif(%addnick,unset %addnick,set %addnick $true) | echo -a [Address Nicks turned $iif(%addnick,on,off) $+ .]
  55. .$iif(%cme,$style(1)) Coloured /me:$iif(%cme,unset %cme,set %cme $true) | echo -a [Coloured /me turned $iif(%cme,on,off) $+ .]
  56. .-
  57. .$iif(%bold,$style(1)) Bold:$iif(%bold,unset %bold,set %bold $true) | echo -a [Bold turned $iif(%bold,on,off) $+ .]
  58. .$iif(%underline,$style(1)) Underline:$iif(%underline,unset %underline,set %underline $true) | echo -a [Underline turned $iif(%underline,on,off) $+ .]
  59. .-
  60. .Talkers
  61. ..$iif(%txtver == FireColour1,$style(3)) Fire Colour 1:set %txtver FireColour1 | echo -a [ $+ %txtver is enabled.]
  62. ..$iif(%txtver == FireColour2,$style(3)) Fire Colour 2:set %txtver FireColour2 | echo -a [ $+ %txtver is enabled.]
  63. ..$iif(%txtver == RainbowColour,$style(3)) Rainbow Colour:set %txtver RainbowColour | echo -a [ $+ %txtver is enabled.]
  64. .Coloured Caps/Punctuation
  65. ..$iif(%txtver != Custom,$style(1)) Presets
  66. ...Monique's Colour
  67. ....$iif(%txtver == Monique's Colour 1,$style(3)) Monique's Colour 1:set %txtver Monique's Colour 1 | echo -a [ $+ %txtver is enabled.]
  68. ....$iif(%txtver == Monique's Colour 2,$style(3)) Monique's Colour 2:set %txtver Monique's Colour 2 | echo -a [ $+ %txtver is enabled.]
  69. ....$iif(%txtver == Monique's Colour 3,$style(3)) Monique's Colour 3:set %txtver Monique's Colour 3 | echo -a [ $+ %txtver is enabled.]
  70. ....$iif(%txtver == Monique's Colour 4,$style(3)) Monique's Colour 4:set %txtver Monique's Colour 4 | echo -a [ $+ %txtver is enabled.]
  71. ....$iif(%txtver == Monique's Colour 5,$style(3)) Monique's Colour 5:set %txtver Monique's Colour 5 | echo -a [ $+ %txtver is enabled.]
  72. ..$iif(%txtver == Custom,$style(1)) Custom
  73. ...$iif(((%txtver == Custom) && (%c.norm)),$style(1)) Normal
  74. ....$iif(00* iswm %c.norm,$style(1)) White (00):set %txtver Custom | set %c.norm 00
  75. ....$iif(01* iswm %c.norm,$style(1)) Black (01):set %txtver Custom | set %c.norm 01
  76. ....$iif(02* iswm %c.norm,$style(1)) Navy (02):set %txtver Custom | set %c.norm 02
  77. ....$iif(03* iswm %c.norm,$style(1)) Green (03):set %txtver Custom | set %c.norm 03
  78. ....$iif(04* iswm %c.norm,$style(1)) Red (04):set %txtver Custom | set %c.norm 04
  79. ....$iif(05* iswm %c.norm,$style(1)) Brown (05):set %txtver Custom | set %c.norm 05
  80. ....$iif(06* iswm %c.norm,$style(1)) Purple (06):set %txtver Custom | set %c.norm 06
  81. ....$iif(07* iswm %c.norm,$style(1)) Orange (07):set %txtver Custom | set %c.norm 07
  82. ....$iif(08* iswm %c.norm,$style(1)) Yellow (08):set %txtver Custom | set %c.norm 08
  83. ....$iif(09* iswm %c.norm,$style(1)) Lime (09):set %txtver Custom | set %c.norm 09
  84. ....$iif(10* iswm %c.norm,$style(1)) Teal (10):set %txtver Custom | set %c.norm 10
  85. ....$iif(11* iswm %c.norm,$style(1)) Aqua (11):set %txtver Custom | set %c.norm 11
  86. ....$iif(12* iswm %c.norm,$style(1)) Blue (12):set %txtver Custom | set %c.norm 12
  87. ....$iif(13* iswm %c.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm 13
  88. ....$iif(14* iswm %c.norm,$style(1)) Gray (14):set %txtver Custom | set %c.norm 14
  89. ....$iif(15* iswm %c.norm,$style(1)) Silver (15):set %txtver Custom | set %c.norm 15
  90. ....$iif(!%c.norm,$style(1)) Unset:set %txtver Custom | unset %c.norm
  91. ...$iif((%txtver == Custom) && ($mid(%c.norm,4)),$style(1)) Background
  92. ....$iif(($mid(%c.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,00
  93. ....$iif(($mid(%c.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,01
  94. ....$iif(($mid(%c.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,02
  95. ....$iif(($mid(%c.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,03
  96. ....$iif(($mid(%c.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,04
  97. ....$iif(($mid(%c.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,05
  98. ....$iif(($mid(%c.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,06
  99. ....$iif(($mid(%c.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,07
  100. ....$iif(($mid(%c.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,08
  101. ....$iif(($mid(%c.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,09
  102. ....$iif(($mid(%c.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,10
  103. ....$iif(($mid(%c.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,11
  104. ....$iif(($mid(%c.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,12
  105. ....$iif(($mid(%c.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,13
  106. ....$iif(($mid(%c.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,14
  107. ....$iif(($mid(%c.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,15
  108. ....$iif(!$mid(%c.norm,4),$style(1)) Unset:set %txtver Custom | set %c.norm $mid(%c.norm,1,3)
  109. ...$iif(((%txtver == Custom) && (%c.punc)),$style(1)) Punctuation
  110. ....$iif(00* iswm %c.punc,$style(1)) White (00):set %txtver Custom | set %c.punc 00
  111. ....$iif(01* iswm %c.punc,$style(1)) Black (01):set %txtver Custom | set %c.punc 01
  112. ....$iif(02* iswm %c.punc,$style(1)) Navy (02):set %txtver Custom | set %c.punc 02
  113. ....$iif(03* iswm %c.punc,$style(1)) Green (03):set %txtver Custom | set %c.punc 03
  114. ....$iif(04* iswm %c.punc,$style(1)) Red (04):set %txtver Custom | set %c.punc 04
  115. ....$iif(05* iswm %c.punc,$style(1)) Brown (05):set %txtver Custom | set %c.punc 05
  116. ....$iif(06* iswm %c.punc,$style(1)) Purple (06):set %txtver Custom | set %c.punc 06
  117. ....$iif(07* iswm %c.punc,$style(1)) Orange (07):set %txtver Custom | set %c.punc 07
  118. ....$iif(08* iswm %c.punc,$style(1)) Yellow (08):set %txtver Custom | set %c.punc 08
  119. ....$iif(09* iswm %c.punc,$style(1)) Lime (09):set %txtver Custom | set %c.punc 09
  120. ....$iif(10* iswm %c.punc,$style(1)) Teal (10):set %txtver Custom | set %c.punc 10
  121. ....$iif(11* iswm %c.punc,$style(1)) Aqua (11):set %txtver Custom | set %c.punc 11
  122. ....$iif(12* iswm %c.punc,$style(1)) Blue (12):set %txtver Custom | set %c.punc 12
  123. ....$iif(13* iswm %c.punc,$style(1)) Fuchsia (13):set %txtver Custom | set %c.punc 13
  124. ....$iif(14* iswm %c.punc,$style(1)) Gray (14):set %txtver Custom | set %c.punc 14
  125. ....$iif(15* iswm %c.punc,$style(1)) Silver (15):set %txtver Custom | set %c.punc 15
  126. ....$iif(!%c.punc,$style(1)) Unset:set %txtver Custom | unset %c.punc
  127. ...$iif(((%txtver == Custom) && (%c.caps)),$style(1)) Caps
  128. ....$iif(00* iswm %c.caps,$style(1)) White (00):set %txtver Custom | set %c.caps 00
  129. ....$iif(01* iswm %c.caps,$style(1)) Black (01):set %txtver Custom | set %c.caps 01
  130. ....$iif(02* iswm %c.caps,$style(1)) Navy (02):set %txtver Custom | set %c.caps 02
  131. ....$iif(03* iswm %c.caps,$style(1)) Green (03):set %txtver Custom | set %c.caps 03
  132. ....$iif(04* iswm %c.caps,$style(1)) Red (04):set %txtver Custom | set %c.caps 04
  133. ....$iif(05* iswm %c.caps,$style(1)) Brown (05):set %txtver Custom | set %c.caps 05
  134. ....$iif(06* iswm %c.caps,$style(1)) Purple (06):set %txtver Custom | set %c.caps 06
  135. ....$iif(07* iswm %c.caps,$style(1)) Orange (07):set %txtver Custom | set %c.caps 07
  136. ....$iif(08* iswm %c.caps,$style(1)) Yellow (08):set %txtver Custom | set %c.caps 08
  137. ....$iif(09* iswm %c.caps,$style(1)) Lime (09):set %txtver Custom | set %c.caps 09
  138. ....$iif(10* iswm %c.caps,$style(1)) Teal (10):set %txtver Custom | set %c.caps 10
  139. ....$iif(11* iswm %c.caps,$style(1)) Aqua (11):set %txtver Custom | set %c.caps 11
  140. ....$iif(12* iswm %c.caps,$style(1)) Blue (12):set %txtver Custom | set %c.caps 12
  141. ....$iif(13* iswm %c.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %c.caps 13
  142. ....$iif(14* iswm %c.caps,$style(1)) Gray (14):set %txtver Custom | set %c.caps 14
  143. ....$iif(15* iswm %c.caps,$style(1)) Silver (15):set %txtver Custom | set %c.caps 15
  144. ....$iif(!%c.caps,$style(1)) Unset:set %txtver Custom | unset %c.caps
  145. ...$iif(((%txtver == Custom) && (%c.hnick)),$style(1)) Nick Highlighter
  146. ....$iif(00* iswm %c.hnick,$style(1)) White (00):set %txtver Custom | set %c.hnick 00
  147. ....$iif(01* iswm %c.hnick,$style(1)) Black (01):set %txtver Custom | set %c.hnick 01
  148. ....$iif(02* iswm %c.hnick,$style(1)) Navy (02):set %txtver Custom | set %c.hnick 02
  149. ....$iif(03* iswm %c.hnick,$style(1)) Green (03):set %txtver Custom | set %c.hnick 03
  150. ....$iif(04* iswm %c.hnick,$style(1)) Red (04):set %txtver Custom | set %c.hnick 04
  151. ....$iif(05* iswm %c.hnick,$style(1)) Brown (05):set %txtver Custom | set %c.hnick 05
  152. ....$iif(06* iswm %c.hnick,$style(1)) Purple (06):set %txtver Custom | set %c.hnick 06
  153. ....$iif(07* iswm %c.hnick,$style(1)) Orange (07):set %txtver Custom | set %c.hnick 07
  154. ....$iif(08* iswm %c.hnick,$style(1)) Yellow (08):set %txtver Custom | set %c.hnick 08
  155. ....$iif(09* iswm %c.hnick,$style(1)) Lime (09):set %txtver Custom | set %c.hnick 09
  156. ....$iif(10* iswm %c.hnick,$style(1)) Teal (10):set %txtver Custom | set %c.hnick 10
  157. ....$iif(11* iswm %c.hnick,$style(1)) Aqua (11):set %txtver Custom | set %c.hnick 11
  158. ....$iif(12* iswm %c.hnick,$style(1)) Blue (12):set %txtver Custom | set %c.hnick 12
  159. ....$iif(13* iswm %c.hnick,$style(1)) Fuchsia (13):set %txtver Custom | set %c.hnick 13
  160. ....$iif(14* iswm %c.hnick,$style(1)) Gray (14):set %txtver Custom | set %c.hnick 14
  161. ....$iif(15* iswm %c.hnick,$style(1)) Silver (15):set %txtver Custom | set %c.hnick 15
  162. ....$iif(!%c.hnick,$style(1)) Unset:set %txtver Custom | unset %c.hnick
  163. .-
  164. .Reset colours:unset %txtver | unset %c.* | echo -a [Colors Off]
  165. }
  166. alias cset dialog -md cset cset
  167. dialog cset {
  168. title "Colours [/cset]"
  169. size -1 -1 325 187
  170. option dbu
  171. tab "Preset Colours", 8, 5 3 242 179
  172. tab "Custom Colours", 7
  173. box "Options", 1, 250 122 70 59
  174. check "Elite Emotes", 2, 253 131 65 8
  175. check "Automatic Formatting", 3, 253 141 65 8
  176. check "Acronyms", 4, 253 151 65 8
  177. check "Address Nicks", 5, 253 161 65 8
  178. check "Coloured Actions [/me]", 6, 253 171 65 8
  179. }
  180. on *:dialog:cset:*:*:{ }
  181. if ($devent == init) {
  182. if (%emoticon) did -c $dname 2
  183. if (%autoformat) did -c $dname 3
  184. if (%acronym) did -c $dname 4
  185. if (%addnick) did -c $dname 5
  186. if (%cme) did -c $dname 6
  187. }
  188. if ($devent == sclick) {
  189. if ($did == 2) { did - $+ $iif(%emoticon,u,c) $dname $did | $iif(%emoticon,unset %emoticon,set %emoticon $true) }
  190. if ($did == 3) { did - $+ $iif(%autoformat,u,c) $dname $did | $iif(%autoformat,unset %autoformat,set %autoformat $true) }
  191. if ($did == 4) { did - $+ $iif(%acronym,u,c) $dname $did | $iif(%acronym,unset %acronym,set %acronym $true) }
  192. if ($did == 5) { did - $+ $iif(%addnick,u,c) $dname $did | $iif(%addnick,unset %addnick,set %addnick $true) }
  193. if ($did == 6) { did - $+ $iif(%cme,u,c) $dname $did | $iif(%cme,unset %cme,set %cme $true) }
  194. }
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!