Typing in RS

I am having trouple getting SCAR to type a message into RS all it will do is type the message where the cursor is currently in SCAR, I have selected the RS window using the crosshair tool but it still types into SCAR. Please Help :P






program GhostAutoTalker;

const
message1='Hello';


procedure Typer;
begin
SendKeys(message1);
end;


begin
repeat
Typer;
Wait(5000)
until(False)
end.

Well. You need to add ActivateClient; in there.

your problem is that you most likely didn't to the crosshair correctly, Pus you don't have activate client. Try putting a wait of about 1000 at the start of your script, and then clicking on the rs window. That should make it type in rs.
Also, note that a wait(500); is very bannable, and shouldn't be used when you begin making bigger script late on. Make sure to have randomness in there
wait(5000+random(400));

Great Thanks! ActivateClient; sorted it.

and thanks for the advice:

Quote:

---

Originally Posted by griff721

Also, note that a wait(500); is very bannable, and shouldn't be used when you begin making bigger script late on. Make sure to have randomness in there
wait(5000+random(400));

---

That could've ended in tears :P

Also Bigger Issue. Use Typesend Not Sendkeys.

SendKeys Is Instaban!

Make it like this:

SCAR Code:

program GhostAutoTalker;

const
  message1='Hello';

procedure Typer;
begin
  TypeSend(message1);
end;

begin
  ActivateClient;
  repeat
    Typer;
    Wait(3000 + random(2000))
  until(False)
end.

Added "ActivateClient", changed "SendKeys" to "TypeSend", and added randomness to your wait time. Now it's much less detectable than what you started with.

Thanks,
Richard

For some reason TypeSend seems to give me this error:

Line 15: [Error] (15:1): Unknown identifier 'TypeSend' in script

Does it mean I'm out of date?

Quote:

---

Originally Posted by GhostofReality

For some reason TypeSend seems to give me this error:

Line 15: [Error] (15:1): Unknown identifier 'TypeSend' in script

Does it mean I'm out of date?

---

You'll need to include SRL in your script. Checkout various tutorials that tells you how to setup the Subversion Repository and Including SRL ;)

Ok thanks :P I've setup the Subversion Repository but thought that was all that was needed, Didn't realise I had to include SRL in the script... :S

Quote:

---

Originally Posted by GhostofReality

Ok thanks :P I've setup the Subversion Repository but thought that was all that was needed, Didn't realise I had to include SRL in the script... :S

---

That's good then ;) So you know how to include files? If you do, show me an example ;)

Errrrmmm well...

no I have no idea how to include files :P

I'm not even sure what I have done with the Subversion Repository... help!

if you could help me or point me to a tutorial detailing this I'd be very appreciative.

*edit* Just seen the Includes tutorial in your signaure... I'll give it a shot.

*edit2*
Running through your tutorial and my version wont compile?

Code:

---

Line 8: [Error] (8:34): Type mismatch in script

---

Here is what I have

Code:

---

program GhostFindMove;

function FirstFunction: Boolean;
var x : boolean;
var y : integer;
begin
  Repeat
    If(FindColor(x,y,7897473,0,0,600,600)) Then Result:=True;
  Until(result=True);
end;

Procedure FirstProcedure;
begin
 FirstFunction;
 MoveMouse(x,y);
 Writeln('Colour Found!');
end;
begin
end.

---

I've probably overlooked something silly but I can't find it?

SCAR Code:

If(FindColor(x,y,7897473,0,0,600,600)) Then Result:=True;

FindColor is a boolean you must never give a value to a boolean, Instead it should be this

SCAR Code:

If(FindColor(x,y,7897473,0,0,600,600)) = True Then

Or an efficienter way

SCAR Code:

If(FindColor(x,y,7897473,0,0,600,600)) Then

:)

Hmm Still giving me the error but my script is wrong, I think, so...

Thanks though!

Nope, I can see where you've gone wrong, at least I think I can anyway.

You've got

SCAR Code:

var x : boolean;
var y : integer;

But shouldn't both x and y be declared as integers like this:

SCAR Code:

var
  x, y : Integer;

Because Type Mismatch means that you've declared a variable as the wrong sort.

Example: If I wanted to use FindColor, but accidentally did this:

SCAR Code:

program Example;

var
  x, y : string; // <-- Look here
begin
  if FindColor(x, y, 123456789, 100, 100, 100, 100) then
    MoveMouse(x, y);
end.

then I would get the error

Code:

---

Type Mismatch etc. etc.

---

But if were to do this:

SCAR Code:

program Example;

var
  x, y : integer; // <-- Look here again
begin
  if FindColor(x, y, 123456789, 100, 100, 100, 100) then
    MoveMouse(x, y);
end.

then I shouldn't get the error, and the script should run.

Hope I helped,
Richard

program GhostFindMove;
{.include srl/srl.scar}
function FirstFunction: Boolean;
var x : boolean;
var y : integer;
begin
Repeat
If(FindColor(x,y,7897473,0,0,600,600)) Then Result:=True;
Until(result=True);
end;

Procedure FirstProcedure;
begin
FirstFunction;
MoveMouse(x,y);
Writeln('Colour Found!');
end;
begin
SetupSRL;
FirstProcedure;
end.


or something like that

Now I'm getting an unknown identifier... sorry for all this noobiness and thanks for all of your help :]

Code:

---

program GhostFindMove;
{.include srl/srl.scar}
function FirstFunction: Boolean;
var x, y : integer;
begin
  Repeat
    If(FindColor(x,y,7897473,0,0,600,600)) Then Result:=True;
  Until(result=True);
end;

Procedure FirstProcedure;
begin
 SetupSRL;
  FirstFunction;
  MoveMouse(x,y); //I'm getting unknown identifier for this X now?
    Writeln('Colour Found!');
end;
begin
end.

---

*edit* Hugo seems you helped me solve my original Talker script :]

program GhostFindMove;
{.include srl/srl.scar}
var x, y : integer;
function FirstFunction: Boolean;
begin
Repeat
If(FindColor(x,y,7897473,0,0,600,600)) Then Result:=True;
Until(result=True);
end;

Procedure FirstProcedure;
begin
SetupSRL;
FirstFunction;
MoveMouse(x,y); //I'm getting unknown identifier for this X now?
Writeln('Colour Found!');
end;
begin
end.

You declared x and y in FirstFunction, then it can only be used in that function.

Thats because x isnt declared globally, or locally in that procedure.

edit: aww i got beat to it.

your next error will be here probably

SCAR Code:

Until(result=True);
//make that
until result

Hurray! Thanks everyone, it works :]

Quote:

---

Originally Posted by Metagen

your next error will be here probably

ScarScript:By Drunkenoldma

</p><p>Until(result=True);</p><p>//make that</p><p>until result</p><p>

---

I cant see why thats an error..

SCAR Code:

var bool : Boolean;
begin
  repeat
    Bool := True;
  until(bool=true)
end.

Quote:

---

Originally Posted by GhostofReality

*edit* Just seen the Includes tutorial in your signaure... I'll give it a shot.

---

That was really a tutorial to create your own includes, however, you could've looked at the section on how to include an include :p

Oh, I just realised I only read the first part about creating a function, and there I am thinking I'm Using Includes and other technical mumbo jumbo :P

It was very good though :)

Quote:

---

Originally Posted by GhostofReality

Oh, I just realised I only read the first part about creating a function, and there I am thinking I'm Using Includes and other technical mumbo jumbo :P

It was very good though :)

---

Hah, thanks a lot ;)

His problem is, he is expecting it to type the message when hes not in the runescape window, and you should change your wait type to something like..

Wait(randomRange(4000,5000))