This forum is a read-only archive of the Gammon Software forum (2000–2026). No new posts can be made. Search the archive.
Posted by Lzkd on Wed 05 Nov 2014 10:08 AM — 30 posts, 94,326 views.
/OnPluginInstall () -- load mapper (do this once)
/test () -- draw room 1
-- -----------------------------------------------------------------
-- Plugin Help
-- -----------------------------------------------------------------
function OnHelp ()
mapper.mapprint (string.format ("[MUSHclient mapper, version %0.1f]", mapper.VERSION))
mapper.mapprint (world.GetPluginInfo (world.GetPluginID (), 3))
end
map = {
{ vnum = 1, name = "Entrance", exits = { south = 4, east = 2 } },
{ vnum = 2, name = "Kitchen", exits = { west = 1, east = 3, south = 5 } },
{ vnum = 3, name = "Garden", exits = { west = 2, south = 6 } },
{ vnum = 4, name = "Livingroom", exits = { north = 1, east = 5 } },
{ vnum = 5, name = "Bedroom", exits = { north = 2, west = 4 } },
{ vnum = 6, name = "Toilet", exits = { north = 3, west = 5 } },
{ vnum = 7, name = "Nowhere", exits = {} },
}
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<muclient>
<plugin
name="Example_Mapper"
author="Nick Gammon"
id="63e6909083318cf63707c044"
language="Lua"
purpose="Example mapper"
save_state="y"
date_written="2014-10-22"
requires="4.61"
version="1.0"
>
<description trim="y">
<![CDATA[
AUTOMATIC MAPPER ... by Nick Gammon
ACTIONS
mapper help --> this help (or click the "?" button on the bottom right)
]]>
</description>
</plugin>
<aliases>
<alias
match="mapper help"
script="OnHelp"
enabled="y"
>
</alias>
<alias
match="mapper test"
script="test"
enabled="y"
>
</alias>
---------################ Here is my own to add. ##############-----
<alias
match="find test"
script="find_test"
enabled="y"
>
</alias>
</aliases>
<!-- Script -->
<script>
<![CDATA[
-- mapper module
require "mapper"
require "tprint"
-- configuration table
config = { }
rooms = {
[1] = {
name = "Town Square",
exits = { n = 2, s = 3, e = 4}
},
[2] = {
name = "The Inn",
exits = { s = 1 }
},
[3] = {
name = "Butcher",
exits = { n = 1 }
},
[4] = {
name = "Main Street",
exits = { w = 1, e = 5 }
},
[5] = {
name = "West Main Street",
exits = { w = 4 }
},
} -- example rooms table
-- -----------------------------------------------------------------
-- mapper 'get_room' callback - it wants to know about room uid
-- -----------------------------------------------------------------
function get_room (uid)
room = rooms [uid]
if not room then
return nil
end -- if not found
room.area = "The swamp" -- OK, let's assume every room is in this area
room.hovermessage = room.name
return room
end -- get_room
-- -----------------------------------------------------------------
-- Plugin Install
-- -----------------------------------------------------------------
function OnPluginInstall ()
-- initialize mapper
mapper.init {
config = config, -- ie. colours, sizes
get_room = get_room, -- info about room (uid)
show_help = OnHelp, -- to show help
}
mapper.mapprint (string.format ("MUSHclient mapper installed, version %0.1f", mapper.VERSION))
end -- OnPluginInstall
-- -----------------------------------------------------------------
-- Plugin Help
-- -----------------------------------------------------------------
function OnHelp ()
mapper.mapprint (string.format ("[MUSHclient mapper, version %0.1f]", mapper.VERSION))
mapper.mapprint (world.GetPluginInfo (world.GetPluginID (), 3))
end
-- -----------------------------------------------------------------
-- test
-- -----------------------------------------------------------------
function test (name, line, wildcards)
mapper.draw (1) -- draw room 1
end -- test
---------################ Here is my own to add. ##############-----
function find_test ()
myuid = 5
a, b, c = mapper.find_paths(1,
function (myuid)
return uid == wanted, -- wanted room?
uid == wanted -- stop searching?
end)
print(a)
print("b = "..b)
print("c = "..c)
tprint(a)
end
]]>
</script>
</muclient>
Removed plugin Example_Mapper (63e6909083318cf63707c044)
MUSHclient mapper installed, version 2.5
Added plugin D:\MUSHclient\worlds\plugins\t_maper.xml
table: 022F4F58
b = 1
c = 1
4:
"reason"=true
"path":
1:
"uid"=4
"dir"="e"
---------################ Here is my own to add. ##############-----
function find_test ()
current = 1 -- where we start
wanted = 5 -- where we want to go
a, b, c = mapper.find_paths(current,
function (uid)
return uid == wanted, -- wanted room?
uid == wanted -- stop searching?
end)
print(a)
print("b = "..b)
print("c = "..c)
tprint(a)
end
function (uid)
return uid == wanted, -- wanted room?
uid == wanted -- stop searching?
end)
b = 2
c = 2
5:
"reason"=true
"path":
1:
"dir"="e"
"uid"=4
2:
"uid"=5
"dir"="e"
Example_Mapper.xml
Example_Mapper.xml (which you just saved in step 3) as a plugin
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE muclient>
<muclient>
<plugin
name="Example_Mapper"
author="Nick Gammon"
id="63e6909083318cf63707c044"
language="Lua"
purpose="Example mapper"
save_state="y"
date_written="2014-10-22"
requires="4.61"
version="1.0"
>
<description trim="y">
<![CDATA[
AUTOMATIC MAPPER ... by Nick Gammon
ACTIONS
mapper help --> this help (or click the "?" button on the bottom right)
]]>
</description>
</plugin>
<aliases>
<alias
match="mapper help"
script="OnHelp"
enabled="y"
>
</alias>
<alias
match="mapper test"
script="test"
enabled="y"
>
</alias>
</aliases>
<!-- Script -->
<script>
<![CDATA[
-- mapper module
require "mapper"
-- configuration table
config = { }
rooms = {
[1] = {
name = "沼泽",
exits = { n = 2, s = 3, e = 4}
},
[2] = {
name = "酒馆",
exits = { s = 1 }
},
[3] = {
name = "屠夫",
exits = { n = 1 }
},
[4] = {
name = "屠夫",
exits = { w = 1, e = 5 }
},
[5] = {
name = "西大街",
exits = { w = 4 }
},
} -- example rooms table
-- -----------------------------------------------------------------
-- mapper 'mouseover' callback - draw a tooltip
-- -----------------------------------------------------------------
function mouseover_room (uid, flags)
local room = rooms [tonumber (uid)]
if not room then
return
end -- room not found
local hotspot_left = WindowHotspotInfo (mapper.win, uid, 1)
local hotspot_top = WindowHotspotInfo (mapper.win, uid, 2)
local main_left = WindowInfo (mapper.win, 10)
local main_top = WindowInfo (mapper.win, 11)
if not hotspot_left or not hotspot_top then
return
end -- hotspot not found
local message = "*信息*\n" .. room.name
mw.tooltip (win_tooltip, -- window name to use
font_tooltip, -- font to use for each line
bold_font_tooltip, -- font to use for bold lines
message, -- tooltip text
hotspot_left + main_left + 2, hotspot_top + main_top + 3, -- where to put it
0, -- colour for text (black)
0, -- colour for border (black)
tooltip_background_colour) -- colour for background
end -- mouseover_room
function cancelmouseover_room (uid, flags)
WindowShow (win_tooltip, false)
end -- cancelmouseover_room
-- -----------------------------------------------------------------
-- mapper 'get_room' callback - it wants to know about room uid
-- -----------------------------------------------------------------
function get_room (uid)
room = rooms [uid]
if not room then
return nil
end -- if not found
room.area = "悲伤之地" -- OK, let's assume every room is in this area
room.hovermessage = ""
return room
end -- get_room
-- -----------------------------------------------------------------
-- Plugin Install
-- -----------------------------------------------------------------
function OnPluginInstall ()
-- initialize mapper
mapper.init {
config = config, -- ie. colours, sizes
get_room = get_room, -- info about room (uid)
show_help = OnHelp, -- to show help
room_mouseover = mouseover_room,
room_cancelmouseover = cancelmouseover_room,
}
mapper.mapprint (string.format ("MUSHclient mapper installed, version %0.1f", mapper.VERSION))
-- get ready for tooltips
win_tooltip = GetPluginID () .. "_tooltip"
font_tooltip = "tf"
bold_font_tooltip = "tfb"
WindowCreate (win_tooltip, 0, 0, 0, 0, 0, 0, 0)
WindowFont (win_tooltip, font_tooltip, "SimSun", 12)
WindowFont (win_tooltip, bold_font_tooltip, "SimSun", 12, true)
tooltip_background_colour = ColourNameToRGB ("#FFFFE1")
end -- OnPluginInstall
-- -----------------------------------------------------------------
-- Plugin Help
-- -----------------------------------------------------------------
function OnHelp ()
mapper.mapprint (string.format ("[MUSHclient mapper, version %0.1f]", mapper.VERSION))
mapper.mapprint (world.GetPluginInfo (world.GetPluginID (), 3))
end
-- -----------------------------------------------------------------
-- test
-- -----------------------------------------------------------------
function test (name, line, wildcards)
mapper.draw (1) -- draw room 1
end -- test
]]>
</script>
</muclient>
<?xml version="1.0" encoding="utf-8"?>