Dynamic World Map

Scripts for zMUD and CMUD

Dynamic World Map

Postby Fenyang » Thu Dec 21, 2006 3:30 pm

Here is a global where alias using the 'Dynamic World Map' on the website-

[code:1l8vg3b0]#alias worldmap {
#script {strHTML = ~"~"}
#script {Sub GetWorldMap:Set objHTTP = CreateObject~(~"MSXML2.ServerXMLHTTP~"):objHTTP.Open ~"GET~", ~"http:~/~/www.slothmud.org/eqlist/dynmaps/mapserver.html~", ~"FALSE~":objHTTP.Send:strHTML = objHTTP.ResponseText:Set objHTTP = Nothing:End Sub}
#script {Sub FormatWorldMap:intX = instr~(strHTML, ~"~<div area~"):intY = instr~(strHTML, ~"~</body~>~"):intZ = intY - intX:strHTML = mid~(strHTML, intX, intZ~):strHTML = Replace~(strHTML, ~" area=~" & chr~(34~), ~"~>~" & chr~(10~) & ~"%ansi(6)~"):strHTML = Replace~(strHTML, chr~(34~) & ~" icon=~", ~":~<~"):Set objRegExp = New Regexp:objRegExp.Global = True:objRegExp.Pattern = ~"~<(.|n)+?>~":strHTML = objRegExp.Replace~(strHTML, ~"~"):objRegExp.Pattern = ~"\n(\n|$)~":strHTML = objRegExp.Replace~(strHTML, ~"~"):objRegExp.Pattern = ~":\n~":strHTML = objRegExp.Replace~(strHTML, ~":%ansi(7) ~"):Set objRegExp = Nothing:End Sub}
#mss {GetWorldMap}
#mss {FormatWorldMap}
#if (%1 = %null) {#show %mss(strHTML)} {#show %replace(%mss(strHTML),%proper(%1),%ansi(3)%proper(%1)%ansi(7))}}[/code:1l8vg3b0]

Tis useful to help find dead players... or check if a zone if being cycled.

The script uses vbscript, so you need to check 'allow vbscript' under preferences for it to run.

commands-

worldmap
worldmap <keyword to color>

example-

Pathways of Thordfalan: Valanthe
Bal Harbor Town: Taji
Bal Harbor Town: Lob
Bal Harbor Town: Ramoth
Bal Harbor Town: Brand
Bal Harbor Town: Thumper
Duergar Caverns: Marge
Duergar Caverns: Bit
Valkyre Guilds: Faleral

Here is the basic vbscript for other clients that use the language-

[code:1l8vg3b0]strHTML = ""
Sub GetWorldMap
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "GET", "http://www.slothmud.org/eqlist/dynmaps/mapserver.html", "FALSE"
objHTTP.Send:strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
End Sub
Sub FormatWorldMap
intX = instr(strHTML, "<div area")
intY = instr(strHTML, "</body>")
intZ = intY - intX
strHTML = mid(strHTML, intX, intZ)
strHTML = Replace(strHTML, " area=" & chr(34), ">" & chr(10))
strHTML = Replace(strHTML, chr(34) & " icon=", ":<")
Set objRegExp = New Regexp
objRegExp.Global = True
objRegExp.Pattern = "<(.|n)+?>"
strHTML = objRegExp.Replace(strHTML, "")
objRegExp.Pattern = "\n(\n|$)"
strHTML = objRegExp.Replace(strHTML, "")
objRegExp.Pattern = ":\n"
strHTML = objRegExp.Replace(strHTML, ": ")
Set objRegExp = Nothing
End Sub
GetWorldMap
FormatWorldMap
WScript.Echo strHTML[/code:1l8vg3b0]
Fenyang
 
Posts: 4
Joined: Wed Nov 15, 2006 6:30 pm
Status: Offline

Return to zMUD/CMUD Scripts

Who is online

Users browsing this forum: No registered users and 2 guests

cron