SRL Archive - First Scripts

Hi and welcome to my very first Multi Message Autotalker :spot:
I wrote this in the newest SCAR and SRL but I guess older versions could work because it is very basic.

I basically wrote this using a lot of guides found on this site :stirthepot: and by using a bit of imagination.

Any tips on how I could improve are very welcome ( negative feedback is still feedback ! ) and proggy's would be great.

Again I must say it is very basic so dont expect to much of it.

Also please post in my poll (h)

[CENTER]*****VERSION 3.1 is out ! *****[/CENTER]

V2 <>

U can now set a maximum amount of messages to send ! and, 
--
Press F1 to send Message 1 and F2 to stop sending Message 1,
Press F3 to send Message 2 and F4 to stop sending Message 2,
--
and you can stop early by pressing F5 ( after you stopped sending the message you were sending.) after you press F5 or reach ur maximum amount of messages please copy and paste 
your Proggy !
--
You also dont have to manually press F1 or F3 anymore, it now [U]really[/U] autotypes. ( until you press F2 or F4 of course ! )

V2.1 <> 

Polished it up a little and added some small things, included forum name in proggy.
Tested and working with Scar Divi 3.14 SRL Rev #13.

V3 <>

Cleaned everything up, added a form, added ScriptID ( not really relevant ) added more random between words and if I come up with more I did I'll post it here :P

V3.1 <>

Added declare players, SRL player stat's, added anti random and anti ban, and more :P

[CENTER]*****VERSION 3.1 is out ! *****[/CENTER]

***IMPORTANT***

