SRL Archive - Help

How do i make simba type letters? Lol, im currently testing my bot on a private server until I feel it can be used on RS.(ignore the fact that it has no anti ban)

program autof;
var
 X,Y: Integer;
 procedure sum;
begin
//1
wait(1000000)
      FindColorTolerance(X,Y,7383480,1202,468,1234,500,4)
      Wait(250 + Random(90));
      movemouse(x, y);
       Wait(320 + Random(150));
      ClickMouse(x, y, Mouse_left);
      wait(1200)
      FindColorTolerance(X,Y,16777215,1186,363,1246,386,4)
      wait(200);
      movemouse(x, y);
      wait(500);
      ClickMouse(x, y, Mouse_left);
      Wait(1400 + Random(80));
      FindColorTolerance(X,Y,3452099,851,333,1028,355,4)
      wait(200);
      movemouse(x, y);
      wait(500);
      ClickMouse(x, y, Mouse_left);
      Wait(3200 + Random(80));
      //pray
      FindColorTolerance(X,Y,16514554,1270,172,1300,201,4)
      wait(200);
      movemouse(x, y);
      wait(500);
      ClickMouse(x, y, Mouse_left);
      Wait(1000 + Random(80));
      //turm
      FindColorTolerance(X,Y,16508164,1275,333,1305,351,4)
      wait(200);
      movemouse(x, y);
      wait(500);
      ClickMouse(x, y, Mouse_left);
      Wait(1000 + Random(80));
       //inv
      FindColorTolerance(X,Y,2249607,1203,170,1235,199,4)
      wait(200);
      movemouse(x, y);
      wait(500);
      ClickMouse(x, y, Mouse_left);
      Wait(1000 + Random(80));
       //clicktocon
      FindColorTolerance(X,Y,16711680,812,441,953,451,4)
      wait(200);
      movemouse(x, y);
      wait(500);
      ClickMouse(x, y, Mouse_left);
      Wait(1000 + Random(80));
end;
begin
  repeat
  sum;
  until False;
  end.

There's a few functions for possible use.

1.

TypeSend('Message here '); // types a message then presses enter

2.

SendKeys('Message here'); // same thing as above, but doesn't press enter

3. The one Im not familiar with:

KeyDown(); and KeyUp();

Also another tip, try not to use 'MoveMouse' and 'ClickMouse', as they're rudimentary mouse functions and can easily get you banned in Live RS. Instead try using MMouse/Mouse and/or ClickMouse2!

Best of luck!

~(s)okkr7

   SendKeys("KEYSHERE",100,100);

thanks! and ofcourse ill be changing the mouce movement before i even come close to using it on rs.

Use this:

program Talker;
{$i srl/srl.simba}

Const
Message0 = ('Hello!');


procedure Talk;
begin
TypeSend(message0);
Wait(10000);
end;

begin
Talk;
end.

Hope I helped.