How do I make simba type

[rj]

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.

[(s)okkr7]

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

[NKN]

SendKeys("KEYSHERE",100,100);

[rj]

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

[Marc000z]

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.