I wanted to use this so I have updated it to work with R2.
I could not do the function r_ClickRaw because R_ClickItem and R_ClickItemBy don't work with Players[CurrentPlayer].Integer[4] because its an array, so I put it as Result := False(good job the script has DTMs :)).
I did a few loads and it's working so I thought I'd post it as people want to use it with R2.
program RoguesDenCooker;
{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i Reflection\Reflection.simba}
{$i SRL\SRL\Misc\Stats.Simba}
const
sWorld = 24; //smart world
sSigned = True; //signed client
MinABWait = 5000;//minimum wait between performing antiban (in miliseconds)
Stats_User = ''; //SRL Stats username
Stats_Pass = ''; //SRL Stats password
//NOTE: Before you start, make sure your inventory is *empty* or else the counting
// Will be incorrect.
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many players will you be using?
NumberOfPlayers(HowManyPlayers); //Don't touch
CurrentPlayer := 0; //Which player to start off with?
with Players[0] do
begin
Name := ''; //rs username
Pass := ''; //rs pass
Nick := ''; //Nickname for progress report
Pin := ''; //Bank pin
Active := True; //use player?
Integers[0] := 5; //What food to cook? 0 = Trout, 1 = Salmon, 2 = Tuna, 3 = Lobster, 4 = Swordfish, 5 = Monkfish, 6 = shark, 7 = rocktail
Integers[1] := 0; //number of loads to cook. estimated 40 loads per hour. leave at 0 to run until it breaks
Integers[2] := 0 * 60 * 1000; //change first number for minutes to run. leave at 0 to run until it breaks.
Integers[6] := 0 * 1000; //Change first number for minimum number of seconds to wait between autoresponding {only applies if Booleans[0] is true}
Arrays[0] := ['']; //if you're using the autoresponder, these are the text to look for to identify your name. so something like ['user', 'sern', 'erna', 'rnam', 'name'] would work awesome (for the name "username")
Booleans[0] := False; //Respond when people ask about cooking levels or when it finds your name?
//lines 509-518: If you know what you're doing, you can customize the autoresponder
end;
end;
////////////////////////////setup ends here////////////////////////////////////
procedure SetupNewPlayer;
begin
case Players[CurrentPlayer].Integers[0] of
0: //Trout
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mggAAAHicY2NgYLBnYmDwAmJHILYAYjMgNgXiMEYGBn8gjgLiGCAOhbKXL5gP1MWEgXkYsANGHBgCAASCBZI=';//Raw DTM
Strings[1] := 'mggAAAHicY2NgYMhiYmCIB+IEIM4E4lwgLgHiYEYGhjAgjgHiKCCOAGJ/IE6LigDqYsLAPAzYASMODAEAOpIFxg==';//Cooked DTM
Strings[2] := 'w tr';//Raw uptext
Strings[3] := 'Tro';//Cooked uptext
Strings[4] := 'Trout';//Fish name
Integers[3] := 70;//EXP
Integers[4] := 335; //Raw ID (For reflection)
Integers[5] := 333; //Cooked ID (For reflection)
end;
end;
1: //Salmon
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mggAAAHicY2NgYOhlYmDoA+JOIF4AxFOYIGIRjAwMMYwQ2g+Io4A4CIhXTJ0E1MWEgbkYsANGHBgCAN+VB20=';//Raw DTM
Strings[1] := 'mbQAAAHicY2VgYDjAxMCwB4g3A/E+ID4OxEGMDAz+QBwFxQFAvN1aGqiaCQXzMGACRiwYDAA1VgaU';//Cooked DTM
Strings[2] := 'w sa';//Raw uptext
Strings[3] := 'Sal';//Cooked uptext
Strings[4] := 'Salmon';//Fish name
Integers[3] := 90;//EXP
Integers[4] := 331; //Raw ID (For reflection)
Integers[5] := 329; //Cooked ID (For reflection)
end;
end;
2: //Tuna
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mggAAAHicY2NgYPBggmBHILYCYlMoXcrIwFAFxA1A3AjEdUBcAsTtTY1AXUwYmIcBO2DEgSEAADy2Bhs=';//Raw DTM
Strings[1] := 'mggAAAHicY2NgYEhjYmCIB+IUIC4C4kogzgbiMkYGhlogbgTiKkYIvwGIE0KDgbqYMDAPA3bAiANDAACKjQag';//Cooked DTM
Strings[2] := 'w tu';//Raw uptext
Strings[3] := 'Tun';//Cooked uptext
Strings[4] := 'Tuna';//Fish name
Integers[3] := 100;//EXP
Integers[4] := 359; //Raw ID (For reflection)
Integers[5] := 361; //Cooked ID (For reflection)
end;
end;
3: //Lobster
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mggAAAHicY2NgYJjFxMDQC8SdTBD2PCDuAOIKRgaGWiAuAuImIC5jhIiFGkoBdTFhYB4G7IARB4YAANVHBxw=';//Raw DTM
Strings[1] := 'mggAAAHicY2NgYDjExMCwD4iPAPEJIN4OxJuAuIyRgaEWiJuAuAaIq4C4FIhXhEoAdTFhYB4G7IARB4YAAHMQCJ8=';//Cooked DTM
Strings[2] := 'w lo';//Raw uptext
Strings[3] := 'Lob';//Cooked uptext
Strings[4] := 'Lobster';//Fish name
Integers[3] := 120;//EXP
Integers[4] := 377; //Raw ID (For reflection)
Integers[5] := 379; //Cooked ID (For reflection)
end;
end;
4: //Swordfish
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mlwAAAHicY2dgYLBiYmAwA2IPIA4AYmsg9oaKzWFkYFgMxDOheAoQTwbi+UC8YuoaoG4mrJiHATdgxIOhAABzowgg';//Raw DTM
Strings[1] := 'mlwAAAHicY2dgYMhjYmBIAeJkII4H4jggLgfiUiCezMjAMA2IZwHxQiBeCmXPA+Ly0DqgbiasmJUBN2DEg6EAANERCJ4=';//Cooked DTM
Strings[2] := 'w sw';//Raw uptext
Strings[3] := 'Swo';//Cooked uptext
Strings[4] := 'Swordfish';//Fish name
Integers[3] := 140;//EXP
Integers[4] := 371; //Raw ID (For reflection)
Integers[5] := 373; //Cooked ID (For reflection)
end;
end;
5: //Monkfish
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mggAAAHicY2NgYFjGysCwAIhnAvFGIF4HxNOA+DFQ7iYQPwPiF0D8AIjvAXG0rRGQZMLAPAzYASMODAEA9bAKJw==';//Raw DTM
Strings[1] := 'mggAAAHicY2NgYNjNzMBwBohPAPFWIN4MxPuB2I6JgcEGiF2A2BWIbYHYA4hjgtyBupgwMA8DdsCIA0MAAPHMBzQ=';//Cooked DTM
Strings[2] := 'w mo';//Raw uptext
Strings[3] := 'Mon';//Cooked uptext
Strings[4] := 'Monkfish';//Fish name
Integers[3] := 150;//EXP
Integers[4] := 7944; //Raw ID (For reflection)
Integers[5] := 7946; //Cooked ID (For reflection)
end;
end;
6: //Shark
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mggAAAHicY2NgYHBgYmDwAeIAIDYBYnMgtgbi3YwMDDuA+BgQH2WE8I8DcVNNDVAXEwbmYcAOGHFgCAAAz7IHsQ==';//Raw DTM
Strings[1] := 'mggAAAHicY2NgYMhhYmBIAOIkIC4D4iogLgDiXYwMDKeAeDsUHwfik0Ac7mQI1MWEgXkYsANGHBgCABNJCA8=';//Cooked DTM
Strings[2] := 'w sh';//Raw uptext
Strings[3] := 'Sha';//Cooked uptext
Strings[4] := 'Shark';//Fish name
Integers[3] := 210;//EXP
Integers[4] := 383; //Raw ID (For reflection)
Integers[5] := 385; //Cooked ID (For reflection)
end;
end;
7: //Rocktail
begin
with Players[CurrentPlayer] do
begin
Strings[0] := 'mlwAAAHicY2dgYJjIxMCwAIjnAvFMIJ4ExF1QvJ+RgWEnEB8E4uNAfAKIDwPxXiBOnrEeqJsJK+ZhwA0Y8WAoAAAEnQs7';//Raw DTM
Strings[1] := 'mggAAAHicY2NgYNjDxMBwEoj3A/FmIN4JxGdAfEYIPgXEh4F4FxRvT88B6mLCwDwM2AEjDgwBAC2nCro=';//Cooked DTM
Strings[2] := 'w ro';//Raw uptext
Strings[3] := 'Roc';//Cooked uptext
Strings[4] := 'Rocktail';//Fish name
Integers[3] := 225;//EXP
Integers[4] := 15270; //Raw ID (For reflection)
Integers[5] := 15272; //Cooked ID (For reflection)
end;
end;
end;
end;
var
ABMark, StatsTimer: Integer;
procedure Antiban;
begin
if (not(LoggedIn) or (TimeFromMark(ABMark) < MinABWait)) then
Exit;
if (Random(9) > 0) then
begin
case Random(9) of
1: RandomMovement;
2: BoredHuman;
3: RandomMovement;
4: PickUpMouse;
5: HoverSkill('cooking', False);
6: RandomRClick;
7: PickUpMouse;
8: RandomAngle(1);
9: HoverSkill('cooking', False);
0: HoverSkill('random', False);
end;
MarkTime(ABMark);
end;
end;
function AttemptAndSwivel(func: function: Boolean; Attempts, SwivelPer: Integer): Boolean;
var
i: Integer;
begin
for i := 1 to Attempts do
begin
if func() then
begin
Result := True;
Exit;
end;
MakeCompass(rs_GetCompassAngleDegrees + (SwivelPer + Random(10) - Random(10)));
Wait(800 + Random(80));
end;
end;
function AttemptFunct(Func: function: Boolean; Attempts: Integer): Boolean;
var
i: Integer;
begin
for i := 1 to Attempts do
begin
if func() then
begin
Result := True;
Exit;
end;
Wait(800 + Random(80));
end;
end;
const //Reflection constants
FireTileX = 3043;
FireTileY = 4973;
function r_OpenBenedict: Boolean;
var
Benedict: TNPC;
BenedictPoint: TPoint;
T: Integer;
begin
R_FindRandoms;
repeat
Benedict := R_GetNPC('Emerald Benedict', False);
if not(R_TileOnMS(Benedict.Tile, 0)) then
R_WalkToTile(Benedict.Tile, 4, 0);
Benedict := R_GetNPC('Emerald Benedict', False);
until(R_TileOnMS(Benedict.Tile, 0));
BenedictPoint := R_TileToMS(Benedict.Tile, 0);
Mouse(BenedictPoint.x - 2, BenedictPoint.y - 2, 4, 4, False);
if (r_WaitOption('ank', 1200)) then
begin
T := GetSystemTime + 4000;
while (GetSystemTime < T) and not(Result) and LoggedIn do
Result := BankScreen or PinScreen;
end;
end;
function OpenBenedict: Boolean;
var
CTS, x, y, i, H, T: Integer;
TPA: TPointArray;
ATPA: array of TPointArray;
R: Boolean;
begin
if not(LoggedIn) then
Exit;
R_FindRandoms;
if BankScreen then
begin
Result := True;
Exit;
end;
CTS := GetColorToleranceSpeed;
SetColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.01374, 1.69810);
FindColorsTolerance(TPA, 7444680, MSX1, MSY1, MSX2, MSY2, 4);
SetColorToleranceSpeed(CTS);
//DebugTPA(TPA, '');
if (Length(TPA) > 0) then
begin
ATPA := TPAtoATPAEx(TPA, 20, 30);
SortATPAFromFirstPoint(ATPA, IntToPoint(MSCX, MSCY));
//DebugATPABounds(ATPA);
H := High(ATPA);
for i := 0 to H do
begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x - 3, y - 3, 6, 6);
if WaitUptext('ened', 1600) then
begin
ClickMouse2(False);
Result := WaitOption('ank', 1600);
end;
if Result then
Break;
end;
T := GetSystemTime + 4000;
while (GetSystemTime < T) and not(Result) and LoggedIn do
Result := BankScreen or PinScreen;
end else
begin
R := True;
Result := r_OpenBenedict;
end;
if (not(R) and not(Result)) then
Result := r_OpenBenedict;
if Result and PinScreen then
Result := InPin(Players[CurrentPlayer].Pin);
if Result then
Wait(1800 + Random(240));
end;
function r_CountRaws: Integer;
begin
Result := R_CountItem(Players[CurrentPlayer].Integers[4]);
end;
function CountRaws: Integer;
var
RawDTM: Integer;
begin
if not(LoggedIn) then
Exit;
R_FindRandoms;
RawDTM := DTMFromString(Players[CurrentPlayer].Strings[0]);
Result := CountItems('dtm', RawDTM, []);
FreeDTM(RawDTM);
if ((Result < 1) or (Result < InvCount)) then
Result := r_CountRaws;
end;
function r_CountCooked: Integer;
begin
Result := R_CountItem(Players[CurrentPlayer].Integers[5])
end;
function CountCooked: Integer;
var
CookedDTM: Integer;
begin
if not(LoggedIn) then
Exit;
R_FindRandoms;
CookedDTM := DTMFromString(Players[CurrentPlayer].Strings[1]);
Result := CountItems('dtm', CookedDTM, []);
FreeDTM(CookedDTM);
if ((Result < 1) or (Result < InvCount)) then
Result := r_CountCooked;
end;
function DoBank: Boolean; //no reflection backup, if someone wants to teach me interfaces then yay.
var
RawDTM, x, y, M: Integer;
begin
if (not(LoggedIn) or not(BankScreen)) then
Exit;
R_FindRandoms;
DepositAll;
Wait(50 + Random(100));
RawDTM := DTMFromString(Players[CurrentPlayer].Strings[0]);
if FindDTM(RawDTM, x, y, MBX1, MBY1, MBX2, MBY2) then
begin
MMouse(x - 3, y - 3, 6, 6);
Wait(50 + Random(100));
if WaitUptext(Players[CurrentPlayer].Strings[2], 1600) then
begin
ClickMouse2(False);
Wait(50 + Random(100));
WaitOption('raw-A', 1600);
end;
end else
Writeln('could not find raw food DTM in bank!');
Closebank;
M := GetSystemTime + 4000;
while ((not(Result)) and (GetSystemTime < M)) do
begin
if (not(InvEmpty)) then
begin
Result := True;
Break
end;
Wait(10 + Random(25));
end;
FreeDTM(RawDTM);
if Result then
begin
Inc(Players[CurrentPlayer].Banked);
IncEx(Players[CurrentPlayer].Integers[11], CountRaws);
stats_IncVariable('Loads Done', 1);
case Players[CurrentPlayer].Integers[0] of
0: stats_IncVariable('Trout Cooked', CountRaws);
1: stats_IncVariable('Salmon Cooked', CountRaws);
2: stats_IncVariable('Tuna Cooked', CountRaws);
3: stats_IncVariable('Lobster Cooked', CountRaws);
4: stats_IncVariable('Swordfish Cooked', CountRaws);
5: stats_IncVariable('Monkfish Cooked', CountRaws);
6: stats_IncVariable('Shark Cooked', CountRaws);
7: stats_IncVariable('Rocktail Cooked', CountRaws);
end;
end;
end;
function r_ClickRaw: Boolean;
begin
R_FindRandoms;
Result := False
end;
function ClickRaw: Boolean;
var
RawDTM, x, y, T: Integer;
begin
if not(LoggedIn) then
Exit;
R_FindRandoms;
RawDTM := DTMFromString(Players[CurrentPlayer].Strings[0]);
if FindDTM(RawDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
MMouse(x - 4, y - 4, 8, 8);
if WaitUptext(Players[CurrentPlayer].Strings[2], 1600) then
begin
ClickMouse2(True);
T := GetSystemTime + 6000;
while ((not(Result)) and (GetSystemTime < T)) do
begin
Wait(200 + Random(20));
Result := (ActivatedItem > 0);
end;
end;
end else
Writeln('could not find raw food DTM in inventory!');
FreeDTM(RawDTM);
if not(Result) then
Result := r_ClickRaw;
end;
function r_ClickFire: Boolean;
var
FireTile: TTile;
FirePoint: TPoint;
begin
if not(LoggedIn) then
Exit;
R_FindRandoms;
FireTile := Point(FireTileX, FireTileY);
if not(R_TileOnMS(FireTile, 0)) then
begin
R_WalkToTile(FireTile, 3, 0);
ClickRaw;
end;
FirePoint := R_TileToMS(FireTile, 0);
Mouse(FirePoint.x - 3, FirePoint.y - 3, 6, 6, false);
Result := r_WaitOption('> Fi', 1200);
end;
function ActionScreen: Boolean;
begin
R_FindRandoms;
Result := (CountColorTolerance(4477273, 85, 415, 95, 425, 10) > 65);
end;
function ClickFire: Boolean;
var
CTS, x, y, i, H: Integer;
TPA: TPointArray;
ATPA: array of TPointArray;
R: Boolean;
begin
R_FindRandoms;
if not(LoggedIn) then
Exit;
CTS := GetColorToleranceSpeed;
SetColorToleranceSpeed(2);
SetColorspeed2Modifiers(0.10167, 1.61841);
FindColorsTolerance(TPA, 2730226, MSX1, MSY1, MSX2, MSY2, 5);
SetColorToleranceSpeed(CTS);
//Writeln(Length(TPA));
if (Length(TPA) > 0) then
begin
ATPA := TPAtoATPAEx(TPA, 30, 30);
//DebugATPABounds(ATPA);
SortATPAFromFirstPoint(ATPA, IntToPoint(MSCX, MSCY));
H := High(ATPA);
for i := 0 to H do
begin
MiddleTPAEx(ATPA[i], x, y);
MMouse(x - 2, y - 2, 4, 4);
if WaitUptext('more', 800) then //there's always so many people, i'm just gonna check for "more" in "XX more options"
begin
ClickMouse2(False);
Result := WaitOption('> Fire', 1600);
end;
if Result then
Break;
end;
end else
begin
R := True;
Result := r_ClickFire;
end;
if (not(R) and not(Result)) then
Result := r_ClickFire;
if Result then
Result := WaitFunc(@ActionScreen, 10 + random(15), 7000);
end;
function OutlineFound: Boolean;
begin
R_FindRandoms;
Result := (CountColorTolerance(10408935, 215, 387, 302, 400, 80) > 60);
end;
function ClickButton: Boolean;
var
CookedDTM, x, y: Integer;
begin
R_FindRandoms;
if not(LoggedIn) then
Exit;
Result := False;
R_FindRandoms;
CookedDTM := DTMFromString(Players[CurrentPlayer].Strings[0]);
if not(FindDTM(CookedDTM, x, y, MCX1, MCY1, MCX2, MCY2)) then
begin
FreeDTM(CookedDTM);
Exit;
end;
FreeDTM(CookedDTM);
MMouse(x - 4, y - 4, 8 , 8);
if (WaitFunc(@OutlineFound, 10 + Random(15), 8000)) then
begin
ClickMouse2(True);
Result := True;
end else
Writeln('didnt find the outline');
end;
procedure SayCookLVL;
begin
TypeByte(GetKeyCode(Chr(13)));
Wait(50 + random(7));
TypeSendEx('s', False);
Wait(120 + Random(12));
TypeSendEx('v', False);
Wait(40 + random(8));
TypeSendEx('2', False);
end;
function RespondChat: Boolean; //reccomendation from hobbit
var
i: Integer;
begin
if not(Players[CurrentPlayer].Booleans[0]) then
Exit;
if (TimeFromMark(Players[CurrentPlayer].Integers[60]) <= Players[CurrentPlayer].Integers[6]) then
Exit;
if FindTextTpa(clYellow, 8, MSX1, MSY1, MSX2, MSY2, 'ooking le', 'SmallChars', Nothing) then
begin
Result := True;
SayCookLVL;
MarkTime(Players[CurrentPlayer].Integers[60]);
Exit;
end;
for i := 0 to High(Players[CurrentPlayer].Arrays[0]) do
if FindTextTpa(clYellow, 8, MSX1, MSY1, MSX2, MSY2, Players[CurrentPlayer].Arrays[0][i], 'SmallChars', Nothing) then
begin
Result := True;
case Random(9) of
0: TypeSend('?');
1: TypeSend(AddMistakes('What?', 15));
2: TypeSend(AddMistakes('wtf do you want!?', 15));
3: TypeSend(AddMistakes('oh hey srry was watchin TV', 15));
4: TypeSend(AddMistakes('sup', 15));
5: TypeSend(AddMistakes('oh sup i was playin cod srry', 15));
6: TypeSend(AddMistakes('sup', 15));
7: TypeSend(AddMistakes('wat', 15));
8: TypeSend(AddMistakes('i dont talk to dumb people :P', 15));
9: TypeSend('?');
end;
MarkTime(Players[CurrentPlayer].Integers[60]);
Break;
end;
end;
function WaitCook: Boolean;
var
T, CookedDTM, RawCount: Integer;
begin
RawCount := CountRaws;
MarkTime(T); //68 seconds = one inventory (4 game ticks (.6 seconds) per cook * 28 = 67.2 seconds
while (TimeFromMark(T) < 68000 + Random(680)) do
begin
R_FindRandoms;
Antiban;
if RespondChat then
Inc(Players[CurrentPlayer].Integers[61]);
if LevelUp then
begin
Inc(Players[CurrentPlayer].Integers[12]);
stats_IncVariable('Total Levels Gained', 1);
end;
Wait(850 + Random(85));
end;
CookedDTM := DTMFromString(Players[CurrentPlayer].Strings[1]);
Result := (CountItems('dtm', CookedDTM, []) > 0); //randoms are a bitch.
FreeDTM(CookedDTM);
if Result then
begin
IncEx(Players[CurrentPlayer].Integers[10], CountCooked);
stats_IncVariable('Total EXP Gained', Players[CurrentPlayer].Integers[3] * CountCooked);
end;
end;
procedure Die(Status: string);
begin
if not(LoggedIn) then
Exit;
if BankScreen then
CloseBank;
R_FindRandoms;
Logout;
Players[CurrentPlayer].Status := Status;
Writeln('Death because: ' + Players[CurrentPlayer].Status);
end;
procedure Report;
var
i, TotalCooked, TotalEXP, TotalLVLs, TotalSuccess, TotalBurnt: Integer;
xpHR, foodHR, loadHR: Int64;
begin
for i := 0 to High(Players) do
begin
IncEx(TotalCooked, Players[i].Integers[11]);
IncEx(TotalSuccess, Players[i].Integers[10]);
IncEx(TotalBurnt, Players[i].Integers[11] - Players[i].Integers[10]);
Players[i].Integers[13] := Players[i].Integers[10] * Players[i].Integers[3];
IncEx(TotalEXP, Players[i].Integers[13]);
IncEx(TotalLVLs, Players[i].Integers[12]);
end; {123456789|123456789|123456789|123456789|123456789|123456789|12345678}
Writeln('');
Writeln('[====================================================================]');
Writeln('[ TomTuff''s Rogue''s Den Cooker ]'); //2 extra spaces from ''s
Writeln('[ Revision 10 ]');
Writeln('[====================================================================]');
Writeln('[ Overall Report ]');
Writeln('[ Time Ran: ' + Padr(MsToTime(GetTimeRunning, Time_Formal), 54) + ']');
Writeln('[ Fish attempted to cook: ' + padr(IntToStr(TotalCooked), 40) + ']');
Writeln('[ Fish sucessfuly cooked: ' + Padr(IntToStr(TotalSuccess), 38) + ']');
Writeln('[ Fish burnt: ' + Padr(IntToStr(TotalBurnt), 50) + ']');
Writeln('[ Total EXP gained: ' + Padr(IntToStr(TotalExp), 46) + ']');
Writeln('[====================================================================]');
for i := 0 to High(Players) do
begin
Writeln('[ Player ' + Padl(IntToStr(i), 2) + ' (' + Padr(Players[i].Nick, 4) + '):' + Padr('', 49) + ']');
Writeln('[ Fish type: ' + Padr(Players[i].Strings[4], 53) + ']');
Writeln('[ Worked: ' + Padr(MSToTime(PlayerWorked(i), Time_Formal), 56) + ']');
if ((Players[i].Status <> '') and (not(Players[i].Active))) then
Writeln('[ Stopped Because: ' + Padr(Players[i].Status, 47) + ']');
Writeln('[ Levels gained: ' + Padr(IntToStr(Players[i].Integers[12]), 49) + ']');
Writeln('[ EXP gained: ' + Padr(IntToStr(Players[i].Integers[13]), 52) + ']');
xpHR := Ceil((Players[i].Integers[13] * 60.0 * 60.0 * 1000.0) / PlayerWorked(i));
Writeln('[ Exp/HR: ' + Padr(Int64ToStr(xpHR), 54) + ']');
Writeln('[ Food attempted: ' + Padr(IntToStr(Players[i].Integers[11]), 48) + ']');
foodHR := Ceil((Players[i].Integers[11] * 60.0 * 60.0 * 1000.0) / PlayerWorked(i));
Writeln('[ Food cooked/HR: ' + Padr(Int64ToStr(foodHR), 46) + ']');
Writeln('[ Successful: ' + Padr(IntToStr(Players[i].Integers[10]), 50) + ']');
Writeln('[ Burnt: ' + Padr(IntToStr(Players[i].Integers[11] - Players[i].Integers[10]), 55) + ']');
Writeln('[ Loads: ' + Padr(intToStr(Players[i].Banked), 57) + ']');
loadHR := Ceil((Players[i].Banked * 60.0 * 60.0 * 1000.0) / PlayerWorked(i));
Writeln('[ Loads/HR: ' + padr(Int64ToStr(loadHR), 52) + ']');
if (Players[i].Integers[61] > 0) then
Writeln('[ Times responded: ' + Padr(IntToStr(Players[i].Integers[61]), 47) + ']');
Writeln('[====================================================================]');
end;
Writeln('');
end;
function CheckSums: Boolean;
begin
if (not(Players[CurrentPlayer].Integers[1] = 0)) then
Result := (Players[CurrentPlayer].Banked >= Players[CurrentPlayer].Integers[1]);
if Result then
Exit;
if (not(Players[CurrentPlayer].Integers[2] = 0)) then
Result := (PlayerWorked(CurrentPlayer) > Players[CurrentPlayer].Integers[2])
end;
begin
Smart_Members := True;
Smart_Server := sWorld;
Smart_Signed := sSigned;
Smart_SuperDetail := False;
SetupReflection;
SetupSRLStats(32, Stats_User, Stats_Pass);
DeclarePlayers;
LoginPlayer;
MarkTime(StatsTimer);
repeat
SetupNewPlayer;
SetAngle(True);
repeat
if AttemptAndSwivel(@OpenBenedict, 16, 45) then
begin
if AttemptFunct(@DoBank, 4) then
begin
if AttemptFunct(@ClickRaw, 4) then
begin
if AttemptAndSwivel(@ClickFire, 16, 45) then
begin
if AttemptFunct(@ClickButton, 3) then
begin
if WaitCook then
begin
Report;
end else Die('could not wait to cook');
end else Die('could not click the cooking button');
end else Die('could not click the fire');
end else Die('could not click raw in inventory');
end else Die('could not handle banking');
end else Die('could not open Benedict');
Report;
if CheckSums then
Die('goals met');
if (TimeFromMark(StatsTimer) > 300000) then
begin
stats_Commit;
MarkTime(StatsTimer);
end;
until(not(LoggedIn));
NextPlayer(False);
until(AllPlayersInactive);
Report;
end.
{
rev 02: Added r_ClickRaw
rev 03: added MBX1, MBY1, MBX2, MBY2
rev 04: added more R_FindRandom's :)
rev 05: advanced counting
rev 06: added autoresponder
rev 07: patched up autoresponder
rev 08: SRL Stats (stats.villavu.com)
rev 09: Fixed for the removal R_ClickItemID and R_CountItemID (Now just R_ClickItem and R_CountItem)
rev 10: Added AttemptAndSwivel and AttemptFunct. Now used in mainloop. This should extend runtime!
rev 11: Added pin handling.
}
Becks:
