Page 5 of 5 FirstFirst ... 345
Results 101 to 114 of 114

Thread: S1NKits - 630K/H

  1. #101
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Moved to public due to the release of a different one.

  2. #102
    Join Date
    May 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shay View Post
    Moved to public due to the release of a different one.
    Get this error trying to run this script:

    Simba Code:
    ODTM Updater Enabled!
    [Error] (57:11): Duplicate identifier 'FREEDTMS' at line 56
    Compiling failed.

    Any help please? Thanks.
    Last edited by Klyth; 06-01-2012 at 02:18 PM.

  3. #103
    Join Date
    Apr 2012
    Location
    us
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is there a avearge opened per hour?

  4. #104
    Join Date
    Jun 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for this, it's been working great.

  5. #105
    Join Date
    May 2012
    Location
    Chaaaaiir
    Posts
    376
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Hey Shay.

    [=============Sokkr7's Hunter Kit Opener================]
    [8000 hunter kits opened!]
    [Player has Made 2360000 GP]
    [Running for 3 Hours, 34 Minutes and 3 Seconds]
    [================================================== =====]

    Only reason it didn't go 6 hours, is because of my script settings.

  6. #106
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    Quote Originally Posted by Sokkr7 View Post
    Hey Shay.

    [=============Sokkr7's Hunter Kit Opener================]
    [8000 hunter kits opened!]
    [Player has Made 2360000 GP]
    [Running for 3 Hours, 34 Minutes and 3 Seconds]
    [================================================== =====]

    Only reason it didn't go 6 hours, is because of my script settings.
    Why is this on my thread?

  7. #107
    Join Date
    Jun 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sin you should put a link to all your bots in your signature, makes it a little easier for people to find your scripts this script is amazing but i only had 200 kits so didn't run for long.

  8. #108
    Join Date
    May 2012
    Location
    Chaaaaiir
    Posts
    376
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Shay View Post
    Why is this on my thread?
    Thought you would care, but I was wrong I guess

  9. #109
    Join Date
    Feb 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script S1N!

    Took me a while to figure out the anti-leech but nice anyway.

    =========S1NKits v1.1===========
    Time Running: 6 Hours, 9 Minutes and 36 Seconds
    Boxes Opened: 10288
    Opened/Hour: 1677
    Money Made: 3119540
    Money/Hour: 0
    ===============================
    Last edited by anuparockz; 07-11-2012 at 10:00 AM. Reason: Found a progress report.

  10. #110
    Join Date
    May 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This still gives profit?

  11. #111
    Join Date
    Dec 2011
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes of course they do provide profit. Hunter kits are only 13gp at the moment in the GrandExchange, while, Box Traps are valued at 310gp. The only downside to buying kits is that, from my experiences, the limit is capped at 100 per every 4 hours.

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

    Default

    So I've updated your script to work with the new Simba/SMART the best I can and this is what I have so far:


    Code:
    program S1NKits;
    {$DEFINE SMART}
    {$I SRL/SRL.simba}
    {$I srl/srl/misc/debug.simba}
    var
      kitDTM,LagTimer,StartTime,Price,Opened:Integer;
      NonDTM:BOolean;
      kitRow,KitColumn:Integer;
      whichBank:String;
      BankNumber:Integer;
    
    procedure DeclarePlayers;
    begin
    
      LagTimer := 0; //in milliseconds, 1 second = 1000
      Price := 310; //price of box trap
    
      WhichBank := 'sw';   //'sw' for Soul Wars, 'cw' for Castle Wars, 'B' for burthorpe
                            //'gg' for Gamers Grotto
    
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      SRL_SixHourFix := True;
      Smart_FixSpeed := True;
    
      SetupSRL;
    
       if WhichBank = 'sw' then
        BankNumber := SRL_BANK_SW;
    
       if WhichBank = 'cw' then
        BankNumber := SRL_BANK_CW;
    
       if WhichBank = 'gg' then
        BankNumber := SRL_BANK_GG;
    
       if WhichBank = 'b' then
        BankNumber := SRL_BANK_B;
    end;
    procedure SetDTM;
    begin
    kitDTM := DTMFromString('mggAAAHicY2NgYHjKyMBwG4hvAfEnIH4OpT8C5X4B8Tsg/gHEf4H4NRAbaKoCSSYMLMKAHTDiwBAAALL5C80=');
    end;
    procedure FreeDTMs;
    begin
    FreeDTM(kitDTM);
    end;
    procedure WithdrawKits;
    var
      x,y:Integer;
      //timers
      t,t2:integer;
    begin
    if OpenBankChestEdge(BankNumber) then
    MarkTime(t);
    repeat
      wait(100);
      if TimeFromMark(t) > 20000 then
        begin
          WithdrawKits;
          exit;
        end;
    until(PinScreen or BankScreen);
    if PinScreen then
      begin
        InPin(Players[CurrentPlayer].Pin);
        wait(LagTimer);
      end;
    if BankScreen then
      begin
      DepositAll;
      wait(LagTimer);
      if FindDTM(kitDTM,x,y,MBX1,MBY1,MBX2,MBY2) then
        begin
          Mouse(x,y,1,1,False);
          ChooseOption('4');
        end;
      MarkTime(t2);
        repeat
          wait(10);
          if TimeFromMark(t2) > 20000 then
            begin
              WithdrawKits;
              exit;
            end;
        until(FindDTM(kitDTM,x,y,MIx1,miy1,mix2,miy2));
      CloseBank;
      end;
    end;
    procedure AntiBan;
    begin
    case random(200) of
    10: ExamineInv;
    20: BoredHuman;
    30: HoverSkill(RandomRange(1,20), False);
    end;
    end;
    procedure OpenKits;
    begin
      MouseItem(1,mouse_Left);
      Inc(Opened);
      MouseItem(2,1);
      Inc(Opened);
      MouseItem(3,1);
      Inc(Opened);
      MouseItem(4,1);
      Inc(Opened);
      Antiban;
    end;
    procedure Proggy;
    var
    Sec,OpenedH,MoneyH,Money:Integer;
    begin
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    OpenedH:= (3600 * Opened) / (SeC);
    Money := Price * Opened;
    MoneyH:= (3600 / SeC * (Money));
    
    
    writeLn('=========S1NKits v1.1===========');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('Boxes Opened: ' + IntToStr(Opened));
    writeLn('Opened/Hour: ' + IntToStr(OpenedH));
    writeLn('Money Made: ' + IntToStr(Money));
    writeLn('Money/Hour: ' + IntToStr(MoneyH));
    writeLn('===============================');
    
    end;
    
    begin
      ClearDebug;
      SetupLogin;
      DeclarePlayers;
      LoginPlayer;
      SetDTM;
      MouseSpeed := RandomRange(22,25);
      StartTime:=GetSystemTime;
    
      repeat
      WithdrawKits;
      OpenKits;
      Proggy;
      until(false);
    
    
      FreeDTMs;
    
    end.
    But when I push play, line 55 is highlighted, "procedure FreeDTMs;", and it comes up with this message:

    Code:
    [Error] C:\Users\username\Downloads\S1NKits1.175.simba(56:11): Duplicate identifier 'FREEDTMS' at line 55
    Compiling failed.
    I know I saw this problem and an answer somewhere before, but I can't recall where, and I thought I'd might as well post here for anyone wanting to use this script. So can you tell me what I should do? . I've stocked up a hoard of kits and wanted to use them up lol
    My First Build!, Selling Downloadable Games
    -------------------------------------

  13. #113
    Join Date
    Mar 2012
    Location
    I can only imagine.
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Just do the Backwards Compatibility. And that FREEDTMS is anti-leech. Script works for me.

  14. #114
    Join Date
    Aug 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What "Backwards Compadability"?

Page 5 of 5 FirstFirst ... 345

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
  •