SRL Archive - OSR Help

Problem with this block of code?


Keasbey

2012-05-09 09:39:33

procedure DTMLetsWalk
Var
cx , cy : Integer;
begin
If ObjDTM_Find('80:80:5:1:7:39:98:1:7:51:110:1:7:62:114:1:7:59:126:1:7:63:141:6:33:98:51:118:60:150:72:145:72:113:35:89', cx, cy, true)
begin
Writeln("We found it, wooh!")
ObjDTM_Walk('80:80:5:1:7:39:98:1:7:51:110:1:7:62:114:1:7:59:126:1:7:63:141:6:33:98:51:118:60:150:72:145:72:113:35:89', 2, 200, 5 , true)
end;
end;


It's highlighting "Var" ( line 44 in my code ) and saying i need to place a semi-colon at the end of the line…

I know semi-colons dont go at the end of var statements, but even if i place one there it still says i need to place one >.>

Any ideas/fixes?:duh:


Edit: it won't let me indent it, but i have it indented in my Simba window… idk why it wont let me.

putonajonny

2012-05-09 09:40:31

procedure DTMLetsWalk; :D

Recursive

2012-05-09 09:52:40

Yea you are missing a semi-colon at the end of the procedure and the walking paths

procedure DTMLetsWalk;
Var
cx , cy : Integer;
begin
If ObjDTM_Find('80:80:5:1:7:39:98:1:7:51:110:1:7:62:1 14:1:7:59:126:1:7:63:141:6:33:98:51:118:60:150:72: 145:72:113:35:89', cx, cy, true);
begin
Writeln("We found it, wooh!")
ObjDTM_Walk('80:80:5:1:7:39:98:1:7:51:110:1:7:62:1 14:1:7:59:126:1:7:63:141:6:33:98:51:118:60:150:72: 145:72:113:35:89', 2, 200, 5 , true);
end;
end;

This should work