Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; -------------------------------------------------
- ; --------- Gummo's Colour Script v4.5 ----------
- ; -------------------------------------------------
- #gum.colour on
- on *:input:*: {
- ; Don't try to do anything if we typed a command or pasted a lot of text (or if we pressed ctrl+enter, see below)
- if (/* iswm $1) || ($inpaste) return
- elseif ($ctrlenter) {
- ; Allow easy setting of modes (if enabled). +/- modes with ctrl+enter will set them in a channel. Arguments allowed.
- if (%gum.colour.easymodes) && ($me ison $target) && ($regex($1-,/^(?:[+-][a-z]+)+/i)) {
- mode $target $1-
- haltdef
- }
- return
- }
- ; Don't colour messages in certain rooms to avoid annoying people and/or to your preference. This line is optional.
- if ($istok(#Staff #Oper #Opers #Services #Services-Log #Log #Support #Appeals #Abuse,$target,32)) return
- ; Stop the script if the channel blocks coloured messages (channel mode +c)
- ; Note the $gettok since 'c' can exist in one of the arguments. I've had trouble with that previously.
- if (c isincs $gettok($chan($target).mode,1,32)) return
- ; Point of no return! We've stopped mIRC's default actions now, so we have to send the message.
- haltdef
- ; Don't edit the following three lines. They create temporary variables from the permanent ones for simplicity.
- var %bg %gum.colour.background, %txt $+ %gum.colour.text, %punc $+ %gum.colour.punctuation
- var %caps $+ %gum.colour.capitals, %nick $+ %gum.colour.nicknames
- var %punc2 $+ $base($right(%punc,-1),10,10,2), %punc3 $+(%punc,$chr(44),%bg)
- ; Preparing various variables
- var %regex, %chanregex, %nicks, %chans, %chanlist, %text $remove($strip($1-,rc),), %i 1
- ; Create a list of channels to be matched in the text, escaped to prepare it for regex.
- while ($chan(%i)) {
- %chanlist = $+(%chanlist,|\Q,$v1,\E)
- inc %i
- }
- ; Set the channel regular expression (for finding channels, both in channel and PM)
- %chanregex = /(?<=\s|[(,+%@&~?!]|(?<!\w)[])(?=#[^\s,+%@&~]{3})( $+ $right(%chanlist,-1) $+ )(?=[[:punct:]]*[\s,]|[](?!\w))/gi
- ; Set a slightly different nickname regular expression for queries as opposed to channels
- ; Queries only match you and the nick you PM, while channels match any possible nickname (and channel) to avoid big loops
- if ($query($target)) %regex = /(?<=\s[{[]?|(?<!\w)[]|[.,'"<(+%@&~/\\])(\Q $+ $me $+ \E|\Q $+ $v1 $+ \E)(?=[[:punct:]]*\s|['"/\\=*@.,]|[](?!\w))/gi
- elseif ($chan) %regex = /(?<=\s|(?<!\w)[]|[.,'"<(+%@&~/\\])(?!\d)([^-,./:-@~ รรท]{3,})(?=[[:punct:]]*[\s,]|['"/\\=*@.,]|[](?!\w))/gi
- ; If we're not sending text to a PM or channel, exit
- else return
- ; Now we'll move the channels (all known) into a variable and put ctrl+o in their place (to avoid confusion with ctrl+r)
- %text = $mid($regsubex(chans,/ %text /,$iif(%gum.colour.highlightchan,%chanregex,),),3,-2)
- ; A simple loop to move the matched channels into the %chans variable
- %i = 1
- while ($regml(chans,%i)) {
- %chans = %chans $v1
- inc %i
- }
- ; Now we'll move the nicknames into a variable (known and potential alike) and put a ctrl+r in their place
- %text = $mid($regsubex(nicks,/ %text /,$iif(%gum.colour.highlightnick,%regex,),),3,-2)
- ; A simple loop to move the matched nicknames into the %nicks variable
- %i = 1
- while ($regml(nicks,%i)) {
- %nicks = %nicks $v1
- inc %i
- }
- ; If we were sending to a channel, remove potential nicknames which don't exist in the channel (and put them back into the text)
- ; Modified to also cater for channel matches
- if ($chan) {
- var %nn, %n $numtok(%nicks,32)
- while (%n) {
- %nn = $gettok(%nicks,%n,32)
- if (%nn !ison $chan) && ($me !ison %nn) {
- %text = $regsubex(%text,//g,$iif(\n == %n,%nn,))
- %nicks = $puttok(%nicks,,%n,32)
- }
- dec %n
- }
- }
- ; Now remove those pesky extra ctrl+r characters in %nicks
- %nicks = $remtok(%nicks,,0,32)
- ; Colour capital letters, emoticons and punctuation in one line since this negates a need for workarounds of any kind
- %text = $regsubex(%text,/((?i:\b[OVUX][_.]+[OVUX]\b|[:\x3B=][A-Z]\b|\b[A-Z][:\x3B=]\B|\b(?:X[DOP]|[DOP]X)\b|[^A-Z\s])+|[A-Z]+)/g,$+($iif(\1 isalpha && !$istok(XD.DX.XO.OX.XP.PX,\1,46),%caps,$iif($left(\1,1) isnum,%punc2,$iif($left(\1,1) == $chr(44) && $mid(\1,2,1) isnum,%punc3,%punc))),\1,%txt))
- ; Loop through each channel, colouring it and putting it back in its original place
- if (%chans) %text = $regsubex(%text,//g,$+(%nick,$gettok(%chans,\n,32),%txt))
- ; Loop through each nickname, colouring it and putting it back in its original place
- if (%nicks) %text = $regsubex(%text,//g,$+(%nick,$gettok(%nicks,\n,32),%txt))
- ; Finalise colouring and remove unnecessary colours
- %text = $regsubex($+(%txt,%text,),/(?:\d\d?(?:\x2C\d\d?)?)+/g,)
- ; Put the background colour at the start (minimise character use as much as possible, even though it's a lot of code for that)
- ; This prevents requiring two colour codes at the start for no reason
- ; Also added check to add bold character to the start (if applicable)
- %text = $regsubex(%text,/^(\d\d?)(?!\x2C\d)(?=(.))/,$+($iif(%gum.colour.bold,),,$base(\1,10,10,1),$chr(44),$iif(\2 isnum,$base(%bg,10,10,2),%bg)))
- ; Message to target
- msg $target %text
- }
- #gum.colour end
- ; Creating the menu for this script
- menu channel,query {
- -
- Gummo Colour
- .$iif($group(#gum.colour).status == on,Disable,Enable) $+ : {
- $iif($group(#gum.colour).status == on,.disable,.enable) #gum.colour
- echo $color(info) -a Gummo's Colour Script is now $upper($group(#gum.colour).status) $+ .
- }
- .-
- .$gum.colour.greyed Background
- ..$submenu($gum.colour.submenu(background,$1))
- .$gum.colour.greyed Text
- ..$submenu($gum.colour.submenu(text,$1))
- .$gum.colour.greyed Punctuation
- ..$submenu($gum.colour.submenu(punctuation,$1))
- .$gum.colour.greyed Capitals
- ..$submenu($gum.colour.submenu(capitals,$1))
- .$gum.colour.greyed Nicknames
- ..$submenu($gum.colour.submenu(nicknames,$1))
- .-
- .$gum.colour.greyed(%gum.colour.easymodes) Easy Modes: {
- %gum.colour.easymodes = $iif(%gum.colour.easymodes,$false,$true)
- echo $color(info) -a Easy modes (typing a mode and then pressing ctrl+enter to set) are now $iif(%gum.colour.easymodes,enabled,disabled) $+ .
- }
- .$gum.colour.greyed(%gum.colour.highlightnick) Highlight Nicks: {
- %gum.colour.highlightnick = $iif(%gum.colour.highlightnick,$false,$true)
- echo $color(info) -a Nickname highlighting is now $iif(%gum.colour.highlightnick,enabled,disabled) $+ .
- }
- .$gum.colour.greyed(%gum.colour.highlightchan) Highlight Chans: {
- %gum.colour.highlightchan = $iif(%gum.colour.highlightchan,$false,$true)
- echo $color(info) -a Channel highlighting (as opposed to nickname highlighting) is now $iif(%gum.colour.highlightchan,enabled,disabled) $+ .
- }
- .$gum.colour.greyed(%gum.colour.bold) Bold Text: {
- %gum.colour.bold = $iif(%gum.colour.bold,$false,$true)
- echo $color(info) -a Bold text is now $iif(%gum.colour.bold,enabled,disabled) $+ .
- }
- .-
- .$gum.colour.greyed Presets
- ..$submenu($gum.colour.presetmenu($1))
- .-
- .$gum.colour.greyed Reset to Defaults:if ($input(Are you really sure you want to reset to defaults? All of your current settings (other than presets) will be lost!,y,Reset to Defaults?)) gum.colour.reset -hard
- }
- ; Special submenu for selecting a colour to save time coding
- alias -l gum.colour.submenu {
- ; The alias will never call 0, so we make a workaround
- var %n $2 - 1
- var %cmd :set % $+ gum.colour. $+ $$1
- if (%n isnum 0-15) return $iif($(% $+ gum.colour. $+ $1,2) == %n,$style(1)) $colourname(%n) $+ %cmd %n
- ; We can't put 99 here or it wouldn't work, so we'll just pretend it's 16 :)
- if ($1 == background) && (%n == 16) return $iif(%gum.colour.background == 99,$style(1)) $colourname(99) $+ %cmd 99
- }
- ; Special submenu for sorted presets (from temporary list, created elsewhere
- alias gum.colour.presetmenu {
- if ($1 == 1) return Save As...:gum.colour.presetsave
- if ($1 == 2) return Refresh List:gum.colour.presetrefresh
- if ($1 == 3) return -
- if ($1 isnum) && ($gettok(%gum.colour.presetlist,$calc($1 - 3),44)) return $replace($v1,$chr(151),$chr(32)) $+ :gum.colour.presetload $v1
- }
- ; Simplify the menu a little by checking whether to grey-out and/or tick the options via simple maths
- alias -l gum.colour.greyed {
- var %x 0
- if ($group(#gum.colour).status != on) %x = %x + 2
- ; Allow for a tick when a variable was speficied and evaluated to $true
- if ($1 == $true) %x = %x + 1
- return $style(%x)
- }
- ; Alias to reset variables to defaults (hard setting replaces ALL variables, soft or unspecified only fixes variables)
- alias -l gum.colour.reset {
- var %forced $false
- if ($1 == -hard) %forced = $true
- if ((%gum.colour.background !isnum 0-15) && (%gum.colour.background != 99)) || (%forced) set %gum.colour.background 1
- if (%gum.colour.text !isnum 0-15) || (%forced) set %gum.colour.text 3
- if (%gum.colour.punctuation !isnum 0-15) || (%forced) set %gum.colour.punctuation 0
- if (%gum.colour.capitals !isnum 0-15) || (%forced) set %gum.colour.capitals 9
- if (%gum.colour.nicknames !isnum 0-15) || (%forced) set %gum.colour.nicknames 11
- if (%gum.colour.easymodes == $null) || (%forced) set %gum.colour.easymodes $true
- if (%gum.colour.highlightnick == $null) || (%forced) set %gum.colour.highlightnick $true
- if (%gum.colour.highlightchan == $null) || (%forced) set %gum.colour.highlightchan $true
- if (%gum.colour.bold == $null) || (%forced) set %gum.colour.bold $false
- ; Refresh the preset colours list while we're at it
- gum.colour.presetrefresh
- ; If forced (hard reset), the user will expect to know
- if (%forced) echo $color(info) -a Gummo's Colour Script settings reset to defaults.
- }
- ; This alias will load the specified preset colours
- alias -l gum.colour.presetload {
- var %settings $readini(gum.colour.ini,Presets,$$1)
- var %names background,text,punctuation,capitals,nicknames
- var %i 1
- while ($gettok(%names,%i,44)) {
- set $+(%,gum.colour.,$v1) $gettok(%settings,%i,44)
- inc %i
- }
- ; Let the user know we just loaded a preset
- echo $color(info) -a Preset colour configuration $qt($replace($1,$chr(151),$chr(32))) loaded.
- }
- ; This alias will save the current colour configuration as a preset (with confirmation for over-write)
- alias -l gum.colour.presetsave {
- var %settings, %i 1
- var %names background,text,punctuation,capitals,nicknames
- var %name $input(Please enter a name to save for this colour preset:,e,Enter Preset Name)
- ; Replace spaces with a special dash (ASCII 151) to enable spaces in names and remove any commas for compatibility
- %name = $replace(%name,$chr(32),$chr(151),$chr(44),$null)
- if (%name) {
- ; Check for identical named colour preset
- if (!$readini(gum.colour.ini,Presets,%name)) || ($input(There is already a preset called $qt(%name) $+ . Do you want to over-write this preset?,y,Preset Already Exists)) {
- while ($gettok(%names,%i,44)) {
- %settings = $addtok(%settings,$($+(%,gum.colour.,$v1),2),44)
- inc %i
- }
- ; Write the data and let the user know (delete any existing entry first to enable case-sensitive renaming)
- remini gum.colour.ini Presets %name
- writeini gum.colour.ini Presets %name %settings
- echo $color(info) -a Preset colour configuration $qt(%name) saved.
- ; Refresh the presets list of it won't appear in there
- gum.colour.presetrefresh
- }
- }
- }
- ; This alias refreshes the list of presets (doing it as the menu opens is too intensive)
- alias -l gum.colour.presetrefresh {
- var %presets, %i
- %i = $ini(gum.colour.ini,Presets,0)
- while (%i) {
- %presets = $addtok(%presets,$ini(gum.colour.ini,Presets,%i),44)
- dec %i
- }
- ; Sort the list of presets for purely aesthetic purposes
- %presets = $sorttok(%presets,44,a)
- set %gum.colour.presetlist %presets
- }
- ; Use this $colourname alias as you wish; customise it such that it matches your colours 0-15.
- alias colourname {
- ; I know this could be done with a $gettok but then it would be harder to understand (and change, for that matter)
- var %ret
- if ($1 == 0) %ret = White
- if ($1 == 1) %ret = Black
- if ($1 == 2) %ret = Dark Blue
- if ($1 == 3) %ret = Dark Green
- if ($1 == 4) %ret = Red
- if ($1 == 5) %ret = Maroon
- if ($1 == 6) %ret = Purple
- if ($1 == 7) %ret = Orange
- if ($1 == 8) %ret = Yellow
- if ($1 == 9) %ret = Light Green
- if ($1 == 10) %ret = Teal
- if ($1 == 11) %ret = Light Blue
- if ($1 == 12) %ret = Blue
- if ($1 == 13) %ret = Pink
- if ($1 == 14) %ret = Dark Grey
- if ($1 == 15) %ret = Light Grey
- if ($1 == 99) %ret = No Background
- return %ret
- }
- ; This just says thanks when they load the script, obviously
- on *:load: {
- echo $color(info) -a ---
- echo $color(info) -a Thanks for using Gummo's Colour Script. :D
- echo $color(info) -a Right-click in a channel or PM to customise.
- echo $color(info) -a ---
- }
- ; Reset any missing variables upon startup ('soft' settings)
- on *:start: {
- gum.colour.reset -soft
- }
- on *:unload: {
- unset %gum.colour.*
- echo $color(info) -a ---
- echo $color(info) -a Thanks for using Gummo's Colour Script, sorry you want to remove it. :P
- echo $color(info) -a All variables related to this script have been removed.
- if ($isfile(gum.colour.ini)) {
- if ($input(The presets configuration file $chr(40) $+ gum.colour.ini $+ $chr(41) has not been deleted. Would you like to delete it?,y,Delete Presets?)) {
- .remove gum.colour.ini
- echo $color(info) -a Presets configuration file deleted.
- }
- else echo $color(info) -a Presets configuration file remains.
- }
- echo $color(info) -a ---
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement