Ohnoes! Use
SCAR Code:
Mouse(x, y, rx, ry : integer; left : boolean);
to click the mouse and MMouse (without the left boolean) to move it.
Also, those text constants do not need the ( and ). This does not change anything however if you do because it is a const. But if you had that in declaring a var or something it would cause something (var a : (a, b, c);.
Just remove the ( and ) from them and you will be fine.
Also, don't use an endless loop.
SCAR Code:
repeat
//code
until(false);
Change the false to something else.
SCAR Code:
program AutoTalkerByNW;
{.Include SRL\SRL.Scar}
const
{-----------------------------------------------------}
Text1 = 'Pie: a delicious dessert and a mathamatiacl thingamabob.';
Text2 = 'If pratice makes perfect, but nobodys perfect, why pratice?';
text3 = 'Looking for something? check your left hand.';
TimesToTalk = 20; //Set to 9999 if you want to keep going and just press the FKey.
FKey = 11; //FKey to stop.
{-----------------------------------------------------}
var
talked : integer;
procedure Talk;
begin
TypeSend(Text1);
Wait(1000 + random(200));
TypeSend(Text2);
if (not (LoggedIn)) then
Exit;
Wait(750 + random(200));
TypeSend(Text3);
Wait(1250 + random(200));
end;
procedure AntiBan;
begin
if (not (LoggedIn)) then
Exit;
FindNormalRandoms;
case Random(10) of
0 :
begin
HoverSkill('Ranged', false);
wait(2453 + Random(432));
end;
2 :
begin
MakeCompass('N');
wait(100 + random(133));
MakeCompass('S');
wait(50 + random(133));
MakeCompass('N');
FindNormalRandoms;
end;
3 : PickUpMouse;
end;
end;
procedure SetChatToGame;
begin
Mouse(81, 490, 3, 3, true);
end;
begin
ActivateClient;
setupsrl;
SetChatToGame;
repeat
Talk;
AntiBan;
inc(talked);
until ((talked = TimesToTalk) or (IsFKeyDown(FKey)));
end.