Archaic
03-02-2012, 02:36 AM
I've really been having a problem recently with getting this procedure to compile and its starting to get to me:
procedure ObstaclePipe;
Var
x, y:integer;
begin
if ObjDTM_InArea('79:81:5:2:7:73:61:2:7:101:34:5:7:22 :87:5:7:26:79:10:7:78:102:4:70:72:90:71:91:88:71:8 8', True) then
begin
if FindObstaclePipe(x, y) then
begin
GetMousePos(x, y);
Mouse(x, y, 4, 4, 1);
While(Wait(5000+random(4000))) do
Antiban;
end;
end;
end;
where FindObstaclePipe(x, y) is a function in the script with the form of:
function FindObstaclePipe(Var X, Y : Integer): Boolean;
There are probably other things wrong in the procedure because it's more of an example than anything, and those problems are generally easy to fix. But the problem I'm having has to do with that function I have in the procedure. The debug keeps saying that 'FindObstaclePipe' is a unknown identifier no matter what I do. If I try to declare the 'FindObstaclePipe' function as a boolean/integer/both it gets even more angry at me and I get type mismatch errors.
Probably a simple mistake, I've looked over tuts on functions with multiple parameters and such and I can get most to work, this one is just alluding me it seems though.
Please help?:)
procedure ObstaclePipe;
Var
x, y:integer;
begin
if ObjDTM_InArea('79:81:5:2:7:73:61:2:7:101:34:5:7:22 :87:5:7:26:79:10:7:78:102:4:70:72:90:71:91:88:71:8 8', True) then
begin
if FindObstaclePipe(x, y) then
begin
GetMousePos(x, y);
Mouse(x, y, 4, 4, 1);
While(Wait(5000+random(4000))) do
Antiban;
end;
end;
end;
where FindObstaclePipe(x, y) is a function in the script with the form of:
function FindObstaclePipe(Var X, Y : Integer): Boolean;
There are probably other things wrong in the procedure because it's more of an example than anything, and those problems are generally easy to fix. But the problem I'm having has to do with that function I have in the procedure. The debug keeps saying that 'FindObstaclePipe' is a unknown identifier no matter what I do. If I try to declare the 'FindObstaclePipe' function as a boolean/integer/both it gets even more angry at me and I get type mismatch errors.
Probably a simple mistake, I've looked over tuts on functions with multiple parameters and such and I can get most to work, this one is just alluding me it seems though.
Please help?:)