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 :
Can anyone fix it please?
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?