SRL Archive - RS3 Outdated / Broken Scripts

well here is my autotalker

Hope you enjoy :D





Version 1:First Release
Version 1.5: Little change, but a big change.


thanks-ashur:stirthepot:

VERSION 1.5 RELEASED




lol..sorry for releasing so fast…but one little change can make a big diffrence :D

first post w000t!!!!!!
anyways, thx fer script, i edited it so that i can say 5 things.

sry fer duble posting, but ur antirandoms will not work, u need to have the loadbmps from the name:f: :f: :f: :f:

P.S just for the purpose of anti-leeching, i made one small error. its soooooo easy fer a scripter to spot.

 program AutoTalker;
{.include SRL/SRL.scar}

const
WhatToSay1='selin full dharoks 3.2m';Put what you want to say
WhatToSay2='selin 5kbs 180ea!';Put what you want to say next
WhatToSay3='buying full veracs';yet another one
WhatToSay4='selling rune trimed pl8';need i say it?

procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;

Players[0].Name :='';//Name Goes Here
Players[0].Pass :='';//Password Goes Here
Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not


End;


procedure LoggingIn;

begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;


procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;


procedure AmostLogout;
var e,f,TempMouseSpeed:integer;
begin
GameTab(10);
TempMouseSpeed:=MouseSpeed;
MouseSpeed:=MouseSpeed + 20;
e:=5+random(6);
for f:=0 to e do
 begin
  case random(3) of
   0,1:MMouse(583+random(120),361+random(20),0,0);
   2:IdleTime(300+random(300),500,0.5);
  end
 wait(500+random(1000));
 end
MouseSpeed:=TempMouseSpeed;
GameTab(4);
end;


procedure Talk1;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;


procedure Talk2;
begin
Wait(1000+random(200));
TypeSend(WhatToSay2 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;

procedure Talk3;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;

procedure Talk4;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;

begin
SetupSRL;
repeat
DeclarePlayers;
LoginPlayer;
DoAntiRandoms;
Talk1;
DoAntiRandoms;
Talk2;
DoAntiRandoms;
Talk3;
DoAntiRandoms;
Talk4;
AmostLogout;
until(false)
end.

Just for the purpose of not screwing people over

program AutoTalker;
{.include SRL/SRL.scar}
 
const
WhatToSay1='selin full dharoks 3.2m';//Put what you want to say
WhatToSay2='selin 5kbs 180ea!';//Put what you want to say next
WhatToSay3='buying full veracs';//yet another one
WhatToSay4='selling rune trimed pl8';//need i say it?
 
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
 
Players[0].Name :='';//Name Goes Here
Players[0].Pass :='';//Password Goes Here
Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
 
 
End;
 
 
procedure LoggingIn;
 
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
 
 
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
 
 
procedure AmostLogout;
var e,f,TempMouseSpeed:integer;
begin
GameTab(10);
TempMouseSpeed:=MouseSpeed;
MouseSpeed:=MouseSpeed + 20;
e:=5+random(6);
for f:=0 to e do
 begin
  case random(3) of
   0,1:MMouse(583+random(120),361+random(20),0,0);
   2:IdleTime(300+random(300),500,0.5);
  end
 wait(500+random(1000));
 end
MouseSpeed:=TempMouseSpeed;
GameTab(4);
end;
 
 
procedure Talk1;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
 
 
procedure Talk2;
begin
Wait(1000+random(200));
TypeSend(WhatToSay2 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
 
procedure Talk3;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
 
procedure Talk4;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
 
begin
SetupSRL;
repeat
DeclarePlayers;
LoginPlayer;
DoAntiRandoms;
Talk1;
DoAntiRandoms;
Talk2;
DoAntiRandoms;
Talk3;
DoAntiRandoms;
Talk4;
AmostLogout;
until(false)
end.
 

rot, i ment to screw leechers over -.-

Dw, i hope you enjoy those posts added to you're post count, and bumping my thread…;)

P.S: There's an edit button :)

-Ashur