Naum
2008-04-03 12:52:02
All About Static Arrays!!!
Welcome to NaumanAkhlaQ's tutorial for using and implementing arrays in your script.
What are arrays used for?
Arrays take two forms -
–> One of them are static arrays which run within the script, basically they stay the same.
–> The second are ones which take info from the client at specific points, a prime example being DDTM's.
In this tutorial we will cover Statics Arrays
So How'd You Declare Them?
Here is an example:
Procedure CutTree;
Var
YewColor : Array [0..5] of Integer;
i :Integer;
Begin
YewColor[0]:=2182984;
YewColor[1]:=1855560;
YewColor[2]:=4426622;
YewColor[3]:=1914933;
YewColor[4]:=3239519;
YewColor[5]:=3116158;
Begin
If (not (Loggedin)) then
Exit;
else
For i:= 0 to 5 do
If FindObjCustom(x,y,['ew'],[YewColor[i]],5) then
Begin
If IsUpText('ew') then
Begin
CutDown;
end;
end;
end;
Firstly there are two things you should know, There are two different ways of declaring them. Declaring meaning the line under
var One way:
SetArrayLength(YewColor, 5)That says that there are 5 different arrays which are in the Integer , so in this case 4 different colors (0..4 :))
Second Way:
YewColor : Array [0..5] of Integer; ^ I prefer this way as I am a ' . ' maniac! ^
So How'd You Set Them up?
Refering to our first example:
YewColor[0]:=2182984;
YewColor[1]:=1855560;
YewColor[2]:=4426622;
YewColor[3]:=1914933;
YewColor[4]:=3239519;
YewColor[5]:=3116158;
YewColor
YewColor[0] := ......
When you use them you put the number in this case [0..5] on the end in square brackets because if you don’t you get a 'Duplicate
Identifier' error!
How to Use 'em In Your Script?
For how many numbers you entered in the
YewColor : Array [ --> 0..5 <-- ] of Integer;
bit you have to use the line
for 0 to 5 do see where we got that from?
When we declared the array we made out how many colours we could store (6).
Now what:
for i:=0 to 5 do does is it looks at all the colors and incorporates it in the next line so in the next line we have to have:
For i:= 0 to 5 do
If FindObj(x,y,'ree',YewColor[i],6) then.... the integer ' i ' searches all the arrays for 0 to 5 so instead of using a
Function like this:
If FindObj(x,y,'ree',4354,5) or
FindObj(x,t,'Tre',976897,5) or
{so on} You can use an array instead :)
Confucious say:
" Arrays, great for saving time and effort :)
Hopefully you understood that short tut.
Might add another section soon.
Peace Out :)
If you liked this TUT don't froget I always like a bit of reppage <–!!!