program NewScript;
{$DEFINE SMART}
{$i SRL\SRL.simba}


const
  S_World = 33;
  S_Signed = True;
  S_Member = True;

  //Irit = 1, Avantoe = 2, Snapdragon = 3, Lantadyme = 4
  HerbType = 1;
var
  Fails: Integer;
  CHerbDTM, UnfPotDTM, VowDTM, CHerbBMP, UnfPotBMP, VowBMP: Integer;
  CHerbUptxt, UnfPotUptxt: string;
  CHerbInd, VowInd: Integer;

procedure DeclarePlayer;
begin
  with Players[0] do
  begin
    Name := ''; //sign in name
    Pass := ''; //password
    Pin := '';  //pin
    Active := True;
  end;
end;

procedure SetupScript;
begin
  VowDTM := DTMFromString('mbQAAAHicY2VgYMhlYmDIB+ISIE4F4gIg5mZkYBAHYn4gFgNiNiDOKpgHVM2EgkUYMAEjFgwGAFKQBCA=');
  VowBMP := BitmapFromString(19, 26, 'meJyNlGtTUlEUhhl+TvGhMivNTO' +
        'JwEwhQ7hwCDuIJROImxFVACbKmcSqboaam0kabmi5DYzWmU5/qZ/X' +
        'Cyj0M2NEz7wfO3uvZa+13rYNMNvjIZTJurX2t8XiyfO9ydkXhmZP3' +
        'FqUfilE1N6bq6xOF5li6qnAJI2fPjI6ck2Cx5XE4mGxWi9lomNZpt' +
        'RynUk5JgwGeZ/I4u+x1g0GnVl+6MCpdpxgSoHAwGPL7fW73jNls1O' +
        'uvjI8rTp+Szrggin92tn5vb0Jf2xubrUbcpD+hOft3ln/drUOfK7l' +
        'XqVjKajqWIvBnq0YC+CIRzdksJwQPmlXSx9LSs3ik5JoNcFKWsjpJ' +
        'AN8X0k8XxZrXEdZyx4I/GhUC8eNdPgWw4fdEjVppSxHMtNeo7OQSK' +
        'PW+4EtajIJG+T8W63u9eAK/rZS2e+D6fDBrM4t69ZEgFnfrRQJJeN' +
        '3KxJ8nIk+ic/AnZtIdmRQr31fLJAK/VPOv04toRzs2D39Q7bBFeP1' +
        'UzjKQ1KnkkBEg/GkGvJlZEywa6Eu3zloBlyIRiKPeLN16mVwACH/y' +
        'dmvCbOhPih9vbydxIwaS0H2AGDn481AUKm4bkkamNTdUV+WHIGIAk' +
        'hiI7sNVgORPnXdi9jDwIY2KQDgAH1AqY0kA0UfsAoQ/GAN4i4FHUl' +
        '45CRa7XYrpEPxQzGCL/AG4JvDwFklZXxCAjP+S9gn14+4AyZ8H4QC' +
        'SFp0z6AuGgZISOIADxKySsfDn0U2hFfQue+0A7RNjdE04j08P6vRE' +
        'OBYJJGPhz6rPBcp08Xx/R1AwUiCYDun0zmH+kDno4/B/iLxPdAJAn' +
        'IZr0pc1PKV/AXL2o3g=');
  case HerbType of
    1://irit
    begin
      CHerbDTM := DTMFromString('mbQAAAHicY2VgYHBmYmBwAGJ/IHYBYj8gfgIUfw3Ej6D0MyA2DFABkkwoWIQBEzBiwWAAABbABrw=');
      UnfPotDTM := DTMFromString('mbQAAAHicY2VgYHBmYmBwAmJvIHYDYksgFmBkYBBnhNBsQCwMxP3904CqmVCwCAMmYMSCwQAAEb4DiQ==');
      CHerbBMP := BitmapFromString(26, 19, 'meJyVlHlLAlEUxeV9h/qjTA33fW' +
        'nEBVtMw8wQEURChBCJiIiIvj/9nFOPsZkkh8vjcefec85dZkKhXY8' +
        'JhaKDfGxY5NwZGJybmrXMtgeo3PKCEzN/pgajkXLcSRr3Ls/pqASa' +
        'zn3R4uNKet4+rEZiw6owC6tu/vEKP6dl8abAfnKdIcDPJTHuWyd8m' +
        'eYS6efAKax7wCYm1eS0ZjzBR+04YdnFeWrmBKIVn/q8TU4b9BAo+g' +
        '8OZuXZSAmjFliyi2Yg2qa6dY9EGpV56NDJjbZVl7v5CRAOJ6SEpef' +
        '1wqrjbwIsaFDPUYhxERqdRKoouFAg7eVOLblly7L4tWFkWRMagkvP' +
        'N9W3OyhAo6XUiB8PAqThoBQ2Hhw8+FEIIyB2mhge3hIDGs0UVOX1t' +
        'vwygMV8r4SDYBenZoVBh5193Kv54tUskGQ1S6q3QCYLb6TP0mboDG' +
        'diUrfIBNNhpGLewtGJ8ZZ0dkbdJh4BtfcRBi8DQiqYAowOyiRSCCm' +
        'Y5iuRUuUt81fb3fiGOyAm3hayJks8ArioasYBiFpBCuIDPysCEEku' +
        '7O56t1wEh1wNBUaKIgBVRIIT+OXihAVjpVkegpVOdWBqDZCkLgFOg' +
        'H+7Aj8EGbyAW51CwAmg7irkn38VCytAEJzPsdlm3PcHpZ+G/g/u3j' +
        'YRvCPlC/+Evug=');
      UnfPotBMP := BitmapFromString(19, 29, 'meJyVk1lvElEYhgk/xMRbRVNbMV' +
        'pBoFBLhYIohbKUdYalIkGggFCgbIIsbVmEDqQKXnFnE0288M/5wok' +
        'TKjgZT96LyTnfc77lPSMQrFhCgeC2SnNLqhLOv3kuRIpDqYfB+Dod' +
        'WXOH7jsCPFmEqeoMJC9eSNLVe3bff4Fbld6zbONpoiSyUjwLRoyy+' +
        'omkexI7FR14Nh6siTfWuVmrycTKaHip12peqHd2VCqlQs4B4shlt7' +
        'OymmesTqNRb28/fiTmBv1eD0S73V6n89BieaXXa3d3pZubort3uME' +
        '3fv8XZnA16F/1+xf1ej6dlkkkfIYzZ31vgwGIcjlRrUIm4znSUMBP' +
        'NANNJtWWgieIaok8DsfBvhEj5Z4MWUGaPvLRqHYOHpqNrzVqtVwq5' +
        'QZxGqC8AYoCTrtdaBAZDTrdc6USg+We6phhxszlZMj0z8+7rWa7Xv' +
        '9YLqZisQBNcYCfLwe/fnz/eX39bTqdTsZfRyP4Muz12o1GtXB6kkg' +
        'ss9hpVT8AhJB01Osxnc4sabMJN5uVSub4OEitSIodBBMKgvvDbpcF' +
        'cedJMgmDhEsUTlmKBQftdu+sRcBcKhUOBvEOhTdBFMZSEC5hwU6jA' +
        'RBv710ohDcsvJlukSIg2yYBC5lMNBxGmw6rVfgHxM0IngyHrJbBYj' +
        'abiESOfD6XzUbAs1oNHS1S0OJ8ACKmnMslo1HSpmXfCBZd/EWtBCv' +
        '5PBwhbdrMJuLCMkiqZR0BWC0U4AjbpmFvDywfsFYqYbBo0+/xaNVq' +
        '8msvOvgvsF4uv4/HQeHBLzqCgtEUtHgJNomVeHKgiPvLj4cVwSF8w' +
        'BFCLSO/Aai0wjQ=');
      CHerbUptxt := 'iri';
      UnfPotUptxt := 'it po';
    end;
    2: //avantoe
    begin
      CHerbDTM := DTMFromString('mbQAAAHicY2VgYJjBxMAwFYgXAPFiIO4D4qdA8TdA/ByIb0NpYRtFIMmEgkUYMAEjFgwGAKMbCBk=');
      UnfPotDTM := DTMFromString('mbQAAAHicY2VgYJjOxMAwB4gnAXEflM3HyMDABcRiQMwLxKJA3FhTDVTNhIJFGDABIxYMBgCfywTt');
      CHerbBMP := BitmapFromString(29, 21, 'meJytk+1qwkAQRSU/21qNMWq0Eb' +
                  '+qFqQgCAERAiJIKZRS6Pu/Ss/uTdI00RDahkHiZvbsnTuzjUbdZ7R' +
                  'tObWT6z/hrv3vZMdi/04OD15+O+/jyJ2efMH/om2waTr2vYCdHLu/' +
                  'EyzIOPb8x9tg1xZ8du6BFbyMZQUZWERCxaEiD5/vR/bXvGxbAOcvf' +
                  'fiTfWd68PLJvfUdORQy/eleGQuBtId9B59hEgCJgmAnlUp1HLeotM' +
                  'hJyaodPq4m2Nhz0gQBHdtiU0vsrc69a9jE28gFJaap7uQLG9gxMz7' +
                  'HpgqwtIAENCxtFYUoqyXYng+wbF+89lfvASiwWAqfdVYyMRNrHYZ7' +
                  'sxsnB+QrnwggAspSYUM7HsKKuXwbcBbxrQdbaErkijyyE6JAALH+G' +
                  'KpTUiIrEJmVIPGFqk1rYo8gYbBt+Zsm7vHLDGRHIGZuG22qSK3WvB' +
                  'EwEaavRN5JJEkbSkIrHrjIgW0cklQXVaOZ7WRKZ96BixMlT4x4ayl' +
                  '8ArjmwUwyhh+7cj7rHZJUb/XEKpMt5kIBoXy6E7msJB20JfMXnSRX' +
                  'A/WQw01RsCWDI1sdN37Gxg0xy8N5TW0+klNSOCi1T1gF8Brgy6eID' +
                  'OTpc1h9leqTdTWI5AjaV+nnFwxGesc=');
      UnfPotBMP := BitmapFromString(19, 29, 'meJyVk+1TElEUxpn9Q5rpa1ljmo' +
        '2pBLioKAqiyJu87cKygIgLkSAvIsIKs6ZDKpg1TvWhGWv6I3v0jnc' +
        '2sG3beT4w95zfuec852IwPPAxBsNjq/2R0crc/db5IXMiU3qZKowJ' +
        '0iiXeR5O6mSRZlWuIPNhd6bcfhZM/Bc4K1+8qR1P7zZHAnE9DZMct' +
        't0j171+ezDi48dfjE6Mj2mwCAU8Hiq3a9W5bF+yLSxYrazFrA1Gg0' +
        'GqgPeWddjttrm5yVcT2qAY4yGB42KRSMjvX3M6lxcXjVNTI0+faA+' +
        '4JYpfri6vL/vX/X5XUerlsmlmRqc5W2JiO5WE4tEIurWYTHrWgZxM' +
        'UiS6BT0e66xFJ4huifhw2LfhhqXazhAqJQjphIBu78CQ171ut9nMR' +
        'uM/wWQ8lozHgQtcFAPiRpfDMc+yMFYb7J1d9M7O++cXxx2lc9Q+ar' +
        'bq1Zq0neWj3N8uxXmj0f518/PH95tv118/f/zUP+t9OO2eKidyU67' +
        'slXM7uWEWJ4XCXrPZgVqyggr7+61KtVEq7b/brSCE9j3ezQfB+oFM' +
        'KDVYLteLxSrARCLt8weHQUQpRUDUqdUOKSgmM4HNsGttg/nzOtSnF' +
        'IQiA2AqlQ2F+HW3l1FRCKkpCtIxAabTUiQSw5grDhdzD6IykmX5Pd' +
        'WwP5lMjuMEjOlcdRMQh6ivph4Es9k8z4tkTJttGSxCAxQBSbcU3JE' +
        'KMJaMubS0QpY+DELUHwJK0i6MpWOy7DxYbRDGAsznizAWY7o3/CaT' +
        'hfy1qZmUOmqfDGwEIB4PqMnJafVG0DBEnxx9BgQkT45sf+DxMCrRC' +
        'sRYQg0jvwF4/ZVp');
      CHerbUptxt := 'ava';
      UnfPotUptxt := 'oe po';
    end;
    3: //snapdragon
    begin
      CHerbDTM := DTMFromString('mbQAAAHicY2VgYDjMxMBwDoiPAPEOID4DxE+A4veB+A0QPwfiZ0BsaMMBJJlQsAgDJmDEgsEAAPe7CPs=');
      UnfPotDTM := DTMFromString('mbQAAAHicY2VgYNjPxMBwGIiPA/F2KOZlZGAQB2IeIOYDYmEg7sjUAqpmQsEiDJiAEQsGAwDVkAVZ');
      CHerbBMP := BitmapFromString(29, 21, 'meJytlGtLAlEQhmUhXddL/YI+VQ' +
        'SlIVnKshSZIiJZFpLdoEKiT/3/jz0zs562pINdlmE5zJ55zjuXs7n' +
        'cUk+Qy5VGveX2/uwpXfSx4L+x5csB9hcygYXmTvDZU54Mw3jvL+RA' +
        'tUXdJNB16rk+E6zCf48F0qqFyUG+vmXw4nEzTBriTxruuGwIMkrDU' +
        'zZ4DjVyNDgpNLaj/hELQgBi8Ct348rDVTa8eNxmD4lUHyd+rMiL9y' +
        'gyBpMBwyPMm3MT7HaaVLLj0+rLrR/rEgdOCJ0yqayzRbAWcDRfq8/' +
        'Xa29P32Hxcy5FkAYZ1kyxVBvl5icLShTG+6yLncPV1/tgLsnZolrM' +
        '6pnCFUt41G1H/Viwo56UtFXDj8eJkULh7MSFZj3IAPnKJ1oDxLA2A' +
        '4YlUE5UrA5Mg4PwY04PPcXoeNiSRrBwnxAgNkigiQw1a5yInCci+v' +
        'vxl6xZUGoGgw353Y2VzXWqxxu+G1qiqrOpzNXd+KMsCjQm4SJPi5A' +
        'lI0mEddtslqFSpr0xS5NYOV2vcCpbmVJqLYKnRxI7m6YlbdXsCGsZ' +
        'TiQJVisvpdDeIYkQUvZPrO0UAXojpCncC66beZhPUtZuGtaAfqacO' +
        '5tyWRhCQlLZCrcp4g0H2Za7H7hYjcB1M1MTQ8nRj5O0ApraT/9pjm' +
        '9kUKXhkf8qLU+2X5b9nTBKhGAP7R0HlJYb');
      UnfPotBMP := BitmapFromString(19, 26, 'meJyNkutP2mAUxkn/hWWLcRjdzS' +
        'my7OJcnIKAVAQREEXucm1py2VjbMMMQQYbKdaxESMQYozJPi77I3f' +
        'KW5quYLV5Pr3v+fWc5zyvSiX/MJUK5/rrjfO1yulq8Zs2SGCDQ+UP' +
        '1ZjZjrHe1pXYtx+/av2JxZcvlhZfKVNBr1eUx73j2rZvWTc3cdxsM' +
        'io0hatYOCwq6ONZp91u3dhYfrOkDFLJBIiMx5PR6EEgsOtybdts+p' +
        'UV7YJGGcxQ1FW/d9nrXna7bY6rlkoGne6Wy8lQqRxDg4hYFKY1GQw' +
        '3UgjM0hQSD3q9+LrpliBMi5SIRPz7Hlip8mYQxZBkOkXCtAPwwOfZ' +
        's1utRr3+RpAmkjRBAE7GY2AQOrqdTovZDItV3mrxpFM8OT/kOrnqa' +
        'brSZI5Y4vOxn8o7gvHrQDhfyPyoXPwt9/8Uz34XWhf5Zi/bOMvUfi' +
        'VLbChfdqcKoyyczEbLAII0DKdhmppUY578PpeoPY0fw9XDvazaEh4' +
        'LQjECB2xTQ7MInEtUedDzbsoaGQXhVqSEpgNwnqgj8NF+fsoWu2/2' +
        'YbJ2NCsH0bQScNqRVOMB7Lp22RYvNK1gcwB6P0w7SLA5afBgw3ZwK' +
        '9SLkkwrgP7CjIsCm5OmfQTCIdTIwWxLAtag5nHg08wOg2xOrDr4dk' +
        'RdhmhzP8eAoSIkgmxO6F1CCsN6qZBNMconoUNIRLR5b3kLWBkyHgx' +
        '/gcWCTbUldPc1jg1fmnRO0LP37VHwwW4aqDvP1zBpjnxw3H+J8DaF' +
        'KGcjR0Ch9GWPB5NI/APaD6JGkX8CnzpQ');
      CHerbUptxt := 'sna';
      UnfPotUptxt := 'on po';
    end;
    4: //Lantadyme
    begin
      CHerbDTM := DTMFromString('mbQAAAHicY2VgYOBmZmBgBmJxIP7FBKFfMTIwvAXiF0D8DIgfATFPtCVQNRMKFmHABIxYMBgAAATxBpc=');
      UnfPotDTM := DTMFromString('mbQAAAHicY2VgYOBiZmDgBGJ+IGYEYl4gFmFiYJAGYj4gFgRiKSCe1dsKVM2EgkUYMAEjFgwGAK00AoQ=');
      CHerbBMP := BitmapFromString(29, 21, 'meJytlG9LAkEQh2VJvdOzPkFUSo' +
                  'piWcp1aFyCiSARREQQEhHRu77/656937lpfy61juFYdmee+e3M3OV' +
                  'yKz0ml+tclVbzXeMBe3Jdwsx/Y7s3ZewvZAJb3aJZ3undlo+jouAb' +
                  'k4ltjnyTAIUN78qnA0/wzbCCtMNiNSoetguC92IPrOAu3WIIMo6mJ' +
                  'Rwykqbkid/oFFpjnwUhVm1sLXoI+rPALDjXYw8fLjJ4rGRjCceNIm' +
                  'MwGTAxz+4DCXaeksrtOLp4+QXrLg4cYwaklnAzdxBQLeb0/Kly+bb' +
                  'zE5Z98lIEGuSwmLBUG+Xa5xaU6CC0p+HQG75uL2b8tgUywmUOS3g0' +
                  '8vtjW0n4lBT97LMjMRgLNhtDb28+qGbeL45oDRBh0wFLsNwCnxQb2' +
                  'nQkYh9zeugpRseryUCy+DgaW1XnE9/SEhkA1ThEuotAw+3TrVlQag' +
                  'YDh1ozv1vbonr79Tx8N7RExc8VxGsMFoFiEo42FWGJPPGlDWfaKqb' +
                  'emK5JLKZP2CqPUyZHKkJGjwhEmEpK3ZRCLbOQWWAXSeVd75BECFfO' +
                  'nlh5EqIvop3MD3DtkILU6maKTYDZTPJifCwMISGSLbimiDccZIuZD' +
                  'fxaDTPvpqsJcJWRHSt45LtRWfef5vh2XGN763hayv6UVn/0y9LfCa' +
                  'NE2b+Ud+EWiD4=');
      UnfPotBMP := BitmapFromString(19, 29, 'meJyV1P9PEnEYB3B2f0c/9KvZMq' +
        'arDBWCAsGBJiIoyLfjDkRMQhAwPEUhUAQBvQ4I01pWP7hqbW39eb3' +
        'xo7cr9KLbe4zdfV53n+d5bqdQXHNQCsXtJ8ZbKi118b/3YzCcULKx' +
        '+/4X9zzhu06mR4tl2oKAjG1WHifz/XP0f0H1Tk21XnwUz96x+3rZM' +
        'FmjyR2Sxz2IbvTZPMqBgUGlUt7O2WxirFOTlgmTUa/X63RatVoG4p' +
        'LH6RQzP9uxZpPR8FT3cGhIHrJ+P8L4vH632+VwPLdYJsbHVcPD/X1' +
        '98gUuBdljQWi/4ds8f7Bb3EinRlWqHpsTZplIKITQHg92qxkb7WUc' +
        'WBMJBkkA0SKdRtMjxG5J/O4F+4wVLZXvDFGLgcAiw2C3gL4F16x12' +
        'mQwjI2M/BMGaX8oQIMHvJ0C8cQps/mZVovGyo+j2Wg3Gm38Vsr1Ug' +
        'l9LWezuVgsEaCDN0GcLwsfv//49fXbz7NP5yenZ83mCc+36nWhuFv' +
        'hNndWE6luizMb+RogSenofbH+Ll9ubZeEzeJRJl9dTnAueulaiMUg' +
        'lcYZss9/6MCDt7n9JiDuuZLc8rIrVJfCVVERuHd4SmB2jweMJrd9o' +
        'ajDzVJ/QtxfVCIsVI9F+DKdo8PxeW+IkihckiqElAmIMgmMvcozkT' +
        'WUOe3wUlcQC7C42vosRtofAuOZ16GVlDuwbHNefkm4wiE2JlUI7iO' +
        'FWLPGFcOxDMq0uxizdR4Ql/5SBF429mIigEluL7LKkTInZ1xkCt0Q' +
        'ESdyCbdKmIhYptEyA3sTJBMhMJ3dx0RQJp6oNZipqzdN7CdRtdYXn' +
        'JTC9Z0KaoQaUeulE8GG8QhEehMyEYwSrxwU2tL9DaEkIRwhZRLVTX' +
        '4DMyC7zw==');
      CHerbUptxt := 'lan';
      UnfPotUptxt := 'me po';
    end;
  end;
