Mudlet Scripts!

Comments

• Winger

  January 2013

  I don't know if it's the forums or something you did

  
  

  But those code blocks are white text on the most hideous yellow I have ever seen.

  0
• Lin Blackbird The Moonglade

  January 2013

  Razzy-pie fixed the CSS for <pre> blocks! Sorry about the blindness-inducing nonsense.

  0
• Azton

  July 2013

  Whaoo I been looking for something like this (the number for color stuff) most of the day!
  
  Anyone else got any neats scripts... or, know where to find a Add to Queue thingy?
  

  
  

  0
• Saybre

  July 2013 edited July 2013

  Here's my quick way of seeing simple ANSI colors for says/echoes, etc. Number is the color as well.
  [spoiler]
  #echo %cr
  #echo %ansi( 1)a 1
  #echo %ansi( 2)a 2
  #echo %ansi( 3)a 3
  #echo %ansi( 4)a 4
  #echo %ansi( 5)a 5
  #echo %ansi( 6)a 6
  #echo %ansi( 7)a 7
  #echo %ansi( 8)a 8
  #echo %ansi( 9)a 9
  #echo %ansi( 10)a 10
  #echo %ansi( 11)a 11
  #echo %ansi( 12)a 12
  #echo %ansi( 13)a 13
  #echo %ansi( 14)a 14
  #echo %ansi( 15)a 15
  #echo %ansi( 16)a 16
  #echo %ansi( 17)a 17
  #echo %ansi( 18)a 18
  #echo %ansi( 19)a 19
  #echo %ansi( 20)a 20
  #echo %ansi( 21)a 21
  #echo %ansi( 22)a 22
  #echo %ansi( 23)a 23
  #echo %ansi( 24)a 24
  #echo %ansi( 25)a 25
  #echo %ansi( 26)a 26
  #echo %ansi( 27)a 27
  #echo %ansi( 28)a 28
  #echo %ansi( 29)a 29
  #echo %ansi( 30)a 30
  #echo %ansi( 31)a 31
  #echo %ansi( 32)a 32
  #echo %ansi( 33)a 33
  #echo %ansi( 34)a 34
  #echo %ansi( 35)a 35
  #echo %ansi( 36)a 36
  #echo %ansi( 37)a 37
  #echo %ansi( 38)a 38
  #echo %ansi( 39)a 39
  #echo %ansi( 40)a 40[/spoiler]
  
  
  Edit: This is for CMUD.
  

  

  

  1
• Lin Blackbird The Moonglade

  March 2014 edited March 2014

  Hey guys, although I appreciate the contributions, this thread was meant for me to post my own snippets from my system. I think we have general script threads for stuff!

  
  

  Screw it, we don't have a Mudlet script thread.

  
  

  These are some string library extensions. Except for space(), they can be called with colon syntax (str:title(), etc.).

  
  

  title(string): True title case. Capitalizes all words but common words like "a", "an", etc.

  
  

  space(number): A simple function to add spaces, for formatting.

  (string.space(4) or string.space(target:len() - 16))

  
  

  truncate(string[, len]): Truncate will clip off any content of a string after len characters, and replace it with "...".

  (target = "Ezalor"; target:truncate(5) --> "Ez...")

  local noTitleWords = {
  	"a", "an", "the", "and", "of", "in"
  }
  
  string.title = function (str)
  	if type(str) == "string" then
  		str = str:gsub("([a-zA-Z']+)", function (word)
  			if table.contains(noTitleWords, word) == false or word == str:match("^%w+") then
  				word = string.upper(word:sub(1, 1)) .. string.lower(word:sub(2, -1))
  				return word
  			end
  		end)
  		return str
  	else
  	return str
  	end
  end
  
  string.space = function (x)
  	x = x or 0
  	return string.rep(" ", x)
  end
  
  string.truncate = function (str, n)
  	n = n or 80
  	if str:len() > n then
  		return str:sub(1, n - 3) .. "..."
  	else
  		return str
  	end
  end

  
  pNum(number/string): This function is for aesthetic displays. It will string numbers along with commas (I am American, after all) to enhance readability. It will cleanly accept both strings and actual numbers, spitting out a string as a result. Performance note: Despite my clumsy use of string concatenation, it processes -very- quickly. Even when using it in spammy displays like the tables shown in OFFERINGS LIST, there was no noticeable lag.

  pNum("12500") --> "12,500"

  pNum = function (n)
  	-- pNum, aka prettyNumber().
  	-- Inserts commas into number values.
  
  	if type(n) ~= "string" and type(n) ~= "number" then
  		error("Passed invalid type (" .. type(n) .. ") to pNum().")
  		return
  	end
  
  	n = tostring(n)
  
  	if n:match("^%d+$") == nil then
  		return n
  	elseif n:len() <= 3 then
  		return n
  	end
  
  	local output = ""
  
  	local count = 0
  	for i = n:len(), 1, -1 do
  		count = count + 1
  		local x = n:sub(i, i)
  		if i == n:len() then
  			output = x
  		elseif i == 1 then
  			output = x .. output
  		else
  			if count == 3 then
  				count = 0
  				output = "," .. x .. output
  			else
  				output = x .. output
  			end
  		end
  	end
  
  	return output
  end

  0
