Need help with Mouse

[runeslide]

hey, i was making a simple script for killing desert strykeworm, worked fine until now, i get this error

Error: Operator expected at line 434
Compiling failed.


procedure moveMouse(p: TPoint); overload;
begin
moveMouse(p.x p.y);
end;


Mouse.simba gets the error!




My script:

program new;
{$I SRL-6/SRL.simba} // To load the SRL include files



procedure inve
var
x, y:integer;
begin
if findcolor(x, y, 3957109, 0, 0, 569, 308) or
findcolor(x, y, 3299168, 0, 0, 569, 308) or
findcolor(x, y, 3298143, 0, 0, 569, 308) or
findcolor(x, y, 3891316, 0, 0, 569, 308) then

begin
movemouse(X, Y);
wait(10);
clickmouse(X, Y, Mouse_Right);
wait(200);
if chooseoption.select(['Mound']) then

writeln('mordi');


wait(1500);
end;
end;

procedure right
var
x, y:integer;
begin
if not findcolor(x, y, 13582779, 0, 0, 569, 308) or
findcolor(x, y, 6140582, 0, 0, 569, 308) or
findcolor(x, y, 5150604, 0, 0, 569, 308) or
findcolor(x, y, 3565395, 0, 0, 569, 308) or
findcolor(x, y, 2376756, 0, 0, 569, 308) or
findcolor(x, y, 8989299, 0, 0, 569, 308) or
findcolor(x, y, 3499340, 0, 0, 569, 308) then
begin
inve;
end;


if findcolor(x, y, 13582779, 0, 0, 569, 308) or
findcolor(x, y, 6140582, 0, 0, 569, 308) or
findcolor(x, y, 5150604, 0, 0, 569, 308) or
findcolor(x, y, 3565395, 0, 0, 569, 308) or
findcolor(x, y, 2376756, 0, 0, 569, 308) or
findcolor(x, y, 8989299, 0, 0, 569, 308) or
findcolor(x, y, 3499340, 0, 0, 569, 308) then


begin
movemouse(X, Y);
wait(10);
clickmouse(X, Y, Mouse_Right);
wait(200);
if chooseoption.select(['Attack']) then

writeln('mordi');


wait(3000);

end;
end;


procedure choose
var
x, y:integer;
oo:integer;
begin

if findcolor(x, y, 1675987, 0, 57, 574, 303) then
repeat

wait(1);



until(findcolor(x, y, 4302046, 0, 57, 574, 303) or
findcolor(x, y, 4560580, 0, 57, 574, 303) or
findcolor(x, y, 4173292, 0, 57, 574, 303) or
findcolor(x, y, 4172780, 0, 57, 574, 303))

end;


procedure cam
var
x, Y:integer;
begin
if not findcolor(x, y, 1675987, 0, 57, 574, 303) then
begin
keydown(VK_right);
wait(1000);
Keyup(VK_right);
end;
end;

procedure pickup
var
x, y:integer;
begin
if findcolor(x, y, 8703695, 0, 0, 569, 308) or
findcolor(x, y, 8965590, 0, 0, 569, 308) or
findcolor(x, y, 9227482, 0, 0, 569, 308) or
findcolor(x, y, 9159640, 0, 0, 569, 308) or
findcolor(x, y, 8703437, 0, 0, 569, 308) or
findcolor(x, y, 9291228, 0, 0, 569, 308) or
findcolor(x, y, 8637644, 0, 0, 569, 308) then

begin
movemouse(X, Y);
wait(10);
clickmouse(X, Y, Mouse_Right);
wait(200);
if chooseoption.select(['Grimy']) then

writeln('mordi');

if chooseoption.select(['Bar']) then

writeln('mordi');

if chooseoption.select(['Fruit']) then

writeln('mordi');
wait(1500);
end;
end;


procedure eat
var
x, y:integer;
oo:integer;
begin
oo := DTMFromString('mWAAAAHicY2FgYIgD4lwgrgbiHiD2YmRg8E TCypo6KBgdMKJhEAAAKvcE5A==');
if finddtm(x, y, oo, 7, 308, 150, 337) then

begin
if findcolor(x, y, 1594796, 580, 324, 796, 562) then

movemouse(x, y);
wait(10);
clickmouse(X, Y, Mouse_left);

end;

end;


begin
repeat
choose;
right;
choose;
pickup;
choose;
cam;

choose;

until(false)
end.

[fady]

hey, i was making a simple script for killing desert strykeworm, worked fine until now, i get this error

Error: Operator expected at line 434
Compiling failed.


procedure moveMouse(p: TPoint); overload;
begin
moveMouse(p.x p.y);
end;


Mouse.simba gets the error!




My script:

