Capturing Multiline Data

Posted by LupusFatalis on Tue 16 Jun 2009 10:37 PM — 12 posts, 45,877 views.

LupusFatalis Tue 16 Jun 2009 10:37 PM #0

Ok, so here's the deal, I'd like to write a trigger that does a few things. I want to capture the 'who list' and output it to a miniwindow. Firstly... the who list may have different colors, and ideally I'd like to capture them as well. Now I wrote a trigger that would work on any of the players on the who list, but I have no idea how to capture colors, etc... Here is some sample output (minus the color)

       Name                                     Idle Time
       a blind seer                             12s
       a calm filly                             58s
       a determined swordsman                   32s
       a magical crafter                        30s
       Alissa the human                         48s
       an ebon charlatan                        12s
       Auril the human                          4s
  [HG] Donovan the troll                        
  [SR] Rhyandra the human                       24s
       Telthor the catfolk                      12s
  There are roughly 17 people on.  Only 11 of them are friendly, though.
    Estimated active characters: 180 this month, 70 today.
  Ferdarchi was last renewed 5 days 15 hours 6 minutes 24 seconds ago.

Here is my trigger:

<triggers>
  <trigger
   match="^(\s+)([\/\|\]|[BH]|[DG]|[DK]|[HG]|[MG]|[SR])?(\s+)?([A-Za-z\s]+)(\s)([0-9mhs\s]+)?$"
   regexp="y"
   send_to="2"
   sequence="100"
  >
  <send>Triggered</send>
  </trigger>
</triggers>

I'd also like to somehow include the first and last lines to ensure that this triggers only on the who list.

Hoax Wed 17 Jun 2009 04:07 AM #1

I suppose you will call a script function with the trigger you created. Let say the trigger will call wholist function. In LUA:

function wholist(name,line,wc,styles)
for _, v in ipairs (styles) do
ColourTell(RGBColourToName(v.textcolour), RGBColourToName(v.backcolour), v.text)
end --for
Note("")
end --function wholist

