Plank Maker

program PlankMaker;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Reflection/Reflection.simba}
{$i SRL-OSR\SRL\misc\debug.simba}
{$i SRL-OSR\SRL\misc\SmartGraphics.simba}

var
   BankCord, shopcord: tpointarray;
  planksmade, cx, cy: integer;

const
  bankpin = '1234';

procedure playerSetup;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := 'zezima';
  Players[0].Pass := 'iscool';
  Players[0].Nick := 'ezim';
  Players[0].Active := True;
end;

procedure WaitShortClick;
begin
  case random(600) of
    1..450: Wait(RandomRange(100, 150));
    451..570: Wait(RandomRange(150, 200));
    571..590: Wait(RandomRange(200, 250));
    591..600: Wait(RandomRange(250, 400));
  end;
end;

procedure Keyboards;
begin
  case random(5) of
    0..2:
      begin
        KeyDown(37);
        WaitShortClick KeyUp(37);
        WaitShortClick KeyDown(40);
        WaitShortClick KeyUp(40);
      end;
    3..4:
      begin
        KeyDown(39);
        WaitShortClick KeyUp(39);
        WaitShortClick KeyDown(38);
        WaitShortClick KeyUp(38);
      end;
    5:
      begin
        KeyDown(38);
        WaitShortClick KeyUp(38);
        WaitShortClick KeyDown(39);
        WaitShortClick KeyUp(39);
      end;
  end;
end;

function HoverNearbyNpc: boolean;
var
  I: Tpointarray;
  P: Integer;
begin
  I := GetMiniMapDots('npc');
  if (length(I) > 6) then
  begin
    SortTPAFrom(i, Point(MMCX, MMCY));
    P := random(length(I)) Mmouse(I[0].x, I[0].y, 3, 3);
    result := true;
  end;
end;

procedure Antiban;
begin
  case random(140) of
    0..2: hoverskill(skill_hitpoints, false);
    3..7.: HoverSkill(skill_strength, False);
    12..15: hoverskill(skill_attack, false);
    16..19: HoverOnlineFriend;
    20: BoredHuman;
    30: MMouseOffClient('top');
    40: MMouseOffClient('left');
    50: MMouseOffClient('right');
    60: MMouseOffClient('bottom');
    70: SmallRandomMouse;
    80: RandomAngle(1);
    90: RandomAngle(2);
    100: PickUpMouse;
    110: CompassMovement(10, 70, true);
    120: HoverNearbyNpc;
    130: Keyboards;
    140: writeln('hi');
  end;
end;

procedure SecondAntiban2;
begin
  case random(20) of
    1: PickUpMouse;
    2: BoredHuman;
    3: MMouseOffClient('left');
    4: MMouseOffClient('right');
    5: MMouseOffClient('bottom');
    6: SmallRandomMouse;
    7: boredhuman;
    8: SmallRandomMouse;
    10: keyboards;
  end;
end;

procedure WaitHumanClick;
begin
  case random(600) of
    1..450: Wait(RandomRange(400, 600));
    451..570: Wait(RandomRange(400, 600));
    571..590: Wait(RandomRange(600, 800));
    591..600: Wait(RandomRange(800, 1000));
  end;
end;

procedure WaitHumanClick2;
begin
  case random(600) of
    1..450: Wait(RandomRange(1000, 1500));
    451..570: Wait(RandomRange(1500, 2000));
    571..590: Wait(RandomRange(2000, 2500));
    591..600: Wait(RandomRange(2500, 3000));
  end;
end;

procedure WaitHumanClick3;
begin
  case random(600) of
    1..450: Wait(RandomRange(3000, 5000));
    451..570: Wait(RandomRange(5000, 5500));
    571..590: Wait(RandomRange(6000, 6500));
    591..600: Wait(RandomRange(7000, 7500));
  end;
end;

var
  BankCords, SawmilCord: array of Tpoint;

procedure myvars;
begin
  SawmilCord := [Point(3253, 3420), Point(3253, 3425), Point(3257, 3428), Point(3262, 3428), Point(3267, 3428), Point(3272, 3429), Point(3275, 3433), Point(3275, 3438), Point(3279, 3441), Point(3281, 3446), Point(3281, 3451), Point(3281, 3456), Point(3281, 3461), Point(3284, 3465), Point(3287, 3469), Point(3290, 3473), Point(3293, 3478), Point(3295, 3483), Point(3300, 3486), Point(3303, 3490)] BankCords := [Point(3302, 3491), Point(3302, 3486), Point(3299, 3481), Point(3295, 3477), Point(3291, 3473), Point(3290, 3468), Point(3287, 3464), Point(3285, 3459), Point(3285, 3454), Point(3284, 3449), Point(3282, 3444), Point(3279, 3440), Point(3275, 3437), Point(3275, 3432), Point(3270, 3430), Point(3265, 3430), Point(3260, 3430), Point(3255, 3427), Point(3253, 3422)] BankCord := [point(2843, 3542)];
  shopcord := [point(2838, 3549)];