program new;
{$I SRL-6/SRL.simba} // To load the SRL include files



procedure inve
var
x, y:integer;
begin
if findcolor(x, y, 3957109, 0, 0, 569, 308) or
findcolor(x, y, 3299168, 0, 0, 569, 308) or
findcolor(x, y, 3298143, 0, 0, 569, 308) or
findcolor(x, y, 3891316, 0, 0, 569, 308) then

begin
movemouse(X, Y);
wait(10);
clickmouse(X, Y, Mouse_Right);
wait(200);
if chooseoption.select(['Mound']) then

writeln('mordi');


wait(1500);
end;
end;

procedure right
var
x, y:integer;
begin
if not findcolor(x, y, 13582779, 0, 0, 569, 308) or
findcolor(x, y, 6140582, 0, 0, 569, 308) or
findcolor(x, y, 5150604, 0, 0, 569, 308) or
findcolor(x, y, 3565395, 0, 0, 569, 308) or
findcolor(x, y, 2376756, 0, 0, 569, 308) or
findcolor(x, y, 8989299, 0, 0, 569, 308) or
findcolor(x, y, 3499340, 0, 0, 569, 308) then
begin
inve;
end;


if findcolor(x, y, 13582779, 0, 0, 569, 308) or
findcolor(x, y, 6140582, 0, 0, 569, 308) or
findcolor(x, y, 5150604, 0, 0, 569, 308) or
findcolor(x, y, 3565395, 0, 0, 569, 308) or
findcolor(x, y, 2376756, 0, 0, 569, 308) or
findcolor(x, y, 8989299, 0, 0, 569, 308) or
findcolor(x, y, 3499340, 0, 0, 569, 308) then


begin
movemouse(X, Y);
wait(10);
clickmouse(X, Y, Mouse_Right);
wait(200);
if chooseoption.select(['Attack']) then

writeln('mordi');


wait(3000);

end;
end;


procedure choose
var
x, y:integer;
oo:integer;
begin

if findcolor(x, y, 1675987, 0, 57, 574, 303) then
repeat

wait(1);



until(findcolor(x, y, 4302046, 0, 57, 574, 303) or
findcolor(x, y, 4560580, 0, 57, 574, 303) or
findcolor(x, y, 4173292, 0, 57, 574, 303) or
findcolor(x, y, 4172780, 0, 57, 574, 303))

end;


procedure cam
var
x, Y:integer;
begin
if not findcolor(x, y, 1675987, 0, 57, 574, 303) then
begin
keydown(VK_right);
wait(1000);
Keyup(VK_right);
end;
end;

procedure pickup
var
x, y:integer;
begin
if findcolor(x, y, 8703695, 0, 0, 569, 308) or
findcolor(x, y, 8965590, 0, 0, 569, 308) or
findcolor(x, y, 9227482, 0, 0, 569, 308) or
findcolor(x, y, 9159640, 0, 0, 569, 308) or
findcolor(x, y, 8703437, 0, 0, 569, 308) or
findcolor(x, y, 9291228, 0, 0, 569, 308) or
findcolor(x, y, 8637644, 0, 0, 569, 308) then

begin
movemouse(X, Y);
wait(10);
clickmouse(X, Y, Mouse_Right);
wait(200);
if chooseoption.select(['Grimy']) then

writeln('mordi');

if chooseoption.select(['Bar']) then

writeln('mordi');

if chooseoption.select(['Fruit']) then

writeln('mordi');
wait(1500);
end;
end;


procedure eat
var
x, y:integer;
oo:integer;
begin
oo := DTMFromString('mWAAAAHicY2FgYIgD4lwgrgbiHiD2YmRg8E TCypo6KBgdMKJhEAAAKvcE5A==');
if finddtm(x, y, oo, 7, 308, 150, 337) then

begin
if findcolor(x, y, 1594796, 580, 324, 796, 562) then

movemouse(x, y);
wait(10);
clickmouse(X, Y, Mouse_left);

end;

end;


begin
repeat
choose;
right;
choose;
pickup;
choose;
cam;

choose;

until(false)
end.

There was an error with a recent update in SRL, it has been fixed however. If you check for an update. It should download version 1171 and fix that problem now.

Edit: Also a tip, when posting a script, add it between [SIMBA][/SIMBA] tags

[The Mayor]

Well, at least we got you to post

PS: rev 1175 now.

[Turpinator]

Well, at least we got you to post

PS: rev 1175 now.

you know... if commits were tested (as they should be), we wouldnt have this issue... <_<

[runeslide]

ty! but i need help with scripting, somethings dont work and other do, can someone add me on skype and help me? :P

[Walking hell]

i had also had this error before, i just uninstalled simba again and reinstall, and it worked