Page 4 of 5 FirstFirst ... 2345 LastLast
Results 76 to 100 of 120

Thread: [MoneyMaking] The Mighty Al-Kharid Silk buyer!

  1. #76
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Quote Originally Posted by erickho123 View Post
    Getting these errors:
    [Error] C:\Simba\Includes\SPS/SPS.simba(357:9): Unknown identifier 'ClickNorth' at line 356
    Compiling failed.
    [Error] C:\Simba\Includes\SPS\SPS.simba(52:35): Unknown identifier 'MMCX' at line 51
    Compiling failed.

    Just started with simba, so it might just be on my end, any suggestions?
    wth did u do wrong LOL

    Creds to DannyRS for this wonderful sig!

  2. #77
    Join Date
    Mar 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Sjoekeloe View Post
    wth did u do wrong LOL
    What's so funny? Didn't really understand what you said :S

  3. #78
    Join Date
    Jan 2012
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    script dose not withdraw money from the bank iv tried changing the bank color and still nothing please fix

  4. #79
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Wikkedninja View Post
    script dose not withdraw money from the bank iv tried changing the bank color and still nothing please fix
    is this true? DAMN I WAS WILLING TO TRY IT OUT LOL

  5. #80
    Join Date
    Sep 2007
    Location
    BitLeak
    Posts
    175
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    Thanks!

    It is a nice script and it bought the first inventory of silk flawlessly. However, after returning to the bank it failed to open it to deposit the silk and then began to go back to the silk trader to buy more silk even though it still had a full inventory.

    Maybe consider adding a fail-safe so that it won't leave the bank until the inventory has no more silk in it?

  6. #81
    Join Date
    Oct 2012
    Location
    Italy
    Posts
    145
    Mentioned
    0 Post(s)
    Quoted
    44 Post(s)

    Default

    Sorry guys for the long wait.. I'm not mantaining it atm, since I've got no time for it actually.. I need some more skills to improve this that I haven't yet..

    If someone has got some advices/corrections or anything, I'm happy to hear them
    Check out my new script here: http://villavu.com/forum/showthread.php?p=1194418 Al-Kharid Silk buyer

  7. #82
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can somebody please fix this so it works ?

  8. #83
    Join Date
    Nov 2011
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    After the one click banking method this script is not working.

  9. #84
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Good script, but fails when banking...all it needs to do is click on the bank, instead it right clicks into nowhere land.

  10. #85
    Join Date
    Sep 2007
    Location
    BitLeak
    Posts
    175
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    Quote Originally Posted by simbapang View Post
    Good script, but fails when banking...all it needs to do is click on the bank, instead it right clicks into nowhere land.
    Wouldn't be too hard for you to edit it yourself to get it to bank properly.

    If you don't know how to do that or where to start, I recommend checking out some of the tutorials.

  11. #86
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by deathcrow View Post
    Wouldn't be too hard for you to edit it yourself to get it to bank properly.

    If you don't know how to do that or where to start, I recommend checking out some of the tutorials.
    I'm currently looking into scripting at the moment, as I have the willingness to learn unlike many others. However, it's still your script and you should still fix it

  12. #87
    Join Date
    Mar 2013
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    you guys should make coal miner at mining guild, and banker, that would be awesome!

  13. #88
    Join Date
    Sep 2007
    Location
    BitLeak
    Posts
    175
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    Quote Originally Posted by simbapang View Post
    I'm currently looking into scripting at the moment, as I have the willingness to learn unlike many others. However, it's still your script and you should still fix it
    Not my script. =p

    Sometimes people become busy in real life or preoccupied with other projects that take priority over something like this. So the only option people have other than fixing the problem themselves is to simply be patient and wait for the original scripter to find the time to make any fixes/updates to their script.

    Glad to see that you are interested in learning how to script.

    I recommend taking a look at these threads:
    http://villavu.com/forum/showthread.php?t=69179
    http://villavu.com/forum/showthread.php?t=58935

  14. #89
    Join Date
    Oct 2012
    Location
    Italy
    Posts
    145
    Mentioned
    0 Post(s)
    Quoted
    44 Post(s)

    Default

    Quote Originally Posted by deathcrow View Post
    Not my script. =p

    Sometimes people become busy in real life or preoccupied with other projects that take priority over something like this. So the only option people have other than fixing the problem themselves is to simply be patient and wait for the original scripter to find the time to make any fixes/updates to their script.

    Glad to see that you are interested in learning how to script.

    I recommend taking a look at these threads:
    http://villavu.com/forum/showthread.php?t=69179
    http://villavu.com/forum/showthread.php?t=58935
    Thanks for the support
    Check out my new script here: http://villavu.com/forum/showthread.php?p=1194418 Al-Kharid Silk buyer

  15. #90
    Join Date
    Mar 2013
    Location
    C:\Windows\System32
    Posts
    68
    Mentioned
    1 Post(s)
    Quoted
    28 Post(s)

    Default

    Hey everyone, I did not take the time to read through the posts since im lazy and want to better this code lol. basically i just wanted to state out for the record that if anyone needs this working, i have recompiled a sh*t ton in this .simba since Zorgatone had many, many bugs.

    Zorgatone i give you props, you did a decent job, but its a real mess when looking at the code. i mean you have shit placed improperly and not in order lol, so i have to jump around to get to things.
    other than that, major fixes i have done are "removed excess movement to shops(going to cookery, then to furnace, etc.) so it goes from first spot cookery, to scimitar, directly to silk trader and vice-versa for walk back.
    im working on the bank bug currently, it is very unstable due to the fact that it does not check if you have money in your invo and does not withdraw money from the bank when script is initialized.
    also working on banking silks, fairly easy fix though its just off centered when picking open bank, it picks "walk here" instead and then try to bank all the silks which in some cases may drop your silks instead and then it thinks its an empty invo and walks to the silk trader and buys silk and keeps buying and waste your money when you have a full invo and all the silk goes on the ground lol.

    so those are my minor tweaks im working on, if its okay with Zorgatone ill release the "fixed" version of this, including a lot more anti-bans and anti-randoms and random event doers.
    Cheers

    *edit
    also im going to add in alot of random mouse movements since i see very vague movements, and that leads to detection by jagex and further more a ban. random mouse movements make it look more legit and more human-like
    Last edited by OriginalGM; 03-27-2013 at 02:28 AM.

  16. #91
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tysm! ^

  17. #92
    Join Date
    Mar 2013
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So which files do we download. Sorry it's not clear.

  18. #93
    Join Date
    Sep 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by erickho123 View Post
    Getting these errors:
    [Error] C:\Simba\Includes\SPS/SPS.simba(357:9): Unknown identifier 'ClickNorth' at line 356
    Compiling failed.
    [Error] C:\Simba\Includes\SPS\SPS.simba(52:35): Unknown identifier 'MMCX' at line 51
    Compiling failed.

    Just started with simba, so it might just be on my end, any suggestions?

    edit: read ur edit, i guess i wont be using the srl-ors until it's fixed, because i don't have a single clue on how to fix it.. :{
    I am having the same problem. We need help and a fix

  19. #94
    Join Date
    May 2012
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Hey, core rewrote the script for me to use SRL-OSR instead of p07include. Hopefully this can be useful to someone:

    Simba Code:
    program silktrader;

    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.simba}

    procedure MyFlag;
    begin
        wait(1250);
        Flag;
    end;

    function FindVendor(var fx, fy: Integer): Boolean;var
        arP: TPointArray;
        ararP: T2DPointArray;
        tmpCTS, i, arL: Integer;
        P: TPoint;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.02, 0.44);

        if not(FindColorsTolerance(arP, 9323663, MSX1, MSY1, MSX2, MSY2, 21)) then
        begin
            Writeln('Failed to find the vendor, no object found.');
            ColorToleranceSpeed(tmpCTS);
            SetColorSpeed2Modifiers(0.2, 0.2);
            Exit;
        end;

        SortTPAFrom(arP, Point(MSCX, MSCY));
        ararP := SplitTPAEx(arP, 10, 10);
        arL := High(ararP);

        for i := 0 to arL do
        begin
            P := MiddleTPA(ararP[i]);
            MMouse(P.x, P.y, 5, 5);
            Wait(100 + Random(100));
                Result := True;
                Break;
        end;

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

        if (i = arL + 1) then
        begin
            Writeln('FindVendor could not find vendor.');
            Exit;
        end;

        GetMousePos(fx, fy);
    end;

    function FindVendorPants(var fx, fy: Integer): Boolean;
    var
        arP: TPointArray;
        ararP: T2DPointArray;
        tmpCTS, i, arL: Integer;
        P: TPoint;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.06, 0.27);

        if not(FindColorsTolerance(arP, 10121596, MSx1, MSY1, MSx2, MSY2, 22)) then
        begin
            Writeln('Failed to find the vendor, no object found.');
            ColorToleranceSpeed(tmpCTS);
            SetColorSpeed2Modifiers(0.2, 0.2);
            Exit;
        end;

        SortTPAFrom(arP, Point(MSCX, MSCY));
        ararP := SplitTPAEx(arP, 10, 10);
        arL := High(ararP);

        for i := 0 to arL do
        begin
            P := MiddleTPA(ararP[i]);
            MMouse(P.x, P.y, 5, 5);
            Wait(100 + Random(100));
                Result := True;
                Break;
        end;

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

        if (i = arL + 1) then
        begin
            Writeln('FindVendorPants could not find vendor pants.');
            Exit;
        end;

        GetMousePos(fx, fy);
    end;

    Procedure Path;
    var
        x, y : Integer;
        contin : boolean;
    begin
        MakeCompass('n');

        If FindSymbol(x, y, Symbol_Bank) then
        begin
            writeln('Im at the bank');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the bank');
        end;
       
        x := MMCX + 25;
        y := MMY1 + 23;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
            MyFlag;
       
        If FindSymbol(x, y, Symbol_Cookery) or FindSymbol(x, y, Symbol_KebabShop) or FindSymbol(x, y, Symbol_Furnace) then
        begin
            writeln('Walking to first spot');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the first spot');
            x := MMCX + 15;
            y := MMY1 + 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If FindSymbol(x, y, Symbol_Tanner) then
        begin
            writeln('Walking to tanner');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            wait(7000);
            writeln('lolol');
            x := MMCX + 30;
            y := MMY1 + 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If false and FindSymbol(x, y, Symbol_ScimitarShop) then     //always false
        begin
            writeln('Walking to the scimitar shop');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            x := MMCX + 50;
            y := MMY1 + 70;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        x := MMCX + 30;
        y := MMY1 + 30;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
            MyFlag;
       
        If FindSymbol(x, y, Symbol_Cookery) then
        begin
            writeln('Walking to the Cookery');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the Cookery');
        end;

        contin := false;
        Repeat
        If FindSymbol(x, y, Symbol_SilkStall) then
        begin
            writeln('Walking to the SilkStall');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
            contin := false;
        end else
        begin
            writeln('I cant find the SilkStall');
            contin := true;
        end;
        Until not contin;
       
    end;

    Procedure PathReversed;
    var
        x, y : Integer;
        contin : boolean;
    begin
        SetAngle(SRL_ANGLE_HIGH);
        MakeCompass('n');

        wait(1500);

        If FindSymbol(x, y, Symbol_SilkStall) then
        begin
            writeln('Walking to the SilkStall');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
            contin := false;
        end else
        begin
            writeln('I cant find the SilkStall');
            contin := true;
        end;
       
        If FindSymbol(x, y, Symbol_Cookery) then
        begin
            writeln('Walking to the Cookery');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the Cookery');
        end;

        x := MMCX - 30;
        y := MMY2 - 30;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
        MyFlag;
       
        If false and FindSymbol(x, y, Symbol_ScimitarShop) then     //always false
        begin
            writeln('Walking to the scimitar shop');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            x := MMCX - 50;
            y := MMY2 - 70;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If FindSymbol(x, y, Symbol_Tanner) then
        begin
            writeln('Walking to tanner');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            wait(7000);
            writeln('lolol');
            x := MMCX - 30;
            y := MMY2 - 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If FindSymbol(x, y, Symbol_Cookery) or FindSymbol(x, y, Symbol_KebabShop) or FindSymbol(x, y, Symbol_Furnace) then
        begin
            writeln('Walking to first spot');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the first spot');
            x := MMCX - 15;
            y := MMY2 - 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        x := MMCX - 25;
        y := MMY2 - 23;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
        MyFlag;

        If FindSymbol(x, y, Symbol_Bank) then
        begin
            writeln('Im at the bank');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the bank');
        end;
       
    end;

    function BankBoothColor: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.06, 0.41);

        if not (FindColorsTolerance(arP, 4220043, MSX1, MSY1, MSX2, MSY2, 2)) 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
            Result := arC[i];
            Writeln('BankBoothColor = ' + IntToStr(arC[i]));
            Break;
        end;

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

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

    function FaceColor: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.04, 0.10);

        if not (FindColorsTolerance(arP, 3890561, MCx1, MCy1, MCx2, MCy2, 16)) then
        begin
            Writeln('Failed to find the face in the dialog, 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
            Result := arC[i];
            Writeln('FaceColor = ' + IntToStr(arC[i]));
            Break;
        end;

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

        if (i = arL + 1) then
            Writeln('FaceColor failed in finding the face in the dialog.');
    end;

    function isopenchat : boolean;
    var
        temp : boolean;
        x, y : integer;
    begin
        temp := false;

        if (not(FaceColor = 0)) and FindColorTolerance(x, y, FaceColor, 0, 338, 519, 478, 8) then
            temp := true;

        result := temp;
    end;

    function MoneyColorInv: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.02, 0.40);

        if not (FindColorsTolerance(arP, 958665, MIX1, MIY1, MIX2, MIY2, 24)) 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
            Result := arC[i];
            Writeln('MoneyColorInv = ' + IntToStr(arC[i]));
            Break;
        end;

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

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

    function MoneyColorBank: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.62);

      if not (FindColorsTolerance(arP, 1294063, MSX1, MSY1, MSX2, MSY2, 15)) 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
        Result := arC[i];
        Writeln('MoneyColorBank = ' + IntToStr(arC[i]));
        Break;
      end;

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

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

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
        Players[0].Name :='Your Username';
        Players[0].Pass :='Your Password';
    End;

    function RedButtonColor: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.03, 0.11);

        if not (FindColorsTolerance(arP, 1908867, MIx1, MIY1, MIx2, MIy2, 8)) 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
            Result := arC[i];
            Writeln('RedButtonColor = ' + IntToStr(arC[i]));
            Break;
        end;

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

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

    Procedure CheckRun;
    var
        x,y : Integer;
    begin

        GameTab(12);

        if FindColorTolerance(x, y, RedButtonColor, 615,407, 670,458, 8) then
        begin
        end else
        begin
            MMouse(643, 433,3,3);
            ClickMouse2(Mouse_Left);
        end;


        GameTab(4);
    end;

    var
        x, y : Integer;
        SilkDTM : Integer;
    Begin

      SetupSRL;
        DeclarePlayers;
        ActivateClient;
        Wait(2000);
        If (Not LoggedIn) Then
            LogInPlayer;
        SetAngle(SRL_ANGLE_HIGH);
        MakeCompass('n');
        //SetupSRL;

    while(true) do
    BEGIN

        Wait(750);

        CheckRun;
        Path;
       
        wait(750);

        While not InvFull do
        Begin
        Repeat
        if FindVendor(x,y) then
        begin

            MMouse(x, y, 3, 3);
            if(pos('an',GetUpText)=0) then
                ClickMouse2(Mouse_left);
            wait(150);
            if isopenchat then
            begin
                break;
            end
            else
                continue;
      SetupSRL;
        end;
        until false;

        //Wait(400);


        // one
        x := 307;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // two
        x := 261;
        y := 403;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // three
        x := 214;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // four
        x := 307;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // five
        x := 258;
        y := 437;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // six
        x := 214;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // seven
        x := 307;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        End;

        SetAngle(SRL_ANGLE_HIGH);
        MakeCompass('n');

        CheckRun;
        PathReversed;

        Wait(1500);

        //x := 124;
        //y := 234+20;

        If FindColorTolerance(x, y, BankBoothColor, MSX1, MSy1, MSX2, MSY2, 3) then
        begin
            wait(750);
            MMouse(x + 35,y, 3,3);
            wait(750);
            ClickMouse2(Mouse_right);
            wait(750);
            MMouse(x, y + 40, 3, 3);
            wait(750);
            ClickMouse2(Mouse_left);
        end;

        SilkDTM := DTMFromString('mlwAAAHicY2dgYMhjYmBIBuICIC4D4gogTgfiDCB+BpR/D8XPgfguED8B4ltAvHZRJ5BkxIr5gSQrDoxdBwRDAQDymgts');

        Wait(2500);

        if FindDTM(SilkDTM, x, y, 546, 200, 736, 466) then
        begin
            MMouse(x,y, 3,3);
            ClickMouse2(Mouse_Right);
            MMouse(x, y + 67, 3, 3);
            ClickMouse2(Mouse_Left);
        end;

        FreeDTM(SilkDTM);

        If FindColorTolerance(x, y, MoneyColorInv, 546, 200, 736, 466, 3) then
        begin
            MMouse(x,y, 3,3);
            ClickMouse2(Mouse_Right);
            MMouse(x, y + 66, 3, 3);
            ClickMouse2(Mouse_Left);
        end;

        If FindColorTolerance(x, y, MoneyColorBank, 18, 27, 502, 326, 3) then
        begin
            MMouse(x,y, 3,3);
            ClickMouse2(Mouse_Right);
            MMouse(x, y + 90, 3, 3);
            ClickMouse2(Mouse_Left);
            wait(1500);
            Typesend('84');
        end;

    END; // lmao

    End.

  20. #95
    Join Date
    Feb 2012
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    27 Post(s)

    Default

    Praying for the release of this silk seller

    ploxxxxxxxxxxxxxxxxxxxxxxxxxxxx

  21. #96
    Join Date
    Mar 2013
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Please make a seller soon I have 30k silk i need to sell..

  22. #97
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cotton1212 View Post
    Hey, core rewrote the script for me to use SRL-OSR instead of p07include. Hopefully this can be useful to someone:

    Simba Code:
    program silktrader;

    {$DEFINE SMART8}
    {$I SRL-OSR/SRL.simba}

    procedure MyFlag;
    begin
        wait(1250);
        Flag;
    end;

    function FindVendor(var fx, fy: Integer): Boolean;var
        arP: TPointArray;
        ararP: T2DPointArray;
        tmpCTS, i, arL: Integer;
        P: TPoint;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.02, 0.44);

        if not(FindColorsTolerance(arP, 9323663, MSX1, MSY1, MSX2, MSY2, 21)) then
        begin
            Writeln('Failed to find the vendor, no object found.');
            ColorToleranceSpeed(tmpCTS);
            SetColorSpeed2Modifiers(0.2, 0.2);
            Exit;
        end;

        SortTPAFrom(arP, Point(MSCX, MSCY));
        ararP := SplitTPAEx(arP, 10, 10);
        arL := High(ararP);

        for i := 0 to arL do
        begin
            P := MiddleTPA(ararP[i]);
            MMouse(P.x, P.y, 5, 5);
            Wait(100 + Random(100));
                Result := True;
                Break;
        end;

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

        if (i = arL + 1) then
        begin
            Writeln('FindVendor could not find vendor.');
            Exit;
        end;

        GetMousePos(fx, fy);
    end;

    function FindVendorPants(var fx, fy: Integer): Boolean;
    var
        arP: TPointArray;
        ararP: T2DPointArray;
        tmpCTS, i, arL: Integer;
        P: TPoint;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.06, 0.27);

        if not(FindColorsTolerance(arP, 10121596, MSx1, MSY1, MSx2, MSY2, 22)) then
        begin
            Writeln('Failed to find the vendor, no object found.');
            ColorToleranceSpeed(tmpCTS);
            SetColorSpeed2Modifiers(0.2, 0.2);
            Exit;
        end;

        SortTPAFrom(arP, Point(MSCX, MSCY));
        ararP := SplitTPAEx(arP, 10, 10);
        arL := High(ararP);

        for i := 0 to arL do
        begin
            P := MiddleTPA(ararP[i]);
            MMouse(P.x, P.y, 5, 5);
            Wait(100 + Random(100));
                Result := True;
                Break;
        end;

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

        if (i = arL + 1) then
        begin
            Writeln('FindVendorPants could not find vendor pants.');
            Exit;
        end;

        GetMousePos(fx, fy);
    end;

    Procedure Path;
    var
        x, y : Integer;
        contin : boolean;
    begin
        MakeCompass('n');

        If FindSymbol(x, y, Symbol_Bank) then
        begin
            writeln('Im at the bank');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the bank');
        end;
       
        x := MMCX + 25;
        y := MMY1 + 23;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
            MyFlag;
       
        If FindSymbol(x, y, Symbol_Cookery) or FindSymbol(x, y, Symbol_KebabShop) or FindSymbol(x, y, Symbol_Furnace) then
        begin
            writeln('Walking to first spot');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the first spot');
            x := MMCX + 15;
            y := MMY1 + 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If FindSymbol(x, y, Symbol_Tanner) then
        begin
            writeln('Walking to tanner');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            wait(7000);
            writeln('lolol');
            x := MMCX + 30;
            y := MMY1 + 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If false and FindSymbol(x, y, Symbol_ScimitarShop) then     //always false
        begin
            writeln('Walking to the scimitar shop');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            x := MMCX + 50;
            y := MMY1 + 70;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        x := MMCX + 30;
        y := MMY1 + 30;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
            MyFlag;
       
        If FindSymbol(x, y, Symbol_Cookery) then
        begin
            writeln('Walking to the Cookery');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the Cookery');
        end;

        contin := false;
        Repeat
        If FindSymbol(x, y, Symbol_SilkStall) then
        begin
            writeln('Walking to the SilkStall');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
            contin := false;
        end else
        begin
            writeln('I cant find the SilkStall');
            contin := true;
        end;
        Until not contin;
       
    end;

    Procedure PathReversed;
    var
        x, y : Integer;
        contin : boolean;
    begin
        SetAngle(SRL_ANGLE_HIGH);
        MakeCompass('n');

        wait(1500);

        If FindSymbol(x, y, Symbol_SilkStall) then
        begin
            writeln('Walking to the SilkStall');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
            contin := false;
        end else
        begin
            writeln('I cant find the SilkStall');
            contin := true;
        end;
       
        If FindSymbol(x, y, Symbol_Cookery) then
        begin
            writeln('Walking to the Cookery');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the Cookery');
        end;

        x := MMCX - 30;
        y := MMY2 - 30;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
        MyFlag;
       
        If false and FindSymbol(x, y, Symbol_ScimitarShop) then     //always false
        begin
            writeln('Walking to the scimitar shop');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            x := MMCX - 50;
            y := MMY2 - 70;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If FindSymbol(x, y, Symbol_Tanner) then
        begin
            writeln('Walking to tanner');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            wait(7000);
            writeln('lolol');
            x := MMCX - 30;
            y := MMY2 - 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        If FindSymbol(x, y, Symbol_Cookery) or FindSymbol(x, y, Symbol_KebabShop) or FindSymbol(x, y, Symbol_Furnace) then
        begin
            writeln('Walking to first spot');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the first spot');
            x := MMCX - 15;
            y := MMY2 - 30;
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end;
       
        x := MMCX - 25;
        y := MMY2 - 23;
        MMouse(x, y, 3, 3);
        ClickMouse2(Mouse_Left);
        MyFlag;

        If FindSymbol(x, y, Symbol_Bank) then
        begin
            writeln('Im at the bank');
            MMouse(x, y, 3, 3);
            ClickMouse2(Mouse_Left);
            MyFlag;
        end else
        begin
            writeln('I cant find the bank');
        end;
       
    end;

    function BankBoothColor: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.06, 0.41);

        if not (FindColorsTolerance(arP, 4220043, MSX1, MSY1, MSX2, MSY2, 2)) 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
            Result := arC[i];
            Writeln('BankBoothColor = ' + IntToStr(arC[i]));
            Break;
        end;

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

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

    function FaceColor: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.04, 0.10);

        if not (FindColorsTolerance(arP, 3890561, MCx1, MCy1, MCx2, MCy2, 16)) then
        begin
            Writeln('Failed to find the face in the dialog, 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
            Result := arC[i];
            Writeln('FaceColor = ' + IntToStr(arC[i]));
            Break;
        end;

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

        if (i = arL + 1) then
            Writeln('FaceColor failed in finding the face in the dialog.');
    end;

    function isopenchat : boolean;
    var
        temp : boolean;
        x, y : integer;
    begin
        temp := false;

        if (not(FaceColor = 0)) and FindColorTolerance(x, y, FaceColor, 0, 338, 519, 478, 8) then
            temp := true;

        result := temp;
    end;

    function MoneyColorInv: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.02, 0.40);

        if not (FindColorsTolerance(arP, 958665, MIX1, MIY1, MIX2, MIY2, 24)) 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
            Result := arC[i];
            Writeln('MoneyColorInv = ' + IntToStr(arC[i]));
            Break;
        end;

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

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

    function MoneyColorBank: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.62);

      if not (FindColorsTolerance(arP, 1294063, MSX1, MSY1, MSX2, MSY2, 15)) 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
        Result := arC[i];
        Writeln('MoneyColorBank = ' + IntToStr(arC[i]));
        Break;
      end;

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

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

    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
        Players[0].Name :='Your Username';
        Players[0].Pass :='Your Password';
    End;

    function RedButtonColor: Integer;
    var
        arP: TPointArray;
        arC: TIntegerArray;
        tmpCTS, i, arL: Integer;
    begin
        tmpCTS := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.03, 0.11);

        if not (FindColorsTolerance(arP, 1908867, MIx1, MIY1, MIx2, MIy2, 8)) 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
            Result := arC[i];
            Writeln('RedButtonColor = ' + IntToStr(arC[i]));
            Break;
        end;

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

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

    Procedure CheckRun;
    var
        x,y : Integer;
    begin

        GameTab(12);

        if FindColorTolerance(x, y, RedButtonColor, 615,407, 670,458, 8) then
        begin
        end else
        begin
            MMouse(643, 433,3,3);
            ClickMouse2(Mouse_Left);
        end;


        GameTab(4);
    end;

    var
        x, y : Integer;
        SilkDTM : Integer;
    Begin

      SetupSRL;
        DeclarePlayers;
        ActivateClient;
        Wait(2000);
        If (Not LoggedIn) Then
            LogInPlayer;
        SetAngle(SRL_ANGLE_HIGH);
        MakeCompass('n');
        //SetupSRL;

    while(true) do
    BEGIN

        Wait(750);

        CheckRun;
        Path;
       
        wait(750);

        While not InvFull do
        Begin
        Repeat
        if FindVendor(x,y) then
        begin

            MMouse(x, y, 3, 3);
            if(pos('an',GetUpText)=0) then
                ClickMouse2(Mouse_left);
            wait(150);
            if isopenchat then
            begin
                break;
            end
            else
                continue;
      SetupSRL;
        end;
        until false;

        //Wait(400);


        // one
        x := 307;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // two
        x := 261;
        y := 403;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // three
        x := 214;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // four
        x := 307;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // five
        x := 258;
        y := 437;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // six
        x := 214;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        // seven
        x := 307;
        y := 453;

        MMouse(x,y, 3,3);
      Wait(400);
        ClickMouse2(Mouse_left);

        End;

        SetAngle(SRL_ANGLE_HIGH);
        MakeCompass('n');

        CheckRun;
        PathReversed;

        Wait(1500);

        //x := 124;
        //y := 234+20;

        If FindColorTolerance(x, y, BankBoothColor, MSX1, MSy1, MSX2, MSY2, 3) then
        begin
            wait(750);
            MMouse(x + 35,y, 3,3);
            wait(750);
            ClickMouse2(Mouse_right);
            wait(750);
            MMouse(x, y + 40, 3, 3);
            wait(750);
            ClickMouse2(Mouse_left);
        end;

        SilkDTM := DTMFromString('mlwAAAHicY2dgYMhjYmBIBuICIC4D4gogTgfiDCB+BpR/D8XPgfguED8B4ltAvHZRJ5BkxIr5gSQrDoxdBwRDAQDymgts');

        Wait(2500);

        if FindDTM(SilkDTM, x, y, 546, 200, 736, 466) then
        begin
            MMouse(x,y, 3,3);
            ClickMouse2(Mouse_Right);
            MMouse(x, y + 67, 3, 3);
            ClickMouse2(Mouse_Left);
        end;

        FreeDTM(SilkDTM);

        If FindColorTolerance(x, y, MoneyColorInv, 546, 200, 736, 466, 3) then
        begin
            MMouse(x,y, 3,3);
            ClickMouse2(Mouse_Right);
            MMouse(x, y + 66, 3, 3);
            ClickMouse2(Mouse_Left);
        end;

        If FindColorTolerance(x, y, MoneyColorBank, 18, 27, 502, 326, 3) then
        begin
            MMouse(x,y, 3,3);
            ClickMouse2(Mouse_Right);
            MMouse(x, y + 90, 3, 3);
            ClickMouse2(Mouse_Left);
            wait(1500);
            Typesend('84');
        end;

    END; // lmao

    End.
    The script doesn't work and i have SRL-OSR installed correctly.
    It gives me the error:
    [Warning] C:\Simba\Scripts\silk-buyer-seller-osr.simba(157:14): Calculation always evaluates to False at line 156
    [Warning] C:\Simba\Scripts\silk-buyer-seller-osr.simba(247:14): Calculation always evaluates to False at line 246
    Compiled successfully in 421 ms.
    SRL Compiled in 0 msec
    ** Smart Cannot Spawn Clients **
    Successfully executed.

  23. #98
    Join Date
    Mar 2013
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    This script is dead isnt it?

  24. #99
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    starts smart with eoc client, if I pre-open oldschool client it just stands there doing nothing. I've tried other scripts and they work.

  25. #100
    Join Date
    May 2012
    Posts
    122
    Mentioned
    0 Post(s)
    Quoted
    28 Post(s)

    Default

    I get it to work fine but it does not bank at all just right clicks then selects the walk here. If I knew how to I would but this script could use some cleaning up, everything is out of order and really hard to sort through. Also there is a lot of unnecessary walking. Just my 2 cents, you did better than I could do so props

Page 4 of 5 FirstFirst ... 2345 LastLast

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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