Need Script Fixed PLEASE!

Hi guys, me and a friend have spent the past couple of hours writing a SCAR script for an RSPS called SilabGarza (Downloadable client) which must be run in full screen, facing north, but it doesn't work, and we can't figure out why! Here's the full code :

Code:

program Sg_Ess;
var
Ess_Rock: integer;
var
Banks: integer;
var
Deposit_Items: integer;
var
Close_Bank: integer;
var
Full_Bag: integer;
var
Use_Quickly: integer;
var
Ess_Rock2: integer;
var
x: integer;
var
y: integer;
procedure loadimages;
begin
WriteLn('Running')
  Ess_Rock := BitmapFromString(38, 36, 'beNrll1FLVFEUhee1CCOU' +
       'lAkVR1JpjEmHtMFRDCoEKUKQCqFCigopKiQKsSgsKHqIIAgiCIIgi' +
       'J76gS1YsFjse+bc61vQ5UME7z3r7H32XvtYq/1Tz9Vzo2K1UxfLM4' +
       'NibqpfNMf6RH3gwL60bl8cB3cvHxc3Vhpi/eyIWJkfEouto87I4ME' +
       'qWo+uTImnG03nwfqk8M14KkRnegA06ofyci83T4o3d04F/K9hJ77P' +
       'jQtj4nx7KC/69t6M+PiwTT49Pi3eb80GQh6Ah7+2NAzyYfr6P150i' +
       '2gn4PnN6SKefJ775HBfRvHrszPi56uu8313Qbju3q2W44qbqw1wqX' +
       'ssHybX//16SXiM2Mm3nY4o5lnBenpRunnRP++Wxa+9ReFhfnkyr2w' +
       'wWNf1SFvjh0kvOdYY6BWmx/h5ew5AXWxfO+HAJUp7H2mnIhtZeSZF' +
       'ucDO9aYobX9Wl2Ik2CTbOaRUeHmrYau4Dc56a20C0OKS9jU7cSTUs' +
       '8vRKCoaKVpeqYBvsKrZv0C+LWmWgTKJd+Dw1X1b2yPezm5ZgHJMMp' +
       'Ht84WKiqgBT456GZXmI8MHFscTFN3cYODaT15RDVVsK6Y3JJl5xuK' +
       'SQy3xFx+aGUXUW1KR6SI+iVBLXJnnDjn8ZPepwnHQLLPkg6NPKrpN' +
       'oUmFlsVBIz9QxC9U9ArHTSDjMy6adKri0GffIT9Q5KED3xhGBulVr' +
       'h/utwnlkkNWq+ETqLA1oMgih6KfNWaxExQRWlB0bwzFEyYpFPWJX4' +
       'GQ1XyYEg2TnUYEuI4cQ6cARX4IRS8wlGt+ZHiMcgAllosUXwaSDpc' +
       'cFDPKNVOx3obh+kQH0Js4Mlf0waH8wyVKrYAXKsjRcBQmV/DkhxuX' +
       'zxE2L/OvYZcXhSJCkNFxheS9Syo+Mf06jYYtNVgWuacXnydveppWU' +
       'PG5iQKjKHu2VJFx6cqKxk96hQiXPaBKK72/uSgjxVcZgxJ+/6HN0q' +
       'NKL8b+jwAtK/+aDlH51NEjsd5HVe4eaIcqb7qiHz0Uq4/m/T6sHC9' +
       'glk3tP3/+AhYDKGw=');
       WriteLn ('Ess_Rock')
  Banks := BitmapFromString(164, 49, 'beNrtXP9uFFUYJSH+Q4yG0F' +
       'BSArRYasUSUGlLLcR2tDBtt2Vgi1RiEI0mJPoavoGP4jv4Wn4z373' +
       'nnvtjtjO7s9sxsTnZbGdnZ853zv3uj+l3e+HC49WLwOaKw5e307h/' +
       'y+Hu9QtJ3LnmcOtqGguXHeY+KgEaOL66vCRYW16R1+XFEouLi/oGR' +
       '6r3K3duL91YWNAT1lY/kyPlR9Wr/Fq+scBH5s3iEjPBj4pANFbqaO' +
       'A6+mateq1orDCNVeIgkE+ZkoBpBGS6+mF/9RZKrKHIfnQksoqpqI6' +
       'Y6KzOcXTMRNvDsiWwZm+0WP3IjeT9g7V7yrM0Qo5UIOWtyz5/A3u8' +
       'zu4UE8NhldqJtgG9L1qmEFOjV3034/vaZpBmIpBbT8lrjQttUkOoX' +
       'pfgkY0Ln1bBVgFyjKotK2zaT6V/XUsGE3QR3KKQXFZeI7UmrzYAc8' +
       'dA4eqEVdvwOAQ0D5ZXwL0ck7GBgEblLJrcsvm1bNiWhurJRnPLTDb' +
       'UgExXjiciMgSQg2UUmkRrMNc2gzVH1Wmr2ee8rr6FuLRVBHYjKGHC' +
       'w0TcHmYGGYBUmT7w0QGxE6/7Iy8UHj1taDKdaIK6KQejb3zG/mk4J' +
       'ZtlLIG8IzAbhnKRXvHpyus+xNLc6xmwVa+b2z0DPpN43UkgHbaEVq' +
       'nUOcMA2vC6srsTPhN6PSVtx4sLqcRr/wkxNlv2ukNKk/CZsA/vj7b' +
       'sdbeUxmMbeD0bSqP5dOJ1T7Rlr2dGKQmePPSBUidzs55oy/IypSIf' +
       'CPKdDK+C02IoyPWj6nj1UbazsyvQ0/S9vtETDOz5AfRSO59fVNR5L' +
       'R+58y0fpVSEfAbgc1qcwSc8WMNn8nl4rbYUiGqb24NttT0zFpaX+e' +
       'T2Xri16AZtlRU4wPSAT3mCJR+T0XM00mReh5Rs7LlRxklU8tkxHxG' +
       'fQcxHz1Emzfl06zXfzjlrTS9IserX0oLT/AgBevxtvM4LGGe/3jSv' +
       'iY9oq0bnfJzaT6wwEfaOkLyGVWOvXQNzueDnMtvNUjgN6aCj5HdT0' +
       '/Y6YCWv707fgDZ76qzUFPNjYW0bxhJ3m3xH296kSxy+f/er6Wp2Ms' +
       '5ZPV8+UibKCr9CWNgR9DYNvcYdy3ZesVI+BfOhng0tQTnLtyCII5N' +
       'C51572lJHh5ySVHKxUPLmmtqVmJw4eM3Ja5YXrsVe669Ycev1PWu4' +
       '+eUux7mfDIZ47uF5WDGDaX6Ec4I/EIBPQAl8qLcpO3P0POi+eHDPo' +
       '9dgcMHJuELMZ2yvU4F4nTAFMuRA0KSRLzpKst1xaPhiJa/TlsMJ+L' +
       'gBAl00zSIcnwrllYsheqHA+pzmIZr7BXLT9gZNvOYJAHfInAu4F/g' +
       'UfgbxKAA+GouKo4Sn6nXuzR5NB4hYvDHIaosYeQg7U1u9cp3XoITb' +
       'aT8MAdn3oAEU0UFOGc0aq3mmDc9Emh818ZovhX5Gk7pgSj5VnIwco' +
       'dnmELnv+FRnTsNrxOJ6OZKLtVViQSysLYYwNFEbi7FMFVa1z9TWm9' +
       'tQc8K8lydvah8P69wAeCaG+Vg1i3b97Qg+jpK9vuvGTVxgNeCJhFu' +
       'XVYOFx4dnlRUl47VNhxl4HfQzFMig8Nstkc9sLBlmTf6I2U5bHhwx' +
       'avNkgEVD1vusymEdOcI9g+FgBxQ5Tb+Lx3ejvKbx13DzF6fxKOxyV' +
       'htDlQ40m7VzBqPeYASfbr3mQHgmyflrsttp641NkbZmNM+rOVVDbc' +
       'EnOVPlhW0wJXC5X3Gw/cmAnn5khZtV6jTPkAzIaJlKQIn5oA/hhT9' +
       'OCFYfvDpjnQtvXFPagzo+HXrtLZG4/6Gkxgk038jQR2Eo59kaP1hQ' +
       'o1XqM7325vD+9MwoQ2s95sPkOXeIWOYWicSnldde/tKsBo/LeOZf+' +
       'DmCblBzGetQjD5JPp17nQ7EZNMwmN/SGJrQFuHgORvHO0LbuJ8poi' +
       'mNzVy32lWh9CN+/gOXebqINTjSKviretJr00f5DyK0A9Eho6CmGCw' +
       'ZqGMMU4BbrOWf4NOh124wDdcImTcX4kDM6EOq2vE90BZ53URb8jrj' +
       'CSEtcLLCf2aL/ke1wmLH9ore4gizDpvpWVLbpEQmZ30+aF15tDQw8' +
       '5nC3Zq7OyNXJSOtXo0RU/W6XSA2s7gluHTTroDWEfyoYbS26Gd4ya' +
       'wjvj7YwZCBbhzTA9wdamvG6Rs8YOdHQNrtNPFaYxEOWJXLe4EbxWj' +
       'e5R6PUD/D6wjbFZSnlde0K0E81Z+e12MG4jfXIBA9De/RaJPa8l9D' +
       'lNL++hVg6+5HwN2bl7R/QN/uPYimyRIetZkuJR/IdwG+ptyC62S0w' +
       'LUVJXqalwULxjivRVhtxq34jPGz/8XFOIqzA+HHCN4DCvTbZk2EwW' +
       'tEIMlY0Pzw5PbJ2sfAvaVLAF+5Lfg6G59+COx9eTnYxqJ2Bw+Tz53' +
       'SGF4Hqk4pCgGTP1NYaKuQ4/s7XwEHuw8dsnXgMNtQHH23ebz3CHj+' +
       'dAsonhkM869P9rcJj4H9bx7GG5eUFQs1S0qvDp4kWbXN63NUtS6Ev' +
       'fsXBSzsUfYwieLpOvDi2QbwMn8EfH/wdRKng23gzfFjxduXuz8cbi' +
       'b3qSkrATqiwe5XACg936tl9SLfVJzsP3q1vwUwq9eH24ofjh4Dwur' +
       '9n9/W7Z5r4jXIN1H1+Nt1RR1/AeSt4y9geSWEw92NEapK4gPoIl4+' +
       'fTh8tg6c5BvA9wcOrw83gdOjLeDH423GTy+eAL+c7Aqe722cHmwEc' +
       '4nXO1cBMEnSu3L5chJX5+aSuDY/D9xYWEji1vXrwO2bN2PwyKs04r' +
       'yu03MSwnXkmXAd+Zjzm2wewOBSp0kT1NE4E6LPbwcLgA5DPacnYK+' +
       'L7TkAE6dJ2E7CHK0Our3dmz95MgeMFrP5jZLZMRrS/H5+dk34ACJU' +
       'z+kJxOuj9dJocbxVy5wqW0GyZeqv3Cbb0uNb3FlaaoVPP/lEIfcVM' +
       'RXoz8G2n/QE7LV+yo1z98HHs2TLUDLc/KRl/n58XTF4dEXRllITeh' +
       'AtibsrK6IMZ43aCm79pCeA14L3gwXgfNkKkmyFqqLtljGgya6TJjs' +
       'XkgUeoDc2w6nSU69fbn4gXk9OdWZizua+DdHE63OkB4bNve6VmFO9' +
       'Lz9FbPgVs0pdTzM8d3rKsM7rnos5CQe++xgYwbDP9ATwWuZm7HXPx' +
       'Zzk1u75zP0OePKRHtLjmya97idViNnk1mNjEs49pydei9HsdW+pqp' +
       'h1Vxb+AToh3Ipzz+kFXveZqiCm0QrT5twTenVU2eueUxXwfhlURgW' +
       '1xN7mKbuv0KudoMoQLVoIaudMKUg0eeD5jNIL9kRwjaK3FZT/3O8X' +
       'WlsCA5RlcqVNUOseU2pbq6BeB1GUj8cTZfPpLVFRFFltFLYeg6qIy' +
       '4/++Gteb8rzQFDSGHHHcM8d6tILfzOCLUSxVX9eETsXegWlX6YSaa' +
       'TXXtsLKFFFil9mObDFRa6+lHYHuF9rkHXuNexO7LkLCvtp35mp9I6' +
       '2gaBejsXn/SCaeuJ1EEXsta2qHaL9eFtEqcY1p2KYgutOvW1xwyLa' +
       'w2ubQbUhJbUiCOwmSkPUBgeUsF1Uq4zifw6ABHGFrFzxaEtJ6yhN6' +
       'DW0tZV4rmQ02BKuxwNhfVVNFTFX6rpqQ1PxPoy9ZmGR17Q7JqhvzN' +
       'zWM38bCO83cXX4riQbJXwD3rDZ1mvUDcZbFOOdKeCJ0cenlPGmUd7' +
       'RMD2vrUGuAjD4PwlF9C8O8shrZLRfY5z5my/KvB4h7ISz905Q142f' +
       'O6VWXq/vX3q19cGIwSjYcZnTjg8uZU9tOM38sm03geF/uyHt4Z+/f' +
       '/3f6xl4vbf39H/8d9HC6X8Bi3SnPA==');
  Deposit_Items := BitmapFromString(35, 25, 'beNq1ls9KAlEUxkc' +
       'IydQKNEKwP+QmaJVUCFFEZIsyrGUoFQgRRIugTZuQWvYA9QI9QA/Q' +
       'm/Qw/ezD43WaHGdg5GM4nbl9v3vOPc7oef1PKkkNKN37i+TUZ6Xur' +
       'ppJS6UBJb4+PwrVTbuB0umJ/5TPZX3/0jisHeysRwXJ7fVs6eVkke' +
       't7a8UVmdvteR8rBghEtTR5ujYrhHAioof9EiJ4PC67rHig2vIUrM5' +
       'mQeYC4U8hrWqRPXCLjFtXVBAUfOqV/EIhA06bFwhz6CS5iyByl8Vi' +
       'RQKJIuEDC2e2LRC9Ik8GCrG6yrK5YjESqHc0lV5nZKUWwZIt0umQJ' +
       '36+XP3slAGxOGpFgDBpzuxqGPCnV2JxFYXqPp42ECxAZGKcEf6Yc7' +
       'V50KETwCLAnAXU8vXWhgWFfDxQrj5t0qHjbyxNCMVqDNRerpFaJ/O' +
       '97zoi0HmpKNplLP7U5GvwVCMgHiOBoMxWNhAhig2Ghln7F45AUOUZ' +
       'hlCQDF2EKPjr+WMgTQKbt4eDOkaSTBDIc0Gy9VHwpz/IWmcgUewLZ' +
       'UOo8R4N8lFsJAzkVuRDqIf2JRoehrFAgwP6lc2D+RPriWe1jA9yKW' +
       '5d1jo2L5YQGjyXEq8iH8smHHH0ZECMfPENgQKlF6tkrz82bwpE/H0' +
       'yEMeQzKXQxfb7BGhy8oY+Cf+u+wHJd2C/');
  Close_Bank := BitmapFromString(20, 13, 'beNpjYBgFo2AUgAAAAw' +
       'wAAQ==');
  Full_Bag := BitmapFromString(157, 247, 'beNrt3PGrFGUUxvGdXy' +
       'QkSZIkLykmmWRiJpkZpplkZqYpZmammZmZGRER9N93Lq9Ow929OrO' +
       '7w9u+7+fh/Unkec6ZPXtmZ+/ynUyoVjWbnxoK+D+03/MfB3R098aN' +
       'ezdv3r9165fbt3/78e7vP9374+f7fz548NfDh+N3l7eAjOnNCOnr/' +
       '/+bS5e+/ery919fu3P9emv+6w934nT9/370aITu8haQv/1lp6//ny' +
       '/Onr18/vy1ixfD+burV8K8dU4nJif5t+b/PH68pNbyFlBkenPm5Mn' +
       'PPj6dnGNg0syEecxMGpt02uFJ5rEQno7Non1lLaDI9ObDY8c+PXXq' +
       '80/OfHnu3JULF2JgWud0YnLSWkin3fZp1S/cWt4CSk1v3j9y5KPjx' +
       '2NgwjkGJpkn/xQxnRKTE/5p1T+9ic//smYtoMj05t1Dh5JzzEzsgT' +
       'jh30a089NGtCmxFpJ55+PZPH1lLaDU9Oat/fvfe+dwrIIYmDixDeI' +
       '8O6JNSeZp1c/9smYtoMj05o29e98+cCCcPzh6NG7ccWJs4sxMiYju' +
       'lkhBaSfEfTzGZo6+shZQanqzZ23tzX37Dh88GHvg9IkTcZ7r342Ik' +
       '8zbnTC0tawFlJq+7hx7IDZ8DEysgjgRMTQl/NudMPTbj6wFlJrevL' +
       '57dxqYuHHHCf/piJn+3eUQC6G9iQ99WbMWUGp688qOHWGebtxxNvj' +
       'PHJ4NkxPm3T0/9GXNWkCp6c3L27fHjTutgjjT5sn/GWshOaevMWNm' +
       'hr6sWQsoNb15adu25ByroDVP/jN3wvTkxMx0v+wa+rJmLaDU9ObFr' +
       'Vtf3bkzNnx80g7z5D9zJ8ycnDQzrXPMzNCXNWsBmdsfLb15YcuW5B' +
       'wz0zXfzH/D5KQvM+PGPffLmrWAzO2Pmf6ktXBO5j39W+eYmfbpeL5' +
       'vWrIWUGr6unMs+ZiZNDbT/s81bx+Q5/vyMGsBpaY/cY4P23H77uO/' +
       'wbl9hpr7O+GsBWRuf8z09dbiw3Y8Q4V517+Pefthe5E/zGUtoIz0Z' +
       'rOJjSUf5l3/dnK65tMzE2fBv7dmLSBz+2Om/7eLXtu1q6d513/xH7' +
       '1kLWDV05tnm8eTVCyErv/0Tkgf0tqI5f36Lm8BBac3Xf9YC3vW1tL' +
       'kbLb2x/g1ab4Cyk5vumshnUiJEYqgdkWM/fvnfAWsRPpktCufV03F' +
       '6URERERERERlCzsCO2L5lxQ7Ajti9dMn2BHYEdgRVaZjR2BHYEdgR' +
       '/TqCzsCOwI7Ajui1nTsCOwI7AjsiL6tYUdgR2BHYEdUnI4dgR2BHY' +
       'Ed0ffCYkdgR2BHYEfUnY4dgR2BHYEdMfgtgx2BHYEdgR1Rdzp2BHY' +
       'EdgR2RGEFYEcQERERERERjfrcjR2BHbHkS4odgR2x+ukT7AjsCOyI' +
       'KtOxI7AjsCOwI3r1hR2BHYEdgR1Razp2BHYEdgR2RN/WsCOwI7Ajs' +
       'CMqTseOwI7AjsCO6HthsSOwI7AjsCPqTseOwI7AjsCOGPyWwY7Ajs' +
       'COwI6oOx07AjsCOwI7orACsCOIiIiIiIiIRn3uxo7AjljyJcWOwI5' +
       'Y/fQJdgR2BHZElenYEdgR2BHYEb36wo7AjsCOwI6oNR07AjsCOwI7' +
       'om9r2BHYEdgR2BEVp2NHYEdgR2BH9L2w2BHYEdgR2BF1p2NHYEdgR' +
       '2BHDH7LYEdgR2BHYEfUnY4dgR2BHYEdUVgB2BFEREREREREoz53Y0' +
       'dgRyz5kmJHYEesfvoEOwI7AjuiynTsCOwI7AjsiF59YUdgR2BHYEf' +
       'Umo4dgR2BHYEd0bc17AjsCOwI7IiK07EjsCOwI7Aj+l5Y7AjsCOwI' +
       '7Ii607EjsCOwI7AjBr9lsCOwI7AjsCPqTseOwI7AjsCOKKwA7AgiI' +
       'iIiIiKiUZ+7sSOwI5Z8SbEjsCNWP32CHYEdgR1RZTp2BHYEdgR2RK' +
       '++sCOwI7AjsCNqTceOwI7AjsCO6NsadgR2BHYEdkTF6dgR2BHYEdg' +
       'RfS8sdgR2BHYEdkTd6dgR2BHYEdgRg98y2BHYEdgR2BF1p2NHYEdg' +
       'R2BHFFYAdgQRERERERHRqM/d2BHYEUu+pNgR2BGrnz7BjsCOwI6oM' +
       'h07AjsCOwI7oldf2BHYEdgR2BG1pmNHYEdgR2BH9G0NOwI7AjsCO6' +
       'LidOwI7AjsCOyIvhcWOwI7AjsCO6LudOwI7AjsCOyIwW8Z7AjsCOw' +
       'I7Ii607EjsCOwI7AjCisAO4KIFta/XEV0GA==');
  Use_Quickly := BitmapFromString(155, 14, 'beNrtmFsSwiAMRdn/' +
       'v3txBW6rOtORsUJuckNkKk2GD6BtSHOah5byuN9eo7zla3lO6RpJW' +
       '75th+EW9fFB/aTmqwMd9/k0oK2eBJpAT8MrgYYA3Zd1dPcpTNJZQF' +
       'V7Vp1LGkyaQQ3t7kv316UEDlRqtwGySQ4nY9eBD8CBAASj0XIFKDt' +
       'v2amdlUTcZ0CX+8dVe4SykUW52geUPcWacrvBaAFN5fYooMe5sYaC' +
       'SKRq4t9HKACqRugUoG0+pNIs2+cEAsV36l9duJ9xDZ0IVHp94BM2S' +
       'HFYsWlfbZBM3a+xKRr0uaP7suzHNuq//EmywImXkgSaQEdOSZrLxA' +
       'v7v8ci8gTeNyV9');
    Ess_Rock2 := BitmapFromString(32, 29, 'beNrFlv9nlXEUx/dzukp' +
       'ptmzZnbbpLrdt2rpdW0vJmMp+mJZRmaYypTIp0zdTiYiISEREJPoT' +
       'e/Hm7e3z3F1F6vFyPfPc+37OOe9zzmc9Pf/rWjlzyCy2+s1s84BpD' +
       'u8xg7274HeU1xbrcO/S2B8xPbYPuivPr9Q2lkbMm43JLjxcbSQ3Lx' +
       '4WXfQ3Lx8xX5+2C97dnTJPro0X3FkeNR3Fn60dNYXyl8cnjV+xNDe' +
       'AHdvXm8Li1Lbev7uq//rWhPn2vJ183moVrJ8fhtVzQ6ByKYvuVXp/' +
       '/7j5vj1rMv6PD2ay5nSXHckSjQ7UqvqfHp04O9XH548XcyYLReQW5' +
       '126oVF5afaSureqn36R+M9Xp6oub11pAC/iU50wP9H7YXM6e0m9Wr' +
       'QrHtlfmvPqQl0ULkifHIlB+qQMDiwHszFUS3Nf3jgGUtCUCfrEzko' +
       'EfcKQ/sJMHygw3UNG/vb2lJFTag9BHxpqjjjVBvKVvlcHkXRvG3eC' +
       '2wxSvzW+nyClT6bSv9A+KDqKY41Hxvq5JbKeWIk+PwGVFP0MoKpPJ' +
       'IV+trFdBk2rxEFfRn/59KCp6mNZoZ+dnLHRJNTExZRfhX51rOgESH' +
       'Ozk7UBQA6mvkIihiwgm2dyZG9RH7C+mrNoUTuYK1RvQd8xAPoi/QX' +
       'r5wjbYpco9fVD9NMjDjJKZLI/VRyNSR4EmX5OihKHnEQa2CemU7C5' +
       '2uRZosy9mEQZB55ELYrq5nFxsM/nBWTi/pr99cbISfTRX3RR9Xh1V' +
       'JmjUFl8Isgj5agUuh9eIo+hPHccth6xsRlDB1Ndbrq0OX2jkHY62t' +
       'jV+Yg/PY87baG8+NpOmwo6PtIy6bgf/tYlC/71f5m/APzKcMc=');



end;

procedure Find_Rock;
begin
WriteLn (Ess_Rock);
while true do
begin
findbitmap(Ess_Rock,x,y);
if x <= 0 then
findbitmap (Ess_Rock2,x,y);
ClickMouse(x,y,true);
wait(26000);
findbitmap(Full_Bag,x,y);
if x > 0 then
begin
findbitmap (Banks,x,y);
ClickMouse (x,y,false);
wait(500);
findbitmap (Use_Quickly,x,y);
ClickMouse (x,y,true);
wait(500);
findbitmap (Deposit_Items,x,y)
ClickMouse (x,y,true)
wait(500);
findbitmap (Close_Bank,x,y)
ClickMouse (x,y,true)
wait(500);
end
end;
end;

begin
loadimages;
Find_Rock;
end.

Can anyone fix it please?