Page 1 of 2 12 LastLast
Results 1 to 25 of 27

Thread: SRL Revision #15

  1. #1
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default SRL Revision #15

    SRL Revision #15.

    • Updated worlds.ini
    • Fixed CurrentWorld and Added GetCurrentWorld
    • All SRL-Development suggestions have been taken care of.
    • Fixed a bug in Withdraw.
    • Findlamp now supports all skills.
    • Added a new ChooseOption, which uses TPA's. What else?
    • (MSX1, MSY1) has changed from (1,1) to (4,4)
    • Added a Const called SRLVersionNumber.
    • FindObj, FindObjEx and FindObjCustom use a new algorithm.
    • Players[].Pin has changed from an Integer to a String.
    • The DropItem() wait has been decreased.
    • LoggedIn now uses a findcolor instead of a getcolor.
    • All BankOpeners support Pin codes.
    • GetATPABounds, DrawTPACanvas and DrawATPACanvas have been added to WizzyPlugin.
    • w_UpdateLastBlackLine has been removed. FindDead has been adjusted so that it will still function.
    • FindRockColor and FindWaterColor have been updated,
    • Path.scar now uses a dynamic array. Default is still 50. Do not forget to call SetupPath;
      You can either set the 'Path' length by using SetPathLength(yourlength) or just SetLength(Path, yourlength).
    • 'Clothes Shop' was twice in the newAutoColor array.
    • FFlag returns a boolean.
    • Added a failsafe in FixBank...


    General updates and fixes:

    • We have tried to add more initilization to functions. (Result := '', Result := False, and Result := 0);
    • We have added an error system.

    SCAR Code:
    {*******************************************************************************
    Procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer);
    by: SRL Dev Team
    Description: WriteLn's a warning message.
    *******************************************************************************}


    Const
        warn_AllVersions = 0;
        warn_Terminate = -1;
        warn_Warning = -2;

    Procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer);

    Begin
      Case wVersion Of
        warn_Terminate: begin end;
        warn_AllVersions: begin end;
        warn_Warning: If Not ShowWarnings Then
                        Exit;
        Else If wVersion <> SRLVersionNumber Then
          Exit;
      End;
      WriteLn('** Warning in ' + ProcName + ': ' + ErrorMessage + '**');
      If wVersion = -1 Then
        TerminateScript;
    End;

    Apart from the three constants, you can also give the procedure a certain Revision number. Like we did in the new Deposit:
    SCAR Code:
    Procedure Deposit(SlotFrom, SlotTo: Integer; vType: Variant);

    Var
       DepositX: Boolean;
       All: Variant;
       I, T, x, y: Integer;

    Begin
      If Not BankScreen Then
        Exit;
      If vType = 2 Then
        srl_Warn('Deposit', '2 now means store per 2, not ''All''', 15);
      DepositX := False;
      Case VarType(vType) Of
        3: Begin
             DepositX := Not InIntArray([1, 5, 10], vType);
             If vType = 1 Then
               All := False
             Else
               All := True;
           End;
        11: All := vType;
      End;
      For I := 1 To 28 Do
      Begin
        If Not ExistsItem(I) Then
          Continue;
        MouseItem(I, Not All);
        If DepositX Then
        Begin
          ChooseOption('Store X');
          T := GetSystemTime;
          While (Not FindColor(x, y, 8388608, MCX1, MCY1, MCX2, MCY2)) And (GetSystemTime - T < 3000) Do
            Wait(100);
          TypeSend(vType);
        End Else If VarType(vType) = 3 Then
          ChooseOption('Store ' + vType)
        Else
          ChooseOption('Store All');
        T := GetSystemTime;
        While ExistsItem(I) And (GetSystemTime - T < 2000) Do
          Wait(50);
      End;
    End;

    New ChooseOption:

    SCAR Code:
    function ChooseOption(txt: string): Boolean;
    var
       B: TBox;
       P: TPointArray;
       X, Y: Integer;

    begin
      GetClientDimensions(B.X2, B.Y2);
      B.X1 := 0;
      B.Y1 := 0;
      FindColorsTolerance(P, 4674653, B.X1, B.Y1, B.X2, B.Y2, 0);
      If Length(P) = 0 Then
        Exit;
      B := GetTPABounds(P);
      If FindText(X, Y, txt, upchars, B.X1, B.Y1, B.X2, B.Y2) Then
      Begin
        Result := True;
        Mouse(B.X1 + 5, y + 1, Random(B.X2 - B.X1), random(13), True);
      End
      Else
      begin
        MMouse(B.X1 - 50, B.Y1 - 50, 40, B.Y2 - B.Y1);
        Wait(200 + Random(100));
      end;
    end;



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  2. #2
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    4,163
    Mentioned
    9 Post(s)
    Quoted
    19 Post(s)

    Default

    epic

  3. #3
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Great job everyone!

    I'll talk to you about another possible uber idea for ChooseOption later.

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Wow. The second I turn on the forums, it is released Cool, great works Devs, and a few SRL Members

    JW, what is
    SCAR Code:
    {*******************************************************************************
    Procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer);
    by: SRL Dev Team
    Description: WriteLn's a warning message.
    *******************************************************************************}

     
    Const
        warn_AllVersions = 0;
        warn_Terminate = -1;
        warn_Warning = -2;
     
    Procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer);
     
    Begin
      Case wVersion Of
        warn_Terminate: begin end;
        warn_AllVersions: begin end;
        warn_Warning: If Not ShowWarnings Then
                        Exit;
        Else If wVersion <> SRLVersionNumber Then
          Exit;
      End;
      WriteLn('** Warning in ' + ProcName + ': ' + ErrorMessage + '**');
      If wVersion = -1 Then
        TerminateScript;
    End;
    all about?

    # Added a Const called SRLVersionNumber.
    # FindObj, FindObjEx and FindObjCustom use a new algorithm.
    Thanks for SRLVersionNumber!
    How exactly was FindObjCustom changed?


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    jaw to the floor

    this is an excellent update. thank you so much devs!

    All SRL-Development suggestions have been taken care of.
    and thank you mems

    Ive wanted alot of these and even changed some of them in my srl. MSX1/MSY1! pin string! FFlag boolean! Fixbank! im so happy right now.

  6. #6
    Join Date
    Nov 2007
    Location
    The Netherlands
    Posts
    1,490
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yay rev 15 is out
    thanks a lot and keep up the good work

  7. #7
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Thanks Srl Devs!

  8. #8
    Join Date
    Jun 2006
    Posts
    3,861
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Nice job

    But what's the point in initializing results? Does the engine once in a while fail at it?

  9. #9
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Quote Originally Posted by bullzeye95 View Post
    Nice job

    But what's the point in initializing results? Does the engine once in a while fail at it?
    Yes. The engine sometimes messes up the result... It's a common Delphi bug.
    I think you can recreate it in SCAR, too.

    SCAR Code:
    program new;
    var
       s:string;

    begin
      s := '636hfdhfe633';
      s := trimnumbers(s);
      writeln(s);
    end.

    If this fives you a normal result, then Freddy has already initialized the GetNumbers result in SCAR 3.15. I am on Ubuntu at the moment so I can't test it. Haven't installed WINE yet.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  10. #10
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't know if it worked but:
    SCAR Code:
    Successfully compiled (233 ms)
    636hfdhfe633hfdhfe
    Successfully executed

    Sweet, and i have the same question as Hy^^
    ~Hermen

  11. #11
    Join Date
    May 2007
    Posts
    344
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    edit
    i'll just figure it out myself.

  12. #12
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hermpie View Post
    Don't know if it worked but:
    SCAR Code:
    Successfully compiled (233 ms)
    636hfdhfe633hfdhfe
    Successfully executed

    Sweet, and i have the same question as Hy^^
    Didnt work, becouse it should delete that numbers, as you see it didnt...

    Nice job devs & members.


  13. #13
    Join Date
    Dec 2007
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool 15 is out!!!

    Just a quick question doe's this mean that 14 isn't good anymore?

    Oh and thank you dev team and member's!! great job!!!

  14. #14
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    14 is still good, because runescape didn't update, this is just us evolving

    great job to all the devs

    and yay i got my name in the include twice! (very proud )

    ~RM

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  15. #15
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Yay! Congratulations! But what was the point in adding this when Runescape hadn't updated it? Or is it just to add new functions/procedures?
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  16. #16
    Join Date
    Mar 2007
    Posts
    915
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by IP-Drowner View Post
    Yay! Congratulations! But what was the point in adding this when Runescape hadn't updated it? Or is it just to add new functions/procedures?
    When Runescape updates it is necessary to change some things to keep Scar working, however when Runescape doesn't update SRL can still be updated to improve functionality, add more features, fix previous bugs that may go unnoticed, etc.

    Sig by oldschool .html

    Earn money for free!

  17. #17
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It WAS Nessisary. RS Colors Updated. All Auto-Color Was Broke..

  18. #18
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    Quote Originally Posted by lakerzz8 View Post
    When Runescape updates it is necessary to change some things to keep Scar working, however when Runescape doesn't update SRL can still be updated to improve functionality, add more features, fix previous bugs that may go unnoticed, etc.
    I know that. But to me it was already nearly pushed to the limit.

    Quote Originally Posted by timer
    It WAS Nessisary. RS Colors Updated. All Auto-Color Was Broke..
    Really? How the hell can you find out if colours change all the time?
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  19. #19
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OffTopic... LOL. IP GOT UN-SRL MEMBERARIZED!!! WTF?

  20. #20
    Join Date
    Mar 2007
    Posts
    915
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Timer View Post
    OffTopic... LOL. IP GOT UN-SRL MEMBERARIZED!!! WTF?

    Huh? It still says SRL Member under his name...

    Sig by oldschool .html

    Earn money for free!

  21. #21
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by lakerzz8 View Post
    Huh? It still says SRL Member under his name...
    Yeah. You high or something?

  22. #22
    Join Date
    Apr 2008
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    (BACKONTOPIC) It was? Didn't know that.
    I don't sign. For anything.

  23. #23
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice update devs, i got a suggestion for a next rev, how about when rs gets updated wait (10000) of something and just change to non members world then back to members vice versa.

  24. #24
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    Yeah. You high or something?
    I'm just too quick.
    I fixed IP Drowner's problem already.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

  25. #25
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Wait, I like nicbaz' suggestion. Or wait a bit more. SCAR would loose focus. Is his suggestion good?

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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