end;


procedure FreeScript;
begin
  FreeDTM(VowDTM);
  FreeDTM(CHerbDTM);
  FreeDTM(UnfPotDTM);
  FreeBitmap(VowBMP);
  FreeBitmap(CHerbBMP);
  FreeBitmap(UnfPotBMP);
end;


function OpenSWChest: Boolean;
var
  CTS, H, i: Integer;
  HS: array[0..1] of Extended;
  TPA: TPointArray;
  ATPA: T2DPointArray;
  P: TPoint;
begin
  if not(LoggedIn) then
    Exit;
  if BankScreen then
  begin
    Result := True;
    Exit;
  end;
  CTS := GetColorToleranceSpeed;
  SetColorToleranceSpeed(2);
  GetColorspeed2Modifiers(HS[0], HS[1]);
  SetColorspeed2Modifiers(0.17, 0.36);
  FindColorsTolerance(TPA, 11777213, MSX1, MSY1, MSX2, MSY2, 11);
  SetColorspeed2Modifiers(HS[0], HS[1]);
  SetColorToleranceSpeed(CTS);
  if (Length(TPA) < 1) then
    Exit;
  SortTPAFrom(TPA, Point(MSCX, MSCY));
  ATPA := TPAtoATPA(TPA, 30);
  H := High(ATPA);
  for i := 0 to H do
  begin
    P := MiddleTPA(ATPA[i]);
    MMouse(P.x - 4, P.y - 4, 8, 8);
    if WaitUptextMulti(['se Ban', 'nk ches'], RandomRange(900, 1100)) then
    begin
      ClickMouse2(True);
      Result := WaitFunc(@BankScreen, RandomRange(10, 25), RandomRange(2000, 3000));
    end;
    if Result then
      Wait(RandomRange(800, 1500));
  end;
  if not(WaitFunc(@PinScreen, 10 + Random(15), RandomRange(1000, 1200))) then
    Exit
  else
    Result := InPin(Players[CurrentPlayer].Pin);
