SRL Archive - Archive

How Long have You Played Runescape?
7 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I know C++ , Java, Python and Pascal.
Java was first one of them that i started to study which was followed by C++ and afterwards with Python and Pascal.


Are you a member of any other communities?
Currently no.


Tell us about yourself…

From: joulaha
I am 17 year old boy from Finland which likes to create scripts and "code" with various programmin languages.

Im interested in computers and motorbikes, which have been my hobbies for long as i had one (Computer or motorbike)

Please show us one (or multiple) of your scripts.

http://villavu.com/forum/showthread.php?t=95155

http://villavu.com/forum/showthread.php?t=95304

Please post the scripts within the Simba tags in the original post. Others may not have the time/resources (on phone) to download it from another thread ;)

Scripts are only for RS PV's from the looks and they are very basic a lot of static clicking.

V: No

Mat

From: Mat
Scripts are only for RS PV's from the looks and they are very basic a lot of static clicking.

V: No

Mat

Yeah you use bitmaps a lot, True to use a variety of methods :)
also you haven't been with us long, people like people to be engaging with the community.
Anyway best of luck. I won't be voting as seems as I only just got members.

Alright thanks for constructive feedback, if this appliance wont go through i will be making another one in the future, probably not in any near future but still sometime ;)

Perhaps summer if thats far enough?

Well we will see what time brings and lets go with what we have.

Script #1

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(500);
            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;


            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.

Script #2

program AwesomeRuneEssence;
{$i srl/srl.simba}

var
TultaFound,AuburyFound,InventoryFull,PortalFound,Teleportilla,Enough,PuskaFound,KivetFound,PankkiFound:Boolean;
X,Y,Tulta,TeleportThere,Portal,Teleportti,Pankki,Puska,Kivet,RuneEssen:Integer;

procedure BitmapsHere;
begin
  RuneEssen := BitmapFromString(34, 30, 'meJyVlm1LlEEYhe0nCIEQSAohIa' +
        'GFJKIYtorGphm2ZRpmJplpZmZmmpmZ2RIR0S/uogOHaV7WDc6HZ2d' +
        'n59pz7nvmmcrUg8pfDVVrlX+fPcLDuZaWktIfRmLQC1rhV15qe/tg' +
        'Z+dwd/dob+/Lwcdvh5/qR5+/Hx//ODn5aVaEi5bK/hP9dm3tzfrLt' +
        '5uv329t7Ru0/+ErClmnp7803+sMjE2VVg7//+Li8+Xl9dXVTSgbr9' +
        '4BMkXClFgG1eu/+SHrSw0oTJudXZh/9FQUvMgOIOzIkWRfAhGdHHV' +
        '0XI3KGok509P35+aeLDx+trT0YmVlAy+mSJhSgJLLpBoJVGonU6rV' +
        'uzMzD/ECBS8CiSVcSsQULNVIzSA7UQMYMT5+WxTskBiCZZytGWciA' +
        'Qrkriv1GF8ND9+cuHWH0PCCyA01xpkokGokO2lXM97fPzQyMgZlcv' +
        'IeDYBwhLJEcGGegio9+gFH0W61kd7e64ODN0ZHJ0isVptHZ7JCHBL' +
        'I6bkNXBdRSIzS4IXQELj/JcJyemFupvT1DcgLDYBgpbgsK4yR6NwM' +
        'UXVE6eq6DEgNgCJW1ldkClBYoCyls/MSDaDQUAoSq0GAoujcw054D' +
        'pjS3n5RFEIzSKxseqkp7ITHUXraMNLWdqG7+wqloZ8BiZVNL2tKdk' +
        'zBTnoIMNLael4U7ISgEisypdOPBogo6QkjEBSBmmSZgh3vUCFKFKq' +
        'DHTlKWWeCvEnDuKI2E4WWpg2aYUUUb5zICNJLzW9JQLQ0GwdQyGoG' +
        '5JZOezi6qMgO1QEUsmwqBKV2UGokusNEufX0XGsSFLLSLZ9ekAxi+' +
        'xBdyErTU+8Zp2tJZCR7d1KlNN8sAuTElqlSvbx+A0RqislmKUAJIu' +
        '6AOszQQvZdH35MeztkNZAtEEL20pL6yjr1OiX5pldatpRYdkI4Unr' +
        'OrvAHDhV1vQ==');
  Tulta := BitmapFromString(4, 4, 'meJyTK/qrrvlNruivwNJ/EAaEDWfA' +
        'xSFsAEhKGOA=');
  TeleportThere := BitmapFromString(37, 4, 'meJxzD4l1x43+gwEDAwMeNeSh/0g' +
        'Al3VY1ZAtzgAGyLLI1hFUQ6Q4LmNpwQYApr3tGQ==');
  Portal :=   BitmapFromString(8, 8, 'meJxjZGDYjwoYGRgYUQWl0+9AEJpK' +
        'oEhqsTOmFJDrE2UIl0JGQHGIFIQBR5giaEhNSwsZwcUBqDxShQ==');
  Teleportti :=  BitmapFromString(11, 11, 'meJx90N8KgjAchuH7vwzbapQHaU' +
        'PG5kjLw0mgdeaJl9JHX45VErz8Tvawf8q0ZT/KynPGNtqxnWmQm+Y' +
        'vEI0yDRLarxjt0N5ekL49wDiB5ZJYAPdh8gN4gm11ZnaaizCK15JY' +
        'A0UYcDHON3BXpEwbO/V34mMYMtzhB6RvgTnUXV53KUg/DQflf0FW2' +
        'idscAIH');
  Pankki :=  BitmapFromString(16, 3, 'meJxj+vOH4etXhrt3hf/9YyLEZmR' +
        'gALHfvmU4cwbIIMjOyCgA6gIygBqBiCAbqB4AOYxIFA==');
  Puska :=  BitmapFromString(10, 10, 'meJxdjjEKgDAMRTu5ODq7ujkKns' +
        'LrqtVCURRP0zP48EMIwuPT5CWhMZ7xY1kPY16yoF/1o2wzTLI8fpa' +
        'OLCXIpnTXXUtu+4UlUZayQInVorfC+lLe2k1DYzk/oC9xn1RHlFLs' +
        'LWsDqBCCH/BbqBexrp83');
  Kivet :=  BitmapFromString(11, 9, 'meJxzsLNzAKOp0xYCkQOMGx4RAWF' +
        'oaGjAZYFo1uxlEBEIWrhw7YQJc4AiyAogaiAAqABZO1wBBAFlIQqA' +
        '1kEQUHD+/NUQhCyOjIBScDfgUoBVFiIItALZm3BxCIJbjRYOAPW+c1U=');
