Results 1 to 21 of 21

Thread: Eye of Newt Buyer

  1. #1
    Join Date
    Mar 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Eye of Newt Buyer

    This is my 4th SRL script.

    NOTE: thx town for telling me bout BankScreen

    Start in falador logged in or out doesn't matter. Fill out the 2 colors and the player nick and stuff. Then hit run.

    NOTE: This is my first time trying to indent. Can any one who knows tell me if i indented wrong. Thanks.

    SCAR Code:
    program New;
    {.include SRL\SRL.scar}


    //  Thanks to Nielsie95 for helping me get the road colors =D

    Const
    GPColor = 2149883; //The color of the coins in your bank
    BankSymbolColor = 5691881; // The color of the bank symbol on the MiniMap(this is a failsafe)

    Var mage, Bankx, Banky, Eyes, Loads, Gp :integer;
    Var Lost :Boolean;

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 3;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: zima
      Players[0].Active := True;
      Players[0].Integer1 := 100; //Amount of loads
      Players[0].String1 := 'Mining'; //What skill to pick for lamp

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := ''; //3 - 4 letters of YOUR username, example: zima
      Players[1].Active := True;
      Players[1].Integer1 := 100; //Amount of loads
      Players[1].String1 := 'Mining'; //What skill to pick for lamp

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := ''; //3 - 4 letters of YOUR username, example: zima
      Players[2].Active := True;
      Players[2].Integer1 := 100; //Amount of loads
      Players[2].String1 := 'Mining'; //What skill to pick for lamp
    end;

    Procedure LoadBmps;
    begin

      mage := BitmapFromString(38, 15, 'z78DAD5964B0A80300C44AF54' +
           '4D11DD6BEF7F244137959861623FD42EB28821CC6B3E35AE7288A' +
           '4B4AD53BA6DBC3CDA3E62B618240E610DB5587FB80E15330E29C1' +
           '9BEBD7D5D45F076584BC9A02DB9E8C1F6784E843C66329615479E' +
           '343761C798879CC335B8CDAAFE32D55DE7826CFCB6D54DA397C6F' +
           'B7F65B7D5BC2C8D4E5C78C4EF6FF32329BB9456F3B7657A6F331A' +
           'DC64B8A63023C785B62163E8FB5732ADBE277B0F2FBDB8251F312' +
           'FFBD9D1817D9656E4E0DE717F764850ADE8C1D49F9C92DE9C613C' +
           'E97D9EB');

    end;

    Procedure AntiRandoms;
    begin
      FindNormalRandoms;
      FindLamp(Players[CurrentPlayer].String1);
    end;


    Procedure StartBank;
    begin
      Bankx := 105 + random(5);
      Banky := 175 + random(5);
      repeat
        MMouse(Bankx, Banky, 5, 5);
        Banky := Banky + 10;
        Wait(100);
        If (Banky > 363) then
        begin
          Bankx := Bankx + 50;
          Banky := 175;
        end;
      Until(IsUpText('Bank booth') = True);
      Mouse(Bankx, Banky, 1, 1, False);
      Wait(1000+Random(500));
      ClickOption('Use-quickly', 1);
      repeat
        Wait(500);
      until(BankScreen);
      FindColorTolerance(x, y, GPColor, 69, 63, 465, 294, 10);
      Mouse(x, y, 1, 1, False);
      wait(100+random(100));
      ClickOption('Withdraw X', 1);
      wait(1000+random(200));
      TypeSend('1000');
      Wait(200+random(500));
      CloseBank;
    end;

    Procedure Walk2Shop;
    begin
      PerfectNorth;
      Setrun(True);
      If(Not(RadialRoadWalk(FindFallyRoadColor, 270, 180, 50, 1, 1)))then
      begin
        Mouse(MMCX-20, MMCY+40, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(FindFallyRoadColor, 200, 160, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY+50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(FindFallyRoadColor, 200, 160, 50, 1, 1)))then
      begin
        Mouse(MMCX+10, MMCY+50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      FindRoadColor;
      If(Not(RadialRoadWalk(RoadColor, 90, 200, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY+50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 120, 200, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY+50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 120, 200, 50, 1, 1))) then
      begin
        Mouse(MMCX+20, MMCY+50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 120, 200, 50, 1, 1))) then
      begin
        Mouse(MMCX+20, MMCY+50, 5, 5, True);
        Flag;
        FindSymbol(x, y, 'magic shop');
        Mouse(x, y, 1, 1, True);
        Flag;
        repeat
          FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
          MMouse(x, y, 1, 1);
          Wait(100+random(100));
        until(IsUpText('Betty') = True);
        Mouse(x, y, 1, 1, False);
        Wait(100+random(200));
        ClickOption('Trade', 1);
        repeat
          Wait(500);
          x := x + 1;
          If(x = 20) then
          begin
            repeat
              FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
              MMouse(x, y, 1, 1);
              Wait(100+random(100));
            until(IsUpText('Betty') = True);
            Mouse(x, y, 1, 1, False);
            Wait(100+random(200));
            ClickOption('Trade', 1);
          end;
        until(FindBitmap(mage, x, y) = True);
        exit;
      end;
      AntiRandoms;
      Flag;
      RadialRoadWalk(RoadColor, 90, 180, 50, 1, 1);
      Flag;
      AntiRandoms;
      RadialRoadWalk(RoadColor, 220, 180, 50, 1, 1);
      Flag;
      AntiRandoms;
      RadialRoadWalk(RoadColor, 270, 180, 50, 1, 1);
      Flag;
      AntiRandoms;
      FindSymbol(x, y, 'magic shop');
      Mouse(x, y, 1, 1, True);
      Flag;
      repeat
        FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
        MMouse(x, y, 1, 1);
        Wait(100+random(100));
      until(IsUpText('Betty') = True);
      Mouse(x, y, 1, 1, False);
      Wait(100+random(200));
      ClickOption('Trade', 1);
      repeat
        Wait(500);
        x := x + 1;
        If(x = 20) then
        begin
          repeat
            FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
            MMouse(x, y, 1, 1);
            Wait(100+random(100));
          until(IsUpText('Betty') = True);
          Mouse(x, y, 1, 1, False);
          Wait(100+random(200));
          ClickOption('Trade', 1);
        end;
      until(FindBitmap(mage, x, y) = True);
    end;

    Procedure Buy;
    begin
      FindColorTolerance(x, y, 11737620, 0, 0, 515, 334, 10);
      Mouse(x, y, 1, 1, False);
      ClickOption('Buy 10', 1);
      Wait(100+random(200));
      Mouse(x, y, 1, 1, False);
      ClickOption('Buy 10', 1);
      Wait(100+random(200));
      Mouse(x, y, 1, 1, False);
      ClickOption('Buy 10', 1);
      Wait(100+random(200));
      Mouse(485, 40, 1, 1, True);
    end;

    Procedure Walk2Bank;
    begin
      FindRoadColor;
      If(Not(RadialRoadWalk(RoadColor, 0, 90, 50, 1, 1)))then
      begin
        Mouse(MMCX+30, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1)))then
      begin
        Mouse(MMCX-40, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 270, 390, 50, 1, 1)))then
      begin
        Mouse(MMCX-50, MMCY, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1);
      Flag;
      AntiRandoms;
      RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1  );
      Flag;
      AntiRandoms;
      If(Not(RadialRoadWalk(FindFallyRoadColor, 330, 370, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(FindFallyRoadColor, 330, 370, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(RadialRoadWalk(FindFallyRoadColor, 330, 370, 50, 1, 1)))then
      begin
        Mouse(MMCX, MMCY-50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      If(Not(FindSymbol(x, y, 'bank')))then
      begin
        If(Not(FindColorTolerance(x, y, 5691881, MMX1, MMY1, MMX2, MMY2, 10)))then
        begin
          Lost := True;
          Exit;
        end;
      end;
      Mouse(x, y, 1, 1, True);
      Flag;
    end;

    Procedure EndBank;
    begin
      Bankx := 105 + random(5);
      Banky := 175 + random(5);
      repeat
        MMouse(Bankx, Banky, 5, 5);
        Banky := Banky + 10;
        Wait(100);
        If (Banky > 363) then
        begin
          Bankx := Bankx + 50;
          Banky := 175;
        end;
      Until(IsUpText('Bank booth') = True);
      Mouse(Bankx, Banky, 1, 1, False);
      Wait(1000+Random(500));
      ClickOption('Use-quickly', 1);
      repeat
        Wait(500);
      Until(BankScreen);
      FindColorTolerance(x, y, 11737620, 559, 209, 625, 230, 10);
      Mouse(x, y, 5, 5, False);
      PopUp('Store All');
      Wait(200+random(500));
      FindColorTolerance(x, y, GPColor, 559, 209, 625, 230, 10);
      Mouse(x, y, 5, 5, False);
      PopUp('Store All');
      Wait(200+random(500));
      CloseBank;
    end;

    Procedure ProggyReport;
    begin
         Eyes := Loads * 28;
         Gp := Eyes * 3;
         Writeln('----------Crapkillers Eye of Newt Buyer----------');
         Writeln('Worked for ' + TimeRunning);
         Writeln('Bought ' + IntToStr(Loads) + ' Loads of Eyes');
         Writeln('Bought About ' + IntToStr(Eyes) + ' Eye of Newts');
         Writeln('Spent about ' + IntToStr(Gp) + ' Coins');
         Writeln('-------------------------------------------------');
         SRLRandomsReport;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      LoginPlayer;
      Lost := False;
      ActivateClient;
      Wait(3000);
      PerfectNorth;
      LoadBmps;
      repeat
        repeat
          PerfectNorth;
          AntiRandoms;
          StartBank;
          Walk2Shop;
          If(Lost = True) then Break;
          Buy;
          Walk2Bank;
          If(Lost = True) then Break;
          EndBank;
          Loads := Loads + 1;
          ProggyReport;
        until(Loads = Players[CurrentPlayer].Integer1);
        If(Lost = True) then
        begin
          Writeln(Players[CurrentPlayer].Name + ' is lost, switching to next player...');
          NextPlayer(False);
        end;
        If(Lost = False) then
        begin
          Writeln(Players[CurrentPlayer].Name + ' has finished his/her loads, switching players...');
          If(Players[CurrentPlayer].Active = True) then NextPlayer(True);
          If(Players[CurrentPlayer].Active = False) then NextPlayer(False);
        end;
      until(False);
    end.

    Please rate out of 10? (Please keep in mind this is only my 4th SRL script.)(second to even partially work lol)


    EDIT:I changed the indenting, Is it right this time? And i also made the bitmaps smaller

  2. #2
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    Well I just kinda browsed over it, didn't really look that good. One thing that stuck out is your bitmaps are kinda big. And if your not sure, go check out the archived thread at kaitnieks. Anyways, here are the correct standards.

    SCAR Code:
    program New;
    {.include SRL\SRL.scar}


    //  Thanks to Nielsie95 for helping me get the road colors =D

    const
      GPColor = 2149883; //The color of the coins in your bank
      BankSymbolColor = 5691881; // The color of the bank symbol on the MiniMap(this is a failsafe)

    var mage, Bankx, Banky, bankofrs, Eyes, Loads, Gp: integer;
    var Lost: Boolean;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 3;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := ''; //3 - 4 letters of YOUR username, example: zima
      Players[0].Active := True;
      Players[0].Integer1 := 100; //Amount of loads
      Players[0].String1 := 'Mining'; //What skill to pick for lamp

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := ''; //3 - 4 letters of YOUR username, example: zima
      Players[1].Active := True;
      Players[1].Integer1 := 100; //Amount of loads
      Players[1].String1 := 'Mining'; //What skill to pick for lamp

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := ''; //3 - 4 letters of YOUR username, example: zima
      Players[2].Active := True;
      Players[2].Integer1 := 100; //Amount of loads
      Players[2].String1 := 'Mining'; //What skill to pick for lamp

    end;

    procedure LoadBmps;
    begin

      mage := BitmapFromString(159, 19, 'z78DAED9B4D72C2300C85AF4' +
        '49B4C07F694FB1FA933D0058C23E59365D972208B2C52D7C87AEF' +
        '593F71D6F3F2BB2C6BDCFDB29E9675F0BDB4EA67B92EDFE23DDA2' +
        '7FD3DD367451F3EF4F4CC5191BAFFFAED76397FDD1EF714186563' +
        'ECFB2857B2675E3EBC8D724FF76B185219624D06FDCE1267F3F3A' +
        '160787977ED4E09308A53EE8697F43187D0AFCE16DD1BD344DB38' +
        'E506C7A6C7F5828543B984BD0D182E70EC6161B472FFE72763F2E' +
        '8B74AC5125BCA2B69754F343BAD720DD926B090B01731BCCA5748' +
        'B36EE596B1A6FC6B52E51A3DBCC38A9ED1B64E3BEFA9DC2A0B072' +
        '897A3D354B9FABDA7722B73984699463AE556F101E5FF432B7DC2' +
        'B71223B1C6C1F37BC688B564152E864A4DE53079625DB567FC0B7' +
        '67C9EAAFDCA5517D7AD97DB86D12FF7F092FF88874DFD40FC23D6' +
        'B9A0D2218ADBA8861C63EA7AC8AE4A0D441FC92764BD561FA25D0' +
        'E6341B21D8294F45BFA93704EAACAAD5328C9513D7EB02AD7AC14' +
        'EB3CD66CD95F8FF35DB763878A67D7D1CF5D6C11F2404F4ED2809' +
        '3C22EADEFDE6D15DA2A376BA05C6B761DAD5C151D52D592FD3C42' +
        'B924464CA35C3C32B37239BEC7502EC9B85A2997D40B9EB73FD6D' +
        'E4B63F4BB28F4A3DCA32A97C450F25FE4570C638A3EE14E9C72F4' +
        'A6FC752E1F63ED45FBB3EBBA4E17B7E1799E56CADDC108205B8E8' +
        'FC34EAF973D7E207D48D4B520FF55F4C3C9CCE23CB8E344A2AD79' +
        'BDEAFB625DE9FA18AB2524BBD67BCB3A7644BF27706DD8507A43B' +
        '013E57502CA7CBCCED51D1FAAD8110E10CF101CBBBE6BAB9BC7A3' +
        'DC566FD6929D659DE6A48771EDE2BAFC6FED0FCD870DAB2256547' +
        '59AF1B9C34F32A8C9BED178B6109C7FEEAADC8E7C403D87B19A1D' +
        'CA879727BA25712B32465B5EF56C2015770EB60B82D65E846BA54' +
        '3F9B0A3DC56D176723EA4F8F2D7784A1C553D01DF55EDD8D6050B' +
        '4F7DDA2C5E74E18358398ED56C323EA450AEE76BCAB813EFD6D3B' +
        '0B37CE5FAE1C3B47CF803664A111E');

      bankofrs := BitmapFromString(156, 18, 'z78DAED9B4D72C3200C8' +
        '5AFE4D69E4EB26F7DFF237526D990A112EFE90FD271165E10EC08' +
        'E97D028173DC8F6D3F8EE7F5B6FFEC3B7DFDDABFF74FF12ADDD5F' +
        'E6EF6D56639320ACFB5D203B17EBBF4B08C1ECEF37EFB38F5EBF3' +
        'F92F2D8511416C73298A8C0BFDEB0B9038F0A18DD949841A35F0E' +
        'E79FB71EFF6F8B463DFBA4FFF6D8D3E25AB0691C263E1E0B4D20F' +
        'E93EF4CCAD25F9AA1F05416B9A1E4AFD002890D067B2C606F6244' +
        '784E6347B36B1F9506D5F9FD0D6F37DCBA28406F9C4C869F95C20' +
        'DA531291599C0E6693584E3D356C891220ABD6243483535B8D03D' +
        'C15555BBDE4D2C6DBE2EF761161EB5FD7EACBE119293A2F1E3031' +
        'DE3F41B2471A69A536206FE31AD07B02B9DAD5BF84533DAB13359' +
        '1BFB6127C3EE82FF850A70FCA18E48C8C788698FB602224C6D9F9' +
        'B75E1B221DAA06FAACCEEE7EA4F44FE374B0BF14B5D672AC7B915' +
        '918F7A4D49F2554B49CA4206A4D22F9DF1FD3746DA867106C4DE4' +
        '514B587B1AA73675E9991CB24A8D8587BBC1B84C6B1E3FA783BD9' +
        '484DA368AAF446DA8B91AE734402D703B94E1A7722AAE3D6C5691' +
        '9C8AED6E4EE9FA3494537F06C6D7A561EDEA1A065987EB4FF0731' +
        'AA50A62A4E4FE522CA79E1D86BC7DA41AEDB1B47A6AC6947319B2' +
        'AA657D65D3061E7D681F09B6C4B812C0476ADA07D6499754F4477' +
        'B73EFA67E90B380C113846C89FF2E3B2EC94B6CAD3AB00D98858D' +
        '9105DAFB6FF19E90A2586D08FDF5DA139FC5104BE8F9111F29C26' +
        '9DB27EAC4C77F96E43F0BEB4FC4F2DE174D3E71F3734A8FF4D203' +
        'F98E41801EFCEF9964BFDD1DF5EE7406A1B86D258486717AE9218' +
        'F539B1EDE252ED2BDFEF7492AFF7991406B30A1971E3238F5EBA1' +
        '322EB1CF5FE1BF54364EF3287E2F4EFF9D1EC46AD4AF079BC7DAA' +
        '7CD8A0B9251B3555DC9E90AE3BAF4304B0FFE7F17CECDD273679F' +
        'A8FA488A8E8DE84A4E2F3D94E8E117491104CD');

    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      FindLamp(Players[CurrentPlayer].String1);
    end;


    procedure StartBank;
    begin
      Bankx := 105 + random(5);
      Banky := 175 + random(5);
      repeat
        MMouse(Bankx, Banky, 5, 5);
        Banky := Banky + 10;
        Wait(100);
        if (Banky > 363) then
        begin
          Bankx := Bankx + 50;
          Banky := 175;
        end;
      until (IsUpText('Bank booth') = True);
      Mouse(Bankx, Banky, 1, 1, False);
      Wait(1000 + Random(500));
      ClickOption('Use-quickly', 1);
      repeat
        Wait(500);
      until (FindBitmap(bankofrs, x, y));
      FindColorTolerance(x, y, GPColor, 69, 63, 465, 294, 10);
      Mouse(x, y, 1, 1, False);
      wait(100 + random(100));
      ClickOption('Withdraw X', 1);
      wait(1000 + random(200));
      TypeSend('1000');
      Wait(200 + random(500));
      CloseBank;
    end;

    procedure Walk2Shop;
    begin
      PerfectNorth;
      Setrun(True);
      if (not (RadialRoadWalk(FindFallyRoadColor, 270, 180, 50, 1, 1))) then
      begin
        Mouse(MMCX - 20, MMCY + 40, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(FindFallyRoadColor, 200, 160, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY + 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(FindFallyRoadColor, 200, 160, 50, 1, 1))) then
      begin
        Mouse(MMCX + 10, MMCY + 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      FindRoadColor;
      if (not (RadialRoadWalk(RoadColor, 90, 200, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY + 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 120, 200, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY + 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 120, 200, 50, 1, 1))) then
      begin
        Mouse(MMCX + 20, MMCY + 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 120, 200, 50, 1, 1))) then
      begin
        Mouse(MMCX + 20, MMCY + 50, 5, 5, True);
        Flag;
        FindSymbol(x, y, 'magic shop');
        Mouse(x, y, 1, 1, True);
        Flag;
        repeat
          FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
          MMouse(x, y, 1, 1);
          Wait(100 + random(100));
        until (IsUpText('Betty') = True);
        Mouse(x, y, 1, 1, False);
        Wait(100 + random(200));
        ClickOption('Trade', 1);
        repeat
          Wait(500);
          x := x + 1;
          if (x = 20) then
          begin
            repeat
              FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
              MMouse(x, y, 1, 1);
              Wait(100 + random(100));
            until (IsUpText('Betty') = True);
            Mouse(x, y, 1, 1, False);
            Wait(100 + random(200));
            ClickOption('Trade', 1);
          end;
        until (FindBitmap(mage, x, y) = True);
        exit;
      end;
      AntiRandoms;
      Flag;
      RadialRoadWalk(RoadColor, 90, 180, 50, 1, 1);
      Flag;
      AntiRandoms;
      RadialRoadWalk(RoadColor, 220, 180, 50, 1, 1);
      Flag;
      AntiRandoms;
      RadialRoadWalk(RoadColor, 270, 180, 50, 1, 1);
      Flag;
      AntiRandoms;
      FindSymbol(x, y, 'magic shop');
      Mouse(x, y, 1, 1, True);
      Flag;
      repeat
        FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
        MMouse(x, y, 1, 1);
        Wait(100 + random(100));
      until (IsUpText('Betty') = True);
      Mouse(x, y, 1, 1, False);
      Wait(100 + random(200));
      ClickOption('Trade', 1);
      repeat
        Wait(500);
        x := x + 1;
        if (x = 20) then
        begin
          repeat
            FindColorTolerance(x, y, 3801403, 0, 0, 492, 324, 5);
            MMouse(x, y, 1, 1);
            Wait(100 + random(100));
          until (IsUpText('Betty') = True);
          Mouse(x, y, 1, 1, False);
          Wait(100 + random(200));
          ClickOption('Trade', 1);
        end;
      until (FindBitmap(mage, x, y) = True);
    end;

    procedure Buy;
    begin
      FindColorTolerance(x, y, 11737620, 0, 0, 515, 334, 10);
      Mouse(x, y, 1, 1, False);
      ClickOption('Buy 10', 1);
      Wait(100 + random(200));
      Mouse(x, y, 1, 1, False);
      ClickOption('Buy 10', 1);
      Wait(100 + random(200));
      Mouse(x, y, 1, 1, False);
      ClickOption('Buy 10', 1);
      Wait(100 + random(200));
      Mouse(485, 40, 1, 1, True);
    end;

    procedure Walk2Bank;
    begin
      FindRoadColor;
      if (not (RadialRoadWalk(RoadColor, 0, 90, 50, 1, 1))) then
      begin
        Mouse(MMCX + 30, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1))) then
      begin
        Mouse(MMCX - 40, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 270, 390, 50, 1, 1))) then
      begin
        Mouse(MMCX - 50, MMCY, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1);
      Flag;
      AntiRandoms;
      RadialRoadWalk(RoadColor, 300, 390, 50, 1, 1);
      Flag;
      AntiRandoms;
      if (not (RadialRoadWalk(FindFallyRoadColor, 330, 370, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(FindFallyRoadColor, 330, 370, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (RadialRoadWalk(FindFallyRoadColor, 330, 370, 50, 1, 1))) then
      begin
        Mouse(MMCX, MMCY - 50, 5, 5, True);
        Flag;
      end;
      AntiRandoms;
      Flag;
      if (not (FindSymbol(x, y, 'bank'))) then
      begin
        if (not (FindColorTolerance(x, y, 5691881, MMX1, MMY1, MMX2, MMY2, 10))) then
        begin
          Lost := True;
          Exit;
        end;
      end;
      Mouse(x, y, 1, 1, True);
      Flag;
    end;

    procedure EndBank;
    begin
      Bankx := 105 + random(5);
      Banky := 175 + random(5);
      repeat
        MMouse(Bankx, Banky, 5, 5);
        Banky := Banky + 10;
        Wait(100);
        if (Banky > 363) then
        begin
          Bankx := Bankx + 50;
          Banky := 175;
        end;
      until (IsUpText('Bank booth') = True);
      Mouse(Bankx, Banky, 1, 1, False);
      Wait(1000 + Random(500));
      ClickOption('Use-quickly', 1);
      repeat
        Wait(500);
      until (FindBitmap(bankofrs, x, y));
      FindColorTolerance(x, y, 11737620, 559, 209, 625, 230, 10);
      Mouse(x, y, 5, 5, False);
      PopUp('Store All');
      Wait(200 + random(500));
      FindColorTolerance(x, y, GPColor, 559, 209, 625, 230, 10);
      Mouse(x, y, 5, 5, False);
      PopUp('Store All');
      Wait(200 + random(500));
      CloseBank;
    end;

    procedure ProggyReport;
    begin
      Eyes := Loads * 28;
      Gp := Eyes * 3;
      Writeln('----------Crapkillers Eye of Newt Buyer----------');
      Writeln('Worked for ' + TimeRunning);
      Writeln('Bought ' + IntToStr(Loads) + ' Loads of Eyes');
      Writeln('Bought About ' + IntToStr(Eyes) + ' Eye of Newts');
      Writeln('Spent about ' + IntToStr(Gp) + ' Coins');
      Writeln('-------------------------------------------------');
      SRLRandomsReport;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      LoginPlayer;
      Lost := False;
      ActivateClient;
      Wait(3000);
      PerfectNorth;
      LoadBmps;
      repeat
        repeat
          PerfectNorth;
          AntiRandoms;
          StartBank;
          Walk2Shop;
          if (Lost = True) then Break;
          Buy;
          Walk2Bank;
          if (Lost = True) then Break;
          EndBank;
          Loads := Loads + 1;
          ProggyReport;
        until (Loads = Players[CurrentPlayer].Integer1);
        if (Lost = True) then
        begin
          Writeln(Players[CurrentPlayer].Name + ' is lost, switching to next player...');
          NextPlayer(False);
        end;
        if (Lost = False) then
        begin
          Writeln(Players[CurrentPlayer].Name + ' has finished his/her loads, switching players...');
          if (Players[CurrentPlayer].Active = True) then NextPlayer(True);
          if (Players[CurrentPlayer].Active = False) then NextPlayer(False);

        end;
      until (False);
    end.

  3. #3
    Join Date
    Mar 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm, for the indenting, it it just start the word after the second letter? like...
    Code:
    begin
       blah blah blah
    Or is it 3 spaces... I could shorten the bitmaps but would that really make a difference? it's as fast as it needs to be.

  4. #4
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    2 spaces for indents (More info http://wiki.srl-forums.com/index.php...ting_Standards). I have no idea of the Kaitnieks archive... I'd love to see it again

    Shortening the bitmap should make it faster :P
    Huehuehuehuehue

  5. #5
    Join Date
    Mar 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Ramage View Post
    2 spaces for indents (More info http://wiki.srl-forums.com/index.php...ting_Standards). I have no idea of the Kaitnieks archive... I'd love to see it again

    Shortening the bitmap should make it faster :P
    Yes but what's the point if it is more than fast enough. It doesnt need to be faster. There are waits and by the tim those waits are up it has loaded them 50 times... and kk thx for indenting stuff

  6. #6
    Join Date
    Apr 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Ok guys pay time

    im willing to pay for this eye of newts thing and if i have to there has to be
    no errors no bugs ect....

    if i dont buy it can i have a normal script that has cockups every hour of the script running?
    or no cockups would be even better

  7. #7
    Join Date
    Mar 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ecvecvecv View Post
    im willing to pay for this eye of newts thing and if i have to there has to be
    no errors no bugs ect....

    if i dont buy it can i have a normal script that has cockups every hour of the script running?
    or no cockups would be even better
    What are cockups? when the script messes up?

  8. #8
    Join Date
    Apr 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes when he script messes up

  9. #9
    Join Date
    Apr 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so would any1 make 1 for free?
    or do i have to pay?
    if i have to pay offer me a price

  10. #10
    Join Date
    Mar 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ecvecvecv View Post
    so would any1 make 1 for free?
    or do i have to pay?
    if i have to pay offer me a price
    Well, i can try to make it better but it would be much easier if you tested it for me and tell me where the players got lost.

  11. #11
    Join Date
    Apr 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    theres a run time error on line 27
    he doesnt move or anything

  12. #12
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    on its second trip it got stuck on the stairs of the shop with the door open and everything...

  13. #13
    Join Date
    May 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    where do you start? ....im a noob, lol, sry

  14. #14
    Join Date
    Apr 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default just to tell u

    hey just to tell u this happens to me... when i start the script it opens bank gold is in perfect view still just sits there doing nothing???

  15. #15
    Join Date
    Aug 2006
    Posts
    408
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you do the bank fix?

  16. #16
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks very good, you did well on the standards, only a few things were off. Firstly, remember not to capitalize any bold words (That's part of the standards(which you were probably referring to when you said indenting ))

    Also
    SCAR Code:
    var mage, Bankx, Banky, bankofrs, Eyes, Loads, Gp: integer;
    var Lost: Boolean;

    Can be written like your constants are. In otherwords, like so:
    SCAR Code:
    var
      mage, Bankx, Banky, bankofrs, Eyes, Loads, Gp: integer;
      Lost: Boolean;

    Other than that it all looks great

  17. #17
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm a noob, and i really want to use the script, but...




    What shall i do with all the pink writing?



    Can someone one please post a example, with all the stuff filled in?



    Thanks

  18. #18
    Join Date
    May 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    omg... at the pink place is where you fill out your user pass and nick
    example: (kinda)
    user:'example123'
    pass:'12345'
    nick:'exa'
    http://www.fenjer.com/adnan/SRLStats/smith10109.png

    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  19. #19
    Join Date
    Jun 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ye dam rite a noob l0l

  20. #20
    Join Date
    Oct 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Seems good,gonna try it out and if i find somethin bad ill tell ya

  21. #21
    Join Date
    Nov 2006
    Location
    Wisconsin
    Posts
    1,629
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Don't Gravedig

    04-14-2007, 06:38 PM


    Quote Originally Posted by Rubix View Post
    Quote Originally Posted by Dan Cardin View Post
    you ought to listen to Mr. Klean...he's magical!
    this.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. EYE of NEWT buyer
    By Harkonnen in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 08-02-2008, 03:05 AM
  2. Eye of Newt buyer
    By iJake in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-02-2008, 04:45 PM
  3. Eye of Newt Buyer
    By tylertiner in forum News and General
    Replies: 3
    Last Post: 05-23-2008, 07:12 PM
  4. [REQ]Eye of Newt Buyer
    By Becks in forum RS3 Outdated / Broken Scripts
    Replies: 22
    Last Post: 04-24-2008, 10:42 PM
  5. eye of newt buyer?
    By Wade007 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 02-27-2008, 01:42 PM

Posting Permissions

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