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![]()
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.
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
MatSimba Code: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.
Last edited by Mat; 01-21-2012 at 09:18 PM.
^^
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
Last edited by KarlPk; 01-21-2012 at 08:37 PM.
Changed it.
Mat
^^
There are currently 1 users browsing this thread. (0 members and 1 guests)