Try reading some beginner tutorials too.
Well first of all, try using the login whats in SRL but for that u need
SCAR Code:
procedure DeclarePlayers;
begin
NumberOfPlayers(1); //The player amount u are using.
CurrentPlayer:=0; //Starting player
Players[0].Name:='Runemaster'; //Name Here
Players[0].Pass:='somethingreal'; //Pass Here
Players[0].Nick:='ema'; //3 chars from middle of your name
Players[0].Active:=True; //in use or not in use / True or False
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,Upchars)
//and that creates a bitmapmask from the currentplayers nickname so it can be used for randoms detecting.
end;
And in the mainloop put this:
SCAR Code:
begin
SetupSRL;
DeclarePlayers;
if(not(LoggedIn))then
LoginPlayer;
repeat
//and your procedures after those in repeat if u want a multiplayer add
//NextPlayer(true); after your procedure. and then it cant be in repeat,
//i will explain later when im editing this post.
until(false) //use false if you dont want it to stop else use true
end.
and for the Waits dont use 1000, 2000, 3000 use 1214, 2136, 3263 and some random to those too like this:
for the "+" you may also use "-"
and use :
SCAR Code:
TypeSend('The sentence to be sent in runescape!') //writes text in Runescape.
instead of
SCAR Code:
Writeln('The sentence to be sent in scar debug box!') //writes text in scar debug box.
Ok, so Multiplayer:
SCAR Code:
program AutoTalker;
{.include srl/srl.scar}
var Sent:Integer; //this is a Variable im using to count how many times
//it has written sentences.
const Text1ToBeSent = 'Here the first text to be sent.';
Text2ToBeSent = 'Here the second text to be sent.';
//and u can set those text how many you want.
procedure DeclarePlayers; //The procedure :D
begin
NumberOfPlayers(1); //The player amount you are using.
CurrentPlayer:=0; //Starting player
Players[0].Name:='Runemaster'; //Name Here
Players[0].Pass:='somethingreal'; //Pass Here
Players[0].Nick:='ema'; //3 chars from middle of your name
Players[0].Active:=True; //in use or not in use / True or False
Players[0].Integer1:=50; //this is the amount of sentences to be typed in RS.
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,Upchars)
//and that creates a bitmapmask from the currentplayers nickname so it can be used for randoms detecting.
end;
procedure TalkWithMe;
Begin
TypeSend('Wish i was rich'); //writes to Runescape.
ClearDebug; //clears scars debug box.
Writeln('Sent '+inttostr(Sent)+' Sentences.') //writes to scars debug box.
Wait(8124+random(35)) //waits about 8 seconds.
TypeSend('Maybe i am rich'); //writes to Runescape.
ClearDebug; //clears scars debug box.
Writeln('Sent '+inttostr(Sent)+' Sentences.') //writes to scars debug box.
Wait(8421-random(12)) //waits about 8 seconds.
end;
begin
SetupSRL;
DeclarePlayers;
if(not(LoggedIn))then
LoginPlayer;
repeat
TalkWithMe;
FindNormalRandoms; //Used for finding the most common randoms (talking randoms etc.)
until(false) //use false if you dont want it to stop else use
//until(Sent=>Players[CurrentPlayer].Integer1)
NextPlayer(True);
end.
I didnt use scar to write these so please correct me if i made mistakes