end;

function GetGreenUptext: string;
var
  WhiteT, BlueT, YellowT, OrangeT, GreenT, FoundText: string;
begin
  WhiteT := GetTextAtExWrap(8, 8, 300, 21, 0, 5, 1, 14541281, 55, 'UpChars07');
  BlueT := GetTextAtExWrap(35, 8, 300, 21, 0, 5, 1, 13423640, 65, 'UpChars07');
  YellowT := GetTextAtExWrap(35, 8, 300, 21, 0, 5, 1, 1235160, 40, 'UpChars07');
  OrangeT := GetTextAtExWrap(35, 8, 300, 21, 0, 5, 1, 4687583, 53, 'UpChars07');
  GreenT := GetTextAtExWrap(8, 8, 300, 21, 0, 5, 1, 120577, 65, 'UpChars07');
  FoundText := WhiteT + ' ' + BlueT + YellowT + OrangeT + GreenT;
  FoundText := ReplaceWrap(FoundText, '.', '', [rfReplaceAll]);
  FoundText := ReplaceWrap(FoundText, '/', '', [rfReplaceAll]);
  FoundText := ReplaceWrap(FoundText, '\', '', [rfReplaceAll]);
  FoundText := ReplaceWrap(FoundText, ',', '', [rfReplaceAll]);
  FoundText := ReplaceWrap(FoundText, '*', '', [rfReplaceAll]);
  FoundText := ReplaceWrap(FoundText, '^', '', [rfReplaceAll]);
  FoundText := ReplaceWrap(FoundText, '"', '', [rfReplaceAll]);
  Result := FoundText;
end;

function IsUpTextMultiCustom2(Text: TStringArray): Boolean;
var
  TheText: string;
  i, n: Integer;
begin
  TheText := GetGreenUptext;
  n := High(Text);
  for i := 0 to n do
    if (Pos(Text[i], TheText) > 0) then
    begin
      Result := True;
      Exit;
    end;
end;

function WaitUpTextMulti2(S: TStringArray; Time: Integer): Boolean;
var
  T: Integer;
begin
  Result := false;
  T := GetSystemTime + Time;
  while (GetSystemTime < T) do
  begin
    if (IsUpTextMultiCustom2(S)) then
    begin
      Result := True;
      Exit;
    end;
    Wait(20 + Random(20));
  end;
end;

function OpenWScreen: Boolean;
begin
  Result := False;
  if WorldScreen then
    exit;
  if Loggedin then
    Exit;
  if not WorldScreen then
  begin
    Mmouse(54, 475, 1, 1);
    WaitHumanClick;
    ClickMouse2(Mouse_Left);
    waithumanclick;
    Result := True;
  end;
end;

function whitecolor: boolean;
var
  Monster: TpointArray;
  TmpCts: Integer;
begin
  tmpcts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.22, 1.69);
  result := FindColorsTolerance(Monster, 9163999, 192, 67, 583, 469, 4);
  ColorToleranceSpeed(tmpcts);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

procedure ProgressReport;
begin
  if (not (loggedin)) then
    exit;
  ClearDebug;
  WriteLn('*  FPlanker');
  WriteLn('*  Runtime: ' + TimeRunning);
  Writeln('*');
  writeln('*  Planks Made      ' + IntToStr(PlanksMade));
end;

function FindObjExX(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tol, CTS: integer; Hue, Sat: Extended; Step, xs, ys, xe, ye: Integer): Boolean;
var
  MidX, MidY, i, j, k, x, y, width, height, HalfWidth, HalfHeight: Integer;
  ColorFound: Boolean;
  SearchBoxes: array of array of TBox;
  p: TPointArray;