end;

function DoBank: Boolean;
begin
  if not(LoggedIn) then
    Exit;
  FindNormalRandoms;
  if OpenSWChest then
  begin
    if (InvCount > 0) then
      DepositAll;
    if (WithdrawItemEx(CHerbDTM, 'dtm', CHerbInd, 14, CHerbUptxt, [])
        or WithdrawItemEx(CHerbBMP, 'bmp', CHerbInd, 14, CHerbUptxt, [15, 5])
        or WithdrawEx(8, 0, 14, [CHerbUptxt])) then
    begin
      if (WithdrawItemEx(VowDTM, 'dtm', VowInd, 14, 'at', [])
          or WithdrawItemEx(VowBMP, 'bmp', VowInd, 14, 'at', [15, 5])
          or WithdrawEx(7, 0, 14, ['at']))then
      begin
        Result := True;
        CloseBank;
      end;
    end;
    CloseBank;
  end;
end;


function MixScreen: Boolean;
var
  Trash: integer;
begin
  result := FindColor(trash, trash, clWhite, 56, 354, 149, 371);
end;


var
  LastAB: Integer;


procedure AntiB;
begin
  if (TimeFromMark(LastAB) < 15000) then
    Exit;
  case Random(50) of
    0..4:
    begin
      MakeCompass(Random(360));
      MakeCompass('n');
      MarkTime(LastAB);
    end;
    5..9:
    begin
      SetAngle(SRL_ANGLE_HIGH);
       SetAngle(SRL_ANGLE_LOW);
      MarkTime(LastAB);
    end;
    10..14:
    begin
      PickUpMouse;
      MarkTime(LastAB);
    end;
    15..19:
    begin
      ExamineInv;
      MarkTime(LastAB);
    end;
    20..24:
    begin
      RandomRClick;
      MarkTime(LastAB);
    end;
  end;
