program new;

var
  products := [
    'https://no.iherb.com/pr/california-gold-nutrition-organic-lion-s-mane-90-plantcaps/82841?_gl=1*p8qjtt*_up*MQ..*_gs*MQ..&gclid=Cj0KCQiA7rDMBhCjARIsAGDBuECgr8s7L8kTS7zz7V8Is2mW2kmXibcK3TM2kotp-5IQfqQSxBNM23UaAtJMEALw_wcB&gclsrc=aw.ds',
    'https://no.iherb.com/pr/california-gold-nutrition-mem-boost-memory-cognitive-support-with-alpha-gpc-lion-s-mane-extract-coffee-fruit-extract-and-phosphatidylserine-60-veggie-capsules/114149?_gl=1*1bs1ael*_up*MQ..&gclid=Cj0KCQiA7rDMBhCjARIsAGDBuECgr8s7L8kTS7zz7V8Is2mW2kmXibcK3TM2kotp-5IQfqQSxBNM23UaAtJMEALw_wcB&gclsrc=aw.ds'
  ];

  Share, Shorten, CopyUrl, VerifyShare: TImage;
var
  p: TPoint;
begin
  Share := new TImage();
  Shorten := new TImage();
  CopyUrl := new TImage();
  VerifyShare := new TImage();

  Share.FromString(
  'IMG:AQAAABYAAAAWAAAAAAAAAB1LdQABAAAAIL5sAAEAAABYAAAAAAAAAHDiPwEAA' +
  'AAAAQAAABYAAAAWAAAAIAAAAAAAAAAAAAAAAAAAAAMAAAAgCBAICAgACBgBAAACAA' +
  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMI12CAAAAACQBwAAAAAAALAYxQgAiVB' +
  'ORw0KGgoAAAANSUhEUgAAABYAAAAWCAIAAABL1vtsAAAAs0lEQVR4nL2T0Q3DIAxE' +
  'mbY7dAeGYAdmYAh2YAf61FNRQqpQO1H9ZaLcwz7j0C9H+Csi5/x8B0lrzYxA9tgER' +
  'zNCylprKYWEWmwIyhaCBIoZMbVga4QLY4zSpJRk56SfEfoJGckQ8wXWyU1hqz8veI' +
  '2YPJd5S/0OoT6H5x7E10aoaAna2YntshMluSgcf7XzGCjVnYYK17kj4zlc2pHxwP0' +
  '70g/z8iBuWPb+mddiR3xxA+IFJ5z6GufZBA4AAAAASUVORK5CYII=');


  Shorten.FromString(
  'IMG:AQAAAH0AAAAgAAAAAAAAAB1LdQABAAAAIL5sAAEAAAD0AQAAAAAAAHDiPwEAA' +
  'AAAAQAAAH0AAAAgAAAAIAAAAAAAAAAAAAAAAAAAAAMAAAAgCBAICAgACBgBAAACAA' +
  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4FtGCAAAAACAPgAAAAAAAKBOIQYAiVB' +
  'ORw0KGgoAAAANSUhEUgAAAH0AAAAgCAIAAACw8uBbAAAEW0lEQVR4nO2ZSyhtURyH' +
  'D4UMKEIkDCiPkpEyIAMZkJSiZCAlRR4DEyWlKFEGZOAxMUDUpYSQR0kSuiED5ZWBn' +
  'DzzppB9v87KarfPubd9z9XZ52b/Rnuvtf7r8a21fmvtcyyKKSNkMboD31Qmd2Nkcj' +
  'dGJndjZHI3Ro65Pz09HR4ebm5u/tQhilGYEBd3/b+WA+4QBOXFxcX7+7ueKihGYUJ' +
  'M9PrlgDuLF45/WxEhBH5Fl76FHHBn5epc6WoRQuBXdOlbyAF3LNu5uvQE3tzcXF1d' +
  'fXx8yNe6urqtrS3nWvx/5TruS0tL0dHRFps8PT1ra2vf3t6sVmtkZOTExIRzLUrd3' +
  '987sUft9fDwkJ6erulPa2sriWTxXFxcbPlUSEhIe3v76+urDKSkzoZcxP3s7CwhIa' +
  'GlpQU6LPaDg4OdnR3Sv4T75eVldnY2Vf1LJUJ6uCPFtlMnJycDAgK6u7sVt+VOVkR' +
  'EhH0BYEVFRY2Ojg4NDZWVlTU1Nanx4UgdHR2adAbc1tZGFlFkraysNDQ0+Pn5FRUV' +
  '1dTUHB8fK7bDZmpqqqKiorq6em1tTdgabtbb23t6ekptBNLi8/Ozpj/6uQvV19fTL' +
  'vW7KXf1elenQzM+Pj45ORlAw8PDubm5FDs5OSFrb28PXyosLCS9qqoqNDR0fX1dhC' +
  'QmJubl5WVkZLDNFxYWGG14eHhfX9/4+Pj19TUUmJiYmBgoUyAwMJAZIhCaYWFhKSk' +
  'pnZ2dZFF5eXk5Xqfuz19xp6HKykrx6qbc0eLiYlBQUHBwMFDu7u5EovCZxsZG8Sqm' +
  'Z3p6WgypoKBAuCevLGrM5OXlRYSUlJSILNFuUlKS3BC7u7tAl53p6uoS1KDp7e29u' +
  'roq0mdmZuLi4mhR3Uk93PPz82mLxcFMY/Hz8/OKO3NHj4+P/f39LDR/f3/gKnb+Lo' +
  'ctHnp6emQs5XEkq02aI0HDXfBl+5fZlJmZSXlySRcPDqM0HVAnarh7eXnhmTg7AxG' +
  'nlOLm3IWwmubmZtY15+GfuY+NjcmojY0N7EUn99jY2IGBgR+fYs6w8q/iLoyFg4Tt' +
  'MjIyog50a+6K7U4JGnuIctj4Ca7CqSVDBgcHHU6VYkeQjU+Bo6MjTaN6uIt21fiE4' +
  '5WWlopXtb9zk5GnkZtyh8L29rZwZMwdE8jJyWEN/o47zyx2FtT+/j7PnJapqaniGL' +
  'DnTs1YEPcW8cpVh4MaUuK6QqNiDvRwR2wUPGR2dhbibE32Ckf63NycyFVzv729TUt' +
  'L4+CR9xmerZ9Sfx7ay0Xcl5eXfX195RdHVlaWWCZ/4M6YuXj4+PhAge8sLjwcD/Yh' +
  'io0sNxMPDw9ukyIdE4CIbE7sG53cqY1bkOwtFwHMRBLU3COZDy4LTLnouUUlaU0O5' +
  'VKfoR/cH+Q9RI+gj7foCXmwSZNyfn7u3HcsoFmwfCs4EatH5u9ixsj8HdgYmf97GC' +
  'Pzfz5jZP6vbYxM7sbI5G6MTO7GyORujEzuxugXC8z/zExIcQ8AAAAASUVORK5CYII' +
  '=');

  CopyUrl.FromString(
  'IMG:AQAAABcAAAAXAAAAAAAAAB1LdQABAAAAIL5sAAEAAABcAAAAAAAAAHDiPwEAA' +
  'AAAAQAAABcAAAAXAAAAIAAAAAAAAAAAAAAAAAAAAAMAAAAgCBAICAgACBgBAAACAA' +
  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcPeqCAAAAABECAAAAAAAAFBcfQgAiVB' +
  'ORw0KGgoAAAANSUhEUgAAABcAAAAXCAIAAABvSEP3AAAAsElEQVR4nK2UXQ3AIAyE' +
  '8TQd2EAHNrCBDmygY7ukydKUlv97I1y+livg3htylykppceQ9x67Y0oH8SvGOKCgG' +
  'nylFNVUa6WOBhSq1um5L5OyFJNOWY1Jp6zGpFOGMQnDLCXnjBaOKEBgyRPdoVDY+5' +
  'QQQjvmZQrGKSjgmhQaLc5/dCJ+zSzKX8OkYIqwUketCbscYVKE2vvSN+gUEZMQXsY' +
  'UZeY18rB1Co+plfkzHOoDjnmZ8AVtSgoAAAAASUVORK5CYII=');

  VerifyShare.FromString(
  'IMG:AQAAAHcAAAAaAAAAAAAAAB1LdQABAAAAIL5sAAEAAADcAQAAAAAAAHDiPwEAA' +
  'AAAAQAAAHcAAAAaAAAAIAAAAAAAAAAAAAAAAAAAAAMAAAAgCBAICAgACBgBAAACAA' +
  'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcCpFCAAAAABYMAAAAAAAADD2JgYAiVB' +
  'ORw0KGgoAAAANSUhEUgAAAHcAAAAaCAIAAAACMVRZAAAEq0lEQVR4nO2YsWsiSxzH' +
  'RRFFCSvhDjmRyJJDEhRRVB57hizJsRcSA3mxMF7j4+Q0HMELS0I23Ds9nopEG8vXW' +
  'KVLlSqVVTorq+1SWW1llX/g7czO6Liu6528u817ZvkV7s6M853P/H6/+e2aHpumZ/' +
  'vZZryCRTDjFSyCGa9gEcx4BYtgxitYBJtjjFmqWPsVq1Q3Xv1/xXSb6/b7gqeU9pX' +
  'eu2/P7dKV8pwSouDK5GyGKB5UHHc5r6yqVaB61Rmd+5euu+K4ndkHT4eydOrjYtGx' +
  'K053rgymrFYVW29/1evfSUXV11v3w5Oh7KwxUNMW3T5x3eZ8+a0wd7QEmwykbGtzY' +
  'Gru9xfit6UW/B1NU7Mps34QkYr9QfWfCuWyOwPUhZoC8bBhIinnC/ZO1p/aDCY3g9' +
  'kj18PVsJul98nDvwsmN8IME0pu+5tFGw5S2/W+3H/1tmKSeE9+O5jcdYuwSRJelvY' +
  'CSeXfUi+72qnA1n4LphY+g9v7ozAAmHHOppzS2IlBmWqngX42HmHHJ30ovJZl8CfW' +
  'xyrVAqr8IGLOvEBehhqUXU0kdU0oOKX5KdddfAx5zQhfc4wylwiNReLuC+wjjhYLH' +
  'jBvghyDGvPHVhLTSYrmiPiVTtEtu4GHJOhOTUNYLxuEo7w3udfc92cMTcrFVZhzwt' +
  'xmGMlMrHShJz3k1sHtPi0klIb1dtn0eErDVYVUiRQvbQ7KYD0BnPtCJ1mKYI0oR5n' +
  'Vm7JZ9ty7lILbf1NBfaQ/HWLNDH9bbvbJPUCUwSa9816js8jZhIvJfLDDULC1d8Bt' +
  'MuvQEHZFlX7D64uvtQQL9AlLH5Q9lsljbTIvjxJdw9q7tA6UABW8SdAYrl0QlAH3t' +
  'WZBPjOXxDqmLLvCAfS8urPJqtzrxynLgLqyvwz3Lb6GvQZRHoXqxQo73HA01ix9c3' +
  'TgmX59GBz67IgyeQTh7MR/RGUAGnKwrKbWsLd3IkNezI5bhIyU1KF5rOlRhtsjniu' +
  'TerOwVTglKZMrGlJGOyFbNzN13u+nrPiOrZPFrBPeLkF5JBdhQpokwZNnoupLRZkM' +
  'YewjU4aMrPseBk1s/e9zV2kD9uFeiVWU3LIFjcidmjEa1ttUcFLmOGW6Qw5BOkfoU' +
  'bd/gTK0Ae8jvFWfMkrK8vp78LVF/BCYQfnSA6M10LqwwsDHVjWPy8BjD13gtkYh0M' +
  'gDfB2tt6RplFFSjoaEohVETMMlGED57JWQo0SsW/pMQ3RK5tWnrGrFeVmHcoMSICm' +
  'Ul9FD80B96qIyLsqu3CsHY3WZRzk6whctmguZRlnNEeXlX0wZR7FcJ8gFGQqng2VY' +
  'tehTxhzjAT7t47cjyNd0KMv+jk8bbpeWS1phL8DG0YJJ6x/7kRJQGIRY8qzfwug1K' +
  'ZOXogQvEMx46AcpMfbrKZeXBS48UhYLZ0YV8Yy8/PjVnY2jccy29/4vmDd1Kcunpf' +
  'iJzhBpkmH9118mham6RZJ73rtLqrYF7zZ8k8Xf9Hc/SyeNK1G5iDq2KzWiIXlZ+TC' +
  'kUSHNMjBwjs9Jgxr8DqXOFZrdLKgII23yib6BEnCO1f2w/fQJnu2Z8jPl/5EZr2AR' +
  'zHgFi2DGK1gE+wc9N2CsSan5CAAAAABJRU5ErkJggg==');
