First full code commit.

Author: MorquinDevlar

mfile

@@ -0,0 +1,10 @@
+{
+       "package": "GoMud-Mapper",
+       "title": "GoMud Mapper",
+       "description": "Custom GMCP mapper for GoMud, based on the IRE GMCP mapper script.",
+       "version": "1.0.0",
+       "author": "Morquin - forked from the IRE Mudlet Mapper",
+       "icon": "gomud-mapper.png",
+       "dependencies": "",
+       "outputFile": true
+}

src/aliases/GoMud-Mapper/GoMud Mapper/Add_Room_Mark.lua

@@ -0,0 +1,31 @@
+local tmp = getRoomUserData(1, "gotoMapping")
+local maptable = {}
+
+if tmp ~= "" then
+  maptable = yajl.to_value(tmp)
+end
+
+local location, markname
+if not matches[3] then
+  markname = matches[2]
+  location = mmp.currentroom
+elseif tonumber(matches[2]) then
+  location = matches[2]; markname = matches[3]
+else
+  location = matches[3]; markname = matches[2]
+end
+
+-- can't allow mark name to ne a number - yajl then generates a giant table of null's
+if tonumber(markname) then
+  mmp.echo("The mark name can't be a number.") return
+end
+
+maptable[markname] = location
+local tmp2 = yajl.to_string(maptable)
+
+if not mmp.roomexists(1) then
+  addRoom(1)
+end
+
+setRoomUserData(1, "gotoMapping", tmp2)
+mmp.echo(string.format("Room mark for '%s' set to room %s.", markname, location))

src/aliases/GoMud-Mapper/GoMud Mapper/Add_a_room_label.lua

@@ -0,0 +1 @@
+mmp.roomLabel(matches[2])

src/aliases/GoMud-Mapper/GoMud Mapper/Area_list.lua

@@ -0,0 +1 @@
+mmp.echoAreaList()

src/aliases/GoMud-Mapper/GoMud Mapper/Check_wholist.lua

@@ -0,0 +1,3 @@
+enableTrigger("Parse wholist")
+send("who b")
+tempTimer(10, [[disableTrigger'Parse wholist']])

src/aliases/GoMud-Mapper/GoMud Mapper/Display_Room_Marks.lua

@@ -0,0 +1,16 @@
+local tmp= getRoomUserData(1, "gotoMapping")
+if tmp~="" then
+	local maptable = yajl.to_value(tmp) or {}
+    local sortedkeys = {}
+    for k in pairs(maptable) do sortedkeys[#sortedkeys+1] = k end
+    table.sort(sortedkeys)
+
+    mmp.echo("Known marks in this map:")
+    if next(maptable) then
+      for i = 1, #sortedkeys do echo(string.format("  %-21s  %s\n", tostring(sortedkeys[i]), tostring(maptable[sortedkeys[i]]))) end
+    else
+      echo("  (none)\n")
+    end
+else
+	mmp.echo("No marks are recorded in this map.")
+end

src/aliases/GoMud-Mapper/GoMud Mapper/Get_dirs.lua

@@ -0,0 +1,7 @@
+if not matches[2] and not matches[3] then
+  mmp.echo("Where do you want to showpath to?")
+elseif matches[2] and not matches[3] then
+  mmp.echoPath(mmp.currentroom, matches[2])
+else
+  mmp.echoPath(matches[2], matches[3])
+end

src/aliases/GoMud-Mapper/GoMud Mapper/Go_to_ID_or_area.lua

@@ -0,0 +1,42 @@
+local where = matches[2]:lower()
+local gallop
+if command:ends("gallop") then
+  gallop = "gallop"
+  where = where:sub(1, -8)
+elseif command:ends("sprint") then
+  gallop = "sprint"
+  where = where:sub(1, -8)
+elseif command:ends("dash") then
+  gallop = "dash"
+  where = where:sub(1, -6)
+elseif command:ends("runaway") then
+  gallop = "runaway"
+  where = where:sub(1, -9)
+elseif command:ends("glide") then
+  gallop = "glide"
+  where = where:sub(1, -7)
+end
+if mmp.debug then
+  mmp.gotoPerf = mmp.gotoPerf or createStopWatch()
+  startStopWatch(mmp.gotoPerf)
+end
+-- goto room ID
+if tonumber(where) then
+  mmp.gotoRoom(where, gallop)
+else
+  -- goto area or feature
+  local split = where:split(" ")
+  if split[1] == "feature" then
+	  table.remove(split, 1)
+    mmp.gotoFeature(table.concat(split, " "), gallop)
+  else
+    if tonumber(split[#split]) then
+      mmp.gotoArea(where:sub(1, -#(split[#split]) - 2), tonumber(split[#split]), gallop)
+    else
+      mmp.gotoArea(where, nil, gallop)
+    end
+  end
+end
+if mmp.debug then
+  mmp.echo("goto alias took " .. stopStopWatch(mmp.gotoPerf) .. "s to run.")
+end

src/aliases/GoMud-Mapper/GoMud Mapper/List_map_features.lua

@@ -0,0 +1 @@
+mmp.listMapFeatures()

src/aliases/GoMud-Mapper/GoMud Mapper/Load_a_map.lua

@@ -0,0 +1,40 @@
+local function s(loc)
+  if string.ends(loc, ".json") and not loadJsonMap then
+    mmp.echo("Your Mudlet can't load maps in JSON, please upgrade first.")
+    return
+  end
+
+  local allok = true
+  if string.ends(loc, ".json") then
+    allok = loadJsonMap(loc)
+  else
+    allok = loadMap(loc)
+  end
+
+  if not allok then
+    mmp.echo("Couldn't load the map :(")
+  else
+    mmp.lockWormholes();
+    mmp.lockSewers();
+    mmp.lockPebble();
+    if mmp.settings.waterwalk then
+      mmp.enableWaterWalk()
+    else
+      mmp.disableWaterWalk()
+    end
+    if loc ~= "" then
+      mmp.echo("Map loaded.")
+    else
+      mmp.echo("Loaded the default map.")
+    end
+    raiseEvent("mmapper updated map")
+  end
+end
+
+if matches[2] and matches[2] == "custom" then
+  s(invokeFileDialog(true, "Please select the map file and click Open to load it"))
+elseif matches[2] then
+  s(getMudletHomeDir() .. "/map/" .. matches[2])
+else
+  s("")
+end