Page 3 of 3 FirstFirst 123
Results 51 to 70 of 70

Thread: [C]Uz3s Gnome Agility

  1. #51
    Join Date
    Oct 2011
    Location
    Canada
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea I knew about that but I wanted to do my script with color while grim did his with object finding.
    FYI I'm probably not going to be updating this script again.

  2. #52
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good luck with this cant wait till its stable to run for hours i want 99 agility hope advanced course comes soon

  3. #53
    Join Date
    Jan 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

    How do I fix this error?

  4. #54
    Join Date
    Oct 2011
    Location
    Canada
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Deophobic View Post
    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from ''

    How do I fix this error?
    Hell, I don't know. I didn't read how to switch over to SRL 5.
    Last edited by uz3; 01-10-2012 at 12:01 AM.

  5. #55
    Join Date
    Dec 2011
    Location
    Ontario, Canada
    Posts
    1,735
    Mentioned
    5 Post(s)
    Quoted
    89 Post(s)

    Default

    Quote Originally Posted by uz3 View Post
    Hell, I don't know. I didn't read how to switch over to SRL 5.
    http://villavu.com/forum/showthread....highlight=SRL5
    Go here to help you learn how to convert that is of course if you want to
    FEEL FREE TO PM ME ABOUT ANYTHING! Will help over Teamviewer...just ask!! "WITH A NEW QUESTION COMES A NEW CHALLENGE"
    Silentcore's AIO Service team !!! Pm me if you want questing done or service done or post on thread ofc

  6. #56
    Join Date
    Nov 2011
    Location
    United States
    Posts
    815
    Mentioned
    6 Post(s)
    Quoted
    284 Post(s)

    Default

    Does the log balance and they just sits there. tried many camara angles and none worked.

  7. #57
    Join Date
    Dec 2011
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Update your script to SRL5:

    Change '.SCAR' to '.simba' so it appears as

    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}

    You also have to change change the setNorth and setAngle methods. Read the SRL FAQ for "unable to find srl.

    Stop after log.
    Last edited by hhhzzzarn; 01-13-2012 at 09:20 PM.

  8. #58
    Join Date
    Jul 2010
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    program Uz3sGnomeAgility;
    {$include srl/srl/misc/smart.scar}
    {$include srl/srl.scar}

    var
    x,y,lap,laps,exp,Tempx,Tempy,misClickCounter: integer;
    climbBranchUpSwitch:boolean;

    procedure TotalExp;
    begin
    laps:= lap + 1;
    laps:= lap - 1;
    exp:= lap * 86;
    end;

    procedure ProgressReport;
    begin
    ClearDebug;
    WriteLn('--------------------------------------');
    WriteLn(' Uz3s Gnome Agility v1.2.3');
    WriteLn('--------------------------------------');
    WriteLn('Script Ran For: ' + TimeRunning);
    WriteLn('Laps: ' + IntToStr(laps));
    WriteLn('Experience gained...'+ IntToStr(exp));
    WriteLn('Multiply laps by .5 and add it to experience gained for real exp');
    WriteLn('--------------------------------------');
    end;

    procedure AntiBan;
    begin
    case random(500) of //do a random number so it won't always perform the antiban
    0: RandomRClick;
    1: PickUpMouse;
    2: RandomRClick;
    3: HoverSkill('agility', False);
    4: ExamineInv;
    end;
    end; //Antiban

    procedure AntiRandoms;
    begin
    FindNormalRandoms; // Whenever this is called, the script will check to see if your character is in a random event
    LampSkill := 'agility'; // If you set the script to choose an experience lamp from a random event box, it will use the exp on the woddcutting skill
    LevelUp; // This is an Antiban procedure, but I find it more useful when called here because AntiRandoms is usually called more often than Antiban
    end; //antirandoms

    procedure LogBalance;
    begin
    repeat
    wait(500 + random(100));
    if (FindColorSpiralTolerance(x,y,666701, 182, 212, 360, 271, 5))
    then
    MMouse(x,y,3,5);
    until (IsUpText('Log'));
    begin
    WriteLn('Walking across log balance!');
    if (IsUpText('Log'))
    then
    repeat
    wait(1500 + random(100));
    if (IsUpText('Log')) then
    Mouse(x,y,3,5, true);
    until(FindBlackChatMessage('slippery'));
    AntiRandoms;
    AntiBan;
    wait(3000+random(50));
    end;
    end;//Logbalance

    procedure ObstacleNet1;
    begin
    SetAngle(False);
    repeat
    wait(100 + random(50));
    if (FindColorSpiralTolerance(x,y,999019, 210, 227, 245, 239, 10))
    then
    MMouse(x,y,5,5);
    until (IsUpText('net'));
    begin
    WriteLn('Climbing up obstacle net!');
    if (IsUpText('net'))
    then
    Mouse(x,y,5,5, true);
    wait(1000 + random (255));
    AntiRandoms;
    AntiBan;
    wait(1500+random(100));
    end;
    end; //Obstacle Net

    function branchcolor: Integer;
    var
    arP: TPointArray;
    arC: TIntegerArray;
    tmpCTS, i, arL: Integer;
    X, Y, Z: Extended;
    begin
    tmpCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.09, 0.47);

    FindColorsSpiralTolerance(MSCX, MSCY, arP, 2117223, MSX1, MSY1, MSX2, MSY2, 2);
    if (Length(arP) = 0) then
    begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
    end;

    arC := GetColors(arP);
    ClearSameIntegers(arC);
    arL := High(arC);

    for i := 0 to arL do
    begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 7.59) and (X <= 9.69) and (Y >= 7.51) and (Y <= 9.57) and (Z >= 2.26) and (Z <= 2.79) then
    begin
    Result := arC[i];
    Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
    end;
    end;

    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);

    if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
    end;


    procedure climbbranch;

    begin
    SetAngle(true);
    if FindObj( x, y, 'ranch', branchcolor ,3) then
    writeln ('found branch');
    begin
    if IsUpText('ranch') then
    begin
    mouse( x, y, 1, 1, true);
    wait(2000)
    end;
    end;
    end;

    procedure BalancingRope;
    begin
    SetAngle(False);
    wait(100 + random(10));
    MMouse(654,75,5,3);
    Mouse(654,75,2,0, true);
    repeat
    wait(100 +random(10));
    if (FindColorSpiralTolerance(x,y,5733788, 299, 189, 319, 203, 10))
    then
    MMouse(x,y,10,1);
    until (IsUpText('rope'));
    if (IsUpText('rope'))
    then
    repeat
    wait(500 + random(100));
    Mouse(x,y,3,0, true);
    until(FindColorSpiralTolerance(x,y,254, msx1, msy1, msx2, msy2, 1));
    WriteLn('Walking across rope!');
    wait(500 + random (255));
    AntiRandoms;
    AntiBan;

    end; //obstacle rope

    procedure ClimbBranchDown;
    begin
    repeat
    wait(500 + random(100));
    if (FindColorSpiralTolerance(x,y,2050914, 472, 192, 504, 208, 3))
    then
    MMouse(x,y,5,5);
    until (IsUpText('branch'));
    begin
    WriteLn('Climbing down branch!');
    if (IsUpText('branch'))
    then
    Mouse(x,y,5,5, true);
    AntiRandoms;
    AntiBan;
    wait(2000+random(100));
    end;
    end;

    procedure ObstacleNet2;
    begin
    repeat
    wait(100 + random(50));
    if (FindColorSpiralTolerance(x,y,2636103, 193, 26, 210, 40, 5))
    then
    MMouse(x,y,5,5);
    until (IsUpText('net'));
    begin
    WriteLn('Climbing up obstacle net!');
    if (IsUpText('net'))
    then
    Mouse(x,y,15,5, true);
    wait(1000 + random (255));
    AntiRandoms;
    AntiBan;
    wait(4000+random(100));
    end;
    end; //Obstacle Net 2

    procedure ObstaclePipe;
    begin
    misClickCounter:= 0;
    repeat
    wait(50);
    if (FindColorSpiralTolerance(x,y,789517, 126, 72, 208, 112, 5))
    then
    MMouse(x,y,5,5);
    until (IsUpText('pipe'));
    WriteLn('Climbing in obstacle pipe!');
    begin
    misClickCounter:= 0;
    repeat
    misClickCounter:= misClickCounter + 1;
    wait(1500 + random(100));
    if(IsUpText('pipe')) then
    Mouse(x,y,5,5, true);
    wait(500 + random(50));
    if(misClickCounter > 3) then
    begin
    MMouse(260,125,5,5)
    repeat
    wait(900 + random(50));
    if(IsUpText('pipe')) then
    Mouse(260,125,5,5,true);
    until(FindBlackChatMessage('squeeze') or FindBlackChatMessage('enter the pipe'));
    end;
    until(FindBlackChatMessage('squeeze'));
    misClickCounter:= 0;
    end;
    wait(1500 + random (255));
    lap:= lap + 1;
    AntiRandoms;
    AntiBan;
    wait(3000+random(1000));
    begin
    MMouse(592,86,5,5);
    Mouse(592,86,5,1, true);
    end;
    end;

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1; // This is set to the total amount of players, for now, just keep it set as 1
    NumberOfPlayers(HowManyPlayers); // Don't touch
    CurrentPlayer := 0; // This is the player to start with; the first player will always be 0

    Players[0].Name := 'x0r9@hotmail.com'; // Username
    Players[0].Pass := 'ohmygoditsjanababy'; // Password
    Players[0].Active := True; // Set to true if you want to use Player 0
    Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
    Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players

    procedure SetupLogin;
    begin
    ClearDebug;
    // Setting up SMART;
    Smart_Server := 123;
    Smart_Members := True;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    SetupSRL;
    DeclarePlayers;
    LoginPlayer; // Logging in...
    end; // setup login

    begin //main function
    SetupLogin;
    SetupSRL;
    DeclarePlayers;
    ActivateClient;
    repeat
    LogBalance;
    ObstacleNet1;
    climbbranch;
    BalancingRope;
    ClimbBranchDown;
    ObstacleNet2;
    ObstaclePipe;
    TotalExp
    ProgressReport;
    until(false)
    end.//main function

    this the new one work now most good.

  9. #59
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    crosses the log, and just stands there.

  10. #60
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by qingqinghd View Post
    this the new one work now most good.
    hey man you might want too edit you're username/password out before anyone changes it and screwes you over. just tryina help u out.

  11. #61
    Join Date
    Nov 2011
    Location
    Australia
    Posts
    158
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by qingqinghd View Post
    this the new one work now most good.
    did 1 round then messed up
    Last edited by awesomem8; 01-15-2012 at 06:21 AM.

  12. #62
    Join Date
    Jan 2012
    Location
    United States
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Unable to find file 'srl/srl/misc/smart.scar' used from ''
    ~Haro Der

  13. #63
    Join Date
    Feb 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lmao it crosses the rope and stand there any help?

  14. #64
    Join Date
    Jun 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How do you make this work? I've never worked with RS scripts before, and I don't know how to even begin.

  15. #65
    Join Date
    Mar 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how am i supposed to use this "script" its just file wrote on notepad how do i activate it?

  16. #66
    Join Date
    Apr 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    this doesnt work

  17. #67
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Quote Originally Posted by nubwes View Post
    this doesnt work
    because you just gravedig'd this thread along with the person above you

  18. #68
    Join Date
    Jun 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Can anyone help me... I can't find where on site how to install the scripts. Downloaded it and ran, went into simba but got this error message. I am fairly sure I installed simba correctly, with 07 include & smart 8 capable as well. Any help or point me to where to ask this would be appreciated.

    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from 'C:\Users\User\Downloads\Uz3sGnomeAgility v1.2.3(1).simba'

  19. #69
    Join Date
    Jun 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by maybon View Post
    Can anyone help me... I can't find where on site how to install the scripts. Downloaded it and ran, went into simba but got this error message. I am fairly sure I installed simba correctly, with 07 include & smart 8 capable as well. Any help or point me to where to ask this would be appreciated.

    Exception in Script: Unable to find file 'srl/srl/misc/smart.scar' used from 'C:\Users\User\Downloads\Uz3sGnomeAgility v1.2.3(1).simba'
    P.S changed to smart.simba and srl.simba, then got a compiling error in a new tab
    [Error] C:\Simba\Includes\srl/srl/misc/smart.simba(46:19): Invalid number of parameters at line 45
    Compiling failed.

    any one know what I have done or where to look to fix this?

  20. #70
    Join Date
    Apr 2012
    Location
    Land of the Rising Sun
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    77 Post(s)

    Default

    Quote Originally Posted by maybon View Post
    P.S changed to smart.simba and srl.simba, then got a compiling error in a new tab
    [Error] C:\Simba\Includes\srl/srl/misc/smart.simba(46:19): Invalid number of parameters at line 45
    Compiling failed.

    any one know what I have done or where to look to fix this?
    Follow this instruction guide, and make sure you've setup Simba correctly.

    How to install/setup Simba

    This script is way outdated and was made for Scar. It'd probably be easier to remake it rather than repair it.
    My Scripts: DWT Iron Miner

Page 3 of 3 FirstFirst 123

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
  •