Help Plz!!

whats wrong here.....i want it to sit idle when i am using the mouse. for some reason its fine at first but then after the script starts it moves the mouse every so often even if i am using the mouse. does this make sense?

SCAR Code:

{.include SRL\SRL.scar}

const
  Secs = 55;  //Seconds until the mouse is moved.
  SecUM = 50;  //Seconds in which the Mouse is inactive?

var
  b, c: Boolean;
  x, y, MIT: Integer;

begin
  SetupSRL;
  MarkTime(MIT);
  repeat
    GetMousePos(x, y);
    if(not(((x>x) or (x<x)) or ((y>y) or (y<y)))) then
      if(GetTimeRunning-(SecUM*1000)>GetTimeRunning-TimeFromMark(MIT)) then
        repeat
          Wait(Secs*1000+Random((Secs*1000)/2));
          MMouse(MSX1, MSY1, MSX2+1, MSY2+1);
          if(IsFKeyDown(2)) then
            b:=True;
        Until(b);
  Until(b);
end.

The problem is that "if(not(((x>x) or (x<x)) or ((y>y) or (y<y)))) then" will never return false, because "((x>x) or (x<x))" will always return false as will "((y>y) or (y<y))" and the "not" turns them into true since x will only be equal to x and y will only be equal to y. I think what you wanted here was to store 2 different co-ordinates and compare them.

SCAR Code:

GetMousePos(x1, y1);
    Wait(50);
    GetMousePos(x2, y2);
    if((x1=x2) and (y1=y2)) then

That should work fine and has a much simpler logic to follow for the "if" - just remove the variables x and y and add in x1,x2,y1,y2 and it should work.

now i get unknown identifier x1

add x1,x2,y1,y2 to your integer variables so it becomes:

SCAR Code:

var
  b, c: Boolean;
  x1, x2 ,y1 ,y2, MIT: Integer;

I did say that at the bottom of my last post though...

did not see that at the bottom of your post...thank you going to try it

the script is still taking over even when i am using the mouse. but it looks more stable now. maybe i need to explain a little better what i am trying to do. i want it to keep me logged in so the script should sit idle when i am using the mouse.
after 50 seconds of mouse inactivity the script starts then when i move the mouse the script waits again ect. ect.

Quote:

---

Originally Posted by roboroofer1

whats wrong here.....i want it to sit idle when i am using the mouse. for some reason its fine at first but then after the script starts it moves the mouse every so often even if i am using the mouse. does this make sense?

SCAR Code:

{.include SRL\SRL.scar}

const
  Secs = 55;  //Seconds until the mouse is moved.
  SecUM = 50;  //Seconds in which the Mouse is inactive?

var
  b: Boolean;
  x, y, MIT: Integer;

begin
  SetupSRL;
  MarkTime(MIT);
  repeat
    GetMousePos(x, y);
    if(not(((x>x) or (x<x)) or ((y>y) or (y<y)))) then
      if(GetTimeRunning-(SecUM*1000)>GetTimeRunning-TimeFromMark(MIT)) then
        repeat
          Wait(Secs*1000+Random((Secs*1000)/2));
          MMouse(MSX1, MSY1, MSX2+1, MSY2+1);
          if(IsFKeyDown(2)) then
            b:=True;
        Until(b);
  Until(b);
end.

---

Cleaned up code:

SCAR Code:

{.include SRL\SRL.scar}

const
  Secs = 55;  //Seconds until the mouse is moved.
  SecUM = 50;  //Seconds in which the Mouse is inactive?

var
  b, c: Boolean;
  x1, y1, x2, y2, MIT: Integer;

begin
  SetupSRL;
  MarkTime(MIT);
  repeat
    GetMousePos(x1, y1);
    Wait(100);
    GetMousePos(x2, y2);
    if((x1=x2) and (y1=y2))then
      if(TimeFromMark(MIT)>(SecUM*1000)) then
        repeat
          Wait((Secs*1000)+Random(Secs*500); //basic math, *1000/2 is the same as *500 :)
          MouseBox(MSx1, MSy1, MSx2, MSy2, 2);
          Wait(100+random(200));
          MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
          MarkTime(MIT); // <- You need to remark the time, otherwise, your time will keep running and it defeats the purpose, so it will ALWAYS return true at that last if statement.
          if(IsFKeyDown(2)) then
            b:=True;
        Until(b);
  Until(b);
end.

^ Read the comments.

Hope that fixes your problems, and you can see your problems. Its all logic my dear Watson, Logic.

Nava2

so sorry to be a scripting noob but i don't get this part.

Quote:

---

MarkTime(MIT); // <- You need to remark the time, otherwise, your time will keep running and it defeats the purpose, so it will ALWAYS return true at that last if statement.

---

Okay, well if you don't do that, then you are just going to keep the same mark. Hence, when the script repeats, it will think that the time is up already. Remember, it can only think as much as you tell it to.

Understand?

Nava2

yes i understand that part ..i guess what i am unsure of is where to fill it in or how.

guess i need to learn more... and get more aspirin:rolleyes:

You fill it in the same way ;) do you understand the functions I used? Also why?

