Find the red Asterisk

Posted by Fletchling on Fri 22 Dec 2006 10:14 PM — 12 posts, 39,926 views.

Fletchling Australia Fri 22 Dec 2006 10:14 PM #0

On the multi-line graphic below there is a character I am trying find the coordinates of a bold-red asterisk on black background,

Example 1. In the case below it is;


+------------------------------+                  
|      *    ?                  |
|                *.            | <
|             *   .         .. |
+------------------------------+
                 ^
X = 17
Y = 2


Example 2. In this case it is;
+------------------------------+
| .     .  .       .           |
|        .            .       .|
|                              |
|       .          *           |
|             .                |
|        .                     |
|          .     *            .|
|    *   *     ?               | <
|        .                 .   |
+------------------------------+
         ^
X = 9
Y = 8

Notes:
1. The ^ and < around the graphic are mine added for clarity.
2. In all cases, the first and last lines are +---------+ as indicated.
3. Only one asterisk on the graphic is red.

This has turned out more complex than I'd thought, I'm thinking some mix of gsub.find and triggers... Any clues to point me in the right direction appreciated very much.

Fletchling Australia Fri 22 Dec 2006 10:15 PM #1

Akk, the graphics above are screwed up, I'll repost later with spaces in the right spots to make sense of it all.

Sorry.

Fletchling Australia Fri 22 Dec 2006 10:17 PM #2

+------------------------------+
|.................*....... ?.. |
|.........*....................| <
|....*.........................|
+------------------------------+
..........^
X = 10
Y = 2

spaces replaced with "."s

Nick Gammon Australia Forum Administrator Sat 23 Dec 2006 12:37 AM #3

Use the [code] tag - I've fixed up your original post.

Fletchling Australia Sat 23 Dec 2006 12:39 AM #4

Thank you Nick.

Nick Gammon Australia Forum Administrator Sat 23 Dec 2006 12:40 AM #5

I would first build up the graphic into a series of lines in a table. You could make a trigger to capture lines that are | <something> |.

Then iterate through the lines (each line represents a y coordinate). Inside each line use string.sub iteratively to look at each individual character, that will be your x coordinate.

Zeno USA Sat 23 Dec 2006 12:42 AM #6

You could basically think of this as a 2D array, correct? Shouldn't be too hard.

Fletchling Australia Sat 23 Dec 2006 12:48 AM #7

Hrmm, that makes sense. I'll have a go at this over the next week.

Thank you.

Onoitsu2 USA Sat 23 Dec 2006 08:05 AM #8

Good luck to you on this, as this will reduce the pain in the neck that navigating Vidblain causes, or at least for those that don't use a portal. If you DO get this functioning, then one could ALWAYS determine SW's to ANY area accessable from the Vidblain Continent.

BTW, this is being made for Aardwolf MUD, for those that don't already know of the MUD this is to be used on.

Laterzzz,
Onoitsu2

Nick Gammon Australia Forum Administrator Sat 23 Dec 2006 07:08 PM #9

Of course, you are looking for the red asterisk, not just any one, so I would first process each line as it arrived in my trigger. Using the style runs that you get in Lua I would gradually build up the text of the line by appending the text of each style run to the previous one.

Then, if a style run had a red asterisk in it, I would change the asterisk to some other character which doesn't occur elsewhere. Then when going through that line character-by-character you could tell when you had hit the asterisk.

Another approach is to simply look at each style run, and if you get (say) a run of 6, which is not the red asterisk, add 6 to the x-coordinate, and repeat until you reach the red asterisk.

Onoitsu2 USA Thu 28 Dec 2006 10:31 AM #10

I have a VERY junky bit of code, I am half asleep as I code it, as I am 99% of the time when I get a hit of inspiration. It will put a Note of your X coord, then Y coord, it is shown WITHIN the map, but you can make it do whatever you want it to do ... and hopefully improve upon its design. And YES Nick I know that this is about as sloppy as coding can be, but as previously stated I am dead asleep, after having been up for about 24 hours...

If someone would be so kind as to try this code, and if so improve upon it, then we Mushclient users on Aardwolf will have the ONLY Vidblain speedwalker, that is completely flexible.

My trigger matches on this ...

<triggers>
  <trigger
   enabled="y"
   keep_evaluating="y"
   match="^(\+\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\+)|(\|(.*){30}\|)$"
   regexp="y"
   script="VidblainBigMap"
   sequence="100"
  >
  </trigger>
</triggers>

function VidblainBigMap(sName,sLine,wildcards,STYLES)
if sLine ~= "+------------------------------+" then
local line
line = tonumber(GetVariable("Vidblain_Line"))
if line == nil or line > 30 then line = 0 end
local col
col = 0
local str = {}
local linestyles = table.getn(STYLES)
for style = 1, linestyles do
  if RGBColourToName(STYLES[style]["textcolour"]) == "red" and string.sub(STYLES[style]["text"],1,1) == "*" then
  SetVariable("Vidblain_Line", line)
  --Note(tonumber(STYLES[style]["offset"]) - 1)
  for stylenum = 1, style - 1 do
    col = col + tonumber(STYLES[stylenum]["length"]) -- STYLES[style]["length"]
  end -- for
  col = col - 1
  Note(col)
  Note(line)
  DoAfterSpecial(0.1,'DeleteVariable("Vidblain_Line")',12)
  
  --Note(string.find(sLine,"*"))
  end -- if
  --table.insert (str, RGBColourToName(STYLES[style]["textcolour"]))
  --table.insert (str, RGBColourToName(STYLES[style]["backcolour"]))
  --table.insert (str, STYLES[style]["text"])
