program AwesomeWoodChopper;
{$i srl/srl.simba}
var
Pankissa,EnoughOfThis,InvyFull,NoFish,Banked,Fishing,Nuolella,Kalalla,Stored: boolean;
X,Y,UseQuickly,Lobsters,Nuoli,Nuoli2,Nuoli3,Nuoli4,ExistingImage,LoginImage,Kivi,Kivi2,Kivi3,Kivi4,Kivi5,Kivi6,Kivi7,Vetta,Kala,Pankki,Lobster,numberOfWaits,StoreAll,NotEnough,UseQuick,Trolled,LogOutImage,ClickHere,ModCrown:Integer;
procedure BitmapsHere;
begin
StoreAll := BitmapFromString(68, 12, 'meJzdk0EOgDAIBH2aNz/g1T/5Y0' +
'00ISss21ZrTDQcKtApS+m4biPYNC9drIbW90QDDsfXEW7YhzlN2hH' +
'YCv9Ei8j/pRYcNgy5m9W/2bkCRQkYsmgRghaFxHdEi4y9otedoWh5' +
'w/WLfkpGLaI5bvt5epOW4lpfWTwrEorNoVtEE25rQU5xJHQx2UYt/' +
'yUtmkOnUSRnzbftbl359t201/sxlE0jJrvC4gM0P12jCVQNn/oxJD' +
'w/sB0YtWQM');
UseQuickly := BitmapFromString(62, 5, 'meJytUlsOwCAI83a7wH53/2N0TBO' +
'ytA17aMMHqUoLAlxoHT3Fth8REAw+j+z9IG1OdxIkROS/PKIJSH2y' +
'Po0oJT5Vs89tzLitncN965v8Ptg6UmWh82L37Hgt/+hcl9OS1q0Ka' +
'Wu2R93PE2hD/xg=');
NotEnough := BitmapFromString(92, 13, 'meJytVzFuBDEI9KfzgLQur8sDUk' +
'VKkS7J5xId2hEZYGD3sqLwYcAwjLFuv33tuzy/fqby9PIBMU1lvI9' +
'QJrf3b1qsteynaWyhhcwmXpQGpVQFEV4VMgaOBiFqSAyTti7A2EI0' +
'rCs1/k2mcjTNOj7K35QeB1h6Tazax0QttsZBRCRswYty85j4hKNlm' +
'kOFvK8U+eA4GKB2rFG+h4IW5i6A8lV4g4hn2k2sKyX1OjXzGsrK3+' +
'4KE1H+ZUxSBGJbycw3lHiSBj+LSdU++2LJZzHRB2lWpAlPeEKIRdz' +
'i2GlTjWMTu77p0f0sJtWIo/lJ5ZN7CxT5xkGKtH0hMW1BRfICo/bx' +
'TkXOi5hoayyB2kpBWg4Ijce25Un1sM6ljbDCTRdxvA31Or1lQp+ai' +
'UO1kvKvGOiDCNBij7Tc/r65k3qHEF3uu27KJDL1198FTRjSXMOkRe' +
'wRWNqwdGtoNx0yk4N2NmwfhyKFRTB8Pk801Ngd0olS/V9KTBiS/lv' +
'5AQTvoY4=');
Trolled := BitmapFromString(7, 21, 'meJzb/Pff5oFDs//8pTqq/kURivv' +
'1h0jkgw1Z/vxNJFL6/osSBADekmaR');
ClickHere := BitmapFromString(62, 12, 'meJydlkFOw1AMRHsMBBSKKnE49u' +
'zYsWPbC3DTYvGkp+n8REhEUeVv+48n9uSnp/Pl+nsdnz9P58vTy9f' +
'cY8/v/eP7GA/Hj/kdO6Pn1+9Z3t2/uWuMTftPNO5ZVgIb4TZRMMnE' +
'Nno4HPRYbrhhA+g9S+6JEpJw2S6psokmZhWd3+RWJTJqiwz5jC6tM' +
'm2BPEtrZZ8TrThs1spJ5fOuu1bmQkEMKIhVIWzGSufln7ZoVim0xJ' +
'wQjaIzyc0uWWtGc729KITw0s8QRfPt2HOaD1omjIdoOe1qEbCrxVN' +
'7EhJEp/7snqHENzNpr2gwWXcpZuaSyHbYfLuRCGOkf3A2/RDYizJ3' +
'Wldo5Sk9Q7t6XjnFPPtQUpFq8kTne5l7OlfPm6yU8arzsnMKaVdvJ' +
'ZNonOerEsjc1LlvaDKpk8cx1fOWvXry2auZjDJzSsZeq84TzYNrnV' +
'SeZqXzGi5qZFfZlD7cXpBXOVCiSmWWzgvNlzG35PHiRvP5yBY+fDx' +
'L5ZOtWz9G6tyN/0DLkxCDtPxAMwX/VGD/AGA4ek0=');
LogOutImage := BitmapFromString(28, 13, 'meJyNk0FqAkEQRXVrxEXATQRJxA' +
'lEiIIQCGFWghvdzglkIEcIzI3mEiJeIpfwDOojHz5FzxiEz1BdNf2' +
'o/tWdb4p8U5zPF9Ttdj5WW2nxtULK9x7609lcYnk87PlzOHp2lTiK' +
'7beYb8tP54mRmMqYqRgNHocKAK6Lnav5X9vG3s9ULAFMmG4VtZ799' +
'3SKnOw1U3skbzEjVvmyLCOzqir+HL9MXLWTrUwtRZbPdIV0djcmJm' +
'JeVOPBE2aSN7aua+cFfMrexURUI5a2xUT8mSj6EPM4ICZfYoJko5m' +
'tSkbmOyZvzYzC1eL753+m5Ycgb02WItbbm5YK5RJxfFweWVP0ieII' +
'kGbdvBXxgrGELwOdkSKTkclhZbiHzZsWH7KtcEY+XAHateLA');
ModCrown := BitmapFromString(14, 10, 'meJx78ODB9OnTa+asbl68uXPFtg' +
'cPHixatAgo0rN6NwQ9ACuAMCBSQJUQNgSgyeJXOXHtHmSVaQ3dyAo' +
'wAUQLUGVO80SCKoHKgIrzOqYU986CKGZkYAAiZAZEWduK7UCVxZ1T' +
'SibMhatEIyEqO5dtAwYL0EyCKiEIonI6bgBRBjQWorJ08sKmBeuA7' +
'gGGFRDBzQEqgLMBEZn6qQ==');
UseQuick := BitmapFromString(154, 9, 'meJztlVEOgzAMQ3M7LrDf3f8YbA' +
'KtK7GdNBRpfKzqR5aWxPi1zMyWx/M9123Y5+c9JxVZVf7eu203F9f' +
'FJM/OFI/rqMp2J5q7hj/Ny2mux+GsS21Ht7EIJWhmVIMTSZNxZWdF' +
'm8eO37zaj5a6PH1wcCkVEEuiNFvcD5dH3wL6qf+KBRXQL6XV8AD3E' +
'NEilUdw6kikuM8JOPrAJY3cTUSD+w0GpT/uP2WBKGdoupheW2oyWo' +
'pdaKNYwEisuO+rimYDhPeFWkrnDMGY5sgZq9KMqanY3btSo3maEK/' +
'uzI8Q6S9gPJvzF9KkZ8wdy/CNLjZZAf0JTXx3TCqvUpruEVqn1Q/2' +
'qKNFufdfFUWTfidxqWT4uUalfExzgb+8IJkuqUm9pUXoTxTmYqpE0' +
'TzxdtW42qiUD1q/AFeE6B0=');
StoreAll := BitmapFromString(55, 8, 'meJytU0EOwCAI43d8YNf9/xkzmZm' +
'pQNE4Gg6KWGtRvW6FeF6IiM75qjD8OGXjPvUkHVVJxj+wI9KfIh9M' +
'BovxiLwydBLLliKNTraa8Cx797/dx6us0jtc8ibDlh2LFEDhxzGEw' +
'4rQouQ63swqkeGVvRWhP/leZmZCwsYNyOR+KA==');
Lobster := BitmapFromString(22, 14, 'meJx1kjFLw2AQhusfcMgQCJRQEY' +
'I4lA4KakGpRCi1LSGWFhEcHFwEh0IHh4KDUOgQHAqd/K++X55y+Qw' +
'VjkAu97z33l26g8lBo6EITu/DziQ8e4wuX6Kr1zhdxHcfhD4pyBwN' +
'v46zdfLwLaTV6tyOprBBO4NtXr81b95V7CrHKxUHQRieP5ugy+eFr' +
'7AXj/tLVSbTTTLbKqN8XWG2ReEiHamFwrG9uSsYfOo1ipqK3XTtzC' +
'kwUX95mPSkwCeFPPgstuUQXC30lDfywhV0tFABnl0Nka1pIRwFpyz' +
'Z6ebk6QdL1ci9+a4ANi9QMJw9u4K8ABerrepSu3WlCyXBGYp2KHTL' +
'K8uejaxb/9l2uRkUbGQp+P7B7dWc21ZNnxqa/ocLdGcFL1m102V9X' +
'JfVk/HZgK8MVbEljn9AUwAnfDXtRwh47ZoCYU2qpoMCR+dfrR3dFF' +
'S5F69sjFdm3v+xfwEogsaI');
Nuoli := BitmapFromString(8, 7, 'meJzbvx8BnAtmApE9GKAJWiZOmj9/' +
'PlwcImIcWzUfDIAi3EreEEHN8Gq4IBAoax0CSiGrhACgIEQKWRAux' +
'c4+F00cAPsdXDE=');
Nuoli2 := BitmapFromString(8, 5, 'meJzbvx8BnAtmApE9GKAJWiZOmj9/' +
'PlwcImIcWzUfDIAi3EreEEHN8Gq4IBAoax0CSiGrhAAAdw5BMA==');
Nuoli3 := BitmapFromString(5, 6, 'meJybP3/+/v37GRkYlGzigCggIHD+' +
'/Plwrr29/XwkBWhcIAONCwEQLgAD2COL');
Nuoli4 := BitmapFromString(4, 4, 'meJxzLphpmTjJOLZq/vz5QIZmePV8' +
'MICIAMH+/fu5lbwhDCAAAC7ZGRE=');
Pankki := BitmapFromString(7, 3, 'meJyzX7TB5+JLppRSCAlE+/fvt1+0' +
'wR4sDkGY4nD1AA4eIHc=');
Vetta := BitmapFromString(6, 5, 'meJzbvx8EnrcXvEpzhiA49+3xo0Dy' +
'vgMHRATIRRaBKMYUgXCBCAAFijWU');
Kala := BitmapFromString(7, 4, 'meJzbv3///0PKf/P54Wg/GAAZjAwM' +
'yOL3HTggCFkEqBIuDkSnJBiACAAxsSea');
Kivi := BitmapFromString(19, 14, 'meJxtkrFqBCEQhq+12UfICyRFIF' +
't44IGGLbRZBq44QQ4kENgihe9f3T/OKub24GcYxG/+mdEpquDpShF' +
'xiqorWN9zZ/23tc4Skotdzsa6xf+Vwshd7aoITnBTSuFyqMLJ16zP' +
'2nA09ncrUMrbbtSQauFdLeIaiFyKrEQM5g1KMadcxg5HSZ+hlQpES' +
'agaXyJhaJURT7BjebrFvFKU+N/F793WCFD6b3jcVfPpR4l6fZkRrc' +
'rS4IXlzNrc4NXtGiUa7BjHJqHT2wnCbmtBkhGewMZSj0KJEm+myH6' +
'QHFne8109UZCMJiuStgc7bkY+Bo/cekaR949Pfvp2E2/qhpcafxQP' +
'qA12wold4HgcCkj/Kh281Mvjfo5Didb6uzoY2oziOGv7AEpgtyU=');
Kivi2 := BitmapFromString(18, 15, 'meJx1kr1qwzAUhbN68SP0JZLBKQ' +
'5IxYOymAsdLCICosVFY95/6rk6siKnFA5Clu93/0NMP+lxdfIpvvc' +
'dhU+ofkKz6Ms1n+fRtL/wyIs1bhZ5cWIN5IC8j9PzPVvi8mFMtnHP' +
'X/kdyTAQhAuM1V52WYEtlHEQnBCxk7uYaU2P/t4V1RLUTJgqKTg5n' +
'obTMDIWqDWmNgSTpHOmqmBx5VhIiAlU8BGdDA2+61IODVfqM7Ok1n' +
'/s7ea/loaeINbi4yx+wX0/IFsspQYimCVqL/47Jpz9V0fNW0X0b3M' +
'3cN68P6Mhw7gQQaANoTjBGoJtP7wdIFDoIVqhfdhTEJNEIaSIUCFq' +
'6xT08S+os74r3iIQ62I3lgYsq5inz7o4Sm5dNePUGLfs/LYzWAksB' +
'sTFgH4BaLPA4A==');
Kivi3 := BitmapFromString(10, 8, 'meJw9jjsKxDAMROs0uUxSOOCAFFI' +
'ozSJIY/b+B9mHx2sYptB8NG6xtgU8kU8m/GaDj2rgMhuqBXC4S37H' +
'abdbInmXAOZtL3upysoMhoFyNVh8MlU7y6kiDuTR3f/++ZptZH1cc' +
'gZlcB37R/m9r4K/rR0MK/UH7hM8fQ==');
Kivi4 := BitmapFromString(19, 12, 'meJxlkjELwkAMhR1d+hPcRRCKds' +
'jgEEFqQYUMCtXFw0k3///kS58XTw2P41Ly5e5eWl3GFXVytapr7Yb' +
'VmEIIEVnKChJR6pLuRCAimoujSavGlPvWDN9vKYF9PJ/YII0moXdx' +
'7oaarae277qj+fqPaK6McyFQiBIsWRYHpZ/jbGhijUhK6WC9U9cxh' +
'SdAUVac6J7Qn5VugAAMijJ/flC2aBpUjiYjSIZAypsgfthtBlvfGC' +
'lqVnvAUhrrc/lmcTfMF2xJUfO6YQ3Yc9+zCd2D+GNwiJzCzmw2rSG' +
'wX54Ug67yHzW8SfO6iUN/7hb+B0hb6El52xd3x5N4');
Kivi5 := BitmapFromString(20, 14, 'meJxtkjFrAzEMhTNm6U/oXkoKl/' +
'YGDxlUKNeDNPCGC5Rbam4ozeZu/Qn92X2WbMUJNQ/hO/Ssz7JOKS0' +
'xJY0387roWCQivn8VUEOWMO7kZY5fJzUuMXLvmc8yao7UT/gfIBtD' +
'CJ/pZ0I84H0CNEYTc5gsGt3F9dj3T2EXglCkfRvHaoTXvZJxetTT8' +
'J1+WYXLTvjPBdGig2I7wwDMMTqnwV9eGUZuXil1sQfondRegD/WJj' +
'LoTSF1tSfYmX0IjsHoXqpcCoXTc3JFkW3XUd5PubSfaeGosrpdUew' +
'wu824pGTJfF+qLb2HNwfmcj10Peu2ybWHqGywMTOA1rvZbLZduPJ6' +
'IaL6iBKP80DO1k7vkU+T+5zfNz9QPeQ82+o1e7MJ93fdoQ7k3FzWa' +
'as3aIu4RCe58P8BfTvAnA==');
Kivi6 := BitmapFromString(20, 14, 'meJx1UrFOw0AM7Ziln8COmFLocE' +
'MHI0UhUqjkIZVKF6xUqspmNsaMfDbP57vjqET0ajltn/387PWpWR8' +
'MPXNPPDL7q31DVOX8TIMjEAV8us5/mkVrFsBWikDxIkgoPo/bbQjh' +
'KexAP4viQVxDgOPQoLg3MhbnhDiD/BWsk1wj9O14nNViLaAgVyAkE' +
'ImaqssskqH/sagWEJ15Ib7o8joME8uejwDymhW7JEqqkFsDF/2amA' +
'GwRCTR3xtEgPLfakAwvIJpn/oduXKS1BpEx5RFlgqQiuWs7lYA3Ma' +
'8Hwq7kmOF6Cir8Rmh34kOXdwroyMxk//Sx9gdu0OsiQ/3LbyCNkj1' +
'WHzzQUwnbibuPQmIGsYoA4eBdqXL/Lvua7qrfDPxlvDYQe6oQ2Y7v' +
'ZkxjZYuoXDtkoMZhSI4ZpvXjJIbOgQj7llsXxW3zyZv2nbThh8nlMwy');
Kivi7 := BitmapFromString(23, 23, 'meJxdVDFuwzAM/JqzpAHaABocwP' +
'VEOIhhb+pmdNIYoEue3CNPpNQKBEHb4ul4pLyILCKz5Fk2s7xIxoK' +
'/my0W83EWuaYJNiYEAn9LyAVCTbed9RHBng2hfdU3Y0pI+bhckAu/' +
'bxsAZ/tEBPd9ogaf0xTBaKcT6qpkJpGeiaZjG6xh5prLl+eUzsNwH' +
'tJg6zRcYG8DXiaefvcqiBYl0LNSBUkJiQalC+mEgobfx0EaXg6zmu' +
'2qdMah74bD3ECAdWps2EzmvaexKRATnh0R69TJoHIuR3n+vF5rPnI' +
'pkcieYpnyGelEgKqjaGdvqYKgNICsakB6IuhOr+KwuVKPZm6bFhjq' +
'AshXfgIBHnFUQQI+acIxg2ciiYHV1UFAAkxA47FVBVRk0yfGVaTOJ' +
'2eVAYaNTEDAOHApDrzVeBh44Snk4OnplnrMiduQa8oEiGoEnRGsBh' +
'KDvee4HdRc+ehmO1e7g/RSLMirQ8HiIphcdZix2G4QYy48igINo3S' +
'QzMOOoLBxHRDs1ndWB3lBhunUlrq4zgdV9TsohFqkyctOEcQU1UY7' +
'h0I0PJpEmZj8ap1tLSYTqhp69iCUixsQ+4Alzn+ggRi+kgOHDVPHn' +
'hJBX2qPirbYJ41oMbEwpnQEqqRExp0y2Hado03edL0UrNRwmg7/Ci' +
'QxGF/2t3vxfzLVi0H1ouoMx5jxHzX//XmyazHtnBC/BSU6FZPPixB' +
'f/ceuyL8ydmz3');
ExistingImage := BitmapFromString(87, 10, 'meJyFlNFKQ0EMRP0dfREUilhQkT' +
'5UQX0Rhb76/99QQwcO00nu7RIuu7m72czsJIevj8PJvt/3n7vXt+c' +
'nWc1lLGuD9sh8Hn81D/PNFXC3fSzjIve40xNgz/b+TvbysJGHs750' +
'q521//bmuozj8tRXDBzbcB7IJ0yXwlshFZkrJDhY0hMW4qzcVab0Q' +
'McyGIilSAjsmJNwdT7AqMdFLSGSMWcFDJF0YsXAGKGLQcmQqpPAcs' +
'V0F2y4KoKEUb1d8EsKgTECUjgAGS3IjErxg0SWf4kEwFIyIQY3fzh' +
'FVtq9FUgMMEYnCd40cVb9Ci9qkMpT31C+8wOQJRKib6xA7qb8vRvU' +
'8u/3p4wlG3gp1Yvj9ePhBJpO8ZoM5ewP3ftS9ARQj5wwoCKuE+14C' +
'mzvCSIhGqZ+ca+TE83Ec6O9OC6PSWJxyhN2kbMnlv3S4NzDSn6kET' +
'0BSYuE4CcUqAJxoiiNCOgZjmDDHx2P6nbUemWWXQm9jfh+9xcKlO8' +
'l3JWALIOE+jqcIKHTEhRdnHtPCNR9G6XqPBzPR1dIkECv8yYfFHmq' +
'3hhHmBf/jsDj+dx4hSiraKFjKIb6MP5/O/dEyA==');
LoginImage := BitmapFromString(34, 8, 'meJyFUtEKg0AM6zc5GGOCG3IP2x7' +
'uyf//FQ0GQlwrlj7kYts0d/Y2r3tExPL79DYr2/hEjrcBCfB9TSR5' +
'ZA1IlnEIjmLejzt7AbqpaD4rVws2ljwnI2MPDVRAyFVUr1Fs1J4lj' +
'1XFuy+WEeCWspc/g5fY1bF53sRVgJVOlvhMEZazYqnSj7/EpcqZFy' +
'mq0YOv4wzt+wL+CU9TehHP5SNF5v3V/M7pBRa8jJj/PMAGk0iV/g==');
end;
procedure FreebitmapsNow;
begin
FreeBitmap(StoreAll);
FreeBitmap(NotEnough);
FreeBitmap(Trolled);
FreeBitmap(ClickHere);
FreeBitmap(LogOutImage);
FreeBitmap(ModCrown);
FreeBitMap(UseQuick);
FreeBitMap(StoreAll);
FreeBitmap(Lobster);
FreeBitmap(Nuoli);
FreeBitmap(Nuoli2);
FreeBitmap(Nuoli3);
FreeBitmap(Nuoli4);
FreeBitmap(Pankki);
FreeBitmap(Vetta);
FreeBitmap(Kala);
FreeBitmap(Kivi);
FreeBitmap(Kivi2);
FreeBitmap(Kivi3);
FreeBitmap(Kivi4);
FreeBitmap(Kivi5);
FreeBitmap(Kivi6);
FreeBitmap(Kivi7);
FreeBitmap(ExistingImage);
FreeBitmap(LoginImage);
FreeBitmap(UseQuickly);
end;
procedure EscapeScene;
begin
mMouse(630,45,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
sleep(5000);
mMouse(630,45,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
end;
procedure LogOutNow;
begin
if FindBitmapToleranceIn(LogOutImage, X, Y, 560, 450, 665, 500, 10)then
begin
mMouse(X,Y,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
sleep(500);
if FindBitmapToleranceIn(ClickHere, X, Y, 560, 340, 720, 410, 10)then
begin
mMouse(X,Y,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
end;
end;
end;
procedure LogInNow;
begin
if FindBitmapToleranceIn(ExistingImage, X, Y, 0, 0, 700, 600, 10)then
begin
mMouse(X,Y,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
sleep(1000);
if FindBitmapToleranceIn(LoginImage, X, Y, 0, 0, 700, 600, 10)then
begin
mMouse(X,Y,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
end;
end;
end;
procedure GoToNuoli;
begin
Nuolella := false;
repeat
if FindBitmapToleranceIn(Nuoli,X,Y, 510, 0, 750, 200, 40)or
FindBitmapToleranceIn(Nuoli2,X,Y, 510, 0, 750, 200, 40)or
FindBitmapToleranceIn(Nuoli3,X,Y, 510, 0, 750, 200, 40)or
FindBitmapToleranceIn(Nuoli4,X,Y,510,0,750,200,40)then
begin
mMouse(X,Y+23,1,1);
sleep(200);
ClickMouse(X,Y,Mouse_Left)
Nuolella := true;
Sleep(7000);
end else
begin
if FindBitmapToleranceIn(Vetta,X,Y,510,0,750,200,40)then
begin
mMouse(X-25,Y+23,1,1);
sleep(200);
ClickMouse(X,Y,Mouse_Left)
Nuolella := true;
Sleep(7000);
end;
end;
until Nuolella
end;
procedure GoToKala;
begin
Kalalla := false;
repeat
if FindBitmapToleranceIn(Kala,X ,Y , 510, 0, 750, 200, 10)then
begin
mMouse(X+5,Y,1,1);
sleep(200);
ClickMouse(X,Y,Mouse_Left)
Kalalla := true;
Sleep(5000);
end;
until Kalalla
end;
procedure GoToPankki;
begin
Pankissa := false;
repeat
if FindBitmapToleranceIn(Pankki,X ,Y , 510, 0, 750, 200, 10)then
begin
mMouse(X+8,Y+5,1,1);
sleep(200);
ClickMouse(X,Y,Mouse_Left)
Pankissa := true;
Sleep(10000);
end;
until Pankissa
end;
procedure StartFishing;
begin
Fishing := false;
repeat
if FindBitmapToleranceIn(Kivi,X,Y, 0, 0, 600, 400, 50)or
FindBitmapToleranceIn(Kivi2,X,Y, 0, 0, 600, 400, 50)or
FindBitmapToleranceIn(Kivi3,X,Y, 0, 0, 600, 400, 50)or
FindBitmapToleranceIn(Kivi4,X,Y, 0, 0, 600, 400, 50)or
FindBitmapToleranceIn(Kivi5,X,Y, 0, 0, 600, 400, 50)or
FindBitmapToleranceIn(Kivi6,X,Y, 0, 0, 600, 400, 50)then
begin
Fishing := true;
WriteLn('Fishing!');
mmouse(X+50,Y+10,1,1);//Move mouse to fishing spot
Sleep(500);
ClickMouse(X,Y,Mouse_Left)//Click the fishing spot
end else
begin
WriteLn('Fishing!');
Fishing := true;
mMouse(260,190,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
sleep(500);
ClickMouse(X,Y,Mouse_Left)
end;
if FindBitmapToleranceIn(Kivi7,X,Y,0,0,600,400,50)then
begin
Fishing := true;
WriteLn('Fishing!');
mMouse(x-40,y+90,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
end;
until Fishing
end;
procedure GoToFishingSpot;
begin
GoToNuoli;
GoToKala;
end;
procedure BankFish;
begin
WriteLn('Banking Lobster');
Stored := false;
repeat
begin
sleep(1500);
mMouse(650,335,50,80);
sleep(500);
ClickMouse(X,Y,Mouse_Right)
if FindBitmapToleranceIn(StoreAll,X,Y, 560, 210, 755, 480, 50)then
begin
stored := true;
mMouse(X,Y,1,1);
ClickMouse(X,Y,Mouse_Left)
sleep(1250);
end;
end;
until Stored
inc(Lobsters);
WriteLn('***************PROGRESS REPORT**************************');
WriteLn('Script has run for : ' + TimeRunning + '');
WriteLn('You have fished ' + IntToStr(Lobsters*27) + ' lobsters!');
WriteLn('You have made ' + IntToStr(Lobsters*27*56) + ' GP!');
WriteLn('***************PROGRESS REPORT**************************');
GoToFishingSpot;
end;
procedure BankOpen;
begin
mmouse(265,110,1,1);
sleep(250);
ClickMouse(X,Y,Mouse_Right)
sleep(1000);
if FindBitmapToleranceIn(UseQuickly,X,Y, 0, 0, 600, 400, 50)then
begin
mmouse(X,Y,1,1);
sleep(750);
ClickMouse(X,Y,Mouse_Left)
sleep(1234);
BankFish;
end else
mmouse(255,110,1,1);
sleep(250);
ClickMouse(X,Y,Mouse_Right)
sleep(1000);
if FindBitmapToleranceIn(UseQuickly,X,Y, 0, 0, 600, 400, 50)then
begin
mmouse(X,Y,1,1);
sleep(750);
ClickMouse(X,Y,Mouse_Left)
sleep(1234);
BankFish;
end else
mmouse(245,110,1,1);
sleep(250);
ClickMouse(X,Y,Mouse_Right)
sleep(1000);
if FindBitmapToleranceIn(UseQuickly,X,Y, 0, 0, 600, 400, 50)then
begin
mmouse(X,Y,1,1);
sleep(750);
ClickMouse(X,Y,Mouse_Left)
sleep(1234);
BankFish;
end else
mmouse(225,110,1,1);
sleep(250);
ClickMouse(X,Y,Mouse_Right)
sleep(1000);
if FindBitmapToleranceIn(UseQuickly,X,Y, 0, 0, 600, 400, 50)then
begin
mmouse(X,Y,1,1);
sleep(750);
ClickMouse(X,Y,Mouse_Left)
sleep(1234);
BankFish;
end;
end;
procedure GoToBank;
begin
GoToNuoli;
sleep(500);
GoToPankki;
BankOpen;
end;
procedure CheckSpace;
var
interwebz: Integer;
begin
InvyFull := false;
repeat
if FindBitmapToleranceIn(NotEnough, X, Y, 15, 350, 300, 445, 10)or
FindColorSpiralTolerance(x, y, 2314378, 685, 435, 740, 480, 5)or
FindColorSpiralTolerance(x, y, 2049917, 685, 435, 740, 480, 5)or
FindColorSpiralTolerance(x, y, 1852278, 685, 435, 740, 480, 5)or
FindColorSpiralTolerance(x, y, 2182791, 685, 435, 740, 480, 5)or
FindBitmapToleranceIn(Lobster, X, Y, 685, 405, 740, 480, 5)then
begin
WriteLn('Inventory full going to bank!');
InvyFull := True;
sleep(500);
GoToBank;
end;
if FindBitmapToleranceIn(Trolled, X, Y, 15, 350, 300, 445, 10)then
begin
WriteLn('Troll encountered escaping');
EscapeScene;
sleep(30000);
LogOutNow;
Sleep(15000);
LogInNow;
end;
if FindBitmapToleranceIn(ModCrown, X, Y, 0, 330, 100, 445, 10)then
begin
WriteLn('Mod encountered loggin out!');
LogOutNow;
TerminateScript;
end;
if FindBitmapToleranceIn(ExistingImage, X, Y, 0, 0, 700, 600, 10)then
begin
LogInNow;
sleep(15000);
GoToBank;
end;
sleep(5000);
interwebz := Random(25);
if (interwebz = 10) then
begin
mMouse(588,160,1,1);
sleep(250);
ClickMouse(X,Y,Mouse_left)
sleep(750+Random(1500));
mMouse(715,260,1,1);
sleep(750+Random(1500));
mMouse(710,255,1,1);
sleep(750+Random(1500));
mMouse(713,258,1,1);
sleep(750+Random(1500));
mMouse(646,161,1,1);
ClickMouse(X,Y,Mouse_Left)
sleep(3500+Random(1500));
end;
until InvyFull;
end;
procedure StartThem;
begin
EnoughOfThis := false;
sleep(500);
repeat
StartFishing;
wait(1000);
CheckSpace;
until EnoughOfThis
end;
begin
ClearDebug;
MouseSpeed := 15;
SetUpSRL;
BitmapsHere;
StartThem;
FreebitmapsNow;
end.