How do you do this...?

OK well i've noticed that you can make the mouse click only if its a certain object. Like the script detects what the object is by what it says in the top right corner of the rs screen

if you have no clue what i'm saying then tell me and i'll try to make it more clear, but if you know what i'm trying to say then could you post a little function

Look at this procedure. Explanation is below, If you need any help ask.

SCAR Code:

Procedure EnterAlter;
 Begin
   MarkTime(Mark);
  Repeat
  If(FindColorSpiralTolerance(x,y,Alter1,MSX1,MSX2,MSY1,MSY2,50))Or
    (FindColorSpiralTolerance(x,y,Alter2,MSX1,MSX2,MSY1,MSY2,50))Or
    (FindColorSpiralTolerance(x,y,Alter3,MSX1,MSX2,MSY1,MSY2,50))Then
    MMouse(x,y,0,0)
  Until(IsUpTextMulti('yste', 'eriou', 'uins')) or (TimeFromMark(Mark) >= 30000)
  And Not(IsUpTextMulti('more', '1 mo', 're op'))
   If(TimeFromMark(Mark) >= 30000) And Not(IsUpTextMulti('yste', 'eriou', 'uins'))Then
   Begin
    Writeln('Lost or cannot find alter, restart script')
     Logout;
     TerminateScript;
    End else
   If(IsUpTextMulti('yste', 'eriou', 'uins'))Then
   Begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,True)
  End;
End;

It is going to find a color on the rs screen, if it finds it, it is going to hover over it with the mouse. When it is hovering over it is going to read the uptext. If the uptext matches it is going to click on it, if the uptext doesnt match it is going to repeat itself until the uptext matches or until 30 seconds have past AND it has NOT found the matching uptext (if this happens it will logout and end the script just like it is coded in the script).
Pretty simple and easy.

Ok the very last lines are screwing up for me, its probably something really simple but im a noob.


THIS IS WHAT I CHANGED IT TO BECAUSE IM MAKING AN OPEN DOOR PROCEDURE

SCAR Code:

{.include SRL/SRL.scar}
var
ax,ay:integer;
Procedure OpenDoor;
 Begin
 MarkTime(Mark);
     Repeat
  If(FindColorTolerance(ax,ay,940406,0,0,763,502,50))Or
    (FindColorTolerance(ax,ay,2322061,0,0,763,502,50))Or
    (FindColorTolerance(ax,ay,940406,0,0,763,502,50))Then
    MMouse(ax,ay,0,0);
  Until(IsUpTextMulti('Open', 'pen', 'Ope')) or (TimeFromMark(Mark) >= 30000)
  And Not(IsUpTextMulti('close', 'lose', 'clos'))
   If(TimeFromMark(Mark) >= 30000) And Not(IsUpTextMulti('Open', 'pen', 'Ope'))Then
   Begin
    Writeln('Cant Open Door!!')
     Logout;
     TerminateScript;
    End else
   If(IsUpTextMulti('Open', 'pen', 'Ope'))Then
   Begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,True)
  End;
End;

and it gave me this error

Quote:

---

Failed when compiling
[Error] (17836:1): Unexpected end of file

---

so i changed the end to this

SCAR Code:

end;
end;
end.

and then i got this error

Quote:

---

Failed when compiling
[Error] (17836:1): 'BEGIN' expected

---

so i changed it to this

SCAR Code:

end;
end.

and i got this error


any ideas to whats wrong?

change the End. to End; but with the first one you showed. if i didnt make sence say so.

The first one works. You are getting an unexpected end in file because there is no main loop in that script. If you add it into a script with a main loop it will compile correctly. And try to make the uptexts the same, like

SCAR Code:

Until IsUpTextMulti('Open', 'pen', 'Ope') ..blah blah blah And Not(IsUpTextMulti('close', 'lose', 'clos'))

Make them the same uptexts, makes more sense.
Hope I helped,
~Jr

SCAR Code:

