Code:
var ryggsekk,ringamount,magibok,ring,loopconf,x,y:integer;
procedure ringenchantinginprogress;
begin
ringamount:=26;//Change this to your amounts of rings -1
Writeln('Commiting magic training');
Ryggsekk := BitmapFromString(22, 22, 'beNolVGtTGlcYfg0a5SIg' +
'oKLcWe4XFRaWOyogKwKroC4ICiyygMpdTWJtnbb50E5t0sw0004/JW3T' +
'NplO+ws67df+rB7pzJkz58N5n/Pc5lQSw3p2yO72GKrD7J4ze+dMnj1K' +
'n5Wps+PMqJ4XAQgB5gAWARbG61mzxJT2GrWDViXL0InaUWpYy1w2clet' +
'A7ZItss77XK6X6FMMpABKDjQzXvOMrabI/fX9eB91T9KO+QACPaimutU' +
'M+3yNkK4Pt3tVzKdcuqitN0/SVkkYJmFPuX8gvV/VV95WTf+dO36eeT8' +
'pef888rz9tz27mm0R1nmx6zO9sPVQmxQTT9rHaLxUXXPIIKQlm/lAe0W' +
'fl6w/Tggfhut/HFtez8wfrjE3488H0arv46I+xrxTZvsb5sVACy9jkzo' +
'1qlhY38WwDQ/FTLIwlq+7THQdu6XBce7fuj3AXG7PecSwroatlXwWc5K' +
'KuC+Gn5RcVd8YglAr7l/0ch12TxyLGheyIes63pxSDHpEsAlabglNd+f' +
'OF/XXN2M3SmBlInHeJfvcmsZJXzLrN0zPoTwZFBvnua5E0CFTT7NdMIi' +
'PiCUMbMAaTlyzz8lsR8Y93cV+4tT1+nGAi6EtF7AeCW7GGR1MMgaxQCj' +
'9nG3ecAD2AuZglousfwIgewHtJsmvoMHZbfkyZbydX31FWPtJKQnfrV1' +
'CnYw+PdtF61qbFkhgNtzGvGnt1xJXI9y96qFIZ04igkPA7qI6rF1+sHV' +
'u4LjFYs4r/bSzpAS/nkzUAL8/aZNETw+wN3ZAeoJko9wYm4jyprQSmKm' +
'uWJQH1BwElYhCpcldZ3kUj0iLYX1Ac3kX++evXy6lXVzZBMQ8+k+PqdR' +
'eXI+E5odskcI06MWbxnmSIMwpJraNAsNAsjg8wdeOe1Xp3Cjfm4i6VVs' +
'OEULExC0iqYnHkrr10kPIqvIimZlfwYJMcgSmHjbIEQqihF9wiowC8A0' +
'A9g0qKZBOi65YgriNpnfJEH30WDArKIi+GOAem0f7WuYBAW6Y5SE5I/Y' +
'uLlLYmkM0sYJEuOm7VobF2hC55FAZ2c1bpEKAAQTgOsViHzU72ix9AwH' +
'7OrZpHWRNMxFFVP1dawfV1+Rqv6WYkQ5OqTPI54sEVoXan7aFTdLUA8R' +
'DcKoRoeLeq7TelCB64UxoxQhRNTckl95SeqfFyy3tP6maO9l8DURIJds' +
'PCiEjFHzPJLABXBp5QjhslVo17KIjBcTIRVJpEI5TXvkn+Rsn+Z1z4vY' +
'R3ldb8dieQx2PtBBIx0xI0OiXtOYg8prUCK02UlAUAQm2cBQFuKoeqrs' +
'l7ci0jtKfZdcvInPX20ttTeXj0PLdEi7YZOiFBg6FsHN/Af3FG6r3q5X' +
'4CbVilIcNy/FMFFUyakE5aOU6klSfhtX38Q1zYCkFpYfBlWbdhlKf4vA' +
'Toux2z4T9dh4HOAAcB7BJEIzavzGxTDSopk58s6f4Nx+YrkZ1BwTulLI' +
'tGFdRE+jR9dxY7tKNSupq3Zx2D6K+OwBz0rQ644S+PT4gkst8qj4qNvl' +
'4FIpsJywymTjHw/JDLut615Hr1HsNHLtWrrH7I1a++iLuG4XepXd7sle' +
'0KGJug3/V4U3RuOPIwt59BsBc9iLXTCHQ7YwYKjLRrZTS54dpzonyT5D' +
'9o6TnVKyW0r1q7tD9jDitUWItbDHFcSdUZ8z6DOx9d1Wneqw+VGT7lSp' +
'q0b2o/Nc7z/RlDvn');
magibok := BitmapFromString(21, 22, 'beNolVGlPG1cUfSwNKFtDH' +
'YpIFIUYMFuIA94dFrN5Ga/MeLexPR6Px/aMPYsHg20oIeybSIAkhLgpU' +
'qJmoyWVElXqt35IP0RV+5f6SKX78Z177jnn3Us5RdLFRG180p2NO1LhU' +
'SZmJKeQ8wB8C0AjAN8BUEz6coSdpVx0zMERKINbYaXDViZso7zjIuHMJ' +
'5wc6UxMjRFhQ4Yw1leBn5/PL+UmXbpr07EJ2OcSABcAmKH806Q/F8OKT' +
'Bhi2aiTdI/yMZtAOKjQRCZqSeJWPDRyoQqcHs/kA2pTdz3n71+kjauiY' +
'6PghZM0ACCpAnzMkYvaqKApFRiHw4sElgvZ6aCLTUUg9fsjdpUeMEpBU' +
'H2Vw7oWSOUao1lKKXaEib2CYz1nkQBwGQAoMBU2CrhTiLpmcG82iOFBV' +
'z0Anyr5oq/LIaspofJNemA13beMd6wnujfTitWkYi8/viUgi4InPHkPK' +
'hJxdDruLhAeqAViT14slQJqaxuIaa8uxbRrac0yKY9qarlxybT92mZSu' +
'ZVRbXMjUeedN5Vl6Mk8E+ajk7AKJNZQDVZZZ9GjsraCGbRzMSpfpfoYi' +
'+RYHHs5Y84ZJXnn9e20Yq9gDBjb31dWoKuFtJcjsNnMVMtlsMnZywGlS' +
'Vo3pW5aT2pXiZ4NXHZcGHiRN2zh8gJ2I41Idjk9bmz+8sezkFMH2WcZL' +
'49PQgnSOnDA2eY8dyxtdXHDjVK4c43qFm2XZ61XRGuTaGvOIA0bGcWBO' +
'JFxdLw9nIPCx5Xts2n3fdrbdQnsZbFFt8ohBSGdRPT1rGfVG9k7m2kZa' +
'7vIIo1ZS+ODKdljfjBjafnyYTfm0kDnE17LbNo7T6G3z4ND1rmAquzS6' +
'qK/936ifzOrWqfl29nelaRsJ9P/VBw6YPUHnIGyyk6P5uHYBmVbwmudI' +
'QPNtWCbNpf9/XDsoKZpIdK3kpCvk707mbswrB1G/VTUH7Da/ewQg7R9+' +
'fQk6FBeBCDuNRMeW5EKNVWBXQEVsbuhwVu8W53Huh/xQ5Bxn9Pu8QMPI' +
'SmveSwMPMqNJy1dv/y0DPMdVkohHMcQ+A/XuJhZ3oz0XxtsvViMjP2AD' +
'89FFZuM9iGvPeB1eyzE6veFYQqRnh6Vw6iurgpkcNf/8CsA0N4xk6ZFw' +
'E0LlN0gu6CTVndJQNbXuULr94SRHfreLmugkJbB9pqT54tn1FoZFbFDe' +
'NLvhCYMK66z1NjJcelDpXx6WBQToyXGopbVdjWCYSngsb4tDhtsPf/3x' +
'0oYUcK86DgGlzfhh+zmMc1NuCaoo4dNT5y+WH73bOG3V8uvK3Ovn80VU' +
'7Z50qqX1g91Nmikl94/WYJKR1QdOdKbT7lhh7jbVGZ92rvXv6kG574uk' +
'cekf3X44F1l8cPLpbdH5c8fj2CJxMSvPy7izntnSuOTDImKaSwTMacDi' +
'JhCS3xsUH1br5IPq/tgB0nN2T6yhOXP3yv//HX67+eTN0fzOKY9k9nXl' +
'ktiWdIxQ09OpydTfnOJieapEJ8I0bgvE/cMKlvHFbeG5TehRedqQVUNY' +
'GjvFDqkkH0PO3NEUIijQgIpZ1GesOTjLi7u4Ql/NooKSS9LuZMRSzaMF' +
'JI+XX+nRtOj1nXW1oD6r8dqVNUL4VzUPk1YhbhZTCD5uIMJnb3n4046Y' +
'k2GTHTMBg8RPInQXob0wDLoOob6paOqdjriyEzZRBLlcQSmPEvZi/8Bx' +
'168pg==');
ring := BitmapFromString(19, 22, 'beNodlOtvFFUYxt/uVrrQbbfd' +
'dnuh7XYvM7Odnd3udq7b2bnPznVLkWpAQVEgRqEIsaXWWoFCIW0h1LKx' +
'MV4AIdzCxUgigYAGDFYT4weCifGD8W/xlORkMpmc35n3fZ/nORrjaEVb' +
'Kzoq7aisq5ZcVXTksj7MW7JoSnxF5owKDyGAjetLcxndYC2F9TWhotNo' +
'2RrrKJwrCltUyZIEU+csrwSbAMIAzdDn9vT7/WkjgU6QtAICt2jiOviS' +
'8mVhVCo5w0W/wooOCRGQp3h+jus9nOw9iLe83t3t9zTnGxHr26I9zNgq' +
'Z6vCS5AblfkRhTMVSvQJiAF3spheJjbNtrZN98XGE/j7WaAAgRje6am8' +
'ryi2KFoq45mcI7MIdzVGcfPQDsYXKnkxB3MN4dlodKIrtL2xc7QTGgEn' +
'uyy14EtSVVU9o2TKBUdmfIW2y6Rhp6EFti6xYg2jan3UMpY7kw2+8Urr' +
'tnbCxCAI63+ReFvmUbWWxIxobCNAdAM01UN4IxyeTu061C7uqWeneopz' +
'JHFsoGE0HBmMQACYgZSncqaUG6nkw0FoAjj1sbcwU1o9xV9b4b49jZ+b' +
'7Z6cbNtxZDO3vyN3iGAOCkgUgoiT8S5bQvPBmxrg/GJ5fiq7OI3XTiau' +
'nEs8upT9+TL26HLq4bXc/PG2sV0hpAuaDEHGqUzcNzhPZZqCUDujLhxL' +
'Tu1v++zDrpUTxO1vpCc3rD/vuX//ZP37zLp/aWBxuqcxAAOp9jzW46p8' +
'RRmsqmQkAPMz7MF9XQf2xOc/NVtDsCkAkTpoqYM/Hoz/88ubz38cvrWc' +
'OP4BHgWoKpQlF01tCPX18NbM3BFx92s9jajNBiBTUQqLUzhOpTsQ3lkP' +
'/z17a+2mdvE0d2gnjvZ7mmDpPKrzwd2Jw+/RqJIi1pxPxmi8zxJZR+e8' +
'ypCjYUwGogF48fST2nxx744YsuEgTrim2lwPP1zfvXdHdwSAwVqrklBV' +
'SkhQSxm0tDx6eiqx1Yi1BuHEDPH29ijyO97b7+lKRwieP91/92vpo93R' +
'GIBfQjsZ12BtZaiqMttMccwkokH48qwwM5EascPhOqAzuKuwzUF4/uzI' +
'0++Nq8vkxM74evuVjGNmtVJ6q0ZtU0n05cp5/fR0//i+lKN2oVJpLGkK' +
'lGVmww3w12/vPrnD36zllqbTyDYh5JwgNNdBex1cWKp8PosdHe/fNUah' +
'OvOp+GCi71VD0HXBtYjIBnix9s7v973Ht4yrq9rxSXJ1Sf+u5l08V145' +
'lj01iU/szTStU4kCjqHAWuWhakWqmryr42i8a/cPrN0b+/WO8uQ6fXsV' +
'v7FKri4mFo4OzE6UEcWl2ujkZuRqpUy7KJLI4XLJ0URXyyMnxALw+Ir9' +
'6FLp3lfchTO5hVl8cjwbCkCBiLGpjpEyEog3TUFRaBRhRxHQbYPunBG9' +
'kEtsQIZB0iDpUY8oLKE6GEi2MlTCKhV8mfV05DcaqWzL7Et2Ha+U2apR' +
'rpT5YiaViXfnsX70kk32Mtm0Jgwii6LDbYlGgXL/B54zLWA=');
ringamount:=loopconf;
begin ringamount:=loopconf;
repeat
repeat
if findbitmaptolerancein(magibok,x,y,0, 0,1200,800,50) then break;
until(false)
wait(80);
clickmouse(x+8,y+15,true);
repeat
if(findcolorspiraltolerance(x,y,6082161,0, 0,1200,800,150)) then break;
until(false)
wait(240);
clickmouse(x,y,true);
wait(2500);
repeat
if findbitmaptolerancein(ryggsekk,x,y,0, 0,1200,800,50) then break;
until(false)
wait(80);
clickmouse(x+8,y+15,true);
wait(2500);
repeat
if findbitmaptolerancein(ring,x,y,0, 0,1200,800,50) then break;
until(false)
clickmouse(x+5,y+3,true);
loopconf:=loopconf-1;
until(loopconf=0)
end;
end;
procedure freeinvimg;
begin
freebitmap(ryggsekk);
freebitmap(ringamount);
freebitmap(magibok);
end;
begin
ringenchantinginprogress;
freeinvimg;
end.