SRL Archive - First Scripts

ther it is i tried really hard it took me forever =/




var
ModBMP,x,y:integer;

{================= EDIT YOUR TEXT IN HERE ======================}
const
Talk = 'Input All Text Between ('') Those Marks!'; //what to say
TWait = 500; //time to wait after typing
Say = 'If You Want One Not To Be Used Just Keep Them Empty'; // Second Text
Talk2 = 'Be Sure To Insert Things Between The ('') Marks'; //Third text
Say2 = 'Insert Your Other Sentences Here'; // Fourth Text
TalkAgain = 'More Text To Be Insterted Here'; // Last Text (Fifth)
Effect = 'Type what effect you would like(effects listed above)'; //Effects

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'Usernamehere'; //place your username here
Players[0].Pass := 'Passwordhere'; //place your password here
Players[0].Nick := 'Nicknamehere'; //3 - 4 letters of YOUR username, example: sern
Players[0].Active := True;
end;

{===================== NO MORE TOUCHING! =================================}
procedure LoadBMP;
begin
ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
'430307732774215C71481005743574354BDB84C43560911C1540F' +
'51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
'000AB69B141');
end;


procedure Startup;
begin
Writeln('Initializing');
Wait(2000);
Writeln('3');
Wait(1000);
Writeln('2');
Wait(1000);
Writeln('1');
Wait(1500);
Writeln('You May Now Click On Your Runescape Windows');
Wait(1500);
end;

procedure AndoTalkin;
begin
Wait(TWait + random(700));
if (not(LoggedIn)) then Exit;
case Random(5) of
1: typesend(Effect+':'+Talk);

2: typesend(Effect+':'+Say);

3: typesend(Effect+':'+Talk2);

4: typesend(Effect+':'+Say2);

5: typesend(Effect+':'+TalkAgain);
end;
end;

procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;

procedure ScanForMod;
begin
if(findbitmap(ModBMP,x,y))then
begin
writeln('OMG Mod!');
TerminateScript;
end;
end;

function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure FindTheRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunBack;
end;
end;

procedure ABan;
begin
if (not(LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Woodcutting', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;



begin // begins
ClearDebug;
Credits;
Startup;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Login;
repeat //Repeats The Following after this until the until():
if (InChat('yo')) then typesend('whats up?');
LoadBMP;
FindFastRandoms;
FindTheRandoms;
ScanForMod;
ABan;
AndoTalkin; // Does everything in procedure TalkOn;
until (isfkeydown(5)) // Keeps repeating Until you press the F5 key.
end. //End of entire Script

oh forgot to say its an auto talker

dont doule post…. yer its not bad…but insted of randomly saying stuff unless its a spammer.. try pressing keys to make it say specific things.. like for mercenting..

spaz

Please work on your standards:

var
  ModBMP,x,y:integer;

{================= EDIT YOUR TEXT IN HERE ======================}
const
  Talk = 'Input All Text Between ('') Those Marks!'; //what to say
  TWait = 500; //time to wait after typing
  Say = 'If You Want One Not To Be Used Just Keep Them Empty'; // Second    Text
  Talk2 = 'Be Sure To Insert Things Between The ('') Marks'; //Third text
  Say2 = 'Insert Your Other Sentences Here'; // Fourth Text
  TalkAgain = 'More Text To Be Insterted Here'; // Last Text (Fifth)
  Effect = 'Type what effect you would like(effects listed above)'; //Effects

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Usernamehere'; //place your username here
  Players[0].Pass := 'Passwordhere'; //place your password here
  Players[0].Nick := 'Nicknamehere'; //3 - 4 letters of YOUR username,   example: sern
  Players[0].Active := True;
end;

{===================== NO MORE TOUCHING! =================================}
procedure LoadBMP;
begin
  ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
  '430307732774215C71481005743574354BDB84C43560911C1 540F' +
  '51838B84A8C71427CF345C24754D839833924D23CF4C5CE65 00B0' +
  '000AB69B141');
end;


procedure Startup;
begin
  Writeln('Initializing');
  Wait(2000);
  Writeln('3');
  Wait(1000);
  Writeln('2');
  Wait(1000);
  Writeln('1');
  Wait(1500); //I would use ActivateClient; instead of them having to manually click
  Writeln('You May Now Click On Your Runescape Windows');
  Wait(1500);
end;

procedure AndoTalkin;
begin
  Wait(TWait + random(700));
  if (not(LoggedIn)) then Exit;
  case Random(5) of
    1: typesend(Effect+':'+Talk);

    2: typesend(Effect+':'+Say);

    3: typesend(Effect+':'+Talk2);

    4: typesend(Effect+':'+Say2);

    5: typesend(Effect+':'+TalkAgain);
  end;
end;

procedure Login;
begin
  if (not(LoggedIn)) then
  LoginPlayer;
end;

procedure ScanForMod;
begin
  if(findbitmap(ModBMP,x,y))then
  begin
    writeln('OMG Mod!');
    TerminateScript;
  end;
end;

function FindFastRandoms: Boolean; //Must credit!!
var
i: Integer;
begin
for i:=1 to 10 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9: RC;
10: Respond;
end;
wait(1);
end;
end;
procedure FindTheRandoms;
begin
FindTalk;
FindFastRandoms;
FindNormalRandoms;
FindLamp('Woodcutting');
SolvePinball;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunBack;
end;
end;

procedure ABan;
begin
if (not(LoggedIn)) then
Exit;
case Random(8) of
0: RandomRClick;
1: HoverSkill('Woodcutting', False);
2: RandomMovement;
3: BoredHuman;
4: PickUpMouse;
5: AlmostLogout;
6: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;



begin // begins
ClearDebug;
Credits;
Startup;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
Login;
repeat //Repeats The Following after this until the until():
if (InChat('yo')) then typesend('whats up?');
LoadBMP;
FindFastRandoms;
FindTheRandoms;
ScanForMod;
ABan;
AndoTalkin; // Does everything in procedure TalkOn;
until (isfkeydown(5)) // Keeps repeating Until you press the F5 key.
end. //End of entire Script

In the first procedures I think you get my idea… Please read up on SRL standards.

Cut em2 it

alrite im trying

looks pretty nice

ill try it when its a little more updated lol

Yeah.. One of the better auto typers, but as cut em2 it said, standards are important. It looks messy if you keep it like that. People will get annoyed looking through it. Also, instead of typing straight into your post, do what cut em2 it did. Put it into the scar tags… (SCAR) text here (/SCAR) use square brackets though.

Great first script though. 
Good job

Tazzie

Quite good… because its got DeclarePlayers function… Try adding a Form… May be the FindRS will help…

Remember to add - {.include SRL\SRL.SCAR} (if you add FindRS)

im tryingn ugg its so confusing haha but yea lol im readin more tutorials thanks for feedback guys =)