Console Apps (category)

These are softcoded applications which utilize the Status Console.

Since this is such a new thing, much of the initial content of this category is silly, fun exploration of potential. Hopefully, in time, it'll grow to include useful stuff (i.e., right now, I'm having fun playing).

Status console - MUSHclient

Text:

Based on the tf work at http://community.pennmush.org/node/481
I've done something similar for MUSHclient. This supports both the C# and C#,# protocols

The script below requires you to create a dummy work "status" (ip 0.0.0.0) and open it up and position it as your status console. The script will write to that world. You copy the script to your clipboard, and then open the Triggers window in your real mush world and hit 'Paste'. You must have Lua scripting enabled in the world's configuration. Replace "TFPREFIX" below with your actual desired secret

Current limitations: It's slower than the tf one, so fast animations (like the fast pig) may not work as mushclient won't trigger fast enough.

Also the regular flying pig behaves a bit weirdly at start and I don't know why. The frogger app works fine.

<triggers>
  <trigger
   enabled="y"
   match="^!TFPREFIXC(\d+) (.*)"
   omit_from_output="y"
   regexp="y"
   send_to="14"
   sequence="100"
  >
  <send>
  
local w = GetWorld ("status")  -- get "status" world

if w then  -- if present
  style = {}
  myline = tonumber("%1")
  total_lines = w:GetLinesInBufferCount ()
  if total_lines > 5 then
    total_lines = 5
  end
  for line = 1, total_lines do
    style[line] = w:GetStyleInfo(line)  -- A table of tables
  end
  if total_lines < myline then
    total_lines = myline
  end
  
  w:DeleteOutput()

  for line = 1, total_lines do
   styleruns = style[line]
   if line == myline then
     styleruns = TriggerStyleRuns
   end -- if
   for _,v in ipairs (styleruns) do
       v.text = string.gsub(v.text,"^!TFPREFIXC[0-9][0-9]* ","")
       w:ColourTell (RGBColourToName (v.textcolour), 
                  RGBColourToName (v.backcolour), 
                  v.text) 
   end -- for each style run
   w:Note ("")  -- wrap up line
  end -- for line

end -- world found

</send>
  </trigger>

  <trigger
   enabled="y"
   match="^!TFPREFXC(\d+),(\d+) (.*)"
   omit_from_output="y"
   regexp="y"
   send_to="14"
   sequence="100"
  >
  
  
local w = GetWorld ("status")  -- get "status" world

if w then  -- if present
  style = {}
  myline = tonumber("%1")
  mychar = tonumber("%2")+1
  mylen = string.len("%3")
  total_lines = w:GetLinesInBufferCount ()
  if total_lines > 5 then
    total_lines = 5
  end
  for line = 1, total_lines do
    style[line] = w:GetStyleInfo(line)
  end
  if total_lines < myline then
    total_lines = myline
  end
  
  w:DeleteOutput()

  for line = 1, total_lines do
   if (line == myline) then
     -- First, identify at what style runs (by column) the new text will start and stop
     -- It's the starting column if this style run includes mychar
     -- It's the end column if this style run includes mychar+mylen
     -- Also identify where in each style run (how many chars in)
     startcol = -1
     startchar = 1
     endcol = -1
     endchar = 1
     for _,v in ipairs (style[line]) do
       if (startcol == -1 and v.column <= mychar and v.column+v.length >= mychar) then
         startcol = v.column
         startchar = mychar - v.column
       end
       if (endcol == -1 and v.column <= mychar+mylen and v.column+v.length >= mychar+mylen) then
         endcol = v.column
         endchar = mychar + mylen - v.column + 1
       end
       lastindex = _
     end -- for
     if (startcol == -1) then
       -- Oops, we're trying to write beyond the last column! So we'll extend the last style run's
       -- text and length
       v = style[line][lastindex]
       extraneeded = mychar + mylen - v.column + v.length
       style[line][lastindex].text = v.text .. string.rep(" ",extraneeded)
       style[line][lastindex].length = v.length + extraneeded
       startcol = v.column
       startchar = mychar - v.column
       endcol = v.column
       endchar = v.length
     end
     if (endcol == -1) then
       -- Oops, we've started somewhere, but are trying to write beyond the last column.
       -- We'll extend it, as above.
       v = style[line][lastindex]
       extraneeded = mychar + mylen - v.column + v.length
       style[line][lastindex].text = v.text .. string.rep(" ",extraneeded)
       style[line][lastindex].length = v.length + extraneeded
       endcol = v.column
       endchar = v.length
     end
    inserted = 0
    for _,v in ipairs (style[line]) do
     if (v.column == startcol) then
       -- show up to startchar
       w:ColourTell (RGBColourToName (v.textcolour), 
                  RGBColourToName (v.backcolour),
		string.sub(v.text,1,startchar))
       -- insert here
       for x,v2 in ipairs (TriggerStyleRuns) do
         v2.text = string.gsub(v2.text,"^!TFPREFIXC[0-9][0-9]*,[0-9][0-9]* ","")
         w:ColourTell (RGBColourToName (v2.textcolour), 
                  RGBColourToName (v2.backcolour), 
                  v2.text) 
       end -- for
       inserted = 1
     end -- v.column == startcol
     if (inserted == 0 or v.column >= endcol) then
       -- regular style runs here, possibly with a partial column starting at endchar
       if (v.column == endcol) then
         w:ColourTell (RGBColourToName (v.textcolour), 
                  RGBColourToName (v.backcolour),
		string.sub(v.text,endchar,v.length))
       else
         w:ColourTell (RGBColourToName (v.textcolour), 
                  RGBColourToName (v.backcolour),
		v.text)
       end
     end -- not inserted or v.column >= endcol
    end -- for
     
   else -- if line == myline
    for _,v in ipairs (style[line]) do
       w:ColourTell (RGBColourToName (v.textcolour), 
                  RGBColourToName (v.backcolour), 
                  v.text) 
    end -- for each style run
   end -- if line == myline
   w:Note ("")  -- wrap up line
  end -- for line

end -- world found

</send>
  </trigger>

</triggers>

Status console - tf

Text:


; ..:....1....:....2....:....3....:....4....:....5....:....6....:....7....:...
;
; Cleaning up after the party, we have this functional script.
;
; apparently, tf restricts status_height to <= 6. so, we use that.
; (discovered by Javelin)
;
/set status_height=6
;
; ..:....1....:....2....:....3....:....4....:....5....:....6....:....7....:...
; Now, we trigger on receiving data matching
;
; !<TFPREFIX>C<n> <data>
;
; (where TFPREFIX is a secret set by each user, and 'C' is the
; 'CONSOLE' identifier for tf)
;
; since TFPREFIX isn't actually required for this, I suggest using
; something else altogether, so as to separate the protocol entirely
; from @dec/tf.
; -hack
;
; and then display data on line n (from 0-6), replacing anything
; already on that line.
;
/for r 1 4 /status_add -c -r%{r} data_%{r}:$[columns()]
/for r 1 4 /set data_%{r}=$[pad(" ",-columns())]
/def -ag -mregexp -t'!TFPREFIXC(\d+) (.*)' statstuff = \
  /set data_%P1=$[pad({P2},-columns())]
;
; (this section written by Javelin)
; ..:....1....:....2....:....3....:....4....:....5....:....6....:....7....:...
; The protocol has been extended to support placing a string at
; row X, column Y (where the first column is 0), making this optional method
; take the format
;
; !<TFPREFIX>C<Row#>,<Col#> <data>
;
; the data can be a string and it will be placed into position as though
; typed in in 'typeover' mode (i.e., without modifying any of the surrounding
; text).
;
/def -ag -mregexp -t'!TFPREFIXC(\d+),(\d+) (.+)' statstuffbychar = \
/set dataname=data_%P1 %; \
/eval /set old_data=%%{%{dataname}} %; \
/set newlen=$[strlen(%P3)] %; \
/set data_%P1=$[strcat(substr({old_data}, 0, {P2}), {P3}, substr({old_data}, {P2}+{newlen}, columns()))]
;
; (this section drafted by Javelin and debugged by Trispis)
;
; NOTE: The above code potentially can
; overwrite any data_# tf variable.
; If more protection is needed,
; the first (\d+) in the trigger
; pattern could be changed to
; ([1-5]) or something. - Jav
; ..:....1....:....2....:....3....:....4....:....5....:....6....:....7....:...
; Things left to do:
; Make it world-aware -- console only being visible when toggled to
; the world feeding it. This means different consoles for different
; worlds.
; Make it go away when not in use.
; Make cool stuff to use it.