end;


function MixPots: Boolean;
var
  i, trash, T: Integer;
  B: TBox;
begin
  if not(LoggedIn) then
    Exit;
  FindNormalRandoms;
  for i := 14 downto 1 do
  begin
    B := InvBox(i);
    if FindDTM(CherbDTM, trash, trash, B.x1, b.y1, b.x2, b.y2) then
    begin
      MouseBox(B.x1, B.y1, B.x2, B.y2, 1);
      Break;
    end;
    if (i = 14) then
    begin
      writeln('failed to click clean herb');
      Exit;
    end;
  end;
  for i := i to 28 do
  begin
    B := InvBox(i);
    if FindDTM(VowDTM, trash, trash, B.x1, b.y1, b.x2, b.y2) then
    begin
      MouseBox(B.x1, B.y1, B.x2, B.y2, 1);
      Break;
    end;
  end;
  if WaitFunc(@MixScreen, 10 + Random(5), 5000 + Random(1000)) then
  begin
    MouseBox(230, 401, 280, 437, 1);
    T := GetSystemTime + 30000 + Random(10000);
    while (GetSystemTime < T) and not(Result) do
    begin
      Result := (CountItems('dtm', VowDTM, []) = 0) or (CountItems('dtm', CHerbDTM, []) = 0)
                or (CountItems('dtm', UnfPotDTM, []) = 14);
      FindNormalRandoms;
      AntiB;
    end;
  end;
end;

procedure main;
begin
  repeat
  SetupScript;
    if (Fails >= 15) then
    begin
      CloseBank;
      FreeScript;
      Logout;
      TerminateScript;
    end;
    if DoBank then
      if not(MixPots) then
      begin
        Inc(Fails);
        FreeScript;
      end else
        Fails := 0;
        FreeScript;
  until not(LoggedIn);
end;


begin
  Smart_Server := S_World;
  Smart_Signed := S_Signed;
  Smart_Members := S_Member;
  Smart_SuperDetail := False;
  SetupSRL;
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  DeclarePlayer;
  if not(LoggedIn) then LogInPlayer;
    Wait(3000 + Random(2000));
    SetAngle(SRL_ANGLE_HIGH);
    MakeCompass('n');
    PlayerStartTime := GetSystemTime;
    main;
end.