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

Thread: Putonajonny's Merchenter

  1. #51
    Join Date
    Nov 2011
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Kabouterplop View Post
    i always get an error if i try to run the script


    unknown identifier 'p' at line 184

    can someone please help me with this

    thank u
    If you delete the pin part out of the script you can get it to run but, then I have the problem I mentioned above.

  2. #52
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    unable to find Srl/srl/smart.scar :S says my error

  3. #53
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Script is outdated, please search around before making these types of posts.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  4. #54
    Join Date
    Nov 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''

    Issue I am having.

  5. #55
    Join Date
    Feb 2012
    Location
    Canada
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bloopy62 View Post
    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''

    Issue I am having.
    Quote Originally Posted by Kyle Undefined View Post
    Script is outdated, please search around before making these types of posts.
    Just sayin'

  6. #56
    Join Date
    Jan 2012
    Posts
    74
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from '' ??

    Why am i getting this error?

  7. #57
    Join Date
    Oct 2010
    Posts
    1,255
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    Quote Originally Posted by Welcome Fruity View Post
    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from '' ??

    Why am i getting this error?
    Look up
    I'm back

  8. #58
    Join Date
    Feb 2012
    Location
    Australia
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Script is outdated, please search around before making these types of posts.
    Can everyone actually read what Kyle said or am I the only one that can see it?......

    This script is outdated!

  9. #59
    Join Date
    Jan 2012
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    change scar to simba

  10. #60
    Join Date
    Jun 2011
    Location
    Anywhere that has WIFI
    Posts
    669
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for this. I might make my own.
    Last edited by Jokester; 03-05-2012 at 02:09 AM. Reason: Took out the fixes for the anti-leech. My bad.

  11. #61
    Join Date
    Mar 2012
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does this script work in the newest version of Simba? 0.984 is the newest version right?

    Thanks

  12. #62
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by timrocks View Post
    Does this script work in the newest version of Simba? 0.984 is the newest version right?

    Thanks
    It will if you update to SRL 5
    Current Project: Retired

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

    Default

    To everyone who posted about this not working... it literally takes 30 seconds to get the whole thing SRL5 compatible...

  14. #64
    Join Date
    Apr 2012
    Location
    Portugal
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    only thing isn't working for me in this script, is the mail... it writes blablabla"hotmail.com


    instead of

    blablabla@hotmail.com

  15. #65
    Join Date
    May 2012
    Location
    Iowa
    Posts
    316
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by catanado15 View Post
    only thing isn't working for me in this script, is the mail... it writes blablabla"hotmail.com


    instead of

    blablabla@hotmail.com
    Last I heard the there was a bit of trouble with the "@" symbol. I think it worked if you put "`" where the "@" goes. I may be completely wrong though...

  16. #66
    Join Date
    Apr 2012
    Location
    Portugal
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Fascinate View Post
    Last I heard the there was a bit of trouble with the "@" symbol. I think it worked if you put "`" where the "@" goes. I may be completely wrong though...
    do u mean: 'blablabla'hotmail.com' instead of 'bablabla@hotmail.com' ?

    the starting " ' " and the last one are needed :x and if i put one at the middle, it don't compile

  17. #67
    Join Date
    Jun 2012
    Location
    Houghton Lake part of MI
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have fixed the script as far as I know (I haven't done hour long tests). I have removed the terminate script after pin fail due to the fact that it doesn't even try before it fails. So MAKE SURE your pin is right.

    Simba Code:
    (*
    |------------------------------------------------------------------|
    |                                                                  |
    |                 Putonajonny's Flipping Script                    |
    |                 Updated by Rouids                                |
    |                                                                  |
    |------------------------------------------------------------------|
    |                                                                  |
    |      What does it do?                                            |
    |     This script will flip items for you, buying low selling      |
    |     high, it assigns one item per account then will cycle        |
    |     through the accounts flipping the items you choose. Setup    |
    |     below.                                                       |
    |                                                                  |
    |------------------------------------------------------------------|
    |                                                                  |
    |     Setup:                                                       |
    |    1) Get the NPC Colour of the GE Clerk                         |
    |    2) Set the Wait Time                                          |
    |    3) If you want to be alerted when the script ends, select     |
    |       a sound path                                               |
    |    4) Set the number of players.                                 |
    |    5) Select your items to merch and the prices to buy and       |
    |       sell them at.                                              |
    |    6) Enter the account details, make sure you have as many      |
    |       accounts as items (the script will check this) and then    |
    |       make sure they are all at the GE (I have only tested it    |
    |       with the South East Station, stood slightly South West     |
    |       of the table. Place all money in pouch and all items in    |
    |       inventory (any spot)                                       |
    |    7) Start The Script.                                          |
    |                                                                  |
    |                                                                  |
    |     Optional:                                                    |
    |    8) You can uncomment a couple of lines to use ObjectDTMs to   |
    |       get to the correct location should you move.               |
    |                                                                  |
    |------------------------------------------------------------------|        *)

    program Merchenting;

    {.include SRL/SRL/Misc/Smart.simba}
    {.include SRL/SRL.simba}
    {.include sps/sps.simba}
    //{.include ObjectDTM/ObjDTMInclude.simba}


    Var
    ClearDebugS, CheckedYellows, ResetAccounts, WriteLines : Boolean;
    ItemsToMerch, PriceToBuy, PriceToSell : TStringArray;
    FreeSpots : TIntegerArray;
    GEScreen, GEArrow, GEArrowLeft, CancelButton, i, j, x, y, ys, CurrentAccount, tol, Money, NumberToBuy, ItemsMerched, TimesCollected, Profit : Integer;
    CurrentStatus, Text, Ver : String;
    GE : TPointArray;
    Reset : TBooleanArray;
    Const
    NCPColour = 1905429;
    WaitTime = 10;              //After cycling through the accounts, how long should it wait before it goes through them again (minutes)
    AlertSoundPath = 'C:\Simba\bird.wav';         //A sound to play to alert you when the script ends, must be a .wav
    Version = 4;
    SRLStats_Username = 'IDoNotHaveAnAccount';   //If you don't have an account leave it as it is
    SRLStats_Password = '123abc';


    procedure DeclarePlayers;
    begin

      ResetAccounts := True;  //Clear everything currently in GE that is pending? (First time through only)
      ClearDebugS := True; //Clear Debug Screen?
      WriteLines := True;  //Use the debug box to know what is going on, if false you only get proggys/errors/breaks.

      HowManyPlayers := 2;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      ItemsToMerch := ['ItemMerch1',' ItemMerch2']   //if your item is not the first on the list when this is typed let me know and I'll add compatibility for this
      PriceToBuy := ['PriceBuy1','PriceBuy2'] //Change PriceBuy1&2 to the amount of gp you want to buy (PriceBuy1 = ItemMerch1, PriceBuy2 = ItemMerch2)
      PriceToSell := ['PriceSell1','PriceSell2'] //Change PriceSell1&2 to the amount of gp you want to buy (PriceSell1 = ItemMerch1, PriceSell2 = ItemMerch2)

      Players[0].Name :='UserNameHere';   //use " if you are getting ~
      Players[0].Pass :='PassWordHere';
      Players[0].Active := True;
      Players[0].Pin := '';

      Players[1].Name :='UserNameHere';   //use " if you are getting ~
      Players[1].Pass :='PassWordHere';
      Players[1].Active := True;
      Players[1].Pin := '';
    (*
      Players[2].Name :='';   //use " if you are getting ~
      Players[2].Pass :='';
      Players[2].Active := True;
      Players[2].Pin := '';        *)


      //add more account if you are doing more items.

    end;                           //End of required setup.

    function GEOpen : Boolean;
    begin

      Wait(500+Random(200));
      Result := FindBitmapToleranceIn(GEScreen, x, y, 0, 0, 100, 100, 10) //check ge screen is open

    end;
    Procedure Swapsies(Active : Boolean);
    Var W : Integer;
    begin
      Status('Swapsies')
      If(not Active) then
        WriteLn('There was something wrong with that account, you might want to take a look... we wont use it again');
      CheckedYellows := False;
      If(CurrentAccount = High(PriceToBuy)) then
      begin
        CurrentAccount := 0
        If(LoggedIn) then
          Logout;
        WriteLn('I have been through all of the accounts for you')
        WriteLn('Waiting for '+IntToStr(WaitTime)+' minutes ('+IntToStr(WaitTime*60000)+' miliseconds)')
        Repeat
          Wait(WaitTime*600)
          Inc(W)
          If(WriteLines) then
            WriteLn(IntToStr(W)+'% through wait time');
        Until(W = 100);
        Wait(Random(5000));
      end else
        Inc(CurrentAccount);

      If(LoggedIn) then
        Logout;
      SwitchToPlayer(CurrentAccount,Active)
      Repeat
        LoginPlayer;
        Wait(2000+Random(1000));
      Until(LoggedIn)

    end;
    function OpenGEScreen : Boolean;
    begin
      Status('Opening GE Screen')
      Wait(500+Random(200));
      If(GEOpen) then
        Exit;
      SetAngle(SRL_ANGLE_LOW);
      Wait(2000+Random(2000));
      If(WriteLines) then
        WriteLn('245');
      ys := 0;
      tol := 1;

      Repeat
        FindColorTolerance( x, y, NCPColour, 0, 0, 517, 335, tol)
        MMouse( x, y, 3, 4)
        inc(tol);
        If(GEOpen) then
          Exit;
        If(WriteLines) then
          WriteLn('Increaseing Tolerance To: '+IntToStr(tol));
        If(tol>3) then
        begin
          tol := 0
          inc(ys)
          If(WriteLines) then
            WriteLn(ys);
        end;
      Until((WaitUptextMulti(['erk','and','alk','xch'], 200)) or (ys > 3));
      If(ys > 3) then
        begin
          Swapsies(False);
          exit;
        end;
      If(WriteLines) then
        WriteLn(IntToStr(x)+', '+IntToStr(y));
      ClickMouse2(False)
      Wait(200+Random(200));
      If(not WaitOption('ange G',2000)) then
        WriteLn('I need to tell it to do something...');
      Wait(50+Random(50));

      If(PinScreen) then
        begin
          Repeat
            InPin(Players[CurrentAccount].Pin);
          Until((not PinScreen))
        end;

      Result := GEOpen;

    end;
    function ErrorChecks : Boolean;
    Var Buy, Sel, Ite, Pla : Integer;
    begin
      Status('Checking the setup is correct')
      If((GetArrayLength(ItemsToMerch) = GetArrayLength(PriceToBuy)) and (GetArrayLength(PriceToSell) = GetArrayLength(PriceToBuy)) and (HowManyPlayers = GetArrayLength(PriceToBuy))) then
        begin
          If(WriteLines) then
            WriteLn('You have set the script up correctly');
          Result := True
        end else
          begin
            ClearDebug;
            WriteLn('*********you have set the script up wrong, try again**********')
            WriteLn('Checking Why it is Set Up Wrong...')
            Wait(500)
            Buy := GetArrayLength(PriceToBuy)
            Sel := GetArrayLength(PriceToSell)
            Ite := GetArrayLength(ItemsToMerch)
            Pla := HowManyPlayers;
            WriteLn('**You are trying to buy '+IntToStr(Ite)+ ' item(s), you have provided me with '+IntToStr(Buy)+' price(s) to buy at and '+IntToStr(Sel)+' price(s) to sell at, you have given me '+IntToStr(Pla)+' player(s) to use**')
            WriteLn('If they were not all the same number, that is why, please re enter the Declare Players Section')
            Result := False
          end;
    end;
    Procedure Declares;
    begin
      GE := [Point(313, 87)]

      GEScreen := BitmapFromString(26, 23, 'meJyllbGL2zAUxjP2D+iQNUMHj3' +
            'ZuiKG5xtAkJzq5Xc7LtbgdWt1wYNIWTDkogVIw5SgZ3TFDhww3ZCl' +
            '4zZgxo9eMGT2GftJzdIpsXw8KH+Ip1vu97wlJcfqj7ulZk04GDOo+' +
            'K4PaKeT0x/+E1Aqo7uCuCgQU0ZqYWNmKlq3FtpVtd/s9ggMNnwSNO' +
            'DqNJErUGWvbbtudkizX182QTgamMaKVK48bbPDGTFen1N3Yfjp0+q' +
            'Om/TG8YWp7zA8jjGrnpSuMI6n7aIY30KwDjcwc9kpwYIz0cG+W+1y' +
            'jncm9Eq4U6n+8KZque7w98mLy1nKDqjdFIFfU7wO9PX5iN9HusP16' +
            'Wi9cdrzYGpb71nEjxLafWF4IWpXT1Ck4UJCso8Vu+meXZsWvVXG7L' +
            'tZ5Ef7M224gacNalHFiwUmWWySCkGQFaNPbHIrSDeOp7cfo90AbGk' +
            'zjgmP9ZCFQcAJUvNx5/DfOhs24F85YvCbbkB7rKEULeBLcbJKsdIU' +
            '2w9kGtOBHjjhZ7ckqvqIciqIWYoiABs2PFlgzlZYw8jTHLvH5NkzF' +
            'iE+ohV8Ah1icoVDH5RZLnOPnkWh8tkJWNBdFBUrS0BGLVhBye0Fqu' +
            'YGUTxLHTKr2Ybyeb4QTiQLH4xmORM+P9fTyBknRoTVQBtBPxA4rgo' +
            'I4FdmaK/1Zqz7dxr0WOuZIY+Nqbu1/Qc3dUTR50hTNsPHq/dU5n0D' +
            'vPn99+fZSn378fkPBizcfEISTL5fX3y6uPkEI1Bp2/hqJlPsXYSlG' +
            'TA==');

      GEArrow := BitmapFromString(15, 20, 'meJyF0TsKwkAUhWEhVikURJF0ii' +
            'giCIEoWIgvLKIQi4CNuoK0NjaCpZXLsBR0D6LL8sgNx5s4EPiLmcm' +
            'XYSbxRr438nN2C2HQmyyQTGWsE7m+XJEYPU1hedTd7ZEYTpvTIOWJ' +
            '8+ejGI5jPPaZxsx63zIxDEtg0zGs151lntmItef1jVii5xewng8d1' +
            '5HG3z2TUr+id/6dIUumL2iS+o4VN/z3lM4wqi1PSLzT36LUT48lHg' +
            '0jqRGe45WkF1nqBIhYPJisI/GUqOxuED3X6QuNOSu2V9prqRkxvV0' +
            'f4KZGpjEYqs4OH0hs+G8=');

      GEArrowLeft := BitmapFromString(32, 26, 'meJyllctLVGEYxv8aIQ2FmVEcZa' +
            'aZTHQmu00IRSO4CBdDq9wZzGKIFl4WAyGZECYuQpA2LqJoFQWtlNY' +
            't7Q/pd+bRl3e+c/EGD4dz+c7veW/fOYVKfbTap8KtmmlwrIxGihXE' +
            'Sb484+VXpqpSL1SS+SKPT9+tzzerD59xfmW+t/DwqblGY+E5fE4C/' +
            'oXgKXzgudIdYn78pNlafvV0YWlypsGdDH5Q2DhfFgYnZiJ/udJZ6a' +
            'zjQvyeH5AzOniKPbPwcMivVzc7b96pPjSCR+q1ddy6b5dS4C44a1Q' +
            'WwTe6u2/f72EBfKI6fbt2HwsTFUM8QrxCDBZGnI+Aj07dU0Nhbu8c' +
            'SJwvtpZpgcTTQNxkAWoutWiWJi0ooOYQOMsIe+/T4f7nbxzhk4LEf' +
            'bTW3UKYelFD8uVdjmRBETyfS9LHl26KfPjlJ5KFXDIka0w1DJ7PJK' +
            'jm3CQMmF+//zaZS4bMHRfgcT7nlIUFP34de3jgkiizkAsRxvn0muK' +
            'QGvyjP38TyRm+PguqhIXxtVNyxdJQbow7tN5b+DgDMsuUbMBHdIHN' +
            '6OOP+tuzIAsGjBdPTv5xNHLAF9yKGVSpu/UhPj/MJxaIEcWCt7Dgq' +
            'BfFF5PsvAIXjnS5/mje821/cRMLNumDxReslIU1TrNnA69doIFpt9' +
            's8RVSY8KhDIp/vgyzKs3PkuPNxlwgxomtRysVSNMmkyZreMgaDqg4' +
            'M501ccpMi+P3rvz+RRe9FYmBoiY0KkAIfAdFURq1JlH3r+r7bZ/B8' +
            'mY7XDEUkZE0KbHzFdtF/SvBf6OebRfStLpYoKVLM1+QHWVDSG0M3k' +
            'VX4CvwA7iUL377r8306YWqXJJ/+SdPjj1un/sQvw09LIfn3fZ7+A0' +
            'S+hg4=');

      CancelButton := BitmapFromString(12, 13, 'meJwTkukWlp0oJNMtINnEL1ENRH' +
            'zi5UAEZ/MIZ0AU8IkVcwunwBFQHIIg4kAFjCxKQISsBoLg4kCVEDY' +
            'jswymAogaoIEgEWYZEIKZhqwARSNYDTLCtB1ZOy4FuNRAHANBDIxi' +
            'WO2CqwEqgKjB5SmIAiDC5Xe4GlzO4+QLBkYTkMslEIWpBijIzuPJx' +
            'u0KAANyPnw=');
    end;
    function CheckUsedSpaces : TIntegerArray;
    Var a, b : Boolean;
    begin
      Status('Deciding what to do next')
      If(not GEOpen) then
      begin
        Repeat
          OpenGEScreen;
        Until(GEOpen)
      end;
      a := FindBitmapToleranceIn(GEArrow, x, y, 22, 102, 104, 187, 10)
      b := FindBitmapToleranceIn(GEArrow, x, y, 179, 111, 261, 200, 10)
      Result := [ a, b]
    end;
    function ReadPouchMoney : String;
    begin
      Status('Checking how many monies you have ;)')
      Wait(200+Random(500))
      Mouse( 529, 102, 4, 4, False)
      WaitOption('mine', 500);
      Wait(500+Random(200));
      If(WriteLines) then
        WriteLn('1923');
      Result := GetTextAt( 222, 441, 0, 100, 10, 0, 5, 20, 'SmallCharsNS')
      Wait(2000+Random(2000))
    end;
    function ConvertPouchMoney : Integer;
    Var first, Res : String; p : Integer;
    begin
    Status('sorting out a complete mess')
    Mouse( 87, 490, 5, 3, True)
    Repeat
      Repeat
        Text := ReadPouchMoney;
        First := Copy(Text,1,1)
      Until((First = '1') or (First = '2') or (First = '3') or (First = '4') or (First = '5') or (First = '6') or (First = '7') or (First = '8') or (First = '9'))
      i := Pos('co',Text)
    Until(i <> 0)
      Case i of
        2..4 : Res := Copy(Text,1,i-1);
        6 : Res := Copy(Text,1,1)+Copy(Text,3,3);
        7 : Res := Copy(Text,1,2)+Copy(Text,4,3);
        8 : Res := Copy(Text,1,3)+Copy(Text,5,3);
        10 : Res := Copy(Text,1,1)+Copy(Text,3,3)+Copy(Text,7,3);
        11 : Res := Copy(Text,1,2)+Copy(Text,4,3)+Copy(Text,8,3);
        12 : Res := Copy(Text,1,3)+Copy(Text,5,3)+Copy(Text,9,3);
        14 : Res := Copy(Text,1,1)+Copy(Text,3,3)+Copy(Text,7,3)+Copy(Text,11,3);
      end;
      If(WriteLines) then
        WriteLn('Result: '+Res);
      For p := 1 to Length(Res) do
      begin
        If(((Copy(Res,p,1)) = '0') or ((Copy(Res,p,1)) = '1') or ((Copy(Res,p,1)) = '2') or ((Copy(Res,p,1)) = '3') or ((Copy(Res,p,1)) = '4') or ((Copy(Res,p,1)) = '5') or ((Copy(Res,p,1)) = '6') or ((Copy(Res,p,1)) = '7') or ((Copy(Res,p,1)) = '8') or ((Copy(Res,p,1)) = '9')) then
          begin
            If(WriteLines) then
              WriteLn('Digit '+IntToStr(p)+ ' is ok ('+Copy(Res,p,1)+')');
          end else
            begin
              If(WriteLines) then
                begin
                  WriteLn('Digit '+IntToStr(p)+ ' in the number read is not ok ('+Copy(Res,p,1)+')')
                  WriteLn('lets try again')
                end;
              Result := -1
              Exit;
            end;
      end;
      If(Length(Res) = 0) then
        begin
          Result := -1
          Exit;
        end;
      Result := StrToInt(Res);
      If(WriteLines) then
        WriteLn('Money in Pouch of player '+IntToStr(CurrentAccount)+' = '+IntToStr(Result));
      Mouse( 31, 490, 5, 3, True)
    end;

    Procedure PickupItemsGreen;
    begin
    Status('Collecting Your Winnings')
      If(not GEOpen) then
        exit;
      Repeat
      If(FindColorTolerance(x, y, 1999423, 31, 81, 333, 203, 10)) then
      begin
        MMouse(x+Random(100),y+Random(8),0,0)
        Repeat
          ClickMouse2(True)
          Wait(200+Random(100))
        Until(not FindColorTolerance(x, y, 1999423, 31, 81, 333, 203, 10))
        If(WriteLines) then
          WriteLn('292');
        If(FindColorTolerance(x, y, 1875398, 400, 280, 430, 320, 1)) then
          begin
            Inc(TimesCollected);
          end;
        Wait(200+Random(1000))
        If(FindColorTolerance(x, y, 1875398, 453, 283, 485, 315, 1)) then
          begin
            Inc(TimesCollected);
          end;
        Mouse( 417, 296, 8, 8, True);
        Mouse( 464, 298, 8, 8, True);
        Wait(200+Random(1000))
      end;
      Wait(300+Random(1000))
      Until(not FindColorTolerance(x, y, 1999423, 31, 81, 333, 203, 10))
    end;
    Procedure AnotherCheck;
    begin
      Status('hmmmmmmmm... what to do?')
      If(not GEOpen) then
        OpenGEScreen;
      FreeSpots := CheckUsedSpaces;
      If(FreeSpots[1] = 0) then
        begin
          Swapsies(True);
          exit;
        end;
      Mouse( 101, 135, 15, 15, True)
      Wait(500+Random(200));
      If(FindColorTolerance( x, y, 2176579, 416, 296, 418, 298, 3)) then
        begin
          Mouse( 48, 298, 5, 2, True)
          Swapsies(True);
        end else
          begin
            Inc(TimesCollected)
            Mouse( 417, 297, 6, 6, True)
            Wait(500+Random(200));
            Mouse( 465, 300, 6, 6, True)
            Wait(500+Random(200));
            Mouse( 48, 298, 5, 2, True)
          end;

    end;
    function GetText(font:string) : String;
    begin
    Result := GetTextAt( 564, 217, 0, 100, 10, 0, 5, 20, Font)
    //CreateF
    end;
    function CheckSell : integer;
    begin
      Status('I wish I was better at Decision making')
      Result := 0;
      GameTab(tab_inv);
      for j := 1 to 28 do
        begin
        if (ExistsItem(j)) then
          Result := j;
        end;
    end;
    Procedure Sell;
    begin
      CheckedYellows := False;
      Status('Sell...Sell...Sell..')
      i := CheckSell
      If(WriteLines) then
        begin
          case i of
            1..28 : WriteLn('There is an item in inventory space '+IntToStr(i)+' - lets sell it!');
            0 : WriteLn('Nothing in inventory to sell');
          end;
        end;
      Case i of
        0 : AnotherCheck;
        1..28 : begin
                 If(WriteLines) then
                   WriteLn('Lets sell the '+IntToStr(GetAmount(ItemCoords(i).x,ItemCoords(i).y))+' '+ItemsToMerch[CurrentAccount]+'s that we have');
                 stats_IncVariable('Items Merched', GetAmount(ItemCoords(i).x,ItemCoords(i).y));
                 Mouse( 290, 151, 8, 8, True)
                 Wait(500+Random(5000))
                 InvMouse( i, 1)
                 Mouse( 197, 220, 5, 3, True)
                 Wait(500+Random(2000))
                 Mouse( 388, 221, 8, 8, True)
                 Wait(1000+Random(2000))
                 TypeSend(PriceToSell[CurrentAccount])
                 Wait(1000+Random(2000))
                 Mouse( 263, 294, 15, 8, True)
                 Wait(500+Random(2000))
               end;
      end;
    end;
    Procedure Buy;
    begin
      Status('Buy..Buy..Buy..')
      CheckedYellows := False;
      If(FindColorTolerance(x, y, 101318, 181, 80, 333, 203, 10)) then
      begin
        Wait(500+Random(200))
        Mouse(257, 133, 30, 30, True)
        Wait(500+Random(200))
        Mouse(418, 298, 15, 15, True)
        Wait(100+Random(50))
        Mouse(469, 299, 15, 15, True)
        Wait(500+Random(200))
        If(FindBitmapToleranceIn(GEArrowLeft, x, y, 0, 264, 128, 366, 10)) then
        Mouse(48, 298, 10, 3, True);
        Wait(1000+Random(200))
      end;
      Repeat
        Money := ConvertPouchMoney;
      Until(Money <> -1)
      NumberToBuy := Floor(Money /StrToInt(PriceToBuy[CurrentAccount]))

      stats_IncVariable('Items Merched', NumberToBuy);
      stats_IncVariable('Profit Made',NumberToBuy*(StrToInt(PriceToSell[CurrentAccount])-StrToInt(PriceToBuy[CurrentAccount])));
      ItemsMerched := ItemsMerched + NumberToBuy;
      Profit := Profit + NumberToBuy*(StrToInt(PriceToSell[CurrentAccount])-StrToInt(PriceToBuy[CurrentAccount]))
      If(WriteLines) then
        WriteLn('We have enough money to buy '+IntToStr(NumberToBuy)+' '+ItemsToMerch[CurrentAccount]+'s.');

      If(NumberToBuy = 0) then
        begin
          If(WriteLines) then
            WriteLn('Not enough money to buy any... lets sell!');
          FreeSpots := CheckUsedSpaces;
          If(FreeSpots[1] = 1) then
          begin
            Sell;
            Exit;
          end else
            begin
              AnotherCheck;
              Exit;
            end;

        end;

      If(not GEOpen) then
      OpenGEScreen;

      Mouse( 72, 152, 15, 15, True);//Fail Safes
      Wait(200+Random(500));
      Mouse( 80, 464, 40, 3, True);
      Wait(1000+Random(400));
      TypeSend(ItemsToMerch[CurrentAccount]);
      Wait(1000+Random(200));
      Mouse( 105, 350, 40, 3, True);
      Wait(200+Random(500));
      Mouse( 238, 221, 7, 7, True);
      Wait(1000+Random(400));
      TypeSend(IntToStr(NumberToBuy));
      Wait(1000+Random(500));
      Mouse( 388, 222, 7, 7, True);
      Wait(1000+Random(400));
      TypeSend(PriceToBuy[CurrentAccount]);
      Wait(1000+Random(4000));
      Mouse( 260, 294, 30, 7, True);
      Wait(2000);

      PickupItemsGreen;

    end;
    Procedure ResetCurrentAccount;
    begin
      If((not ResetAccounts) or (Reset[CurrentAccount])) then
        exit;

      Status('Clearing Everything on Account '+IntToStr(CurrentAccount));
      If(WriteLines) then
        WriteLn('Lets Clear Everything on Account '+IntToStr(CurrentAccount));

      FreeSpots := CheckUsedSpaces;

      for i := 0 to 1 do
      begin
        If(FreeSpots[i] = 0) then
        begin
          If(WriteLines) then
            WriteLn('Clearing everything in the '+IntToStr(i)+' position');
          Repeat
            case i of
              0 : Mouse(104,138,60,47,True);
              1 : Mouse(259,138,61,46,True);
            end;
          Wait(500+Random(200));
          Until(FindBitmapToleranceIn(CancelButton, x, y, 331, 261, 400, 317, 3))

          Repeat
            Mouse(x+1+Random(7),y+1+Random(7),0,0,True);
            Wait(400+Random(400));
          Until(not FindBitmapToleranceIn(CancelButton, x, y, 331, 261, 400, 317, 3))

          Wait(500+Random(2000));

          Repeat
            Mouse(418,298,10,10,True)
            Wait(200+Random(200));
          Until(not FindColorTolerance( x, y, 1048714, 68, 299, 377, 321, 2))
        end;
      end;
      Reset[CurrentAccount] := True;
    end;
    Procedure CheckRandoms;
    begin
    Status('You so random')
    FindNormalRandoms;
    If Not(LoggedIn) Then
      begin
        If(WriteLines) then
          WriteLn('I think we failed a random - I will just Check');
        LoginPlayer;
        FindNormalRandoms;
        If Not(LoggedIn) Then
          begin
            If(WriteLines) then
              WriteLn('Client has Logged Out So Probably Failed a Random - Terminating Script');
            TerminateScript;
          end
      end;
    end;
    Procedure PickupItemsYellow;
    begin
      If(CheckedYellows) then
        Exit;
    Status('Collecting Your Winnings - Yellow')
      If(not GEOpen) then
        exit;

      If(FindColorTolerance(x, y, 101318, 34, 153, 175, 202, 10)) then
      begin
        MMouse(x+Random(100),y+Random(8),0,0)
        Inc(TimesCollected)
        Repeat
          ClickMouse2(True)
          Wait(200+Random(100))
        Until(not FindColorTolerance(x, y, 101318, 34, 153, 175, 202, 10))
        If(not FindColorTolerance(x, y, 1979458, 417, 297, 419, 299, 10)) then
          Mouse(418, 298, 15, 15, True);
        Wait(200+Random(1000));
        If(not FindColorTolerance(x, y, 1979458, 466, 297, 468, 299, 10)) then
          Mouse(467, 298, 15, 15, True);
        Wait(200)
        If(FindBitmapToleranceIn(GEArrowLeft, x, y, 0, 264, 128, 366, 10)) then
          Mouse(48, 298, 10, 3, True);
      end;
      Wait(300+Random(400))

      If(FindColorTolerance(x, y, 101318, 185, 159, 332, 197, 10)) then
      begin
        Inc(TimesCollected)
        MMouse(x+Random(100),y+Random(8),0,0)
        Repeat
          ClickMouse2(True)
          Wait(200+Random(100))
        Until(not FindColorTolerance(x, y, 101318, 34, 153, 175, 202, 10))
        If(not FindColorTolerance(x, y, 1979458, 417, 297, 419, 299, 10)) then
          Mouse(418, 298, 15, 15, True);
        Wait(200+Random(1000));
        If(not FindColorTolerance(x, y, 1979458, 466, 297, 468, 299, 10)) then
          Mouse(467, 298, 15, 15, True);
        Wait(200)
        If(FindBitmapToleranceIn(GEArrowLeft, x, y, 0, 264, 128, 366, 10)) then
          Mouse(48, 298, 10, 3, True);
      end;
      Wait(300+Random(400))

      CheckedYellows := True;

    end;
    Procedure Proggy;
    begin
      WriteLn('[-----------------------------------------------]')
      WriteLn('['+PadR(PadL('',32),47)+']')
      WriteLn('['+PadR(PadL('     Putonajonnys Merchanting Script',32),47)+']')
      WriteLn('['+PadR(PadL('           Version: '+IntToStr(Version),32),47)+']')
      WriteLn('[-----------------------------------------------]')
      WriteLn('['+PadR(' Time Running: '+TimeRunning,47)+']')
      WriteLn('['+PadR(' Items Merched: '+IntToStr(ItemsMerched),47)+']')
      WriteLn('['+PadR(' Times Collected: '+IntToStr(TimesCollected),47)+']')
      WriteLn('['+PadR(' Profit: '+IntToStr(Profit),47)+']')
      WriteLn('[-----------------------------------------------]')
      WriteLn('['+PadR(' Active Accounts:',47)+']')
      for i := 0 to High(ItemsToMerch) do
      begin
        WriteLn('['+PadR('   Account '+IntToStr(i)+' ('+Players[i].Name+') : '+BoolToStr(Players[i].Active),47)+']')
      end;
      WriteLn('[-----------------------------------------------]')
    end;

    Procedure EndScript;
    begin
      Status('Goodbye... I will miss you :(')
      WriteLn('Goodbye...')
      PlaySound(AlertSoundPath);
      FreeBitmap(3)
      FreeBitmap(4)
      FreeBitmap(5)
      FreeBitmap(6)
    end;
    Procedure UpdateScript;
    Var NewScript : String; Suc : Boolean;
    begin
      If(FileExists('C:\Simba\Scripts\Merchenting v'+Ver+'.simba')) then
        begin
          ClearDebug;
          WriteLn('You are trying to run an older version of this script even though you have the newer version')
          WriteLn('It is stored at "C:\Simba\Scripts\Merchenting v'+Ver+'.simba"')
          TerminateScript;
        end;

      If(Not DirectoryExists('C:\Simba\Scripts')) then
        CreateDirectory('C:\Simba\Scripts');
          NewScript := GetPage('http://pastehtml.com/view/bimye4g26.txt')
          If ((CreateFile('C:\Simba\Scripts\Merchenting v'+Ver+'.simba') = -1) or (not WriteFileString(0, NewScript))) then
            Suc := False
          else
            Suc := True;
          WriteLn(FileSize(0));
          CloseFile(0);

      If((FileExists('C:\Simba\Scripts\Merchenting v'+Ver+'.simba')) and Suc) then
        begin
          ClearDebug;
          WriteLn('There is a new version of the script, updating...')
          Wait(500+Random(4000));
          WriteLn('Updated The Script, new version stored at "C:\Simba\Scripts\Merchenting v'+Ver+'.simba"')
          TerminateScript;
        end else
        begin
          ClearDebug;
          WriteLn('Sorry I was not able to auto update this script, you can update it manually')
          WriteLn('Opening the web page for you to update')
          OpenWebPage('http://pastehtml.com/view/biaj2biir.html');
          TerminateScript;
        end;
    end;
    Procedure CheckVersion;
    Begin
      If(WriteLines) then
        WriteLn('Checking if you have the most up to date version');
      Ver := GetPage('http://pastehtml.com/view/biaj1s82r.txt');
      If(Ver = '') then
        begin
          WriteLn('There was an error connecting to the Update Server so I will assume that you have the most up to date Version')
          Exit;
        end;
      If IntToStr(Version) = Ver then
        begin
          If(WriteLines) then
            WriteLn('You are using the most up to date version -Thank you');
        end
    end;

    begin

      CheckVersion;

      Smart_Server := 11;
      Smart_Members := False;
      Smart_Signed := False;
      Smart_SuperDetail := False;
      SetupSRL;

      SetupSRLStats(385, SRLStats_Username, SRLStats_Password);

      AddOnTerminate('EndScript');

      CurrentAccount := 0;
      ItemsMerched := 0;
      TimesCollected := 0;
      SetArrayLength(Reset,GetArrayLength(ItemsToMerch));

      DeclarePlayers;

      If(not ErrorChecks) then
        TerminateScript;

      Declares;

      SetArrayLength(Reset,GetArrayLength(ItemsToMerch));

    (*  If(LoggedIn) then
        Logout;


      LoginPlayer; *)

      Wait(4000+Random(1000))

      If(ClearDebugs) then
      ClearDebug;

      CheckVersion;

      If(not ErrorChecks) then
        TerminateScript;

      Repeat
        Stats_Commit;
        CheckRandoms;
        Repeat
          OpenGEScreen;
        Until(GEOpen);
        PickupItemsGreen;
        PickupItemsYellow;
        ResetCurrentAccount;
        FreeSpots := CheckUsedSpaces;
        If(WriteLines) then
          WriteLn(FreeSpots);
        CurrentStatus := 'Swapping Accounts'
        If(FreeSpots[0] = 1) then
          CurrentStatus := 'buying'
        else
          begin
            If(FreeSpots[1] = 1) then
              CurrentStatus := 'selling';
          end;
        If(WriteLines) then
          WriteLn(CurrentStatus);

        Case CurrentStatus of
        'Swapping Accounts' : AnotherCheck;
        'buying' : buy;
        'selling' : Sell;
        end;
      If(not GEOpen) then
        OpenGEScreen;
      Proggy;
      Until(False)
    end.
    Last edited by Rouids; 06-10-2012 at 02:18 PM.

  18. #68
    Join Date
    Jan 2012
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Alright so i guess my question is for this, does the script pick the items for you? or do u have to pick them? :c

  19. #69
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by element82196 View Post
    Alright so i guess my question is for this, does the script pick the items for you? or do u have to pick them? :c
    No, you have to pick the items

  20. #70
    Join Date
    May 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    help plz

    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''

  21. #71
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by bylord View Post
    help plz

    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''
    Please look at some of the other posts...

  22. #72
    Join Date
    Jan 2012
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    seems like a nice script might try it out soon

  23. #73
    Join Date
    Feb 2012
    Location
    Wilkesboro, NC
    Posts
    146
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] C:\Simba\Includes\SRL/SRL/Misc/Smart.simba(53:19): Invalid number of parameters at line 52
    Compiling failed.

    o.o Using v4

    any help?
    ☆Haterz Make Me Famouz☆

  24. #74
    Join Date
    May 2012
    Location
    Somewhere in, PA
    Posts
    1,810
    Mentioned
    9 Post(s)
    Quoted
    226 Post(s)

    Default

    Does this even support the new G.E. ?
    My First Build!, Selling Downloadable Games
    -------------------------------------

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
  •