Yanhua
2011-12-17 20:11:47
What this does: Plays the "Shot-put" Minigame inside Warriors guild for tokens.
Instructions: Start ON THE TILE NEXT TO shot-put. Can be either 18lb ones or 22lb ones.
Updated: 19/12/2011
Instructions: Start ON THE TILE NEXT TO shot-put. Can be either 18lb ones or 22lb ones.
Updated: 19/12/2011
program WarriorGuildTokens;
{$DEFINE SMART}
{$i SRL\SRL.scar}
// INSTRUCTIONS: FILL YOUR USERNAME AND PASSWORD INSIDE THE '' and ''.
Const
NumbOfPlayers = 1; //How many players are you using
StartPlayer = 0; //Player to start auoting with! (0 means first char)
BreakEvery = 0; //How many loads to take a break after.
BreakFor = 0; //How many minutes to break for
Version = '1..0';
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
end;
end;
Procedure Throw;
Var
ShotputDTM, A, B, X, Y:Integer;
aFound:Extended;
Begin
A := (255+Random(3));
B := (446+Random(3));
ShotPutDTM := DTMFromString('mbQAAAHicY2VgYHBhYWAwB+JAIPYGYkcgZmBkYPgCpPiB9G8gzQakXRwdGTzd3BjsbWzAGMTGBhixYDAAAAEMB1w=');
If FindDTMRotated(ShotputDTM, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi/2, Pi/2, Pi/30, aFound) Then
Begin
MMouse(X, Y, 3, 3);
If (IsUpText('lb sho')) Then
Begin
Wait(200+random(100));
Wait(100+random(50));
Mouse(X, Y, 0, 0 ,True);
Wait(3000+Random(1500));
writeln('Interface is up. Selecting Option 3 "Spin and Throw"');
MMouse(A, B, 0, 0);
Wait(500+random(200));
Mouse(A, B, 3, 3, True);
Wait(8000+Random(3500));
FreeDTM(ShotputDTM);
end;
end;
end;
begin
SetupSRL;
ActivateClient;
DeclarePlayers;
If Not LoggedIn Then
LogInPlayer;
Wait(1500+Random(200));
SetAngle(True);
Wait(500+Random(200));
MakeCompass('e');
Wait(500+Random(300));
repeat
Throw;
until(false);
end.