end;
procedure FreebitmapsNow;
begin
  FreeBitmap(Tulta);
  FreeBitmap(TeleportThere);
  FreeBitmap(Portal);
  FreeBitmap(Teleportti);
  FreeBitmap(Pankki);
  FreeBitmap(Puska);
  FreeBitmap(Kivet);
  FreeBitmap(RuneEssen);
end;
procedure BankEssence;
begin
mMouse(710,390,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Right)
sleep(250);
ClickMouse(X,Y,Mouse_Left)
sleep(2000);
end;
procedure OpenBankBooth;
begin
mMouse(255,195,1,1);
sleep(750);
ClickMouse(X,Y,Mouse_Right)
sleep(750);
mMouse(255,230,1,1);
sleep(500);
ClickMouse(X,Y,Mouse_Left)
sleep(1500);
end;
procedure GoToBank;
begin
PankkiFound := false;

repeat

    mMouse(666,20,1,1);
    sleep(500);
    ClickMouse(X,Y,Mouse_Left)
    sleep(12500);

    if FindBitmapToleranceIn(Pankki, X, Y, 520, 0, 760, 210, 20)then
    begin
    PankkiFound := true;
    mMouse(X+10,Y-5,1,1)
    sleep(500);
    ClickMouse(X,Y,Mouse_Left)
    sleep(12500+Random(1000));
    end;


until PankkiFound

OpenBankBooth;
BankEssence;
end;
procedure GoToAubury;
begin
TultaFound := false;
    repeat
        if FindBitmapToleranceIn(Tulta, X, Y, 520, 0, 760, 210, 20)then
        begin
        mMouse(X+3,Y+7,1,1);
        sleep(1000);
        ClickMouse(X,Y,Mouse_Left)
        TultaFound := true;
        end else
        begin
        mMouse(666,112,1,1);
        sleep(500);
        ClickMouse(X,Y,Mouse_Left)
        sleep(10000);
        end;
    until TultaFound