{.include SRL/SRL.scar}
var
ax,ay:integer;
Procedure OpenDoor;
 Begin
 MarkTime(Mark);
     Repeat
  If(FindColorTolerance(ax,ay,940406,0,0,763,502,50))Or
    (FindColorTolerance(ax,ay,2322061,0,0,763,502,50))Or
    (FindColorTolerance(ax,ay,940406,0,0,763,502,50))Then
    MMouse(ax,ay,0,0);
  Until(IsUpTextMulti('Open', 'pen', 'Ope')) or (TimeFromMark(Mark) >= 30000)
  And Not(IsUpTextMulti('close', 'lose', 'clos'))
   If(TimeFromMark(Mark) >= 30000) And Not(IsUpTextMulti('Open', 'pen', 'Ope'))Then
   Begin
    Writeln('Cant Open Door!!')
     Logout;
     TerminateScript;
    End else
   If(IsUpTextMulti('Open', 'pen', 'Ope'))Then
   Begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,True)
  End;
  begin
  opendoor;
end.

ok so i added the thing at the end. but i get this error

Code:

---

Failed when compiling
[Error] (17837:4): Identifier expected

---

and what did you mean when you said to make the uptexts the same

SCAR Code:

{.include SRL/SRL.scar}
var
ax,ay:integer;
Procedure OpenDoor;
 Begin
 MarkTime(Mark);
     Repeat
  If(FindColorTolerance(ax,ay,940406,0,0,763,502,50))Or
    (FindColorTolerance(ax,ay,2322061,0,0,763,502,50))Or
    (FindColorTolerance(ax,ay,940406,0,0,763,502,50))Then
    MMouse(ax,ay,0,0);
  Until(IsUpTextMulti('Open', 'pen', 'Ope')) or (TimeFromMark(Mark) >= 30000)
  And Not(IsUpTextMulti('close', 'lose', 'clos'))
   If(TimeFromMark(Mark) >= 30000) And Not(IsUpTextMulti('Open', 'pen', 'Ope'))Then
   Begin
    Writeln('Cant Open Door!!')
     Logout;
     TerminateScript;
    End else
   If(IsUpTextMulti('Open', 'pen', 'Ope'))Then
   Begin
    GetMousePos(x,y)
    Mouse(x,y,0,0,True)
  End;
End;

begin
opendoor;
end.

here now it compiles...

lmao i get a runtime error and when i usually get those it works if i just try it again but this time its screwing up

Code:

---

[Runtime Error] : Exception: Canvas does not allow drawing in line 222 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar

---

You never SetupSRL.

SCAR Code:

program Opent3hDoor;
{.include SRL/SRL.scar}
var
  ax,ay :integer;

procedure OpenDoor;
begin
  MarkTime(Mark);
  repeat
    if(FindColorTolerance(ax, ay, 940406, 0, 0, 763, 502, 50) or FindColorTolerance(ax, ay, 2322061, 0, 0, 763, 502, 50) or FindColorTolerance(ax, ay, 940406, 0, 0, 763, 502, 50)) then MMouse(ax, ay, 0, 0);
  until(IsUpTextMulti('Open', 'pen', 'Ope') or (TimeFromMark(Mark) >= 30000));
  if((TimeFromMark(Mark) >= 30000) and not(IsUpTextMulti('Open', 'pen', 'Ope'))) then
  begin
    WriteLn('Cant Open Door!!')
    Logout;
    TerminateScript;
  end else
  if(IsUpTextMulti('Open', 'pen', 'Ope')) then
  begin
    GetMousePos(x, y)
    Mouse(x, y, 0, 0, True)
  end;
end;

begin
SetupSRL;
OpenDoor;
end.

The "and Not IsUpTextMulti('close', 'lose', 'clos');" was redundant. If the text says open, it can't possibly say closed. It just takes processing time away.
And PLEASE work on syntax. Don't capitalize if, then, repeat, until, while, do, and, or, not, var, procedure, program, begin, end, else, etc. Apply spaces and parentheses liberally.

Quote:

---

And PLEASE work on syntax. Don't capitalize if, then, repeat, until, while, do, and, or, not, var, procedure, program, begin, end, else, etc.

---

I never knew that.. I always capitilized mine.

hey has anyone tested this because for me the mouse just goes and sits in the top right corner of the rs screen