begin
  if (not (loggedin)) then
    exit;
  Result := False;
  for i := 0 to (GetArrayLength(Color) - 1) do
  begin
    ColorToleranceSpeed(CTS);
    SetColorSpeed2Modifiers(Hue, sat);
    if (FindColorSpiralTolerance(cx, cy, Color[i], xs, ys, xe, ye, Tol)) then
    begin
      ColorToleranceSpeed(1);
      SetColorSpeed2Modifiers(0.2, 0.2);
      ColorFound := True;
      Break;
    end;
  end;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(0.2, 0.2);
  if not (ColorFound) then
    Exit;
  MidX := Round((xe - xs) / 2);
  MidY := Round((ye - ys) / 2);
  Width := Ceil(abs(xe - xs) / 2 / Step - 0.5) * 2 + 1;
  Height := Ceil(abs(ye - ys) / 2 / Step - 0.5) * 2 + 1;
  SetLength(SearchBoxes, Width);
  HalfWidth := Floor(Width / 2);
  HalfHeight := Floor(Height / 2) for x := - 1 * HalfWidth to HalfWidth do
  begin
    SetLength(SearchBoxes[x + HalfWidth], Height);
    for y := - 1 * HalfHeight to HalfHeight do
      SearchBoxes[x + HalfWidth][y + HalfHeight] := IntToBox(Max(xs, xs + Round(MidX + ((x - 0.5) * Step))), Max(ys, ys + Round(MidY + ((y - 0.5) * Step))), Min(xe, xs + Round(MidX + ((x + 0.5) * Step))), Min(ye, ys + Round(MidY + ((y + 0.5) * Step))));
  end;
  p := TPAFromBox(IntToBox(0, 0, Width - 1, Height - 1));
  SortTPAFrom(p, Point(floor(Width / 2), floor(Height / 2)));
  for k := 0 to High(Color) do
    for j := 0 to High(p) do
    begin
      ColorToleranceSpeed(CTS);
      SetColorSpeed2Modifiers(Hue, sat);
      if (FindColorTolerance(cx, cy, Color[k], SearchBoxes[p[j].x][p[j].y].x1, SearchBoxes[p[j].x][p[j].y].y1, SearchBoxes[p[j].x][p[j].y].x2, SearchBoxes[p[j].x][p[j].y].y2, Tol)) then
      begin
        ColorToleranceSpeed(1);
        SetColorSpeed2Modifiers(0.2, 0.2);
        MMouse(cx, cy, 3, 3);
        wait(randomrange(200, 300));
        if (WaitUptextMulti2(Text, 300)) then
        begin
          ColorToleranceSpeed(1);
          SetColorSpeed2Modifiers(0.2, 0.2);
          GetMousePos(cx, cy);
          Result := True;
          Exit;
        end;
      end;
      ColorToleranceSpeed(1);
      SetColorSpeed2Modifiers(0.2, 0.2);
    end;
  ColorToleranceSpeed(1);
  SetColorSpeed2Modifiers(0.2, 0.2);
end;

procedure loginloop;
begin
  OpenWorldScreen;
  repeat
    if whitecolor then
      break;
    if whitecolor then
      writeln('yeaya');
    if not whitecolor then
      writeln('yea22ya');
    case random(10) of
      0..2: mouse(randomrange(397, 554), randomrange(78, 394), 1, 1, mouse_move);
      3..4: mouse(randomrange(298, 462), randomrange(200, 392), 1, 1, mouse_move);
      5..6: mouse(randomrange(205, 555), randomrange(80, 154), 1, 1, mouse_move);
      7..10: mouse(randomrange(211, 555), randomrange(246, 367), 1, 1, mouse_move);
    end;
  until (whitecolor) if whitecolor then
  begin
    clickmouse2(mouse_left);
    waithumanclick;
    currentworld;
    waithumanclick;
    if (CurrentWorldLS = 365) then
      exit;
    waithumanclick;
    loginplayer;
    exit;
  end;
end;

function FindObject2(Color: TintegerArray; Tol, CTS: integer; hMoD, sMoD: extended; split, sort: integer; Uptext: array of string; WaitUptextWait, WaitUptextRandom: Integer; x, y, xs, ys: integer): boolean;
var
  III, i, tmpcts: integer;
  TPA: tpointarray;
  TPAA: T2DPointArray;
begin
  if (not (loggedin)) then
    exit;
  gametab(tab_inv);
  tmpcts := GetColorToleranceSpeed;
  ColorToleranceSpeed(CTS);
  SetColorSpeed2Modifiers(hMoD, SMoD);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, color[III], x, y, xs, ys, Tol) ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);
  if (length(TPA) > 0) then
  begin
    Result := True;
  end;
end;

