Ok, like this? And yes, the bank procedure is in brackets on purpose.
Oh, btw: how do I get the Wait to where I can make it stop by pressing the letter X?
Code:
{AutoTalker by Shawn Lutch/Zeeky111/Foobylovesyou123/Fooby369.
Description: This script is mainly to sell stuff on the GE.
If you are tired of re-typing everything, then this is for you.
This script will say what you want it to say until you press X,
and then it will bank at the GE, depositing all items in your
inventory. Be sure not to delete the "+chr(13)". This tells SCAR
to hit enter, which will enter the message. Enjoy! :)
Note: To enable the banking feature, delete the brackets around
The procedure "Bank." Before logging in, make sure the username
field is selected.}
program AutoTalk;
{.include SRL/SRL.scar}
var
i, sum: integer;
x,y: integer;
begin
procedure Login;
begin
ClearDebug;
Wait(1000);
MoveMouseSmooth(499, 484);
Wait(500);
ClickMouse(499, 484, true);
Wait(1000);
SendKeys('username'+chr(13)); //enter your login.
Wait(500);
SendKeys('password'+chr(13)); //enter your password.
Wait(5000);
MoveMouseSmooth(506, 523);
Wait(50);
ClickMouse(506, 523, true);
end;
procedure Waiting;
begin
repeat;
Wait(10);
until(false); //This will be changed.
end;
procedure Sell;
begin
SetupSrl;
ClearDebug;
i :=0
repeat;
SendKeys('Type your message in here'+chr(13)); //Type in your msg.
sum :=i+1;
Wait(2000+random(1000));
WriteLn('Message repeat: '+IntToStr(sum));
until(false); //This will be changed.
end;
{procedure Bank;
begin
if FindSymbol(x, y, 'bank') then
MMouse(x, y, 10, 10);
Wait(1000+random(500));
Mouse(x, y, 0, 0, true);
Flag;
OpenBankFast('feb');
WriteLn('Opened bank.');
DepositAll;
WriteLn('All items deposited.');
Wait(1000+random(500));
CloseBank;}
end.
EDIT: ...But I get this:
Code:
Line 21: [Error] (16227:1): Identifier expected in script C:\Program Files\SCAR 3.15\Scripts\RS Scripts\AutoTalk.scar