@Junior: Yea, Kaitnieks specified that in http://kaitnieks.com/scar/scriptingsta/

Quote:

---

Object Pascal language reserved words and key words shall always be completely lowercase. Never capitalize words that SCAR displays in bold. It's completely unnecessary and looks ugly!

---

@brand3n: Did you remember to drag the crosshairs over the screen? Put ActivateClient; right after SetupSRL;. Change the square size for FindColorTolerance.

yeah i did all of those things

You put ActivateClient right after SetupSRL?
You made the square size smaller for FindColorTolerance?
I can't think of anything else...what color does the mouse "sit" on?

well depending on the size of the square, it just sits in the top right corner

does this work for anyone else?

EDIT:

Ok well i was playing around with the script and i got it to work

SCAR Code:

{.include SRL/SRL.scar}
var
ax,ay:integer;
begin
setupsrl;
activateclient;
repeat
if(FindColorTolerance(ax,ay,2122111,225,100,310,166,50)) then mmouse(ax,ay,0,0)
until(IsUpTextMulti('Open', 'Ope', 'pen'))
if(IsUpTextMulti('Open', 'Open', 'pen'))then
GetMousePos(ax,ay)
Mouse(ax,ay,0,0,True)
end.

and i've been trying to figure out how to make it do something else if the door is already open

SCAR Code:

...
until(IsUpTextMulti('Open', 'Ope', 'pen') or IsUpTextMulti('Clos', 'los', 'lose')); //You forgot the semicolon.
if(IsUpTextMulti('Open', 'Ope', 'pen')) then Mouse(ax, ay, 0, 0, True); //Don't forget semicolons.
else if(IsUpTextMulti('Close', 'lose', 'los')) then break;

That should work.

How about looking for uptext door first. Then once you found it, check if it says open, if so then open it, otherwise continue on.

legit, it says that this line needs an identifier and i've always been lost when i get that error

SCAR Code:

else if(IsUpTextMulti('Close', 'lose', 'los')) then break;

boreas, yeah i'll try doing that

legit, it says that this line needs an identifier and i've always been lost when i get that error

SCAR Code:

else if(IsUpTextMulti('Close', 'lose', 'los')) then break;

boreas, yeah i'll try doing that

Oh, there should be no semicolon after the "then". Rofl at my stupidity.

PHP Code:

---

procedure OpenDoor;
begin
repeat
if(FindColorTolerance(aax,aay,2441304,160,125,323,156,500)) then mmouse(aax,aay,0,0)
until(IsUpTextMulti('Open', 'Ope', 'pen') or IsUpTextMulti('Clos', 'los', 'lose'));
if(IsUpTextMulti('Open', 'Ope', 'pen')) then Mouse(aax, aay, 0, 0, True)
else if(IsUpTextMulti('Close', 'lose', 'los')) then break
end; 


---

so like that? because i get this error

Code:

---

Failed when compiling
Line 46: [Error] (18236:53): Not in a loop in script

---

SCAR Code:

program Opent3hDoor;
{.include SRL/SRL.scar}

var
  aax, aay:integer;
  
procedure OpenDoor;
begin
  repeat
    if(FindColorTolerance(aax,aay,2441304,160,125,323,156,500)) then mmouse(aax,aay,0,0)
  until(IsUpTextMulti('Open', 'Ope', 'pen') or IsUpTextMulti('Clos', 'los', 'lose'));
  if(IsUpTextMulti('Open', 'Ope', 'pen')) then Mouse(aax, aay, 0, 0, True)
  else if(IsUpTextMulti('Close', 'lose', 'los')) then Wait(0);
end;

begin
  SetupSRL;
  OpenDoor;
end.

Yea, I shouldn't have put break, because I wasn't in a loop. If you want to put something instead of Wait(0) like WriteLn('Door already closed');
But are you trying to open or close a door? Because this closes doors...

oh i'm trying to open the door and if its already open i want it just to end the procedure

i'm look at the script and isnt that what it does?

No, currently, it clicks only if it finds the text "Open". So just switch the open and close istextup and you'll be fine.

it just sits in the top right corner of the box that i choose