• Lin Blackbird The Moonglade

  March 2014

  Was working on a leyline hunter, needed a method to find the entrances to an area. I pass the savings on to you! This function requires the Mudlet mapper package to work (it uses a function call from the mmp table). I also haven't test it much. Unmodified, calling it with an area name/ID will dump a list of rooms that lead to other areas.

  
  

  http://pastebin.com/ZxL1e26G
  

  
  

  Also it was kind of silly that I made a thread just for me to post scripts, so I decided to make this a general Mudlet script sharing thread.

  

  1
• Draiman Dr. Drai

  March 2014 edited March 2014

  Library Search Script. Scans the entire Library you're at and then lets you find a book with a certain word in the title.
  
  You'll need these scripts, just put them in a new script window called Library or something:

  library = library or {}
  
  library.list = library.list or {}
  
  library.scan = false

  
  
  You'll need these functions:
  
  

  function additem(list, val)
     if table.contains(list, val) then return end
       table.insert(list, val)
  end
  
  
  function library.bookSearch(criteria)
  
  	for t,n in ipairs(library.list) do
  		if string.findPattern(library.list[t].title, criteria) then
  			cecho("\nCriteria matched. Book Number is ")
  			echoLink(library.list[t].number, [[send("read " .. ]] .. library.list[t].number .. [[, false)]], "Read "..library.list[t].title.")
  		end
  	end
  end

  
  
  These triggers:
  
  Pattern - ^ \#(\d+) (.+)
  
  Script
  

  additem(library.list, {["title"] = matches[3], ["number"] = matches[2]})

  
  
  Exact match - An unseen presence whispers in your ear, "There is no more, friend."
  
  Script
  

  library.scan = false

  
  
  Pattern - ^Type MORE to continue reading\. \(\d+\% shown\)
  
  script
  

  if library.scan then
    send("more", false)
    send("more", false)
  end

  
  
  And finally, these Aliases:
  
  Pattern - ^lcs$
  
  Script
  

  library.scan = true
  library.list = {}
  send("library catalog", false)

  
  
  Pattern - ^lss (\w+)$
  
  Script
  

  library.bookSearch(matches[2])

  
  
  How this works is that when you enter the "lcs" alias, it will scan the entire library and store all the book titles with their corresponding numbers. You can then use the "lss" alias to do something like:
  
  "lss Consanguine"
  
  And it will return all book numbers with the word Consanguine in the title. It will also provide a link that you can click that will read the first page of the book (as well as show you the title of the book) for you lazy people.
  
  Special thanks to @Lin for helping me with some of the code, and also for formatting the post for me. XD
  

  "You ever been divided by zero?" Nia asks you with a squint.
  
  
  
  

  

  4
• Drahkuna

  July 2014 edited August 2014

  --removed.

  0
• Drahkuna

  August 2014

  
  function isRGB(cg,red,green,blue)
    selectCaptureGroup(tonumber(cg))
    local r,g,b = getFgColor()
    if red == r and green == g and blue == b then
      return true
    end
    return false
  end
  

  isRGB(2,128,0,0) would search capture group 2 (matches[2]) for the color values, 128,0,0, and then return true if matched.

  0
• Gilrath

  November 2014

  Saybre said:

  Here's my quick way of seeing simple ANSI colors for says/echoes, etc. Number is the color as well.
  
  Edit: This is for CMUD.
  

  Just as an FYI, this will do the same thing but is less complicated:
  
  #ALIAS ANSI {$a=1;$b="";#15 {#ADDI $b {%ansi(high, $a) $a};#ADD $a 1};#PRINT { ANSI:%replace($b,"|","")};#CR}
  

  0
• Drahkuna

  December 2014 edited December 2014

  A panic button. It's simple, but it's saved my ass hunting a few hundred times. local escape_exits = {} for k,_ in pairs(gmcp.Room.Info.exits) do table.insert(escape_exits, k) end send("qeb " .. escape_exits[math.random(1,#escape_exits)])

  

  1
• Dragos

  January 2015

  Draiman said:

  Library Search Script. Scans the entire Library you're at and then lets you find a book with a certain word in the title.
  
  
  
  You'll need these scripts, just put them in a new script window called Library or something:
  
  

  library = library or {}
  
  library.list = library.list or {}
  
  library.scan = false

  
  
  
  
  You'll need these functions:
  
  

  function additem(list, val)
     if table.contains(list, val) then return end
       table.insert(list, val)
  end
  
  
  function library.bookSearch(criteria)
  
  	for t,n in ipairs(library.list) do
  		if string.findPattern(library.list[t].title, criteria) then
  			cecho("\nCriteria matched. Book Number is ")
  			echoLink(library.list[t].number, [[send("read " .. ]] .. library.list[t].number .. [[, false)]], "Read "..library.list[t].title.")
  		end
  	end
  end

  
  
  
  
  These triggers:
  
  
  
  
  Pattern - ^ \#(\d+) (.+)
  
  
  
  Script

  additem(library.list, {["title"] = matches[3], ["number"] = matches[2]})

  
  
  
  
  Exact match - An unseen presence whispers in your ear, "There is no more, friend."
  
  
  
  Script

  library.scan = false

  
  
  
  Pattern - ^Type MORE to continue reading\. \(\d+\% shown\)
  
  
  
  script

  if library.scan then
    send("more", false)
    send("more", false)
  end

  
  
  
  
  And finally, these Aliases:
  
  
  
  
  Pattern - ^lcs$
  
  
  
  Script

  library.scan = true
  library.list = {}
  send("library catalog", false)

  
  
  
  Pattern - ^lss (\w+)$
  
  
  
  Script

  library.bookSearch(matches[2])

  
  
  
  
  How this works is that when you enter the "lcs" alias, it will scan the entire library and store all the book titles with their corresponding numbers. You can then use the "lss" alias to do something like:
  
  
  
  "lss Consanguine"
  
  
  
  And it will return all book numbers with the word Consanguine in the title. It will also provide a link that you can click that will read the first page of the book (as well as show you the title of the book) for you lazy people.
  
  Special thanks to @Lin for helping me with some of the code, and also for formatting the post for me. XD
  

  This sounds like a great idea but I'm having trouble following it.
  Are there 3 scripts called library = library or {}, library.list = library.list or {}, and library.scan = false ?
  Which scripts do the fuctions go into?
  The second function has an error on the echolink line.
  
  Can anyone help this newbie at lau scripting?
  

  0
• Irruel

  January 2015

  In lua, everything is a variable, and every variable is just an entry in a table.
  A function is just a variable where the value is a set of instructions.
  Copy the parts called scripts/functions to the script editor, all into one script 'object'. Or multiples - it makes no difference.
  Paste.
  
  The triggers are a separate object in mudlet, so create those there.
  
  Go to command line and type:
  lua display(library)
  
  This will display the contents of the table you just created, called "library". It will be a mix of information, and functions.
  
  library = {} --creates a blank table
  library = library or {} --creates a blank table ONLY IF it doesn't already exist.
  library.scan = false --creates a variable, nested in the table, called 'scan' with a value of false
  function library.whatever()
  -- creates a variable 'whatever' nested in the table, with a value that is a set of instructions
  end
  
  ^All of that goes into a script object in the script editor.
  
  The triggers are a separate thing

  

  1
• Dragos

  January 2015

  getting an error in the second function . Lua syntax error:[string "library = library or {}..."]:18: unfinished string near '")'
  
  echoLink(library.list[t].number, [[send("read " .. ]] .. library.list[t].number .. [[, false)]], "Read "..library.list[t].title.")

  0
• Irruel

  January 2015

  Please repost the question in the mudlet/scripting help thread.

  0
• Ashmer Barefoot Adventurer Life

  January 2015

  I built a capture for the cooldowns table, and it was a real unicorn to build, so I'm going to post it here to save someone the heartache.
  
  In Mudlet, create a multiline trigger. The first trigger's pattern is:
  
  You have the following on cooldown:
  
  I call it "cooldown header." Set the "fire length" to 50-100 more lines. We're going to close this trigger when it hits prompt.
  
  Then, nest a trigger in it called "cooldown capture" or whatever you like. Use the following lines as perl regex:
  
  1: ^(:?(:?\w+)|(:?\w+) (:?\w+))\s+(\d+) minutes and (\d+) seconds$
  2: ^(:?(\w+)|(:?\w+) (:?\w+))\s+(\d+)\s+(minutes)$
  3: ^(:?(\w+)|(:?\w+) (:?\w+))\s+(\d+)\s+(seconds)$
  
  Then, as an example body:
  
  local cd = matches[2]:lower():gsub(" ", "_")
  local cap = tonumber(matches[6])
  local cap2 = matches[7]
  
  if cap2 == "minutes" then
  local time = tonumber(cap*60)
  fs.offcd(cd)
  fs.oncd(cd, time)
  elseif cap2 == "seconds" then
  local time = cap
  fs.offcd(cd)
  fs.oncd(cd, time)
  else
  cap = tonumber(cap*60)
  cap2 = tonumber(cap2)
  local time = tonumber(cap + cap2)
  fs.offcd(cd)
  fs.oncd(cd, time)
  end
  
  What the functions do is pretty obvious, so you should be able to adapt this to your own scripts.
  

  the way she tells me I'm hers and she is mine

  open hand or closed fist would be fine

  blood as rare and sweet as cherry wine

  

  1
• Isto

  March 2015

  So I switched over from cmud and found myself missing certain functions. Recreated them here for anyone who wants to use them. Works with simple tables like
  
  table = {
  "value1",
  "value2",
  "value3",
  etc...
  }

  function ismember(list, value)
  	if list==nil then
  		echo("You didn't supply a list - ismember")
  		return false
  	elseif value==nil then
  		echo("You didn't supply a value - ismember")
  		return false
  	end	
  
  return table.contains(list, value)
  
  end
  
  function additem(list, value)
  	if list==nil then
  		echo("You didn't supply a list - additem")
  		return false
  	elseif value==nil then
  		echo("You didn't supply a value - additem")
  		return false
  	end	
  
  	if not table.index_of(list, value) then
  		table.insert(list, value)
  	else
  	return false
  	end
  end
  
  function delitem(list, value)
  	if list==nil then
  		echo("You didn't supply a list - delitem")
  		return false
  	elseif value==nil then
  		echo("You didn't supply a value - delitem")
  		return false
  	end	
  
  	if table.index_of(list, value)~=nil then table.remove(list, table.index_of(list, value)) end
  end
  

  if the value isn't a variable, like matches[2] or some sort, enclose it in "" for headaches.
  
  example:
  
  additem(table, "value4")

  
  

  
  

  

  1
• Drahkuna

  April 2015

  This one checks through your most recent profile to see if gmcp's been enabled.
  
  function gmcp_enabled() local path = getMudletHomeDir() .."/current" local most_recent, mr_time, file mr_time = 0 for file in lfs.dir(path) do if file ~= "." and file ~= ".." then local f = path .. "/" .. file local attr = lfs.attributes(f) assert (type(attr) == "table") if attr.mode ~= "directory" then local time = attr.modification if time > mr_time then most_recent = f mr_time = time end end end end print(most_recent) local f = io.open(most_recent, "r") local t = f:read("*all") f:close() local b = string.find(t,[[mEnableGMCP="yes"]]) if not b then return false else return true end end

  0
• Drahkuna

  April 2015 edited April 2015

  This one turns your mob dialogue options into clickable links and stores their indexes for use with keypad shortcuts.
  
  First trigger pattern:
  ^\s?\[\*\]\s+\(say\)\s+(.+)
  -- Regex
  -- Fire length 10
  
  First trigger script:
  if not dlg_opt_num then dlg_opt_num = 1 else dlg_opt_num = dlg_opt_num + 1 end if not dlg_opts then dlg_opts = {} end dlg_opts[tostring(dlg_opt_num)] = matches[2] for k,v in pairs(dlg_opts) do if tonumber(k) > dlg_opt_num then dlg_opts[k] = nil end end selectString(matches[1],1) replace("") resetFormat() echoLink("\[" .. dlg_opt_num .. "\]" .. matches[2], [[send("]] .. "say " ..matches[2]..[[")]], "Dialogue Option")
  
  Second trigger pattern:
  return isPrompt()
  --Lua function
  
  Second trigger script:
  dlg_opt_num = 0
  
  You can set up keys for the dialogue options using dlg_opts["1"], dlg_opts["2"] and so on.
  

  0
• Irruel

  February 2018

  Mudlet is quick etc, but I'm mindful of not having too many regex of every line.
  
  I don't know how important it actually is to consider performance but 'gating' regex trigs like the above with a substring trig on 'say' will stop the regex from testing any line except ones with 'say' in it.
  
  Two ways to do it, supposedly equal in efficiency.
  
  1.   Create a simple substrig trig with the pattern 'say' and no script/command. Drag the other trigger onto this new one.
  
  2.  Alternatively make the existing a multi pattern 'AND' trigger, with 'say' as the first pattern and the regex as the second.
  
  Anyway, I hope someone finds that useful. I wasn't picking apart the above really nice script, just using it as an example to talk about efficiency.

  0