Register forum user name Search FAQ

Gammon Forum

Notice: Any messages purporting to come from this site telling you that your password has expired, or that you need to verify your details, confirm your email, resolve issues, making threats, or asking for money, are spam. We do not email users with any such messages. If you have lost your password you can obtain a new one by using the password reset link.

Due to spam on this forum, all posts now need moderator approval.

 Entire forum ➜ MUSHclient ➜ VBscript ➜ Help with a Compass Plugin
Help with a Compass Plugin

It is now over 60 days since the last post. This thread is closed.     Refresh page

Posted by Dabura   (11 posts)  Bio
Date Mon 03 Nov 2003 03:45 AM (UTC)

Amended on Mon 03 Nov 2003 04:18 AM (UTC) by Dabura

Message
Hello. This is my first attempt at using VBScript to do anything, and I need a bit of help figuring out what to do here.

Pretty much, i'm writing a script that triggers off of

Exits: * * * * * * * *

and then displays something a bit like this to the screen:

NW     N     NE
W <---(+)---> E
SW     S     SE


with the obvious alterations depending on the exits displayed.
What I was wanting to do was at first do a seperate output for each different combination of exits.. but with 8 different possibilities, that's not gonna happen. So, pretty much, I need help on figuring out how I should write all the ifs.
Top
Posted by David Haley   USA  (3,881 posts)  Bio
Date Reply #1 on Mon 03 Nov 2003 04:21 AM (UTC)
Message
What exactly do you want your plugin to do? You say writing out things depending on the compass output, and that there are different possibilities depending on the exit combinations, but what exactly do you want your result to look like?
David Haley aka Ksilyan
Head Programmer,
Legends of the Darkstone

http://david.the-haleys.org
Top
Posted by Dabura   (11 posts)  Bio
Date Reply #2 on Mon 03 Nov 2003 04:23 AM (UTC)

Amended on Mon 03 Nov 2003 05:16 AM (UTC) by Dabura

Message
For example.. if the exits are to the north, west, south, and east, then it would output

       N       
W <---(+)---> E
       S

or if the exits were north, northeast and south it would be

       N     NE
  <---(+)--->  
       S
Top
Posted by David Haley   USA  (3,881 posts)  Bio
Date Reply #3 on Mon 03 Nov 2003 04:40 AM (UTC)
Message
One thing you can do is set up an array of 1s and 0s that indicate whether or not the exit is present or not. To find that out, you look at the string of exits, and see if "north" is in it. I think the function is InStr, or StrStr or something like that. I actually haven't used VB for quite a while, but InStr sounds familiar...

So once you have your array, you can display it accordingly. For instance, if northwest is "on", you add "NW" to your string, otherwise add " " to it (to keep the formatting correct.)

I can't think of a particularly clever way off the top of my head, but that seems like the simplest given the tools and constraints.
David Haley aka Ksilyan
Head Programmer,
Legends of the Darkstone

http://david.the-haleys.org
Top
Posted by Flannel   USA  (1,230 posts)  Bio
Date Reply #4 on Mon 03 Nov 2003 04:56 AM (UTC)
Message
There was a similar thread to this a while ago, except it was going the opposite direction. But you might be able to use some of the routines.

Do a search for compass, it should come up.
~Flannel

Messiah of Rose
Eternity's Trials.

Clones are people two.
Top
Posted by Dabura   (11 posts)  Bio
Date Reply #5 on Tue 11 Nov 2003 04:54 AM (UTC)
Message
Well.. i've gotten my script written up and my trigger made. But, it's not working. So, after I post this, i'm gonna go to bed and hope SOMEBODY helps me here.

<triggers>
  <trigger
   enabled="y"
   group="OnCompass"
   match="^Exits\: (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) .*?$"
   name="OnCompass"
   regexp="y"
   script="OnCompass"
   send_to="12"
   sequence="100"
   other_text_colour="black"
   other_back_colour="black"
  >
  </trigger>
</triggers>

There's my trigger.


sub OnCompass(name, output, wcards)
' North: 1
' East: 2
' West: 3
' South: 4
' Northeast: 5
' Northwest: 6
' Southeast: 7
' Southwest: 8
' Up: 9
' Down: 10
dim dirs(10)

' The following checks if any of the 10 directions are present in the 10 wildcards, and if so, assigns the respective
' direction to one of the members of the array "dir", and if not, assigns a blank space to the same member.
if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "north" then
dirs(1) = "N"
else
dirs(1) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "east" then
dirs(2) = "E"
else
dirs(2) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "west" then
dirs(3) = "W"
else
dirs(3) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "south" then
dirs(4) = "S"
else
dirs(4) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "northeast" then
dirs(5) = "NE"
else
dirs(5) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "northwest" then
dirs(6) = "NW"
else
dirs(6) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "southeast" then
dirs(7) = "SE"
else
dirs(7) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "southwest" then
dirs(8) = "SW"
else
dirs(8) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "up" then
dirs(9) = "U"
else
dirs(9) = " "
end if

if wcards(1) or wcards(2) or wcards(3) or wcards(4) or wcards(5) or wcards(6) or wcards(7) or wcards(8) or wcards(9) or wcards(10) = "down" then
dirs(10) = "D"
else
dirs(10) = " "
end if

