Results 1 to 4 of 4

Thread: Testers needed for my script and a little help would be good.

  1. #1
    Join Date
    Feb 2008
    Location
    Holland ;)
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Testers needed for my script and a little help would be good.

    Well hi,

    My problem is that I can't seem to install scar with SRL using subversion correctly. My os is vista and I really think that's one of the main reasons I can't get SCAR to work properly.

    My installation procedure : I install subversion, download the latest SCAR from freddy1990.com, checkout using subversion. ** I don't have older or other versions of SCAR or SRL or Subversion on my computer **

    Now when I open SCAR and I try to run SetUpSrl.scar I always get "unknown identifier SRL version number..blabla.." When I delete that I get others, so somehow I must be doing something wrong. I can use SCAR to run scripts but I really want to implement SRL Stat's and stuff in my scripts and use my SRL id and pass to register how I progress.

    My other problem is this script ;

    SCAR Code:
    { final instructions
    Drag the crosshair over the runescape window,
    NOTE : you do not have to be logged in.
    fill out the declare players procedure,
    NOTE : info about srl stats and id can be found on [url]www.srl-forums.com[/url].
    click run, fill out the form and click start.
    If you have any questions feel free to pm me.
    If you're unhappy about the speed of my autotalker,
    go to the procedure talk and adjust the wait times, add a lot of random ! }


    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;


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

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

      SRLId:= '1';
      SRLPassword:= 'password';
    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);
       Talks:=Talks+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);
       Talks:=Talks+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(Talks) + ' 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';
       DeclarePlayers;
          repeat
         Talk;
          until (IsFKeyDown(5))
          Proggy;
          Sig;
    end.

    When I try to run my script I get an error in scar.exe or something like that, I can use the form and login, but as soon as I'm logged in I get an error with scar.exe. Now if someone with SCAR and Srl properly installed could try and run the script, that would be great because I then would know if the problem was my script or SCAR and SRL on my computer. Help would really be appreciated.

    All the best,

    PB.


    EDIT: [Runtime Error] : Exception: Access violation at address 0071FDA0 in module 'scar.exe'. Read of address FFFFFFFC in line 227 in script C:\Program Files\SCAR 3.14\includes\SRL/SRL/Core/Login.scar = the error I get when running this script.

    EDIT2: I solved the problem with the script by saving it ( never did that before ) closing scar, re-opening scar and running PBautotalker.scar instead of copy-pasting the script. SetUpSrl is my main problem now.

  2. #2
    Join Date
    Jun 2007
    Location
    Ohio
    Posts
    341
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This script works perfectly fine for me. try running scar as an adminstrator (i think you right click it and click run as admin) and see if you can download using subversion. if you cant, contact me and ill give you mine

  3. #3
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Yeah, mallot is right.

    My brother has to run as administrator on SCAR because he runs Vista.
    Jus' Lurkin'

  4. #4
    Join Date
    Feb 2008
    Location
    Holland ;)
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by malotthouse View Post
    This script works perfectly fine for me. try running scar as an adminstrator (i think you right click it and click run as admin) and see if you can download using subversion. if you cant, contact me and ill give you mine
    Yeah, mallot is right.

    My brother has to run as administrator on SCAR because he runs Vista.
    I already edited my first post, I got the script to work. ( do you like it btw, its my first script ) My problem is setupsrl.scar now. I can run scar ( as an admin ) and I already do that. I never really said that SCAR didnt work for me. It's the SRL stat's part that's bsing me. Always when I run setupsrl I get this error = Unknown identifier SRL Version number..... blablabla.... . If you guys have solutions to this, that would really be great (h) Thnx for your replies and good luck botting.

    PB.


    EDIT : somehow I got my stats to work without running setupsrl, let this die.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Script testers needed!
    By TRiLeZ in forum OSR Help
    Replies: 2
    Last Post: 03-10-2009, 05:00 PM
  2. Testers needed!
    By Naike in forum Research & Development Lounge
    Replies: 8
    Last Post: 08-16-2008, 01:52 PM
  3. good idea script needed to be made trades 3k every 15 mins
    By Kasi in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 02-18-2008, 09:42 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •