View Poll Results: Does it help you?

Voters
28. This poll is closed
  • YES God bless me!

    17 60.71%
  • NO Damn it!!!!

    11 39.29%
Results 1 to 24 of 24

Thread: Update SRL by YOUR OWN

  1. #1
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Update SRL by YOUR OWN

    It seem that many of noobs or l33t out there searching for the fixed SRL so why not update on your own like below? After the immediate updates of Runescape, i can auto in less then 24 hours. lol

    1) Login.SCAR - Changes to check for loggein status

    SCAR Code:
    function LoggedIn: Boolean;
    begin
      Result := (GetColor(439, 496) = 16777215);
    end;


    2) GameTab.SCAR - Changes of Color checking for gametab and new gametab location

    SCAR Code:
    function GetCurrentTab: Integer;
    begin
      begin
        if GetColor(540, 176) = 1778795 then
          Result := 1
        else if GetColor(572, 175) = 1778795 then
          Result := 2
        else if GetColor(605, 173) = 1778795 then
          Result := 3
        else if GetColor(640, 172) = 1778795 then
          Result := 4
        else if GetColor(671, 170) = 1778795 then
          Result := 5
        else if GetColor(705, 174) = 1778795 then
          Result := 6
        else if GetColor(735, 177) = 1778795 then
          Result := 7
        else if GetColor(525, 475) = 1778795 then
          Result := 8
        else if GetColor(573, 471) = 1778795 then
          Result := 9
        else if GetColor(600, 476) = 1778795 then
          Result := 10
        else if GetColor(635, 467) = 1778795 then
          Result := 11
        else if GetColor(670, 475) = 1778795 then
          Result := 12
        else if GetColor(700, 476) = 1778795 then
          Result := 13
        else if GetColor(735, 470) = 1778795 then
          Result := 14;
      end;
    end;

    SCAR Code:
    function TabExists(TabNumber: Integer): Boolean;
    var
     Tx, Ty:Integer;
    begin
      case TabNumber of
        1: Result := FindColor(Tx, Ty, 65536, 533, 177, 551, 195);
          //GameTab 1  = Fightmode
        2: Result := FindColor(Tx, Ty, 65536, 565, 175, 590, 195);
          //GameTab 2  = Statistic
        3: Result := FindColor(Tx, Ty, 16677735, 609, 184, 621, 195);
          //GameTab 3  = Quest
        4: Result := FindColor(Tx, Ty, 65536, 634, 176, 648, 195);
          //GameTab 4  = Inventory
        5: Result := FindColor(Tx, Ty, 65536, 663, 176, 690, 193);
          //GameTab 5  = Wield
        6: Result := FindColor(Tx, Ty, 65536, 706, 176, 719, 195);
          //GameTab 6  = Prayer
        7: Result := FindColor(Tx, Ty, 65536, 735, 180, 750, 190);
          //GameTab 7  = Mage
        8: Result := FindColor(Tx, Ty, 65536, 534, 471, 554, 493);
          //GameTab 8 = ClanChat
        9: Result := FindColor(Tx, Ty, 65536, 568, 477, 589, 485);
          //GameTab 9  = Add Friend
        10: Result := FindColor(Tx, Ty, 65536, 599, 479, 616, 487);
          //GameTab 10  = Del Friend
        11: Result := FindColor(Tx, Ty, 65536, 635, 472, 656, 494);
          //GameTab 11 = LogOut
        12: Result := FindColor(Tx, Ty, 65536, 672, 483, 689, 494);
          //GameTab 12 = Tools/Run
        13: Result := FindColor(Tx, Ty, 65536, 701, 470, 716, 488);
          //GameTab 13 = Emotes
        14: Result := FindColor(Tx, Ty, 65536, 737, 485, 744, 493);
          //GameTab 14 = Music
      end; //case Tab
    end;

    SCAR Code:
    function GameTab(tabnumber: Integer): Boolean;
    var
      c: Integer;
    begin
      if GetCurrentTab = tabnumber then
      begin
        Result := True;
        Exit;
      end;
      if not TabExists(tabnumber) then
      begin
        Result := False;
        Exit;
      end;
      case tabnumber of
        1: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(540, 185, 5, 5, True)
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        2: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(577, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        3: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(609, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        4: if (GetCurrentTab <> tabnumber) then
           begin
             repeat Mouse(643, 185, 5, 5, True);
               c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        5: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(675, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        6: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(709, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        7: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(740, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        8: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(540, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        9: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(577, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        10: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(609, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        11: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(643, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        12: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(675, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        13: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(709, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        14: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(740, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        end;
        if (c < 3) then
        begin
          Result := True;
          Wait(10);
      //    Wait(300 + Random(300)); //DON'T CHANGE THIS.
        end;
    end;

    SCAR Code:
    procedure SetRun(Run: Boolean);
    begin
      GameTab(12);
      case Run of
        True: if (GetColor(634, 421) = 5067346) then
            Mouse(647, 428, 8, 8, True);
        False: if (GetColor(634, 421) = 1974404) then
            Mouse(647, 428, 8, 8, True);
      end;
    end;


    3) Inventory.SCAR - Changes of some declare since last updates

    SCAR Code:
    function ExistsItem(i: Integer): Boolean;
    var
      xx, yy, f, row, col: Integer;
      Points: TPointArray;
    begin
      row := i div 4;
      col := i - (row * 4) - 1;
      if (col < 0) then
      begin
        col := 3;
        row := row - 1;
      end;
      FindColorsTolerance(Points, 3489865, 579 + col * 42, 228 + row * 36, 579 + col
        * 42 + 20, 228 + row * 36 + 15, 70);
      Result := False;
      xx := 0;
      yy := 0;
      for f := 0 to GetArrayLength(Points) - 1 do
      begin
        if (579 + col * 42 + xx <> Points[f].x) or (228 + row * 36 + yy <>
          Points[f].y) then
        begin
          Result := True;
          Exit;
        end;
        yy := yy + 1;
        if (yy = 16) then
        begin
          xx := xx + 1;
          yy := 0;
        end;
      end;
    end;

    4) MapWalk.SCAR - compass rotate like crazy if not change the color and coordinate

    SCAR Code:
    function MakeCompass(Side: char): Boolean;
    var
      Fx, Fy, dx, dy, StartPos, EndPos: Integer;
      ComMark: Integer;
      Left_Right: Boolean;
    begin
      StartPos := FindCompassAngle;
      MarkTime(ComMark);
      case LowerCase(Side) of
        'n':
          begin
            Fx := 561;
            Fy := 13;
            if StartPos > 180 then EndPos := 360 else EndPos := 0;
          end;
        'e':
          begin
            Fx := 554;
            Fy := 20;
            if StartPos < 270 then EndPos := 90 else EndPos := 450;
          end;
        's':
          begin
            Fx := 561;
            Fy := 27;
            EndPos := 180;
          end;
        'w':
          begin
            Fx := 568;
            Fy := 20;
            if StartPos < 90 then EndPos := -90 else EndPos := 270;
          end;
      else
        begin
          WriteLn('MakeCompass - Value wasn''t n, e, s, or w!');
          Exit;
        end;
      end;
      if FindColor(dx, dy, 723587, Fx - 2, Fy - 2, Fx + 2, Fy + 2) then
      begin
        Result := True;
        Exit;
      end
        if StartPos > EndPos then Left_Right := True
        else if StartPos < EndPos then Left_Right := False
        else exit;
      if Left_Right then KeyDown(VK_RIGHT)
      else KeyDown(VK_Left);
      repeat
        Wait((10) + Random(10));
        if (FindColor(dx, dy, 723587, Fx, Fy, Fx, Fy)) then
        begin
          Result := True;
          Break;
        end;
      until (TimeFromMark(ComMark) > 7000);
      if Left_Right then KeyUp(VK_Right)
      else KeyUp(VK_Left);
    end;

    5) MouseFlag.SCAR - New chat location and function so change to make more comfort

    SCAR Code:
    Function SetChat(State: String; WhatChat: Integer): Boolean;
    Var x1, y1, x, y, Color: Integer;
    Var txt : String;
    Begin
      If Not LoggedIn Then Exit;
      State := LowerCase(State);
      Case WhatChat Of
        1:
        Begin
          x1 := 137;
          y1 := 480;
        End;

        2:
        Begin
          x1 := 203;
          y1 := 480;
        End;

        3:
        Begin
          x1 := 269;
          y1 := 480;
        End;

        4:
        Begin
          x1 := 335;
          y1 := 480;
        End;
      End;

      Case State Of
        'on':
        Begin
          Color := 65280;
          txt := 'On';
        End;

        'friends':
        Begin
          Color := 65535;
          txt := 'Friends';
        End;
        'off':
        Begin
          Color := 255;
          txt := 'Off';
        End;
        'hide':
        Begin
          If WhatChat = 1 Then Begin Color := 16776960; txt := 'Hide'; End
          Else Begin WriteLn('HIDE IMPOSSIBLE, EXIT'); Exit; End;
        End;
      End;
      If Not FindColor(x, y, Color, x1, y1, x1 + 55, y1 + 20) Then
      Repeat
        Begin
          Mouse(x1 + Random(40) + 15, y1 + Random(15) + 5, 5, 5, False)
          ChooseOption(x1, y1, txt);
          Result:= True;
        End
      Until FindColor(x, y, Color, x1, y1, x1 + 45, y1 + 20);
    End;

    6) Text.SCAR - Please refer the link (not by me lol)
    http://www.srl-forums.com/forum/#post181207


    P/S YOU will not be able to handle randoms as it needs lot of work, so i skip it to Devs. lol
    P/S @Devs if you think this will solve the problem or any error please let me know
    P/S @Mods if you think this thread not belong here please help move it.

    Thanks to all SRL Devs for the fun of scripting and Autos.

    Edit: This is my first pay back to the community. lol

  2. #2
    Join Date
    Aug 2007
    Posts
    282
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good job with the updates.. i envy you

    but, ill just leave it to the devs.. i heard they are just testing now anyways

  3. #3
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Antirandoms solution - temporary lol

    if you think you scared of autos without safety, try use this in your script. Its useful if you try to auto your army less then 10min for less hazard and switch the world for less detectable.

    SCAR Code:
    procedure WorldButton;
    begin
      mouse(55,480,0,0,true);
      repeat
        Wait(500);
      until (GetColor(17, 477) = 0);
    end;

    function SetWorld(Which: String): Boolean;
    var
      World, tx, ty: Integer;
    begin
      World := CreateBitmapMaskFromText(Which, UpChars);
      if not(FindBitmapMaskTolerance(World, tx, ty, 5, 450, 105, 500, 10, 10)) then
      begin
        WorldButton;
        case Which of
          '1':  Mouse(96, 45, 0, 0, True);
          '3':  Mouse(96, 91, 0, 0, True);
          '4':  Mouse(96, 114, 0, 0, True);
          '5':  Mouse(96, 137, 0, 0, True);
          '7':  Mouse(96, 183, 0, 0, True);
          '8':  Mouse(96, 206, 0, 0, True);
          '10':  Mouse(96, 252, 0, 0, True);
          '11':  Mouse(96, 275, 0, 0, True);
          '13':  Mouse(96, 321, 0, 0, True);
          '14':  Mouse(96, 344, 0, 0, True);
          '15':  Mouse(96, 367, 0, 0, True);
          '16':  Mouse(96, 390, 0, 0, True);
          '17':  Mouse(96, 413, 0, 0, True);
          '19':  Mouse(96, 459, 0, 0, True);
          '20':  Mouse(96, 482, 0, 0, True);
          '21':  Mouse(189, 45, 0, 0, True);
          '25':  Mouse(189, 137, 0, 0, True);
          '29':  Mouse(189, 229, 0, 0, True);
          '30':  Mouse(189, 252, 0, 0, True);
          '32':  Mouse(189, 298, 0, 0, True);
          '33':  Mouse(189, 321, 0, 0, True);
          '34':  Mouse(189, 344, 0, 0, True);
          '35':  Mouse(189, 367, 0, 0, True);
          '37':  Mouse(189, 413, 0, 0, True);
          '38':  Mouse(189, 436, 0, 0, True);
          '40':  Mouse(189, 482, 0, 0, True);
          '41':  Mouse(282, 45, 0, 0, True);
          '43':  Mouse(282, 60, 0, 0, True);
          '47':  Mouse(282, 183, 0, 0, True);
          '50':  Mouse(282, 229, 0, 0, True);
          '51':  Mouse(282, 252, 0, 0, True);
          '52':  Mouse(282, 275, 0, 0, True);
          '55':  Mouse(282, 344, 0, 0, True);
          '57':  Mouse(282, 390, 0, 0, True);
          '61':  Mouse(282, 459, 0, 0, True);
          '62':  Mouse(282, 482, 0, 0, True);
          '63':  Mouse(375, 45, 0, 0, True);
          '67':  Mouse(375, 137, 0, 0, True);
          '68':  Mouse(375, 160, 0, 0, True);
          '72':  Mouse(375, 252, 0, 0, True);
          '74':  Mouse(375, 275, 0, 0, True);
          '75':  Mouse(375, 298, 0, 0, True);
          '80':  Mouse(375, 413, 0, 0, True);
          '81':  Mouse(375, 436, 0, 0, True);
          '85':  Mouse(468, 68, 0, 0, True);
          '86':  Mouse(468, 91, 0, 0, True);
          '87':  Mouse(468, 114, 0, 0, True);
          '90':  Mouse(468, 183, 0, 0, True);
          '93':  Mouse(468, 252, 0, 0, True);
          '94':  Mouse(468, 275, 0, 0, True);
          '95':  Mouse(468, 298, 0, 0, True);
          '96':  Mouse(468, 321, 0, 0, True);
          '101':  Mouse(468, 436, 0, 0, True);
          '102':  Mouse(468, 459, 0, 0, True);
          '105':  Mouse(561, 68, 0, 0, True);
          '106':  Mouse(561, 91, 0, 0, True);
          '107':  Mouse(561, 114, 0, 0, True);
          '108':  Mouse(561, 137, 0, 0, True);
          '109':  Mouse(561, 160, 0, 0, True);
          '113':  Mouse(561, 252, 0, 0, True);
          '117':  Mouse(561, 344, 0, 0, True);
          '118':  Mouse(561, 367, 0, 0, True);
          '119':  Mouse(561, 390, 0, 0, True);
          '125':  Mouse(561, 482, 0, 0, True);
          '126':  Mouse(654, 45, 0, 0, True);
          '127':  Mouse(654, 68, 0, 0, True);
          '128':  Mouse(654, 91, 0, 0, True);
          '133':  Mouse(654, 205, 0, 0, True);
          '134':  Mouse(654, 228, 0, 0, True);
          '135':  Mouse(654, 251, 0, 0, True);
          '136':  Mouse(654, 274, 0, 0, True);
          '141':  Mouse(654, 340, 0, 0, True);
          '142':  Mouse(654, 365, 0, 0, True);
        end
        repeat
          Wait(500);
        until (GetColor(17, 477) <> 0)
        Result:=true;
        FreeBitmap(World)
      end else
        Result:=False;
        FreeBitmap(World);
    end;

    Set this in your script for it to work

    SCAR Code:
    Const
      setlog = 0;
      World1 = '93';
      World2 = '94';
      World3 = '135';
      World4 = '136';
      World5 = '141';
      World6 = '142';

    SCAR Code:
    setlog := setlog + 1;
            writeln('Switch World on Anti Randoms');
            repeat
              FTWaitEx(1000);
            until not loggedin;
            wait(500+random(500));
            case setlog of
              1:  SetWorld(World2);
              2:  SetWorld(World3);
              3:  SetWorld(World4);
              4:  SetWorld(World5);
              5:  SetWorld(World6);
              6:  begin
                    setlog:=0;
                    SetWorld(World1);
                  end;
            end;

    BTW this is just for F2P world switching.

  4. #4
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, y9u figured out this all by ureself? not bad, I have nothing against self motivated indivials taking matter into their won hands well done.

    I will have to say, that condsedering how soon srl 4 is about to be out, as well as the lack of randoms, you may want ot just wait.

    but mabey thats only becyase i dont auto anymore, lol, weither waym, grat job!
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  5. #5
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, as with the use of world switch and my theory of auto safety, i can get almost 0 randoms found. lol

    Here is my prove while doing essense mining script

    Worked : 4 Days 10 Hours 53 Minutes .
    Logged In : 388
    Plants : 0
    Lamps : 0
    Fights : 0
    Talks : 0
    Deaths : 0
    Certers : 0
    Sandwiches: 0
    Ricks : 0
    Dwarfs : 0
    Capts : 0
    Oldmen : 0
    Boxes : 0
    Banked : 583
    Last Connection : August 14, 2007, 8:49 pm
    Trades : 0
    Mods : 1
    Mimes : 0
    Mazes : 0
    ScapeRunes : 0
    EntsAvoided : 0
    Whirlpools : 0
    RodsFound : 0
    AxeAttaches : 0
    Birdsnest : 0
    PickAxeAttached: 0
    Jekylls : 0
    SGuard : 0
    Frogs : 0

  6. #6
    Join Date
    Jul 2007
    Location
    America
    Posts
    421
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is awesome - thanks.
    I dunno, those asians are pretty difficult to out-auto, legend has it they don't need sleep or food...~tim0suprem0
    Activity is on the decline - school's got me
    Check out my tutorial[s] on Color Finding!||Procedures and Functions!

  7. #7
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks and the legend is true. Lol as a typical Asian Chinese brood type human being as me.

    As we Asian never eat, never drink, never sleep, never die until Jagex dead 1st lol

  8. #8
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I knew it! Kikwit put that in your sig . And hellbb nice fixes, you should put one in about text finding in the chatbox as well, there's a link in my sig.

  9. #9
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  10. #10
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Your gametab will screw many functions, as you put clanchat as no. 8, I recommend changing it to 14 so most scripts keep working.
    I made a new script, check it out!.

  11. #11
    Join Date
    Jun 2007
    Posts
    246
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the fixes saved me some time so i can work on my script some more
    edit: your link is broken heres right link i think http://www.villavu.com/forum/showthread.php?t=15037

  12. #12
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    Clan chat should be 14... Auto's wouldn't use it anyway.
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

  13. #13
    Join Date
    Jun 2007
    Posts
    246
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default thx

    Quote Originally Posted by r0b0t1 View Post
    Clan chat should be 14... Auto's wouldn't use it anyway.
    [Offtopic]a great idea for antiban, r0b0t... autos wouldnt use it so good antiban im gonna have to remember to add that to mine[/Offtopic]

  14. #14
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by lordgreggreg View Post
    Wow, y9u figured out this all by ureself? not bad, I have nothing against self motivated indivials taking matter into their won hands well done.

    I will have to say, that condsedering how soon srl 4 is about to be out, as well as the lack of randoms, you may want ot just wait.

    but mabey thats only becyase i dont auto anymore, lol, weither waym, grat job!

    [offtopic] Greg...drunk? [/offtopic]

  15. #15
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lordsaturn View Post
    [offtopic] Greg...drunk? [/offtopic]
    lol, yeah. i have already told you my posts past 12 are kinda... interresting. Thats about as close to drunk as i will ever get, lol.

    fingers slip, keys are missed, some are hit before others, etc.

    (mormon, never touched alchol)
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  16. #16
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I know clan chat probably won't be use too much but this is just a temporary fix for your own use instead waiting for the latest SRL 4.0 and as Greg told everything have to be wait for the devs to make those changes and my recommend here was just for those who are impatient in nature and wanted so much to let jagex die so go ahead to change it or else just wait it.

    zenma : the link fix and its from tim0supreme0, you can also try use the link under his signature

    Edit : as i told before its for those contributor and scriptor who want fast changes and it tend to not foor those noobs or leecher.

  17. #17
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  18. #18
    Join Date
    Jun 2007
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by hellbb88 View Post
    SCAR Code:
    function GameTab(tabnumber: Integer): Boolean;
    var
      c: Integer;
    begin
      if GetCurrentTab = tabnumber then
      begin
        Result := True;
        Exit;
      end;
      if not TabExists(tabnumber) then
      begin
        Result := False;
        Exit;
      end;
      case tabnumber of
        1: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(540, 185, 5, 5, True)
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        2: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(577, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        3: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(609, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        4: if (GetCurrentTab <> tabnumber) then
           begin
             repeat Mouse(643, 185, 5, 5, True);
               c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        5: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(675, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        6: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(709, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        7: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(740, 185, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        8: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(540, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        9: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(577, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        10: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(609, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        11: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(643, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        12: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(675, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        13: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(709, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        14: if (GetCurrentTab <> tabnumber) then
          begin
            repeat Mouse(740, 480, 5, 5, True);
              c := c + 1;
            until (GetCurrentTab = tabnumber) or (c >= 3)
          end;
        end;
        if (c < 3) then
        begin
          Result := True;
          Wait(10);
      //    Wait(300 + Random(300)); //DON'T CHANGE THIS.
        end;
    end;

    SCAR Code:
    procedure SetRun(Run: Boolean);
    begin
      GameTab(12);
      case Run of
        True: if (GetColor(634, 421) = 5067346) then
            Mouse(647, 428, 8, 8, True);
        False: if (GetColor(634, 421) = 1974404) then
            Mouse(647, 428, 8, 8, True);
      end;
    end;
    [/SCAR]



    Is that simply a whole next section i gotta add to the script? I didn't see a spot it was supposed to be replaced with. It kinda just looked it you were supposed to add it in right at the end.

    It wouldn't make much sence for me to wait for update. As i hafta use 3.06 srl anywas

  19. #19
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by kufo View Post
    Is that simply a whole next section i gotta add to the script? I didn't see a spot it was supposed to be replaced with. It kinda just looked it you were supposed to add it in right at the end.

    It wouldn't make much sence for me to wait for update. As i hafta use 3.06 srl anywas
    Quote Originally Posted by hellbb88 View Post


    Edit : as I told before its for those contributor and scriptor who want fast changes and it tend to not for those noobs or leecher.
    .

    State Of Srl Current Release 08-10-07


  20. #20
    Join Date
    Feb 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 624: [Error] (2952:8): Unknown identifier 'LoggedIn' in script C:\Program Files\SCAR 3.11\includes\srl\srl\core\MouseFlag.scar

    This error came up when i was trying to run Wizz-ups essence miner. Can some one help me out with my problem?

  21. #21
    Join Date
    Aug 2007
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yh i get the same..

    i put the originals back and it compile fine...

    somethings wrong somewhere

  22. #22
    Join Date
    Feb 2007
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    actually, I seem to have lost my mouse(x,y) function...

    Line 94: [Error] (94:1): Identifier expected in script C:\Program Files\SCAR 3.11\includes\SRL\SRL\core\GameTab.scar
    Failed when compiling
    Line 152: [Error] (152:8): Unknown identifier 'Mouse' in script C:\Program Files\SCAR 3.11\includes\SRL\SRL\core\GameTab.scar
    Failed when compiling
    Line 155: [Error] (155:8): Unknown identifier 'Mouse' in script C:\Program Files\SCAR 3.11\includes\SRL\SRL\core\GameTab.scar
    Failed when compiling
    Line 155: [Error] (155:8): Unknown identifier 'Mouse' in script C:\Program Files\SCAR 3.11\includes\SRL\SRL\core\GameTab.scar

  23. #23
    Join Date
    Apr 2007
    Location
    new zealand
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice you seem to no alot about scripting maybe you should try for srl member just a thought

  24. #24
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dear all integer x, y was not declare in global.scar anymore. So to get the script running smoothly try declare it internally inside the script you currently using.

    dark4mdawn : thanks for your advice but i'm not have much time in real life to do scripting works. Making new script for the member apps will take probably a month or more so i'll try to skip it 1st and come back to it later when i'm very free for like one week or more.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. RS update
    By Gold in forum News and General
    Replies: 9
    Last Post: 01-16-2008, 07:04 AM
  2. About the update!
    By DeKienger in forum RuneScape News and General
    Replies: 7
    Last Post: 11-06-2007, 11:42 PM
  3. New RS update
    By sapetto in forum RS has been updated.
    Replies: 1
    Last Post: 11-05-2007, 01:20 PM
  4. Update
    By yanix in forum RS has been updated.
    Replies: 8
    Last Post: 10-23-2007, 01:58 AM
  5. Runescape Update and Java Update
    By cause in forum RS has been updated.
    Replies: 2
    Last Post: 01-07-2007, 06:07 AM

Posting Permissions

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