world.Note " _______________ "
world.Note "|(" & dirs(5) & ")--(" & dirs(1) & ")--(" & dirs(6) & ")|"
world.Note "|       |       |"
world.Note "|(" & dirs(3) & ")-([" & dirs(9) & "|" & dirs(10) & "])-(" & dirs(2) & ")|"
world.Note "|       |       |"
world.Note "|(" & dirs(8) & ")--(" & dirs(4) & ")--)" & dirs(7) & ")|"
world.Note "-----------------"

'  _______________ 
' |(NW)--(N)--(NE)|
' |       |       |
' |(W)-([U|D])-(E)|
' |       |       |
' |(SW)--(S)--(SE)|
' -----------------

end sub


There's obviously SOMETHING wrong with this, so please help me.
Top
Posted by David Haley   USA  (3,881 posts)  Bio
Date Reply #6 on Tue 11 Nov 2003 05:09 AM (UTC)
Message
Two things:
1- could you post the output?
2- you need to repeat the condition on every part of the if statement, e.g.
[code]
if wcards(1) = "north" or wcards(2) = "north" or wcards(3) = "north" or wcards(4) = "north" or wcards(5) = "north" or wcards(6) = "north" or wcards(7) = "north" or wcards(8) = "north" or wcards(9) = "north" or wcards(10) = "north" then
[/code]
There may be a nicer way of doing it. It would be cleaner to have a function that goes through the array searching for a string passed as an argument; then you could call like so:
[code]
if arrayContains(wcards, "north") then
[/code]
which is obviously much nicer.
David Haley aka Ksilyan
Head Programmer,
Legends of the Darkstone

http://david.the-haleys.org
Top
Posted by Xyborg   Canada  (47 posts)  Bio
Date Reply #7 on Tue 11 Nov 2003 05:36 AM (UTC)
Message
Well. I'm kinda working with him on this. The exact trigger line is:

Exits: north east south west up down.

But there is also northeast and such so the trigger in regular expression should be (for the line above):

^Exits\: (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)\.$

Correct?

Now. Although this isn't the method he was using, i figured it would be a little better. It's much like the chmod function for unix.

Assigning values to the directions in the trigger.

North: 1
East: 2
West: 4
South: 8
Northeast: 16
Northwest: 32
Southeast: 64
Southwest: 128
Up: 256
Down: 512

Ok. Here is where I have a problem. The trigger should be:

<triggers>
  <trigger
   enabled="y"
   group="OnCompass"
   match="^Exits\: (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)\.$"
   name="OnCompass"
   regexp="y"
   script="OnCompass"
   send_to="12"
   sequence="100"
   other_text_colour="black"
   other_back_colour="black"
  >
  </trigger>
</triggers>


Correct?

I'm not sure how I could ensure that each direction gets it's appropriate number in the script. I was thinking

dirs(0) = 1
dirs(1) = 2
dirs(2) = 4


But that wouldn't work because the line can appear in many different ways.

Exits: north east south west up down.
Exits: east south.

Which means that dirs(0) won't always be 'north'.

That's why I think that the way Dabura's got it might be better, but as he said, we're not sure why it isn't working.

But, I just had a brainstorm so I'm going to try that out and see if it works.
We offer power to those willing to take it. Sadly, few are unburdened enough by their prejudices to accept.
Top
Posted by David Haley   USA  (3,881 posts)  Bio
Date Reply #8 on Tue 11 Nov 2003 05:48 AM (UTC)
Message
One reason it won't work is because of what I told you: you have to repeat the test in every sub-expression of the long if statement. Otherwise, you're having it interpret the string value to bool, and this means return true if the string is not empty.

The other thing I just noticed is that your regex is wrong. What if you have:

Exits: north.

Your trigger won't match, since it wants:
Exits: somethingSPACEsomethingSPACEsomething
if that makes sense to you. Your regex demands a list of space-separated entries, and you won't always get that amount.
David Haley aka Ksilyan
Head Programmer,
Legends of the Darkstone

http://david.the-haleys.org
Top
Posted by Flannel   USA  (1,230 posts)  Bio
Date Reply #9 on Tue 11 Nov 2003 06:42 AM (UTC)
Message
Why dont you use the For Each statement to cycle through?
For each direction have a for each loop, then if it finds it, it adds it to the number, or makes the string have a letter, or whatever.
~Flannel

Messiah of Rose
Eternity's Trials.

Clones are people two.
Top
Posted by Johnathan Allen   (49 posts)  Bio
Date Reply #10 on Tue 11 Nov 2003 09:29 AM (UTC)
Message
I had to do something similar to this, and I used the Split() function. I kept the whole string intact, so a regex trigger wasn't neccesary. Something that matches on "Exits: *" Example:

Exits: north east southwest

The first wildcard would contain all exits, like this: "north east southwest"

arrExits = Split(arrWildCards(1), " ", -1, 1)

Would return an array of each exit in text form.

Then something like this to walk through each one:

For Each r in arrExits
 '
 ' Process each exit individually
 ' 
 Select Case r
  Case "north" dirs(1) = "N"
  Case "south" 'etc
  Case "east"  
  Case "west"  
  'etc.
 End Select
Next


That would trim down the size of the script considerably, and should work better. I don't know how well the compass will draw on your screen. I think it might be best to preserve spaces in the empty ones, so the compass isn't drawn out all messed up.
Top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.

26,180 views.

It is now over 60 days since the last post. This thread is closed.     Refresh page

Go to topic:           Search the forum

[Go to top] top

Information and images on this site are licensed under the Creative Commons Attribution 3.0 Australia License unless stated otherwise.

Home