To copy the proggy in my thread, select it all,
Copy it by pressing CTRL + C, then paste it.
( you don't necessarly have to copy my sig :P )

***IMPORTANT***

I used SCAR Divi 3.14 and SRL Rev 13 to write this, so these are advised !
Older versions may work, but I wont promise anything !

***IMPORTANT***

<><><><><><><><><><> ENJOY ! <><><><><><><><><><>

1. COLOR   = Red, cyan, green, white, flash 1, flash 2, flash 3 are the possible colors.
2. EFFECT  = Wave, wave 2, shake, scroll, slide are the possible effects.

<><><><><><><><><><> ENJOY ! <><><><><><><><><><>

SETUP;
Dragg the crosshair over the runescape screen.
Fill out the procedure DeclarePlayers. 
*not needed* edit the time between messages in the procedure Talk. ( if you think it's to fast or to slow. )
Click run and fill in the form.
Click start and enjoy.
F1 for message 1 to start, F2 to stop.
F3 for message 2 to start, F4 to stop.
F5 to bring up the proggy ( after u pressed either F2 or F4.

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

var
  frmDesign : TForm;
  ForumNameLabel : TLabel;
  ColorLabel : TLabel;
  EffectLabel : TLabel;
  Message1Label : TLabel;
  Message2Label : TLabel;
  ForumNameEdit : TEdit;
  ColorEdit : TEdit;
  Edit2 : TEdit;
  EffectEdit : TEdit;
  Message1Edit : TEdit;
  Message2Edit : TEdit;
  StartButton : TButton;

  ForumName, Color, Effect, Message1, Message2 : String;
  
  MessagesSent : integer;

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

  Players[0].Name     :='';
  Players[0].Pass     :='';
  Players[0].Nick     :='';
  Players[0].Active   := True;

  SRLId:= '';
  SRLPassword:= '';

end;

procedure CheckID;
begin
   If( SRLID = '' )or( SRLPassword = '' )Then
    Begin
      ClearDebug;
      Writeln('You forgot to fill in your SRLId and SRLPassword !');
      Writeln('If you do not have a SRLId, check the tutorials section');
      Writeln('Remember, I helped you out with script, now help me =)');
      Writeln('Terminating the script, please rerun when you have a SRLId');
      TerminateScript;
    end;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure ClickButton(sender: TObject);
begin
  Writeln('Thnx for using PBautotalker!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;

end;

Procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 98;
frmDesign.Width := 401;
frmDesign.Height := 277;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.ShowHint := True;
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
ForumNameLabel := TLabel.Create(frmDesign);
ForumNameLabel.Parent := frmDesign;
ForumNameLabel.Left := 32;
ForumNameLabel.Top := 32;
ForumNameLabel.Width := 57;
ForumNameLabel.Height := 13;
ForumNameLabel.Hint := 'Fill out your SRL-forum username here';
ForumNameLabel.Caption := 'ForumName';
ForumNameLabel.ParentShowHint := False;
ForumNameLabel.ShowHint := False;
ColorLabel := TLabel.Create(frmDesign);
ColorLabel.Parent := frmDesign;
ColorLabel.Left := 32;
ColorLabel.Top := 64;
ColorLabel.Width := 65;
ColorLabel.Height := 13;
ColorLabel.Hint := 'For the possible color'#39's check my thread';
ColorLabel.Caption := 'Color';
ColorLabel.ParentShowHint := False;
ColorLabel.ShowHint := False;
EffectLabel := TLabel.Create(frmDesign);
EffectLabel.Parent := frmDesign;
EffectLabel.Left := 32;
EffectLabel.Top := 96;
EffectLabel.Width := 65;
EffectLabel.Height := 13;
EffectLabel.Hint := 'For the possible effect'#39's check my thread';
EffectLabel.Caption := 'Effect';
EffectLabel.ParentShowHint := False;
EffectLabel.ShowHint := False;
Message1Label := TLabel.Create(frmDesign);
Message1Label.Parent := frmDesign;
Message1Label.Left := 32;
Message1Label.Top := 128;
Message1Label.Width := 85;
Message1Label.Height := 13;
Message1Label.Hint := 'Fill out message 1 here';
Message1Label.Caption := 'Message1';
Message1Label.ParentShowHint := False;
Message1Label.ShowHint := False;
Message2Label := TLabel.Create(frmDesign);
Message2Label.Parent := frmDesign;
Message2Label.Left := 32;
Message2Label.Top := 160;
Message2Label.Width := 85;
Message2Label.Height := 13;
Message2Label.Hint := 'Fill out message 2 here';
Message2Label.Caption := 'Message2';
Message2Label.ParentShowHint := False;
Message2Label.ShowHint := False;
ForumNameEdit := TEdit.Create(frmDesign);
ForumNameEdit.Parent := frmDesign;
ForumNameEdit.Left := 128;
ForumNameEdit.Top := 32;
ForumNameEdit.Width := 225;
ForumNameEdit.Height := 21;
ForumNameEdit.Hint := 'Enter your SRL forum'#39's name here';
ForumNameEdit.ParentShowHint := False;
ForumNameEdit.ShowHint := True;
ForumNameEdit.TabOrder := 8;
ColorEdit := TEdit.Create(frmDesign);
ColorEdit.Parent := frmDesign;
ColorEdit.Left := 128;
ColorEdit.Top := 64;
ColorEdit.Width := 121;
ColorEdit.Height := 21;
ColorEdit.Hint := 'For the possible color'#39's check my thread';
ColorEdit.TabOrder := 9;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 144;
Edit2.Top := 104;
Edit2.Width := 1;
Edit2.Height := 21;
Edit2.TabOrder := 10;
Edit2.Text := 'Edit2';
EffectEdit := TEdit.Create(frmDesign);
EffectEdit.Parent := frmDesign;
EffectEdit.Left := 128;
EffectEdit.Top := 96;
EffectEdit.Width := 121;
EffectEdit.Height := 21;
EffectEdit.Hint := 'For the possible effect'#39's check my thread';
EffectEdit.TabOrder := 11;
Message1Edit := TEdit.Create(frmDesign);
Message1Edit.Parent := frmDesign;
Message1Edit.Left := 128;
Message1Edit.Top := 128;
Message1Edit.Width := 225;
Message1Edit.Height := 21;
Message1Edit.Hint := 'Fill out message 1 here';
Message1Edit.TabOrder := 12;
Message2Edit := TEdit.Create(frmDesign);
Message2Edit.Parent := frmDesign;
Message2Edit.Left := 128;
Message2Edit.Top := 160;
Message2Edit.Width := 225;
Message2Edit.Height := 21;
Message2Edit.Hint := 'Fill out message 2 here';
Message2Edit.TabOrder := 13;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 264;
StartButton.Top := 64;
StartButton.Width := 89;
StartButton.Height := 49;
StartButton.Hint := 'Start the script ! :)';
StartButton.Caption := 'START';
StartButton.TabOrder := 15;
StartButton.OnClick := @ClickButton;
end;

procedure AntiRandoms;  // credits Method; [url]http://www.villavu.com/forum/showthread.php?t=23178[/url]
begin
  FindNormalRandoms;
  if FindFight then RunTo('N',True);
end;

procedure AntiBan;      // credits Method; [url]http://www.villavu.com/forum/showthread.php?t=23178[/url]
begin
  case random(100) of
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('Mining', False);
    3: AlmostLogout;
  end;
end;

procedure Talk;
begin

Color := ColorEdit.text;
Effect := EffectEdit.text;
Message1 := Message1Edit.text;
Message2 := Message2Edit.text;

  If (not (loggedIn)) then
  LoginPlayer;

   if(IsFKeyDown(1))then
   begin
   repeat
   wait(1450 + Random(850))
   TypeSend(Color + ':' + Effect + ':' + Message1);
   MessagesSent:=MessagesSent+1;
   ReportVars[0] := ReportVars[0] + 1
   SendSRLReport;
   FindNormalRandoms;
   AntiBan;
   until (IsFKeyDown(2))
   end;

   if(IsFKeyDown(3))then
   begin
   repeat
   wait(1350 + Random(950))
   TypeSend(Color + ':' + Effect + ':' + Message2);
   MessagesSent:=MessagesSent+1;
   ReportVars[0] := ReportVars[0] + 1
   SendSRLReport;
   FindNormalRandoms;
   AntiBan;
   until (IsFKeyDown(4))
   end;
end;

procedure Proggy;
begin

ForumName := ForumNameEdit.text;

  ClearDebug;
  Writeln('<><~><><~><><~><><~><><~><><~><><~><><~><><~><><~>');
  Writeln('<~>                                      ');
  Writeln('<->--PBautotalker was used by ' + ForumName + '    ');
  Writeln('<->--PBautotalker sent ' + IntToStr(MessagesSent) + ' messages' + '    ');
  Writeln('<->--PBautotalker ran for ' +  TimeRunning + '    ');
  Writeln('<~>                                      ');
  Writeln('<><~><><~><><~><><~><><~><><~><><~><><~><><~><><~>');
  SrlRandomsReport;

end;

Procedure Sig;
begin
wait(750 + random(250));

  Writeln('                                                                 ');
  Writeln('                +,                                ,,             ');
  Writeln('                :*:                               *,             ');
  Writeln('                ,*,                              +:*             ');
  Writeln('               ,#:,                              *,W,+           ');
  Writeln('              .@W,,                                WW.           ');
  Writeln('              +W@ .                              * +WW:          ');
  Writeln('             :WW# ,                              , .WW,          ');
  Writeln('             ,WW*  +                               ,WW.          ');
  Writeln('             .WW+  ,   *:,,,,,,,,,,,,,.::::::+  ,  ,WW**         ');
  Writeln('             #WW. ,,+#@WWWWWWWWWWWW*WWWWWWWWWWW@+, ,WWW,         ');
  Writeln('            ,WW.,: WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW+:+,#W+         ');
  Writeln('           *+WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.        ');
  Writeln('           +WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW,        ');
  Writeln('            WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW.        ');
  Writeln('            #WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW@:        ');
  Writeln('            ,#WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW* :        ');
  Writeln('             ,@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW, .        ');
  Writeln('           *,,:WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW:, ,        ');
  Writeln('           :, W@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW  ,        ');
  Writeln('           .  :WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW:  ,        ');
  Writeln('           +  ,@WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW   .        ');
  Writeln('               ,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW:   :        ');
  Writeln('               ,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW#WW    .        ');
  Writeln('           +    #W,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW+@#    ,        ');
  Writeln('           :    .@,WWWWWWWWWWWWWWWWWWWWWWWWWWWWWW@:,    ,        ');
  Writeln('           *     *:WWWWWWWWWWW,WWWWWWWWWWWWWWWWWWW,     :        ');
  Writeln('            ,    ,#WWWWWWWWWWW:WWWWWWWWWWWWWWWWWWW     ,         ');
  Writeln('            ,    +WWWWWWWWWWWW+WWWWWWWWWWWWWWWWWWWW    ,         ');
  Writeln('                .WWWWWWWWWWWWW#WWWWWWW,WWWWWWWWWWWW@             ');
  Writeln('                ,#WWWWWWWWWW@WWWWWWWW##WWWWWWWWWWW*,   ,         ');
  Writeln('               ,**,:@WWWWWWWW.WWWWWWW*WWWWWWWWW*, .W,,  *        ');
  Writeln('              ,@WW,.W@*+#@@:W:@WWWWWWW+ @+*:+@WW* WWW.  .        ');
  Writeln('           * ,+WW:,,WWWW ,,WWWWWWWWWWW@,#.  *WWW,,:WW@, .        ');
  Writeln('           *,,WWWW#, #*, ,:WWWWWWWWWWWWWW@ ,,:., *WWWW. .        ');
  Writeln('           + ,WWWWWW:,  , WWWWWWWWWWWWWWWW,, , +WWWWWW. .        ');
  Writeln('           + ,WWWWWWWW:  @WWWWWWWWWWWWWWWWW:,*WWWWWWWW: :        ');
  Writeln('           : ,WWWWWW:W@,@WWWWWWWWWWWWWWWWWWW*:#,WWWWWW: :        ');
  Writeln('           : ,@WWWWW# ,WWWWWWWWWWWWWWWWWWWWWW.,+WWWWW*  +        ');
  Writeln('           +   *WWWWW,+W.WWWWWWWWWWWWWWWWWW*##,WWWWW,   #        ');
  Writeln('           *    ,@WWW+,.#WWWWWWWWWWWWWWWWWWW,,,#WW*.             ');
  Writeln('                  ,.    WWWWWWW@###@WWWWWWWW,   ,,     ,         ');
  Writeln('               :,       WWWW@,,.+#@WW@#@WWWW,                    ');
  Writeln('            ,  ,+  ,    #WWW,*,,,.:.    ,WW@          ,          ');
  Writeln('            :,  +W+,    ,WW,, ,       , ,WW.          ,+         ');
  Writeln('             ., :WW:    #WW:  **      ,*,#W@.        ,+          ');
  Writeln('              , .WW#   ,+WWW*:..,   ,,,:#WW@,        ,           ');
  Writeln('               . ,@W,   WWWWWWWW,   WWWWWWWW:,      ,            ');
  Writeln('                ,,,WW, +WWWWWWWW@, #WWWWWWWW*,     .             ');
  Writeln('                 , .WW,,WWWWWWWWW  #WWWWWWWW                     ');
  Writeln('                   ,,.  :WWWWWWWW  *WWWWWWW#                     ');
  Writeln('                  .     ,WWWWWWW*  ,#WWWWWW,     .               ');
  Writeln('                         +WWWW#,     ,@WWW#     ,                ');
  Writeln('                   ,    , @W*,         ,*.                       ');
  Writeln('                               , ,,,,,,                          ');
  Writeln('                   ,        , ,:W ,@@.,                          ');
  Writeln('                             :#.,   ,.*         ,*               ');
  Writeln('                   +,       ,,          ,                        ');
  Writeln('                     . ,     .  ,,,  .* .,  , :                  ');
  Writeln('                       :, ,              :,.                     ');
  Writeln('                                                                 ');
  Writeln('                                                                 ');

end;

begin
  SafeInitForm;
  SafeShowFormModal;
   SetupSRL;
   ActivateClient;
   ScriptID := '663';
   CheckID;
   DeclarePlayers;
      repeat
     Talk;
      until (IsFKeyDown(5))
     Proggy;
     Sig;
end.

*** Please update to Version 3.1 ***
*** The attached file is not up to date ***

17 views, 4 voters and no response.. Remember people, if you post your feedback I could adjust it to your needs ;)

** it seems like the eye of newt buyer is winning… People must know that this is one of the best ways of making money with bots ! **

You should consider making a a bit in the const section that has how many time people want to say the message as well as having the F3 key button. Other than that it looks like an alright first scrpit.

It looks fine. :)
Keep up the working. ;)
Eerik.

From: dude_richard
You should consider making a a bit in the const section that has how many time people want to say the message as well as having the F3 key button. Other than that it looks like an alright first scrpit.

I'll get right on it.

From: heavenzeyez1
It looks fine. :)
Keep up the working. ;)
Eerik.

