SRL Archive - OSR Help

cant get simba to work


jason91

2013-01-29 00:57:01

SRL Updater: Decompressing…
SRL Updater: Extracting…
SRL Update Successful!
[Error] C:\Simba\Includes\SRL/SRL/core/globals.simba(696:5): Unknown identifier 'ImageSetClientArea' at line 695
Compiling failed.

thats is msg i get every time i try to use the sample code when u download simba…

Justin

2013-01-29 01:00:21

You will need to update Simba to 992.

To do this, Close all Simba's off.
Open Simba (C:\Simba\Simba.exe)
In Simba, Tools -> Update
Follow the prompts and try again :)

Post back if are still having issues.

jason91

2013-01-29 01:19:29

now i cant seem to get msvcr71 downloaded ill download and it says to put it

C:\Windows\System32

there but when i do i get 2 errors saying i cant

Justin

2013-01-29 01:26:37

You will need to be logged on as an Administrator to add files into C:\Windows\System32

jason91

2013-01-29 01:36:38

How do i do that my log in for computer is only one

i just check it says my acc is the admin acc

! C:\Users\Z*************\Downloads\msvcr71.zip: Cannot create msvcr71.dll
! Access is denied.

Justin

2013-01-29 01:42:51

If you would like, you can PM me your TeamViewer details and I can take a look for you.

jason91

2013-01-29 02:04:43

hey man thanks alot for you help on tv. So i got the bot i want to use on prodjectrs06 and i ran it but it did nothing but said said

Fishing!

Justin

2013-01-29 02:06:48

From: jason91
hey man thanks alot for you help on tv. So i got the bot i want to use on prodjectrs06 and i ran it but it did nothing but said said

Fishing!


Have a read of this: http://villavu.com/forum/showthread.php?p=1154752#post1154752

jason91

2013-01-29 02:11:06

yah i have no clue thats so much to read when semi fucked up lol and i dont understand it

Warning! You passed wrong values to a finder function: ys > ye (1337,444). Swapping the values for now.
Warning! You passed a wrong ye to a finder function: 1337. The client has a height of 509, thus the ye is out of bounds. Setting the value to 508 (h-1) for now.

Chris!

2013-01-29 03:09:13

Try not to double post in the future, Jason91. ;)

That error that you're receiving means that the script is trying to find something not within the bounds of the client area. Please link me to the script you are using.

Justin

2013-01-29 03:36:03

From: jason91
Warning! You passed wrong values to a finder function: ys > ye (1337,444). Swapping the values for now.
Warning! You passed a wrong ye to a finder function: 1337. The client has a height of 509, thus the ye is out of bounds. Setting the value to 508 (h-1) for now.


Nothing to really worry about, Just the script writer didn't set correct boundaries and Simba has corrected this.

jason91

2013-01-29 07:26:17

ye but after that it just logs me out

xtrapsp

2013-01-29 07:41:50

From: jason91
ye but after that it just logs me out


Would you mind posting the script?

jason91

2013-01-29 08:19:49

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.

Sjoe

2013-01-29 11:24:42

Put simba tags around your script, that little lion head does it.

Hobbit

2013-01-29 22:33:02

Put in simba tags