[Home] [Downloads] [Search] [Help/forum]

Gammon Software Solutions forum

See www.mushclient.com/spam for dealing with forum spam. Please read the MUSHclient FAQ!

[Folder]  Entire forum
-> [Folder]  MUSHclient
. -> [Folder]  VBscript
. . -> [Subject]  ReDim, UBound & LBound on World [array] Variables.
Home  |  Users  |  Search  |  FAQ
Username:
Register forum user name
Password:
Forgotten password?
ReDim, UBound & LBound on World [array] Variables.

[Reply to this subject]  Reply to this subject   [New subject]  Start a new subject   [Refresh] Refresh page

Pages: 1  2 

Posted by Poromenos   Greece  (1,037 posts)  [Biography] bio
Date Reply #15 on Mon 23 Jun 2003 09:50 PM (UTC)  [ quote  ]
Message
OK, let me contribute a bit to this thread... I didn't read all of it, because, I'm too lazy, but I think this'll help :P

I made a script to count EQ damage a while ago. Uses two-dimensional VBScript global variables to store the data and then loads/saves them in MC variables when it's done.
Here is a general example of arrays in VB:

Dim varArray(2)
Dim varDamage()
varArray(1) = "Test"
varArray(2) = "Test 2"

Sub AddItem(strItem)
Redim Preserve varDamage(UBound(varDamage) + 1)
varDamage(UBound(varDamage)) = "Store this"
End Sub

That way, you can initialise and resize a variable at runtime. There are many functions to search, store and load arrays to MC variables in my script, ready to be used.
I'm pasting a few because the script is no longer online:

Sub subSaveArray
Dim intCounter
Dim strContents
Dim intArrayCounter

For intCounter = 0 to UBound(strEQTable, 2)
strContents = strEQTable(0, intCounter)
For intArrayCounter = 1 to constTableItems
strContents = strContents & "|" & strEQTable(intArrayCounter, intCounter)
Next
world.SetVariable "EQHit_Item_" & intCounter, strContents
Next
End Sub

Function fnFindItem (strItemName)
Dim intCounter

For intCounter = 0 to UBound(strEQTable, 2)
If UCase(strEQTable(0, intCounter)) = UCase(strItemName) Then
fnFindItem = intCounter
Exit Function
End IF
Next
fnFindItem = -1
End Function

The function to load the array was a bit huge due to script-specific stuff, but I'm sure you can reverse the save one.
VB is a bit hazy when it comes to arrays. I still don't know to this day what the lower bound of a VB array is. I.e. if i declare varArray(7), is the lower bound 0, or 1? and is the high bound 7, or 6? Confusing... Anyway, I hope I helped.
Vidi, Vici, Veni.
http://porocrom.poromenos.org/ Read it!
[Go to top] top
Posted by Shadowfyr   USA  (1,774 posts)  [Biography] bio
Date Reply #16 on Tue 24 Jun 2003 12:12 AM (UTC)  [ quote  ]
Message
Well, in scripting:

"The lower bound of an array is always zero."

However, in Visual Basic you can change the lbound for all arrays used, though the default in that is 1. This is for reverse compatibility with earlier Basic programs that used 1 as the first index, but allows you to instead use 0 as the first one when you want to. As far as I know, VBScript forces you to use the 0 -> (size - 1) version, like most other languages and you can't change it.
main {
__if (Schrodinger_Cat is Alive or version >= "XP"){
____if version = "Vista" then Performance /= Number_of_Cores;
____call Functional_Code();}
__else
____call Crash_Windows();}
[Go to top] top
Posted by Poromenos   Greece  (1,037 posts)  [Biography] bio
Date Reply #17 on Tue 24 Jun 2003 11:42 AM (UTC)  [ quote  ]
Message
Maybe you can use "Option Base 1", like in VB? Haven't tried it though... I just assume the base is one, and fix any bounds errors that might come up :P
Vidi, Vici, Veni.
http://porocrom.poromenos.org/ Read it!
[Go to top] top
Posted by Shadowfyr   USA  (1,774 posts)  [Biography] bio
Date Reply #18 on Tue 24 Jun 2003 08:35 PM (UTC)  [ quote  ]
Message
Nope. You can't change the base for the range under VBScript. No such command exists. The only reason, as I said, that VB allows it is to make conversion of older Basic programs to VB easier by allowing you to use the exsiting array structures in such a program.
main {
__if (Schrodinger_Cat is Alive or version >= "XP"){
____if version = "Vista" then Performance /= Number_of_Cores;
____call Functional_Code();}
__else
____call Crash_Windows();}
[Go to top] top
Posted by Norbert   USA  (61 posts)  [Biography] bio
Date Reply #19 on Thu 26 Jun 2003 10:53 AM (UTC)  [ quote  ]
Message
Well what I was trying to do was to make a alignment bar for my info bar, because my character gets better attacks when he is neutral, and I wanted to use an array instead of a switch since an array would just be one line of code. I know in LPC there is searcha that would search an array for an element, and I've been told that PERL has a similar function, so I'm just going to convert my script to PERL.
Thanks for the help though.
Norbert

-Do you know what it's like to fall in the mud and get kicked... in the head... with an iron boot?
Of course you don't, no one does. It never happens
It's a dumb question... skip it.
[Go to top] top
Posted by Poromenos   Greece  (1,037 posts)  [Biography] bio
Date Reply #20 on Thu 26 Jun 2003 01:43 PM (UTC)  [ quote  ]
Message
I just gave you a function that will search for an item
Vidi, Vici, Veni.
http://porocrom.poromenos.org/ Read it!
[Go to top] 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.

19,019 views.

This is page 2, subject is 2 pages long:  [Previous page]  1  2 

[Reply to this subject]  Reply to this subject   [New subject]  Start a new subject   [Refresh] Refresh page

Go to topic:           Search the forum

[Go to top] top

[Home]

Written by Nick Gammon - 5K

Comments to: Gammon Software support
[RH click to get RSS URL] Forum RSS feed ( http://www.gammon.com.au/rss/forum.xml )

[Best viewed with any browser - 2K]    [Internet Contents Rating Association (ICRA) - 2K]    [Web site powered by FutureQuest.Net]