I will ! thnx a lot :sasmokin: I'm now looking into autocursing ( hard ? ) and the eye of newt buyer which is a very good money maker.:rolleyes:

Well as I promised I would update PBautotalker to your needs if you replied, dude_richard did so and here is the result !

*****VERSION 2 is out ! *****

U can now set a maximum amount of messages to send ! and,
–
Press F1 to send Message 1 and F2 to stop sending Message 1,
Press F3 to send Message 2 and F4 to stop sending Message 2,
–
and you can stop early by pressing F5 ( after you stopped sending the message you were sending.) after you press F5 or reach ur maximum amount of messages please copy and paste
your Proggy !
–
You also dont have to manually press F1 or F3 anymore, it now really autotypes. ( until you press F2 or F4 of course ! )

*****VERSION 2 is out ! *****

I hope I updated it as much as possible to your needs richard and… enjoy !

70(!) views, 11 voters including 3 voters who I specifically asked to post ( poll ) and only 2 people who actually replied. Again I must say that if you reply with a specific thing you want changed on my autotalker I will most likely change it. Dont be afraid to ask questions or post negative feedback !

PB.

VERSION 3 is out !

<<–>> IMPORTANT <<–>>

it now has a form ! woohoo :p !
I also added more random between sentences, added the scriptID, added a very cool sig and some more !

