Arrays

[DarkCrusade]

I'm working on a ZS right now and try to reduce the amount of copy pasting. It'd be a lot easier if I was able to use something like

Code: (pascal) [Select]

var
  S1Price: Array[1..5] of Integer;

Procedure ActivateServer();
  begin
    S1Price := [1000,2000,3000,4000,5000];
  end;
It compiles but returns me a strange error:

Code: [Select]

10-05-21 15:16:17  [*] [Error] ZombieSurvival 0.01 -> (ActivateServer): Could not call proc

[tk]

You can only assign dynamic arrays in such way in scriptcore (afaik)

and btw, index * 1000 is a good enough way to get the value you want.

[DarkCrusade]

But then I've got the problem that 'SetLenght(Array,Indexlenght)' doesn't work in Soldat..

[DorkeyDear]

to hide some long code I sometimes do things like:

Code: (pascal) [Select]

procedure InitializePrices();
begin
  S1Price[1] := 1000;
  S1Price[2] := 2000;
  S1Price[3] := 3000;
  S1Price[4] := 4000;
  S1Price[5] := 5000;
end;and then I/you never have to see it again / its now out of your way in ActivateServer or wherever it may be

But no, as tk` said, I think that only works for dynamic array. You could (if you REALLY wanted) make a function that does it for you:

Code: (pascal) [Select]

procedure SetPrices(const Prices: array of integer);
var
  i: byte;
begin
  for i := 0 to 4 do
    S1Price[i + 1] := Prices[i];
end;

// your code
begin
  SetPrices([1000, 2000, 3000, 4000, 5000]);
end;But I don't really advise that.

(and I haven't actually tested either piece of code, but you get the idea)


From: May 21, 2010, 09:07:25 am

But then I've got the problem that 'SetLenght(Array,Indexlenght)' doesn't work in Soldat..

SetLength is for strings
SetArrayLength is for dynamic arrays

[dnmr]

curt...

Code: (pascal) [Select]

for i := 1 to 5 do S1Price[i] := i * 1000;
DC: dont use dynamic arrays

[DorkeyDear]

I was under the assumption that the prices aren't necessarily intervals of 1000, and was just an example; but I could be wrong. But yeah what you provided works if that isn't true.

Static / constant-length arrays are your friend if you can use them.

[DarkCrusade]

Thank you all

[LORD KILLA]

what about hiding arrays in strings? You'd use delimeters then...
You'd have just declared a string, and some modifying functions:

Code: [Select]

foo|bar|lol!

[tk]

Couldn't you make up anything more inefficient?

[dnmr]

Couldn't you make up anything more inefficient?

storing arrays in consts

[DarkCrusade]

Right now I'm optimizing MountainClimbing to the limit and try to figure how I am able to split the Mapslist.txt into an array. Counts a line break as a space (' ')? If that's so the whole thing would be a lot easier.

[tk]

const br = #13#10;

// ...
var ml: string; arr: array of string;
// ...
ml := ReadFile('Mapslist.txt');
if ml <> nil then begin
  arr := Explode(ml, br);
 // ...

http://soldatcentral.com/index.php?page=script&f=129

[DarkCrusade]

I removed the hardcoded maps from MountainClimbing. Now the script uses the maplist.txt. But OnFlagScore returns an error when I score, the error lies in line 485 but I cannot seem to find the problem.

Code: [Select]

10-05-22 15:02:33 /S2\|SuxX| DarkCrusade captured the Blue Flag
10-05-22 15:02:43 /S2\|SuxX| DarkCrusade scores for Alpha Team
10-05-22 15:02:43  [*] [Error] Mountain 1.65c -> (OnFlagScore): '9999
' is not a valid integer value

[Gizd]

Is it so hard to look for StrToInt()'s in your own code?

edit: And to use

Code: [Select]

try
 stuff
except
 writeln('omgerror');
end;


[DarkCrusade]

The problem was that ReadFile always returns more than the file contains. Fixed now and it's working, thanks guys