Page 3 of 7 FirstFirst 12345 ... LastLast
Results 51 to 75 of 165

Thread: YA

  1. #51
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im currently gettin in excess of 70-80k an hour exp =)
    With the changes i self implemented onto this script.
    Works wonderfully now, as it did before just now though it allows me to get more exp per hour.

  2. #52
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    Quote Originally Posted by trials6112 View Post
    im currently gettin in excess of 70-80k an hour exp =)
    With the changes i self implemented onto this script.
    Works wonderfully now, as it did before just now though it allows me to get more exp per hour.
    you've talked about your changes like 20 times, are you going to post it or just talk about it?
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  3. #53
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh, sorry.
    Its just simple but i will post it =)

    program YakAttack;

    {$DEFINE SMART}{$DEFINE CRASHSMART}
    {$i SRL\SRL.scar}
    {$i SRL/SRL/skill/fighting.scar}


    ///////////////////////////////////
    //start setup
    ///////////////////////////////////

    const

    //change to the smart world you want. Having the same world in all your scripts allows you to change scripts without smart restarting.
    SWorld = 15;

    //Speed of your mouse, default is good!
    MSpeed = 13;



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

    With Players[0] Do
    Begin
    Name := ''; //Player username.
    Pass := ''; //Player password.
    Nick := ''; //Player nickname - 3-4 letters of Player username.
    Active := True;
    End;

    End;
    ///////////////////////////////////
    //end setup
    ///////////////////////////////////


    procedure SetupChar;

    begin

    SetAngle(True);
    MakeCompass('N');
    Retaliate(True);
    end;


    procedure MSI_RandomFKey;
    var
    i, randInt, randKey, currTab: Integer;
    keys: array[0..4] of Word;
    begin
    currTab := GetCurrentTab(); // Get the current tab player is on

    keys[0] := VK_F1;
    keys[1] := VK_F2;
    keys[2] := VK_F3;
    keys[3] := VK_F4;
    keys[4] := VK_F5;

    randInt := Random(6);

    case randInt of
    0..4:
    begin
    KeyDown(keys[randInt]);
    wait(35+random(85));
    KeyUp(keys[randInt]);
    end;

    else
    for i := 1 to 3 do
    begin
    randKey := Random(5);
    KeyDown(keys[randKey]);
    wait(35+random(85));
    KeyUp(keys[randKey]);
    end;
    end;
    wait(75+random(100));
    GameTab(currTab); // Reset to starting tab
    end;

    //random antibans to use
    procedure GAntiBan;
    begin
    writeln('Choosing random antiban');
    case random(10) of
    0 : begin
    writeln('Random click selected');
    RandomRClick;
    end;
    1 : begin
    writeln('Random movement selected');
    RandomMovement;
    end;
    2 : begin
    writeln('Bored human selected');
    BoredHuman;
    end;
    3 : begin
    writeln('Prayer tab selected');
    GameTab(27);
    Wait(randomrange(100,300));
    end;
    4 : begin
    writeln('Random Angle selected');
    RandomAngle(True);
    end;
    5 : begin
    writeln('Random Fkey selected');
    MSI_RandomFKey;
    end;
    6 : begin
    writeln('Hover Skill (HP) selected');
    HoverSkill(skill_hitpoints,false);
    Wait(randomrange(100,300));
    end;
    7 : begin
    writeln('Game Tab selected');
    GameTab(21);
    end;
    8 : begin
    writeln('Pickup Mouse selected');
    PickUpMouse;
    end;
    9 : begin
    writeln('Random wait selected');
    Wait(randomrange(100,200));
    end;
    end;
    Wait(randomrange(100,200));
    end;

    //thanks flight! and home!
    Function Eat(What: String): Boolean;
    var
    I: Integer;
    begin
    Result := False;
    If Not LoggedIn then Exit;
    if (HPPercent < 50) then
    If InvEmpty then Logout
    else
    for i := 1 to 28 do
    begin
    InvMouse(I, 3);
    if IsUpText(What) then
    begin
    ClickMouse2(True);
    Wait(RandomRange(150, 225));
    Result := True;
    Exit;
    end else
    Continue;
    end;
    end;


    //from flight, thanks!
    Function FindObjSimple_F(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
    Var
    T,i,X,Y: Integer;
    TPA: TPointArray;
    ATPA: Array of TPointArray;
    Begin
    MarkTime(T);
    Repeat
    SetArrayLength(ATPA, Length(Colors));
    for i := 0 to High(Colors) do
    FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 5);
    TPA := MergeATPA(ATPA);
    ATPA := TPAtoATPAEx(TPA, 15, 15);
    SortATPAFrom(ATPA, Point(MSCX, MSCY));
    if (Length(ATPA) = 0) then
    Exit;

    MiddleTPAEx(ATPA[0], x, y);

    if (TimeFromMark(T) > 3000) then
    Exit;

    MMouse(x, y, 10, 10);
    Wait(randomrange(115,225));
    If(IsUpTextMultiCustom(TheUpText)) then
    begin
    ClickMouse2(True);
    if DidRedClick then
    begin
    Result := True;
    Break;
    end;
    end;
    Until(Result)
    end;

    //used to add chatbox text after 'someone else is fighting that' so it doesn't loop
    procedure GetOutF;
    begin
    case random(2) of
    0 : begin
    KeyDown(VK_Tab);
    wait(35+random(100));

    wait(35+random(100));
    KeyUp(VK_Tab);
    wait(25+random(70));

    wait(35+random(100));
    end;
    1 : begin
    ExamineInv;
    end;
    end;
    end;

    //Less likely to use one of the GAntiBan's
    Procedure RAntiBan;
    begin
    case random(4) of
    0 : begin
    writeln('Random Wait AntiBan');
    Wait(randomrange(100,300));
    end;
    1 : begin
    GAntiBan;
    end;
    2 : begin
    writeln('Pickup mouse random wait');
    Wait(randomrange(100,300));
    PickUpMouse;
    Wait(randomrange(100,250));
    end;
    3 : begin
    writeln('Pickup mouse multi');
    Wait(randomrange(100,300));
    PickUpMouse;
    Wait(randomrange(100,300));
    PickUpMouse;
    Wait(randomrange(100,300));
    end;
    end;
    end;

    //finding and killing yaks
    procedure KillYak;
    var
    sX,sY: Integer;
    label
    fighting;
    begin
    if FindObjSimple_F([1053721, 6777452], ['ttck','ak'], MSCX, MSCY) then
    writeln('Attacking Yak!');
    fighting:
    While IsMoving do
    wait(1);
    wait(randomrange(100,300));
    if FindBlackChatMessage('omeone else is fighting') then
    begin
    writeln('Someone else is controlling the population of this yak!');
    case random(4) of
    0 : begin
    sX := MSX1;
    sY := MSY1;
    end;
    1 : begin
    sX := MSX1;
    sY := MSY2;
    end;
    2 : begin
    sX := MSX2;
    sY := MSY1;
    end;
    3 : begin
    sX := MSX2;
    sY := MSY2;
    end;
    end;
    if FindObjSimple_F([4869718, 1908774], ['ttck','ak'], sX, sY) then
    GetOutF;
    goto fighting;
    end else
    begin
    if InFight then
    begin
    repeat
    FindNormalRandoms;
    writeln('fighting...');
    Wait(randomrange(100,200));
    Eat('Eat');
    until (not InFight) or (Not LoggedIn)
    end;
    writeln('Another Yak down, billions to go');
    wait(randomrange(100,200));
    end;
    end;


    //script startup
    procedure Startup;
    begin
    Smart_Server := SWorld;
    Smart_Members:= true;
    Smart_Signed := true;
    Smart_SuperDetail := false;
    SetupSRL;
    DeclarePlayers;
    LogInPlayer;
    MouseSpeed := MSpeed;
    wait(100+random(100));
    end;


    begin
    Startup;
    SetupChar;
    repeat
    KillYak;
    findnormalrandoms;
    until not LoggedIn
    writeln('stopping script');
    TerminateScript;
    end.

  4. #54
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    making the waits shorter doesn't speed it up that much.. I had to increase them to speed it up - less long antibans

    that's why I'm taking out things like boredhuman
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  5. #55
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hope this change can be implemented if its succesful

    btw is there no way to code for the bot to attack once the character stops animating?

  6. #56
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah its sped it up more than enough from 55k an hour to 75k an hour exp. 20k an hour exp difference.

  7. #57
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    your shorter wait version is giving me about half the exp I get with 0.3

    by shortening the wait, you increase the amount of antibans.. which actually makes the waits a lot longer


    Quote Originally Posted by nathan lad View Post
    hope this change can be implemented if its succesful

    btw is there no way to code for the bot to attack once the character stops animating?
    redownload 0.3, I just changed 2 lines real fast

    I'll add some stuff later this week so it instantly starts attacking a yak once it's done fighting
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  8. #58
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks a lot man, ill try it now

  9. #59
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    Quote Originally Posted by nathan lad View Post
    thanks a lot man, ill try it now
    yea I'm bummed about the waiting till life bar is gone to start fighting, one of the problems with SRL is that.. it doesn't have good color fighting procedures
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  10. #60
    Join Date
    Mar 2011
    Posts
    254
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah , it was eating lobs on me after every kill =/

    V0.3 i mean.

    Back to my edited version for now.

  11. #61
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    what? nothing changed for eating


    post the debug box plz? I can't reproduce your error
    Last edited by grats; 12-10-2011 at 05:38 PM.
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  12. #62
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i used the new version im not sure if its quicker or not as it still waits for ure health bar to disappear, perhaps it is now quicker in its reaction time afterwards, it seems so

  13. #63
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    Quote Originally Posted by nathan lad View Post
    i used the new version im not sure if its quicker or not as it still waits for ure health bar to disappear, perhaps it is now quicker in its reaction time afterwards, it seems so
    That's exactly what I said like 2 posts up -.-

    infight is something I'll have to fix, not really sure how
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  14. #64
    Join Date
    Aug 2007
    Location
    Marijuanaville USA
    Posts
    195
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    checking if infight without checking for an hp bar seems to be the main thing slowing down the xp/hour. Its effective, but could be more efficient. I am not sure how well Scar is at detecting animations. possibly something to do with pixelshifting, but I'm mostly talking out my ass lol. Looks like a promising script though, would someone please inform me where yaks are, so that I may test it out? I've never found them lol

  15. #65
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    Quote Originally Posted by omegaangelz View Post
    checking if infight without checking for an hp bar seems to be the main thing slowing down the xp/hour. Its effective, but could be more efficient. I am not sure how well Scar is at detecting animations. possibly something to do with pixelshifting, but I'm mostly talking out my ass lol. Looks like a promising script though, would someone please inform me where yaks are, so that I may test it out? I've never found them lol
    http://runescape.wikia.com/wiki/Neitiznot
    that's where yaks are
    when this script gets put in the real scripts section (once I add more stuff) I'll have a tutorial on how to get there etc

    I'm planning on doing something that like.. detects your HP bar and the closest one to you, and if yours is the only one that appears then it'll return false so it starts looking for a new target to attack.. instead of only looking at your hp bar
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  16. #66
    Join Date
    Aug 2007
    Location
    Marijuanaville USA
    Posts
    195
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Damn havent dont fremenick isles lol. I'll look into it. That is a brilliant work around though! Kind of the way a miner detects the nearest ore, and when it attemts to detect and its no longer present, then it selects a new ore, your script would select a new yak. Idk if that might make it easier for you to implement to base it on a method such as that, but hopefully my input helps

  17. #67
    Join Date
    Dec 2011
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    fremmy isles doesnt need to be completed just started to the point where u speak to the king of jatizo. dnt bother gettin the stuff he wants just leave jatz and go to neitz

  18. #68
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Grats, this script is pretty sweet. I'm working on a new barrows pure so I may give this a try . Thanks bud.

  19. #69
    Join Date
    Feb 2011
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ran for an hour, 50k ish exp, was pretty smooth no problems so far.

  20. #70
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    @grats
    You can snag my fighting stuff from Fast Fighter / NAF for InFight, IsFightAt and FightOnScreen I would suggest.
    Make sure you find the TBox that I use with it.
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  21. #71
    Join Date
    Feb 2007
    Location
    Colorado, USA
    Posts
    3,716
    Mentioned
    51 Post(s)
    Quoted
    624 Post(s)

    Default

    Quote Originally Posted by Narcle View Post
    @grats
    You can snag my fighting stuff from Fast Fighter / NAF for InFight, IsFightAt and FightOnScreen I would suggest.
    Make sure you find the TBox that I use with it.
    Oh you made one that is better? sweet!!! thanks!

    I'll look into it in a bit, working on school finals stuff, only 2 days left


    Quote Originally Posted by ofc View Post
    Ran for an hour, 50k ish exp, was pretty smooth no problems so far.
    holy crap dave where have you been!?!?!
    The only true authority stems from knowledge, not from position.

    You can contact me via matrix protocol: @grats:grats.win or you can email me at the same domain, any user/email address.

  22. #72
    Join Date
    Feb 2011
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by grats View Post
    holy crap dave where have you been!?!?!
    been busy at work and stuff, kinda starting to slow down now so I'm back etc...
    How you been?

  23. #73
    Join Date
    Jul 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey, I've used it for a few mins and noticed that it will pick up yak hair and hide quite frequently. About 15 minutes in, about 14 yak hides/hairs in invent. Otherwise, good script; nice work and thanks.

  24. #74
    Join Date
    Nov 2011
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sofaking View Post
    Hey, I've used it for a few mins and noticed that it will pick up yak hair and hide quite frequently. About 15 minutes in, about 14 yak hides/hairs in invent. Otherwise, good script; nice work and thanks.
    This is just because the colours that the bot looks for on yaks are simmilar to those of the hairs / hides. You can safely edit the colours (play around with them) until the bot only clicks yaks. However jagex seems to be changing the colours in-game so you might have to re-do this process every now and then.

    *btw OP. I love your script. It's got me about 3m xp so far, I've made a few tweaks since the day you posted it, and am working on making a GDK with your script as the skeleton! Trials has probably mentioned it somewhere.

    for antibans, All you need to do with them in my opinion is make them occur far less and you'll be fine. As too much anti-ban isn't human

    I'll post up a stolen procedure from narcle's fast-fighter to help with the infight.

    As a small proggy type thing, The most I've ran it for so far, is about 16 hours with the modded {CRASHSMART} .Bat file, It works amazingly. Thankyou.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Life is too short to take seriously.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

  25. #75
    Join Date
    Dec 2011
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I've been using this script and its very useful, I've just upgraded to bandos chestplate/tassets and berserker helm using whip. When I run the script now it just constantly clicks my armour and whip thinking its fighting? Other than that it runs fine. I guess its to do with similar colours, but is there a fix?

Page 3 of 7 FirstFirst 12345 ... 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
  •