Genesis Forums

Code: Select all

You can also add color to your new lines with these functions.
In Cmud: #cw or %ansi
Example
Pattern:
^~(guild~)
Script:
#cw blue

The cw stands for color word. Also note the tildes is to keep cmud from thinking its part of a script and you want it to fire only when you see (guild) exactly.

For %ansi you could use;

Pattern:
^You have regained balance on all limbs.$
Script:
#sub {%ansi(white)Balance gained: %ansi(yellow) ALL LIMBS}

This would make it to where you'd no longer see You have regained balance on all limbs. And instead you'd see.
(in white) Balance gained:(in yellow) ALL LIMBS.

For mudlet the function is the same as deleting it above but putting cecho("") with it as well
Pattern:
^You have regained balance on all limbs.$
Script:
selectString(matches[1], 1)
deleteLine()
cecho("/nBalance gained:ALL LIMBS")

This is the mudlet equivalent of the cmud example above. Also note the \n makes it to where it appears on its own line.

Code: Select all

function colorAll(word, color, back, italic, under,bold, noCase)
--word is the string to search for
--color is fg color, either in name or "r,g,b" string
--back is bg color, either in name of "r,g,b" string
--italic is boolean italics
--under is boolean underlining
--bold is boolean bold format
--noCase is boolean. if true, matches word on a no-case pattern
 
   if noCase then word = word:genNocasePattern() end
   local startpos = 0
   local endpos = 0
   while true do
      startpos, endpos = string.find(getCurrentLine(), "%f[%w]"..word.."%f[%W]", endpos)
      if not startpos then break end
      selectSection(startpos-1, endpos-startpos+1)
      if color then
         if color_table[color] then
            fg(color)
         else
             local c = color:split(",")
             setFgColor(c[1],c[2],c[3])
         end
      end
      if back then
         if color_table[back] then
            bg(back)
         else
             local b = back:split(",")
             setBgColor(b[1],b[2],b[3])
         end
      end
      if under then
         setUnderline(true)
      end
      if italic then
         setItalics(true)
      end
      if bold then
         setBold(true)
      end
   end
end