this is a extremely simple script i made cause im to lazy to trade in my archery tickets and thought other people might enjoy it! Prior warining this I am first time scripter so baby sit if u run! All forms of Feedback are very much apriciated!
Simba Code:
program TicketMerchant;
{$define SMART}
{$i SRl/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Active := True;
end;
procedure Login;
begin
ClearDebug;
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
if not LoggedIn then
begin
repeat
LoginPlayerToLob;
until LobbyScreen;
begin
LogInPlayer;
end;
end;
while not LoggedIn do
wait(250);
end;
Procedure Antiban;
begin
case random(25) of
5:PickUpMouse;
10:RandomRClick;
15:MMouse(MSX1, MSY1, MSX2, MSY2);
20:wait(1000+random(500));
end;
end;
Procedure FindMerchant;
var x, y: integer;
Begin
FindNormalRandoms;
Antiban;
if FindObj( x, y, 'erchant', 1317953, 10) then
Mouse(x, y, 10, 10, False);
wait(250+random(100));
ChooseOption('rade')
wait(500+random(500));
writeln('Found Ticket Merchant')
end;
Procedure BuyTickets;
var x, y: integer;
begin
FindNormalRandoms;
Antiban;
If not LoggedIn then
Exit;
repeat
FindNormalRandoms;
if FindObj(x, y, 'rrow', 7629913, 10) then
Mouse(x, y, 10, 10, False);
ChooseOption('uy');
wait(500+random(500));
Until(not(LoggedIn))
end;
begin
Login;
SetUpSRL;
FindMerchant;
repeat
BuyTickets;
until(not(LoggedIn))
end.