SRL Archive - RS3 Script Requests

Anyone be able to make a hunter kit opener as its great money as they are 2gp ea and the traps sell for 300 ea… Would be cool if someone could :)

Ill Have a play I got some time
Mat

The kits will not be able to be bought for 2gp each and the traps won't sell for 300gp each. Just a heads up.

From: KarlPk
Anyone be able to make a hunter kit opener as its great money as they are 2gp ea and the traps sell for 300 ea… Would be cool if someone could :)

This would just mean the traps would drop drastically within a day. How many people do you think buy traps out of the legit players who hunt? Not many.

Think is they will sell for 300 gp + as mine are selling for more than 300 So yeah and people can only buy 100 per 4 hours … So they won't go down to quick

I've almost made it lol… Prob not relasing tho as Prices will Crash really Quickly but hay :)
Mat

Made it lol

Sweet Thankyou! :)

Could i ask where you have put it? Send a link please

Its pritty Pointless isn't it as 100 per four hour by limit?
I've got it on My Pc.
Mat

Could you put it on please or send me it via msn? And ive already bought 1.6k hunter kits

There

program HunterKitOpener;
{$DEFINE SMART}
{$i srl/srl.Simba}
Var
  KitBox,X,Y:Integer;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := '' // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;
Procedure Banking;
Var
  BankRun:Integer;
Begin
  If FindNormalRandoms then
  Begin
    Logout;
    TerminateScript;
  End else
  KitBox := DTMFromString('m1gAAAHic42JgYHBmgmBXIDYDYgsg9gFiPyi2goo/B6q9AcSfgfgBEN8C4ptA/BCI3wLxRyB+B8SetppAkokglmQgDjASiREAAL2aDIY=');
  If Not BankScreen then
  OpenBank('VWB',True,True);
  Wait(1200+random(100));
  If PinScreen then
    InPin(Players[CurrentPlayer].Pin);
  Wait(500+random(100));
  if BankScreen then
  Begin
    DepositAll;
    If FindDTM(KitBox,X,Y,MBX1,MBY1,MBX2,MBY2)Then
    Begin
      MMouse(X,y,5,5);
      Repeat
        Inc(BankRun);
        Wait(100+Random(50));
        ClickMouse2(True);
      Until(BankRun = 4);
      FreeDTM(KitBox);
      BankRun := 0;
    End else
    Begin
      Writeln('Out of Traps');
      TerminateScript;
    end;
    CloseBank;
  end;
end;
Procedure OpeningKits;
Var
  OpenRun:Integer;
Begin
  KitBox := DTMFromString('m1gAAAHic42JgYOBlgAAWIJaAYjEgZoKK80PV8EPFJYFYFIg5gZgRqo4DiKWh6j1tNaGi+DE/A3GAkUiMAAAWcAHc');
  Repeat
    Inc(OpenRun);
    If FindDTM(KitBox,X,Y,MIX1,MIY1,MIX2,MIY2)Then
    Begin
      MMouse(X,y,5,5);
      Wait(150+Random(50));
      If IsUpText('unter') then
      Begin
        ClickMouse2(True);
        Wait(3000+Random(50));
      end;
    End;
  Until(OpenRun = 4);
  FreeDTM(KitBox);
  OpenRun := 0;
End;
begin
  smart_server := 16;
  smart_members := false;
  smart_signed := true;
  smart_superDetail := false;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  ClickNorth(SRL_ANGLE_HIGH);
  Repeat
    Banking;
    OpeningKits;
  Until(Not LoggedIn);
end.

Mat

hey man theres a little error with the bot hes only opening 2 off the boxes and banking otherwise its working great sometimes it opens all but sometimes only a few Depends

Changed it.
Mat