end;
procedure TalkToAubury;
begin
AuburyFound := false;
    repeat
        if (TultaFound = true) then
        begin
            repeat
                mMouse(255,130,1,1);
                ClickMouse(X,Y,Mouse_Right)
                sleep(750);
                if FindBitmapToleranceIn(TeleportThere, X, Y, 0, 0, 520, 340, 20)then
                begin
                AuburyFound := true;
                sleep(500);
                mMouse(X,Y,1,1);
                sleep(500);
                ClickMouse(X,Y,Mouse_Left)
                end else
                mMouse(100,100,15,15);
                sleep(1000);
                mMouse(300,130,1,1);
                ClickMouse(X,Y,Mouse_Right)
                sleep(750);

                if FindBitmapToleranceIn(TeleportThere, X, Y, 0, 0, 520, 340, 20)then
                begin
                AuburyFound := true;
                sleep(500);
                mMouse(X,Y,1,1);
                sleep(500);
                ClickMouse(X,Y,Mouse_Left)
                end else
                mMouse(100,100,15,15);
                sleep(1000);
                mMouse(255,170,1,1)
                ClickMouse(X,Y,Mouse_Right)

                if FindBitmapToleranceIn(TeleportThere, X, Y, 0, 0, 520, 340, 20)then
                begin
                AuburyFound := true;
                sleep(500);
                mMouse(X,Y,1,1);
                sleep(500);
                ClickMouse(X,Y,Mouse_Left)
                end else
                mMouse(100,100,15,15);
                sleep(1000);
                mMouse(300,170,1,1)
                ClickMouse(X,Y,Mouse_Right)
                sleep(750);

                if FindBitmapToleranceIn(TeleportThere, X, Y, 0, 0, 520, 340, 20)then
                begin
                AuburyFound := true;
                sleep(500);
                mMouse(X,Y,1,1);
                sleep(500);
                ClickMouse(X,Y,Mouse_Left)
                end else
                mMouse(100,100,15,15);
                sleep(1000);
                mMouse(295,130,1,1);
                ClickMouse(X,Y,Mouse_Right)
                sleep(750);

                if FindBitmapToleranceIn(TeleportThere, X, Y, 0, 0, 520, 340, 20)then
                begin
                AuburyFound := true;
                sleep(500);
                mMouse(X,Y,1,1);
                sleep(500);
                ClickMouse(X,Y,Mouse_Left)
                end else
                mMouse(100,100,15,15);
                sleep(1000);
                mMouse(285,130,1,1);
                ClickMouse(X,Y,Mouse_Right)
                sleep(750);

                if FindBitmapToleranceIn(TeleportThere, X, Y, 0, 0, 520, 340, 20)then
                begin
                AuburyFound := true;
                sleep(500);
                mMouse(X,Y,1,1);
                sleep(500);
                ClickMouse(X,Y,Mouse_Left)
                end;

            until AuburyFound
        end;
    until AuburyFound
end;
procedure GoToKivet;
begin
    mMouse(680,23,1,1);
    sleep(1000);
    ClickMouse(X,Y,Mouse_left)
    sleep(7000);
    mMouse(370,110,10,15);
    sleep(500);
    ClickMouse(X,Y,Mouse_Left)
end;
procedure GoToPuska;
begin
PuskaFound := false;
repeat
    if FindBitmapToleranceIn(Puska, X, Y, 520, 0, 760, 210, 20)then
    begin
    PuskaFound := True;
    mMouse(X,Y,1,1);
    sleep(500);
    ClickMouse(X,Y,Mouse_left);
    sleep(5000);
    end else
    PuskaFound := true;
    mMouse(672,37,1,1);
    Sleep(5000);
    ClickMouse(X,Y,Mouse_left);
until PuskaFound
end;
procedure GoToPortal;
begin
PortalFound := false;
Teleportilla := false;
    repeat
        if FindBitmapToleranceIn(Portal, X, Y, 520, 0, 760, 210, 20)then
        begin
        PortalFound := true;
        mMouse(X,Y,1,1);
        sleep(500);
        ClickMouse(X,Y,Mouse_Left)
        sleep(6500);
        mMouse(300,228,1,1);
        sleep(500);
        ClickMouse(X,Y,Mouse_Left)
        sleep(4500);
        GoToBank;
        end;
    until PortalFound
end;
procedure CheckInventory;
begin
InventoryFull := false;
    repeat
        if FindColorSpiralTolerance(x, y, 7500667, 690, 425, 735, 470, 3)or
           FindBitmapToleranceIn(RuneEssen, X, Y, 690, 400, 750, 480, 20)then
        begin
        WriteLn('Invy full');
        InventoryFull := true;
        GoToPortal;
        end;
    until InventoryFull
end;
procedure StartBotting;
begin
  Enough := false;
  repeat
  GoToAubury;
  sleep(17000);
  TalkToAubury;
  sleep(5000);
  GoToPuska;
  GoToKivet;
  sleep(500);
  CheckInventory;
  until Enough
end;

begin
  ClearDebug;
  MouseSpeed := 15;
  SetUpSRL;
  BitmapsHere;

  StartBotting;

  FreebitmapsNow;
end.

Will look over them now.
EDIT:
Scripting wise
1. They are for private servers which is something I don't prefer.
2. Both scripts are relying on static coords and bitmaps.
3. Multiple infinite loops in the scripts
4. Way too many global variables.

Forum wise
You just registered two weeks ago and nearly all of your posts are in your own threads. SRL Member is not only a Scripting rank but also a Community rank.

My advice:
Make a RuneScape script that uses TPA's, DTM's, SPS/Radial walk, etc.

JJ couldn't have said it any better :p

Can be closed.

Thanks for help, im sure that i will make RS scripts sooner or later :)

Closed on request

Your scripts are a good start though! Keep at it :)