Nava2

aspirin for my frustration :D but yes i do understand what MarkTime(MIT); does just dont understand how it works. can you give me example how to fill that part out?

when i fill that part out i get identifier expected.

maybe this is not my cup of tea:o

for which line? Because, I don't see any begins/ends missing.

Nava2

the marktime part so it will stay idle when i'm using the mouse

Quote:

---

MarkTime(MIT); // <- You need to remark the time, otherwise, your time will keep running and it defeats the purpose, so it will ALWAYS return true at that last if statement.

---

SCAR Code:

{.include SRL\SRL.scar}

const
  Secs = 55;  //Seconds until the mouse is moved.
  SecUM = 50;  //Seconds in which the Mouse is inactive?

var
  b, c: Boolean;
  x1, y1, x2, y2, MIT: Integer;

begin
  SetupSRL;
  MarkTime(MIT);
  repeat
    GetMousePos(x1, y1);
    Wait(100);
    GetMousePos(x2, y2);
    if((x1=x2) and (y1=y2))then
      if(TimeFromMark(MIT)>(SecUM*1000)) then
        repeat
          Wait((Secs*1000)+Random(Secs*500); //basic math, *1000/2 is the same as *500 :)
          MouseBox(MSx1, MSy1, MSx2, MSy2, 2);
          Wait(100+random(200));
          MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
          MarkTime(MIT); // <- You need to remark the time, otherwise, your time will keep running and it defeats the purpose, so it will ALWAYS return true at that last if statement.
          if(IsFKeyDown(2)) then
            b:=True;
        Until(b);
    else
      MarkTime(MIT);// <- If the mouse is being moved, it will remark the time.
  Until(b);
end.

line 29 error identifier expected? did you set it up so i don't have to fill that part out?

change this

Code:

---

Random(Secs*500)

---

to this

Code:

---

Random(Secs*500))

---

then it should work

~shut

i did that all ready. that's when the line 29 error identifier expected started happening.

it was a comma error till i added it ..now its error identifier expected

SCAR Code:

{.include SRL\SRL.scar}

const
  Secs = 55;  //Seconds until the mouse is moved.
  SecUM = 50;  //Seconds in which the Mouse is inactive?

var
  b: Boolean;
  x1, y1, x2, y2, MIT: Integer;

begin
  SetupSRL;
  ActivateClient;
  MarkTime(MIT);
  repeat
    GetMousePos(x1, y1);
    Wait(100);
    GetMousePos(x2, y2);
    if((x1=x2) and (y1=y2))then
    begin
      if(TimeFromMark(MIT)>(SecUM*1000)) then
        repeat
          Wait((Secs*1000)+Random(Secs*500)); //basic math, *1000/2 is the same as *500 :)
          MouseBox(MSx1, MSy1, MSx2, MSy2, 2);
          Wait(100+random(200));
          MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
          MarkTime(MIT); // <- You need to remark the time, otherwise, your time will keep running and it defeats the purpose, so it will ALWAYS return true at that last if statement.
          if(IsFKeyDown(2)) then
            b:=True;
        Until(b);
    end else
      MarkTime(MIT);// <- If the mouse is being moved, it will remark the time.
  Until(b);
end.

Now compiles.

still getting line 29 error identifier expected. it has nothing to do with the comma i fixed that before i posted about the identifier expected error on line 29

am i at a dead end now? i can not figure out what it needs at the end.

I messed up on the if then else statement. Scar wants a begin end else instead. Simple :)

Nava2

Quote:

---

{.include SRL\SRL.scar}

const
Secs = 5; //Seconds until the mouse is moved.
SecUM = 5; //Seconds in which the Mouse is inactive?

var
b, c: Boolean;
x1, y1, x2, y2, MIT: Integer;

begin
SetupSRL;
MarkTime(MIT);
repeat
GetMousePos(x1, y1);
Wait(100);
GetMousePos(x2, y2);
if((x1=x2) and (y1=y2))then
if(TimeFromMark(MIT)>(SecUM*1000)) then
repeat
Wait((Secs*1000)+Random(Secs*500)); //basic math, *1000/2 is the same as *500 :)
MouseBox(MSx1, MSy1, MSx2, MSy2, 2);
Wait(100+random(200));
MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
MarkTime(MIT); // <- You need to remark the time, otherwise, your time will keep running and it defeats the purpose, so it will ALWAYS return true at that last if statement.
if(IsFKeyDown(2)) then
b:=True;
Until(b);
MarkTime(MIT);// <- If the mouse is being moved, it will remark the time.
Until(b);
end.

---

this look right? cause i got it to run but now it just sits there with no mouse movements

guess i hit a dead end cause i cant figure out whats wrong :(