program HideCrafter;
  {$define SMART}
  {$i srl/srl.scar}
  {$i SRL/SRL/misc/paintsmart.scar}

  {  ~ToDo list~
  -MPoint needs to be specified
  -HasHides function (returns if we have a full inventory of hides, based on what we're crafting)
  -Check for thread
  -Count completed armor pieces when crafting after crafting an inventory of hides
  -Bank armor pieces & withdraw a full inventory
  }

Const
  What = 'Green bodies';

Var
  MPoint: TPoint;
  FinalDTM,DTimer,EndNum,
  StartDTM: Integer;

  Procedure LoadVars;
  begin
    Case Lowercase(What) of
      'green bodies':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYNjGwsBwGIoPAnE5IwNDIRBXAXEdEHNYcwFVMSFhVMCIhkEAAHTsBU0=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYPBkYWAIAuJgKL2fkYFhIxDvBuITQMwdyAtUxYSEUQEjGgYBADWABL8=');
          MPoint := Point(160,425);  //Update this
          DTimer := 20000;
          EndNum := 9;
        end;
      'green chaps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYNjGwsBwGIoPAnE5IwNDIRBXAXEdEHNYcwFVMSFhVMCIhkEAAHTsBU0=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYPBgYWDwBWJ/KH7AyMBwCYhvA/EzIOb25wWqYkLCqIARDYMAAFBCBTA=');
          MPoint := Point(160,425);  //Update this
          DTimer := 24000;
          EndNum := 13;
        end;
      'green vamps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYNjGwsBwGIoPAnE5IwNDIRBXAXEdEHNYcwFVMSFhVMCIhkEAAHTsBU0=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYJjJwsAwH4iXAvFaIN7NyMCwGYi3AfEuIGbVYAOqYkLCqIARDYMAAIozBb4=');
          MPoint := Point(160,425);  //Update this
          DTimer := 48000;
          EndNum := 27;
        end;

      'blue bodies':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYOhlYWCYCcXTgbiMkYGhEIirgLgOiLl4vICqmJAwKmBEwyAAAEVXBLg=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYJBnYWDQAGJNKP2YkYHhKhDfB+I3QOzmFghUxYSEUQEjGgYBADxDBRs=');
          MPoint := Point(160,425);  //Update this
          DTimer := 20000;
          EndNum := 9;
        end;
      'blue chaps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYOhlYWCYCcXTgbiMkYGhEIirgLgOiLl4vICqmJAwKmBEwyAAAEVXBLg=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYJjDwsCwEIgXQ/EDRgaGS0B8HYifAbGbWyBQFRMSRgWMaBgEAM0rBvI=');
          MPoint := Point(160,425);  //Update this
          DTimer := 24000;
          EndNum := 13;
        end;
      'blue vamps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYOhlYWCYCcXTgbiMkYGhEIirgLgOiLl4vICqmJAwKmBEwyAAAEVXBLg=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYChgYWAoBeJqIG4G4nuMDAzXgfgWI4StoWENVMWEhFEBIxoGAQCLaQX+');
          MPoint := Point(160,425);  //Update this
          DTimer := 48000;
          EndNum := 27;
        end;

      'red bodies':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYEhiYWDIh+JcIK5gZGAoBOIqIK4FYmseDqAqJiSMChjRMAgAAA8zA/8=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYJBnYWDQAGJNKD2bkYGhF4inA/ESIPZVUQKqYkLCqIARDYMAAOfsA7E=');
          MPoint := Point(160,425);  //Update this
          DTimer := 20000;
          EndNum := 9;
        end;
      'red chaps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYEhiYWDIh+JcIK5gZGAoBOIqIK4FYmseDqAqJiSMChjRMAgAAA8zA/8=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYPBgYWDwR8IzGBkY+oF4MhDPA2J/VWWgKiYkjAoY0TAIAAAWIARH');
          MPoint := Point(160,425);  //Update this
          DTimer := 24000;
          EndNum := 13;
        end;
      'red vamps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYEhiYWDIh+JcIK5gZGAoBOIqIK4FYmseDqAqJiSMChjRMAgAAA8zA/8=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYJjJwsAwF4iXAvFaIC5mZGDIAuI8IC4CYm1ONqAqJiSMChjRMAgAAEUeBKI=');
          MPoint := Point(160,425);  //Update this
          DTimer := 48000;
          EndNum := 27;
        end;

      'black bodies':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYDBnYWBwBGJXKK5gZGDIAeJCIK4CYjkZGaAqJiSMChjRMAgAANggA0o=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYJBnYWDQAGJNKF3OyMCQCcTFQNwAxBpqakBVTEgYFTCiYRAAAL62AwI=');
          MPoint := Point(160,425);  //Update this
          DTimer := 20000;
          EndNum := 9;
        end;
      'black chaps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYDBnYWBwBGJXKK5gZGDIAeJCIK4CYjkZGaAqJiSMChjRMAgAANggA0o=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYPBgYWDwR8IljAwM2UCcD8RVQKyhpgZUxYSEUQEjGgYBAOwOA5Q=');
          MPoint := Point(160,425);  //Update this
          DTimer := 24000;
          EndNum := 13;
        end;
      'black vamps':
        begin
          StartDTM := DTMFromString('mWAAAAHicY2FgYDBnYWBwBGJXKK5gZGDIAeJCIK4CYjkZGaAqJiSMChjRMAgAANggA0o=');
          FinalDTM := DTMFromString('mWAAAAHicY2FgYMhnYWAoBuJqIG4G4t2MDAybgHgbEO8CYj5eXqAqJiSMChjRMAgAAFP0BQg=');
          MPoint := Point(160,425);  //Update this
          DTimer := 48000;
          EndNum := 27;
        end;
    end;

  end;

  Function Antiban: Boolean;
  var
    i: Integer;
  begin
    if not LoggedIn then Exit;

    i := Random(15);
    case i of
      1:
        begin
          RandomRClick;
          Result := True;
        end;
      2:
        begin
          RandomMovement;
          Result := True;
        end;
      3:
        begin
          HoverSkill('Crafting', False);
          Result := True;
        end;
    end;

    Wait(RandomRange(250,350));
  end;

  Procedure WhileCrafting;
  var
    I,I2,T: integer;
  begin

    I := CountItems('dtm', FinalDTM, []);
    MarkTime(T);
    repeat
      FindNormalRandoms;
      ClickToContinue;
      Antiban;

      I2 := CountItems('dtm', FinalDTM, []);

      if (I2 = EndNum) then
        break;

      if (I <> I2) then
      begin
        Marktime(T);
        I := CountItems('dtm', FinalDTM, []);
      end;

      if (TimeFromMark(T) > DTimer) then
      begin
        FreeDTM(FinalDTM);
        Exit;
      end;

    until(false)

    FreeDTM(FinalDTM);
  end;

  //1 = needle interface, 2 = main crafting interface
  Function CraftScreen(Which: Integer): Boolean;
  var
    X,Y: Integer;
  begin
    Result := False;
    if (Which = 1) then
      Result := FindText(X, Y, 'tool do', SmallChars, 165, 350, 350, 375)
    else if (Which = 2) then
      Result := FindText(X, Y, 'make', SmallChars, 40, 340, 290, 380);
  end;

  Procedure CraftHides;
  var
    T,T2,Slot: Integer;
  begin
    if not LoggedIn then Exit;

    if HasHides then
    begin
      Slot := RandomRange(3, 24);
      MouseItem(Slot, True);

      MarkTime(T)
      repeat
        FindNormalRandoms;
        if TimeFromMark(T) > 5000 then
          Exit;
        if (CraftingScreen(1) or CraftingScreen(2)) then
          break;
      until(false)

      if CraftingScreen(1) then
      begin
        MMouse(245, 410, 10, 10);
        ClickMouse2(True);

        MarkTime(T2)
        repeat
          FindNormalRandoms;
          if TimeFromMark(T2) > 5000 then
            Exit;
          if CraftingScreen(2) then
            break;
        until(false)
      end;

      if CraftingScreen(2) then
      begin
        MMouse(MPoint.X, MPoint.Y, 10, 10);
        ClickMouse2(True);
      end;

      WhileCrafting;

    end else
      Exit;
  end;

begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;



end.