As for your second wish, I here grant you a solution. Create an alias who, which call a trigger. In that trigger, create another trigger with AddTrigger/AddTriggerEx, which capture anything and call a function. In the function, you will want to filter the output, capturing only what you want to capture (i.e. You may not want to capture the title/header, that is the line with 'name' and 'idle time'. And when the line captured by the trigger is "There are roughly * player* on", then you delete the trigger, to stop it triggering anything after that line, obviously.

Best of luck!

LupusFatalis Wed 17 Jun 2009 09:05 PM #2

Ok, I got the triggers and alias working, very clever. But I'm not sure what that script does... and the lines themselves are not all one color. Theoretically each character could be a different color. That isn't the case, usually the flags [HG] etc... are two colors, the name is one color, and the idle times are another. Not sure how the packets are sent. Is there some function I can call on to get the color, background color, and style of individual characters?

I work in python, so I'm also not sure how to modify the escape characters and such to work with Lua and all that, which I'll have to do for the trigger, but that's pretty minor, compared to the color portion.

Mm1mark Thu 18 Jun 2009 12:30 AM #3

you forgot RoE..just thought i'd point that out

Nick Gammon Australia Forum Administrator Thu 18 Jun 2009 10:10 PM #4

Quote:

Theoretically each character could be a different color.

It is easier in Lua, because triggers get a fourth argument, which is the style runs for the matching line, which includes colour information.

In other languages, you can obtain the style runs using GetStyleInfo. The line number (if it is the last line) can be obtained from GetLinesInBufferCount, and the number of styles from GetLineInfo.

http://www.gammon.com.au/scripts/doc.php?function=GetStyleInfo

http://www.gammon.com.au/scripts/doc.php?function=GetLinesInBufferCount

http://www.gammon.com.au/scripts/doc.php?function=GetLineInfo

I agree with Hoax that three or so triggers are required - one to detect the start of the who list, one to detect the end, and one for the stuff in the middle.

Personally I wouldn't add or remove triggers all the time, simply enable and disable existing ones - that is easier to do.

LupusFatalis Mon 22 Jun 2009 12:21 AM #5

Alright guys, I've got it mostly working. Except when I omit the line with the data it screws everything up. The idea is to eventually have the alias triggered on a timer and completely stripped from my screen (aside from the miniwindow).

The trigger in question is here:

  <trigger
   enabled="n"
   group="WhoList"
   keep_evaluating="y"
   match="^(\s+)([\/\|][BH]|[DG]|[DK]|[HG]|[MG]|[SR])?(\s+)([A-Za-z\s]+) ([0-9mhs\s]+)?$"
   omit_from_output="n"
   regexp="y"
   send_to="12"
   script="ParseWhoList"
   sequence="100"
  >
  </trigger>

And here is the scripting portion:

winTMargin = 1			#Top Window Margin
winLMargin = 1			#Left Window Margin
yPos = 0				#Window Y Coordinate
xPos = 0				#Window X Coordinate
winHeight = 300			#Default Window Height
winWidth = 250			#Window Width
winColor = 0x000000		#Window Color
fontName = 'Dina'		#Font
fontHeight = 16			#Font Height

#Char, Foreground, Background, Bold, Line
WhoList = [[],[],[],[],[]]

win = world.GetPluginID

def OnPluginConnect():
	world.EnablePlugin (world.GetPluginID, 0)
	
def OnPluginDisconnect():
	world.WindowShow (win, 0)

def OnPluginClose():
	world.WindowShow (win, 0)

def OnPluginDisable():
	world.WindowShow (win, 0)

def OnPluginEnable():
	world.WindowCreate (win, xPos, yPos, winWidth, winHeight, 7, 0, winColor)
	world.WindowShow (win, 1)

def ParseWhoList(TriggerName, trig_line, wildcards):
	sFlag = wildcards[1]
	sID = wildcards[3].rstrip()
	sCompiled = sFlag.rjust(6) + ' ' + sID
	xLine = world.GetLinesInBufferCount		#Line Number
	xStyle = world.GetLineInfo(xLine, 11)	#Number of Styles

	#world.Note(sCompiled + ', ' + str(xStyle))
	
	for i in range(0, xStyle):
		xStyleLen = world.GetStyleInfo(xLine, i+1, 2)	#Length of Style
			
		WhoList[0].append(sCompiled[0:xStyleLen])
		sCompiled = sCompiled[xStyleLen:len(sCompiled)]
		
		WhoList[1].append(world.GetStyleInfo(xLine, i+1, 14))
		WhoList[2].append(world.GetStyleInfo(xLine, i+1, 15))
		
		if world.GetStyleInfo(xLine, i+1, 8):
			WhoList[3].append('1')
		else:
			WhoList[3].append('0')
		
		WhoList[4].append(str(xLine))


def DisplayWho():
	#for i in range(0, len(WhoList[0])):
	#	world.Note(str(WhoList[0][i]) + ', ' + str(WhoList[1][i]) + 
	#', ' +str(WhoList[2][i]) + ', ' +str(WhoList[3][i]) + ', ' + str(WhoList[4][i]))

	world.WindowFont (win, 'body', fontName, 10, 0, 0, 0, 0, 1, 0)
	world.WindowFont (win, 'title', fontName, 10, 1, 0, 0, 0, 1, 0)
	
	xLineLast = WhoList[4][0]
	xLineCount = 1
	
	for i in range(0, len(WhoList[4])):
		if not WhoList[4][i] == xLineLast:
			xLineCount = xLineCount + 1
			xLineLast = WhoList[4][i]
	
	winHeight = fontHeight * xLineCount + 3
	
	world.WindowCreate (win, xPos, yPos, winWidth, winHeight, 7, 0, winColor)
	localTMargin = winTMargin
	
	xLineLast = WhoList[4][0]
	xChars = 0
	for i in range(0, len(WhoList[0])):
		if not WhoList[4][i] == xLineLast:
			localTMargin = localTMargin + fontHeight
			xLineLast = WhoList[4][i]
			xChars = 0
		if WhoList[3][i] == '1':
			world.WindowText (win, 'title', str(WhoList[0][i]), winLMargin + (xChars + 1) * 8, localTMargin, 0, 0, WhoList[1][i], 1)
			xChars = xChars + len(str(WhoList[0][i]))
		else:
			world.WindowText (win, 'body', str(WhoList[0][i]), winLMargin + (xChars + 1) * 8, localTMargin, 0, 0, WhoList[1][i], 1)
			xChars = xChars + len(str(WhoList[0][i]))
		
	world.WindowShow (win, 1)


def CleanUp():
	for i in range(0, len(WhoList[0])):
		WhoList[0].pop(0)
	for i in range(0, len(WhoList[1])):
		WhoList[1].pop(0)
	for i in range(0, len(WhoList[2])):
		WhoList[2].pop(0)
	for i in range(0, len(WhoList[3])):
		WhoList[3].pop(0)
	for i in range(0, len(WhoList[4])):
		WhoList[4].pop(0)

Nick Gammon Australia Forum Administrator Mon 22 Jun 2009 06:10 AM #6

Quote:

Except when I omit the line with the data it screws everything up.

Can you be more specific? In what way?

LupusFatalis Mon 22 Jun 2009 07:21 AM #7

Well, whenever I have it omit, the miniwindow I have now displays nothing. I think it has to do with the fact I'm trying to get a line that isn't actually drawn in the main window. Is that the case?

Nick Gammon Australia Forum Administrator Mon 22 Jun 2009 08:02 AM #8

Yes, that sounds right. See:

http://www.gammon.com.au/forum/bbshowpost.php?bbsubject_id=6554

You can work around that by doing "send to script" rather than calling a script function. The sequence is:

Do "send to" actions (including send to script)
Omit from output if requested
Do "send to script (after omit) scripts (in the send box)
Call scripts in the script file

Thus, doing what were doing in "send to script" will work (even if omitting) but not when you call the function in the script file.

LupusFatalis Tue 23 Jun 2009 07:54 AM #9

Beautiful, got it working well. Needs a tiny bit of minor tweaking. I guess this means the mud will now have to put up with my 1 second who-list updates now. lol. I'd post it here, but its a bit long. So I'll just post the script bit. Anyone wanting to use it can easily piece together the rest from this thread.

winTMargin = 3			#Top Window Margin
winLMargin = 3			#Left Window Margin
yPos = 0				#Window Y Coordinate
xPos = 0				#Window X Coordinate
winHeight = 300			#Default Window Height
winWidth = 200			#Window Width
winColor = 0xFF0000		#Window Color
fontName = 'Dina'		#Font
fontHeight = 16			#Font Height
fontWidth = 8			#Font Width

#Char, Foreground, Bold
WhoList = [[],[],[]]

win = world.GetPluginID

def OnPluginConnect():
	world.EnablePlugin (world.GetPluginID, 0)
	
def OnPluginDisconnect():
	world.WindowShow (win, 0)

def OnPluginClose():
	world.WindowShow (win, 0)

def OnPluginDisable():
	world.WindowShow (win, 0)

def OnPluginEnable():
	world.WindowCreate (win, xPos, yPos, winWidth, winHeight, 7, 0, winColor)
	world.WindowShow (win, 1)

def ParseWhoList(TriggerName, trig_line, wildcards):
	#sFlag = wildcards[1]
	sID = wildcards[3].rstrip()
	xLine = world.GetLinesInBufferCount		#Line Number
	xStyle = world.GetLineInfo(xLine, 11)	#Number of Styles
	if xStyle == 1: xStyle = 2
	
	WhoList[0].append(sID)
	WhoList[1].append(world.GetStyleInfo(xLine, xStyle-1, 14))

	if world.GetStyleInfo(xLine, xStyle-1, 8):
		WhoList[2].append('1')
	else:
		WhoList[2].append('0')

def DisplayWho():
	
	world.WindowFont (win, 'body', fontName, 10, 0, 0, 0, 0, 1, 0)
	world.WindowFont (win, 'title', fontName, 10, 1, 0, 0, 0, 1, 0)
	winHeight = fontHeight * len(WhoList[0]) + 2 * winTMargin
	
	world.WindowCreate (win, xPos, yPos, winWidth, winHeight, 7, 0, winColor)
	world.WindowRectOp(win, 2, 2, 2, winWidth-2, winHeight-2, 0x000000, 0x000000)

	for i in range(0, len(WhoList[0])):	
		localTMargin = winTMargin + i * fontHeight	
		if WhoList[2][i] == '1':
			world.WindowText (win, 'title', str(WhoList[0][i]), winLMargin, localTMargin, 0, 0, WhoList[1][i], 1)
		else:
			world.WindowText (win, 'body', str(WhoList[0][i]), winLMargin, localTMargin, 0, 0, WhoList[1][i], 1)

	world.WindowShow (win, 1)


def CleanUp():
	for i in range(0, len(WhoList[0])):
		WhoList[0].pop(0)
	for i in range(0, len(WhoList[1])):
		WhoList[1].pop(0)
	for i in range(0, len(WhoList[2])):
		WhoList[2].pop(0)

Nick Gammon Australia Forum Administrator Tue 23 Jun 2009 08:00 AM #10

/cry for the MUD admins, if everyone does a "who" every second.

Also, you would complain if there is lag, yes?

Maybe check the who list every 10 seconds or so. :-)

LupusFatalis Tue 23 Jun 2009 07:54 PM #11

Haha, yeah, I was just joking, I'll probably do ~30 seconds (its not terribly vital).