PB.

You could try using combo boxes for the colors and effects. If you need help doing that you could PM or Email me. I'll be happy to help. :p Thanks,

~Kyle~

From: Da 0wner
You could try using combo boxes for the colors and effects. If you need help doing that you could PM or Email me. I'll be happy to help. :p Thanks,

~Kyle~

Sounds like a good idea, I'll try myself and if I can't manage to make it work I'll pm you ;) thnx for the idea.

looks nice, maybe have something for those who dont want to use color and/or effects in their message…

perhaps user inputted wait times between messages with your random interval added as well.

Good job and keep it up ;)

From: gerauchert
looks nice, maybe have something for those who dont want to use color and/or effects in their message…

perhaps user inputted wait times between messages with your random interval added as well.

Good job and keep it up ;)

Well basicaly that's already there, they can leave the color and effect boxes white if they don't want effect's or color's and I'll show them where they can edit my random interval instead of using 2 random interval's on top of each other, thnx for the feed back :spot:

lol dont worry about replies to views ratio

1,076  	19,454 - my autofighter

245  	6,830 - my woodcutter

but not bad for a first good to incorporate a form with it for easy usage

From: HyperSecret
lol dont worry about replies to views ratio

1,076  	19,454 - my autofighter

245  	6,830 - my woodcutter

but not bad for a first good to incorporate a form with it for easy usage

Thnx for replying, it really means a lot to me to hear something like that from a person like you :sasmokin: I'm thinking about redoing the form because i want to add combo boxes ( thnx Da owner ) and make the script login. Look out for updates this week.

EDIT : Added login feature, script also should register now, using srl id should also work now. :D

Well it seems like I'm done with this, I can't really think of anything I could still add to this autotalker, after all, it is a autotalker. So what do you guy's think I should do, post this in the free section and start developing my AutoMage idea I have, or develop this even more ( post your ideas though ).

PB.

Don't let me down guys, I really want to continue developing this as a sort of learning project. Any idea's, stupid, foolish or just plain brilliant, do NOT hesetate (sp.?) to post them.

And if you can't get this script to work, post the error you get, because it is up to date.

Voted for a newt buyer :P

From: Pitbull

** it seems like the eye of newt buyer is winning… People must know that this is one of the best ways of making money with bots ! **

this is probebly a stupid question but, how do u make money on buying eye of newts?

You buy the newts for a really low price (I think 3), then sell the on the GE for like ~40-70 (I can't remember the sell price.) Either way, huge profit.

@Pitbull, I've made auto cursers before. If you'd like some help with it, just PM me. ^.^