program Bowstringmaker;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
procedure Findingbank();
var
x,y: integer;
Banksymbol: TPoint;
begin
wait(randomRange(500,750));
if minimap.findSymbol(Banksymbol, MM_SYMBOL_BANK, minimap.getBounds()) then
begin
mouse(Banksymbol, MOUSE_LEFT);
//wait(RandomRange(4750,5750));
minimap.waitPlayerMoving();
if mainscreen.findObject(x, y, 10792122,6, ['ank'], MOUSE_RIGHT) then
begin
writeLn('Found Banker'); // If findObject returns true, this will print
chooseOption.select(['ank']);
end;
end;
end;
procedure Banking();
begin
//wait(randomRange(1000, 1500)); //not needed
if bankScreen.isOpen(2000) then
begin
//bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY); //redundant
//wait(randomRange(1000, 1500)); //not needed
bankScreen.clickButton(BANK_BUTTON_PRESET_2);
tabBackPack.waitWhileLocked(1000);
//bankScreen.close(); //redundant
end;
end;
procedure GoingDownStairs();
var
x, y, Point1DTM: integer;
begin
Point1DTM := DTMFromString('mrAAAAHic42BgYNjExcBwDIi3QOnFQLwCiP25GRjWAGkjRgYGJyB2AGIDILYCYj0gjgdifyCelB/CsGXrRoYsfxOGimgbhhx/U4a2VE8G56TTDDt3b2aQBNqBDzMSwDAAAFteE4o=');
if findDTM(Point1DTM, x, y, mainscreen.getBounds()) then
begin
wait(250);
mouse(x,y,3,3, MOUSE_MOVE);
if isMouseOverText(['aircase']) then
begin
writeln('gelukt');
//minimap.waitPlayerMoving(); //doesn't do anything
mouse(x,y,1,1, MOUSE_LEFT);
minimap.waitPlayerMoving();
wait(randomRange(1000,1500));
end;
end;
end;
procedure GoingToSpinningWheel();
var
SpinningWheelsymbol: TPoint;
begin
//minimap.waitPlayerMoving();
//wait(randomRange(500,750));
if minimap.findSymbol(SpinningWheelsymbol, MM_SYMBOL_WHEEL, minimap.getBounds()) then
begin
mouse(SpinningWheelsymbol, MOUSE_LEFT);
wait(RandomRange(500,750));
minimap.waitPlayerMoving();
//wait(RandomRange(500,750));
end;
end;
procedure Spinning();
var
x, y, WheelDTM: integer;
begin
//if mainscreen.findObject(x, y, 5470606,9, colorSetting(2, 0.13, 0.52), mainscreen.playerPoint, 20, 10, 1, ['pinning'], MOUSE_RIGHT) then
// begin
WheelDTM := DTMFromString('mggAAAHicY2NgYNjIzMCwAYg3AfEJIF4MxCYsDAzPGRkY3gPxYyD+CcRfgHgXELekuDOsac1haExyYZg1ezbDuVOHGdwyzjBIAs3ChhlxYAgAAES/E2Y=');
if findDTM(WheelDTM, x, y, mainscreen.getBounds()) then
begin
mouse(x,y,3,3, MOUSE_MOVE);
if isMouseOverText(['pinning']) then
begin
mouse(x,y,1,1, MOUSE_RIGHT);
//wait(randomRange(250,750));
if chooseOption.select(['pin']) then
begin
if productionscreen.isOpen(randomRange(750, 1500)) then
begin
//minimap.waitPlayerMoving(); //pointless
//wait(randomRange(250,500));
if productionscreen.clickStart(true) then
tabBackPack.waitSlotPixelChange(28, 55000);
//wait(randomRange(52250, 54000)); //bad
end;
end;
end;
end;
//end
end;
procedure GoingUpstairs();
var
x,y,StairDTM: integer;
begin
StairDTM := DTMFromString('mbQAAAHicY2VgYOBgZmDgAuIXTAwMGkBaFIjNgGwpIHYGYg8gjgTiDZvWMNTG2jO0pXgydGf6MbSlejJIAvWjY0YsGAwAcboJ2w==');
if findDTM(StairDTM, x, y, mainscreen.getBounds()) then
begin
mouse(x,y,3,3, MOUSE_MOVE);
//minimap.waitPlayerMoving();
if isMouseOverText(['aircase']) then
begin
mouse(x,y,1,1, MOUSE_RIGHT);
chooseOption.select(['up']);
minimap.waitPlayerMoving();
end;
end;
end;
begin
clearDebug();
setupSRL();
wait(500);
minimap.clickCompass();
wait(500);
mainScreen.setAngle(MS_ANGLE_HIGH);
repeat
Findingbank();
Banking();
GoingDownstairs();
GoingToSpinningWheel();
Spinning();
GoingUpstairs();
until (not isLoggedIn()); //better than 0=2
end.