Trying to gag lines only when walking

Posted by Zuurstof on Mon 23 Dec 2002 11:10 PM — 6 posts, 21,473 views.

Zuurstof Mon 23 Dec 2002 11:10 PM #0

It sounds pretty easy but it has me cracking up. I'm trying to gag my prompt every time that I move. I use aliases to run through large amounts of rooms and every time I hit a new room it shows my prompt again, this wasn't so irritating at first but I had to turn on newline after every prompt for another script that I am using so now I get spammed to death, what used to be 1 line is now 2.

Example:
Mirkwood(e, s, w and n)
a dagger
a staff
[HP:210 EP:120]
Mirkwood(e, s, w and n)
[HP:210 EP:120]

this is what I get now instead of

the old way
Mirkwood(e, s, w and n) [HP:210 EP:120]

Anyways what I am trying to do is gag my prompt line when I move. But only when I move, now I got one thing that might help, you can always recognise a movement by (e,s, etc)
the "(" and ")" so that can be used to check if your last line was a movement line, but that bring me to another problem, what if there is stuff in the room like in the example(I don't think it's possible to help it not showing prompt now). I was thinking maybe we check the previous 2 lines somehow to see if there was a prompt and if so then gag the new prompt. This is just theory, I have no real idea how to work it out though. I can imagine keeping two global variabels and check them with instr or something if there was a prompt, but I have no idea on how to gag the new prompt then.

If anybody was able to follow this maybe bizare story and thinks he can add something positive to it I would be more then thankful.

Greetings Zuurstof,

Nick Gammon Australia Forum Administrator Tue 24 Dec 2002 01:44 AM #1

Can you copy and paste the trigger you are using?

Zuurstof Tue 24 Dec 2002 06:25 AM #2

I'm not using a trigger yet, this was all theory, but I was thinking on handling it in my hpStatus sub. In this sub I change my prompt

^\[HP\:(.*?) EP\:(.*?)\]$ and log from output enabled.

sub hpStatus(thename, theoutput, thewildcards)
dim clrHP
dim clrEP
dim hp
dim ep

hp = Cint(Trim(thewildcards(1)))
ep = Cint(Trim(thewildcards(2)))

if hp < 50 then clrHp = "red"
if hp => 50 then clrHp = "maroon"
if hp => 75 then clrHP = "orange"
if hp => 150 then clrHP = "yellow"
if hp => 200 then clrHP = "lime"

if ep < 50 then clrEP = "red"
if ep => 50 then clrEp = "maroon"
if ep => 100 then clrEP = "orange"
if ep => 150 then clrEP = "yellow"
if ep => 200 then clrEP = "lime"

world.ColourTell "Red", "", "("
world.ColourTell clrHP, "", "HP: " & thewildcards(1)
world.ColourTell clrEP, "", " EP:" & thewildcards(2)
world.ColourNote "Red", "", ")"
End Sub

So I just send a note back.
Maybe I could put a check around like the following example:

if instr(1,LastLine,"(") <> 0 and instr(1,SecondLastLine,"(") <> 0 then
world.ColourTell "Red", "", "("
world.ColourTell clrHP, "", "HP: " & thewildcards(1)
world.ColourTell clrEP, "", " EP:" & thewildcards(2)
world.ColourNote "Red", "", ")"
end if

So this should work and all I have to do now is every time I run this function to put
SecondLastLine = LastLine
LastLine = * ( <== this is what i'm unsure of ) I dunno how to put the entire line into a variable. Hope this helps clear things a bit up but i doubt it:)

Greetings Zuurstof,

Zuurstof Tue 24 Dec 2002 03:46 PM #3

Well I a little tinkering and I think I got a decent enough solution, i'm just wondering how much it could slow things down. I am evaluating every line with a * trigger.

That trigger calls a function that put
- SecondLastLine into ThirdLastLine
- LastLine into SecondLastLine
- LastLine = arrwildcards(1)
and that's it, I used global vars for this.

Next I went to my hpStatus function and edited it to check if there was a '(' in the SecondLastLine or the ThirdLastLine. If so then I dind't send the prompt to the world, so this seems work) It's a little dirty and it doesn't work for rooms with more then 2 items in it but for the rest is seems to work like a charm.

I'm just wondering if anybody knows a less dirty way to this, Now i'm evaluating every line with a trigger and so the trigger gets called A LOT:)

Greetings Zuurstof,

Nick Gammon Australia Forum Administrator Thu 26 Dec 2002 03:55 AM #4

You can use GetLineInfo to keep track of the contents of previous lines, so the * trigger is a bit of an overkill.

Shadowfyr USA Thu 26 Dec 2002 05:32 AM #5

Except that getlineinfo would require looking back a bit to find if it was a move and there is no certainty of success.

Everyone seems to be ovelooking the obvious. Use onplugincommand like so:

function OnPluginCommand (sText)
  dim Dirls, Dirs, count
  Dirls = "s,south,n,north,e,east,w,west,nw,northwest,"
  Dirls = Dirls + "ne,northeast,sw,southwest,se,southeast,"
  Dirls = Dirls + "u,up,d,down,open door" '-Add any others here.
  Dirs = split(Dirls,":")
  for count = 0 to ubound(Dirs)
    if instr(sText, Dirs(count)) then
      enabletrigger "GagPrompt", vbTrue
      exit for
    else
      enabletrigger "GagPrompt", vbFalse
    end if
  next
  OnPluginCommand = vbTrue
end function

Note: I assume this will gag on any line that includes movement, even if a stacked command contains both movements and standard commands. This is probably a minor issue though. The only real problem is that this will work only from in a plugin, thus both this script and the trigger it switched on/off needs to be placed into one.

Note: It can't handle things like 'open east door', but modifying it to do so shouldn't be too hard.