function LocateNPC(Name, Uptext: string): boolean;
var
  Tp: Tpoint;
  NpcName: tnpc;
begin
  if R_FindNpc(Name, NpcName) then
  begin
    if NpcName.InCombat then
      exit;
    Tp := NpcName.Tile;
    Tp := R_TileToMs(Tp);
    Mmouse(Tp.x, Tp.y, 0, 0);
    if R_WaitUptext(Uptext, 200) then
    begin
      result := true;
    end;
  end;
end;

procedure buyplanks;
begin
  if not R_IsRunOn then
  begin
    Mouse(570, 148, 3, 3, mouse_left);
    waithumanclick2;
  end;
  R_FindNormalRandoms;
  R_WebWalk(Point(3303, 3490));
  R_FindNormalRandoms;
  waithumanclick;
  if LocateNPC('Sawmill', 'Sawmill') then
  begin
    clickmouse2(mouse_right);
    WaitOptionMulti(['uy', 'Buy', 'Plank'], 500);
    waithumanclick2;
    R_FindNormalRandoms;
    if FindObjExX(cx, cy, ['Buy', 'uy', '1'], [5008518], 1, 2, 0.04, 0.44, 50, msx1, msy1, msx2, msy2) then
    begin
      clickmouse2(mouse_right);
      WaitOptionMulti(['All', 'll'], 500);
      waithumanclick2;
      R_FindNormalRandoms;
    end;
  end;
end;

procedure bankthings;
begin
  if bankscreen then
  begin
    waithumanclick2;
    MouseItem(2, mouse_right);
    waithumanclick;
    if (WaitOptionMulti(['All', 'll'], 500)) then
      waithumanclick;
    MouseBankSlot(1, mouse_Right);
    waithumanclick;
    if (WaitOption('ut-one', 500)) then
      writeln('we did it');
  end;
end;

procedure bankplanks;
begin
  if not R_IsRunOn then
  begin
    Mouse(570, 148, 3, 3, mouse_left);
    waithumanclick2;
  end;
  MakeCompass('s');
  R_WebWalk(Point(3253, 3422));
  if LocateNPC('Banker', 'Bank') then
  begin
    clickmouse2(mouse_right);
    waitoption('ank', 1000);
    waithumanclick2;
    if pinscreen then
    begin
      InPin(bankpin);
    end;
    waithumanclick2;
    if BankScreen then
    begin
      bankthings;
      CloseBank;
      IncEx(planksmade, 28)
    end;
  end;
end;

procedure Antibans;
begin
  if not loggedin then
    exit;
  R_FindNormalRandoms;
  progressreport;
  gametab(tab_inv);
  if not R_IsRunOn then
  begin
    Mouse(570, 148, 3, 3, mouse_left);
    waithumanclick2;
  end;

  case random(20) of
    0..3: Antiban;
    4..20: writeln('not doing antiban');
  end;


  case random(10) of
    1..8: writeln('doing nothing');
    9: setangle(0);
    10: setangle(1);
  end;

  case random(20) of
    1..16: writeln('doing nothingx2');
    17: MakeCompass('n');
    18: MakeCompass('s');
    19: MakeCompass('w');
    20: MakeCompass('e');
  end;

end;

procedure mainloop;
begin

progressreport;

  if FindObject2([5077144], 8, 2, 0.01, 0.51, 0, 0, ['Logs'], 300, 500, MIX1, MIY1, MIX2, MIY2) then
    Buyplanks;
  if FindObject2([4810880], 3, 2, 0.09, 0.46, 0, 0, ['Logs'], 300, 500, MIX1, MIY1, MIX2, MIY2) then
    bankplanks;
  if (not FindObject2([4810880], 3, 2, 0.09, 0.46, 0, 0, ['Logs'], 300, 500, MIX1, MIY1, MIX2, MIY2)) and (not FindObject2([5077144], 8, 2, 0.01, 0.51, 0, 0, ['Logs'], 300, 500, MIX1, MIY1, MIX2, MIY2)) then
    bankplanks;

    case random (100) of
    0..95: writeln('nada');
    96..100: antibans;
    end;
end;


begin
  playerSetup;
  setupsrl;
  SetupReflection;
  addonterminate('progressreport');
  R_Reincarnate := true;
  ReinCarnate := false;
  R_CombatRandoms := true;
  myvars;
  repeat
    wait(400);
    if not loggedin then
      loginloop;
    wait(400);
    if loggedin then
      mainloop;
  until (false);
end.