end -- for
line = tonumber(line) + 1
SetVariable("Vidblain_Line", line)
end -- if
end -- VidblainBigmap

Take care, I am going to go pass out, and prolly end up working this over in my sleeping mind, as I do MANY MANY nights, and causes TERRIBLE sleeplessness, even when on the brink of passing out.

Enjoy :)

Onoitsu2 USA Sat 30 Dec 2006 11:13 AM #11

Here is the "Finished" set of triggers, aliases, and functions ....

<triggers>
  <trigger
   enabled="y"
   match="^Minor Celestial Antipode$"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>Note("")
ColourNote("white","blue","Vidblain SW's are as follows:")
ColourNote("lime","black","Darklight      = run 7n14edn2e3nd")
ColourNote("lime","black","Doom and Gloom = run 4n11eu")
ColourNote("lime","black","Dune           = run 8s11e")
ColourNote("lime","black","Galaxy         = run 7n14ed")
ColourNote("lime","black","Mega-City One  = run 3n11e")
ColourNote("lime","black","Star Wars      = run 7w4s")
ColourNote("lime","black","ST:TNG         = run 14s9e")
ColourNote("lime","black","Ultima         = run 5e6s;enter moongate")</send>
  </trigger>
  <trigger
   enabled="y"
   name="Vidblain_Enter_Hole"
   match="^Into the dark \(G\)$"
   regexp="y"
   send_to="10"
   sequence="100"
  ><send>vidbigmap</send>
  </trigger>
  <trigger
   name="Vidblain_Bigmap_Start"
   keep_evaluating="y"
   match="^\+\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\+$"
   regexp="y"
   script="Vidblain_Bigmap_Start"
   sequence="100"
  >
  </trigger>
  <trigger
   name="Vidblain_Bigmap"
   keep_evaluating="y"
   match="^(\+\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\-\+)|(\|(.*?)\|)$"
   regexp="y"
   script="VidblainBigMap"
   sequence="100"
  >
  </trigger>
</triggers>

<aliases>
<alias
   match="^vidbigmap$"
   enabled="y"
   regexp="y"
   script="Vidblain_Bigmap_Enable"
   send_to="12"
   ignore_case="y"
   sequence="100"
  >
  </alias>
</aliases>


--===========================================
-- Put OUTSIDE ALL Functions, within script section
line_count = nil
x = 0
y = 0
--===========================================

function Vidblain_Bigmap_Enable(sName,sLine,wildcards)
Send("bigmap")
EnableTrigger("Vidblain_Bigmap_Start",1)
end -- Vidblain_Bigmap_Enable

function Vidblain_Bigmap_Start(sName,sLine,wildcards)
EnableTrigger("Vidblain_Bigmap_Start",0)
EnableTrigger("Vidblain_Bigmap",1)
end -- Vidblain_Bigmap_Start

function VidblainBigMap(sName,sLine,wildcards,STYLES)
if sLine ~= "+------------------------------+" then
line = line_count
if line == nil then line = 0 end
col = 0
local linestyles = table.getn(STYLES)
for style = 1, linestyles do
  if RGBColourToName(STYLES[style]["textcolour"]) == "red" and string.sub(STYLES[style]["text"],1,1) == "*" then
  SetVariable("Vidblain_Line", line)
  for stylenum = 1, style - 1 do
    col = col + tonumber(STYLES[stylenum]["length"])
  end -- for
  col = col - 1
  x = col
  y = line
  end -- if
end -- for
line = tonumber(line) + 1
line_count = line
else
EnableTrigger("Vidblain_Bigmap",0)
Note("X: " .. x .. " Y: " .. y)
line_count = nil

if (y >=0 and y < 4) or (y > 4 and y < 8) or (y > 8 and y < 13) or (y > 13 and y < 23) or (y > 23 and y < 26) or (y > 27 and 

y < 30) then
	if y > 15 then
	  if x > 15 then
	    Send("run " .. 30 - x .. "e" .. 30 - y .. "s")
	  else
	    Send("run " .. x .. "w" .. 30 - y .. "s")
	  end -- if
	else
	  if x > 15 then
	    Send("run " .. 30 - x .. "e" .. y .. "n")
	  else
	    Send("run " .. x .. "w" .. y .. "n")
	  end -- if
	end -- if
    --Send("run " .. x .. "w" .. y .. "n")
else
	if y > 15 then
	  if x > 15 then
	    Send("run " .. 30 - y .. "s" .. 30 - x .. "e")
	  else
	    Send("run " .. 30 - y .. "s" .. x .. "w")
	  end -- if
	else
	  if x > 15 then
	    Send("run " .. y .. "n" .. 30 - x .. "e")
	  else
	    Send("run " .. y .. "n" .. x .. "w")
	  end -- if
	end -- if
  --Send("run " .. y .. "n" .. x .. "w")
end -- if
end -- if
end -- VidblainBigmap

This will, upon speed walking to vidblain, find your X and Y coordinate, and find and run the shortest route to 0,0 (top left room), then present the list of SW's from that room...

I do hope that this can help someone in some way.

Also there is an alias vidbigmap, so that if you want to use THAT instead of having it be automatic, then do not include the "Vidblain_Enter_Hole" trigger, or just make the enabled="n"

Laterzzz,
Onoitsu2