end;

var
  AllGood: Boolean;
  product: string;
begin
  for product in products do
  begin
    URLOpenInBrowser(product);
    Sleep(1000);
    AllGood := SleepUntil((p := Target.FindImage(Share, 0.1)) <> [-1,-1], 100, 10000);
    if not AllGood then
      TerminateScript('Failed to find share button');

    Target.MouseMove(p + [15,15]);
    Target.MouseClick(EMouseButton.LEFT);


    AllGood := SleepUntil((p := Target.FindImage(VerifyShare, 0.05)) <> [-1,-1], 100, 10000);
    if not AllGood then
      TerminateScript('Failed to open share menu');

    AllGood := SleepUntil((p := Target.FindImage(Shorten, 0.05)) <> [-1,-1], 100, 10000);
    if not AllGood then
      TerminateScript('Failed to find the shorten-url option');

    Target.MouseMove(p + [15,15]);
    Target.MouseClick(EMouseButton.LEFT);

    // wait a bit for it to shorten
    Sleep(1000);

    // add url to clipboard
    AllGood := SleepUntil((p := Target.FindImage(CopyUrl, 0.05)) <> [-1,-1], 100, 10000);
    if not AllGood then
      TerminateScript('Failed to copy to clipboard - no such button');

    Target.MouseMove(p + [12,12]);
    Target.MouseClick(EMouseButton.LEFT);

    Sleep(500);

    WriteLn(GetClipBoard());
  end;
end.