SRL Archive - General Botting Help

I get this error

Error: Block expected at line 35
Compiling failed.

when I compile my script and I am not sure why

Here is my script:

program bot;
var
x,y:Integer;
Const
SPOT=12356924; //button color
Energy := BitmapFromString(122, 16, 'meJztWKG2qzoQ/ahRUSgUChUVV' +
        'YVCoVBRqP4ACoXiGRQKhUKhUChUVNz4uyEtj0vbc8897ep5a70zis' +
        'Kws2dnZjKU+cd+7P9uUTXTziIinqvvIuALqrRiO758lW6YeR4+cFi' +
        'fd88vZBFRMZDwEctQROuNfw3BZlCY++cX+prtCXSGKcw6LQ4kn7QW' +
        'sF7aph6zueuAu+tzYtM+uZbubCQET1U1sRCR7fT+6X9Kbdipmr6Xz' +
        'zOGXaOk6TJyPynrmoT2W3xX7aznlEhXBXlKEDWpZJ5wf7SsdEXkhR' +
        '7KJEYGzsCMqvJ88lTmulA1Wl9p3/eJ8CoBPMj/KRU5BBQzfs9V9Ii' +
        'ALMc8oNWR824WfgQUrXyeGud8PlGUVyhViVJt0rRC2UpcT03qEOrB' +
        'hDEgva2WHcl+FeFRaBsN8ADrqkg9pcE/lcIt7WJf4hK+63vcZwe1D' +
        '9EBc4vlY7WB1uqQeS4GFiSBjB0SSVNFKPOpnjkQCQ+5CyQkMl22LT' +
        'eWCte6NXkA56EcWQFhKhcBB44o2B8NewLNZCnQQx44z5BCwKKnqHy' +
        'o4yVJ4AyJhhLhGIn2SNRlIGlUMWbiAlK289QD32adDbDWleSm9m1o' +
        't2rrEJnTLuHIos8QBQf5sObMiL4UCA3Y29x27+7VPmh7OCWdJyhtx' +
        '+WGUM0sKeKx3MoEsrhAWk2u02IXcNI6/vCPcD2jgTGpciylS90qgv' +
        'N8l4AHHbKTSzaR9RssIBI6sWn2/Pck99fOjOV6MkQxmB/Uvg3tVu1' +
        'NMcp6EMYRSlHtEBzavjyfz+1bSriJvJLSl1frC7kPZGPSZYFFHhbj' +
        '1kDiGnlOEw+Q/cBzI5D1NlxTccNBv9rWSqXk+VNqlwNaWZIlsqjLV' +
        '6kNRosDpDNdMVqFLJrKW7WRGaTbfd/eEuZv1UauBljl9wo6qL0CTk' +
        'qik55KHfN8makaVB8lVZO7bL+r9rVT0ZbbrnvcdX6kdmeZhJ7reM/' +
        '8JWqjvqSI5EnpWM7dHamdfWEmuUvJqVGib5ulNHpMqHY6qL04i7Nt' +
        '0wMH7K7QXRAEhzZyIIAOL0iZJuFr357bhe1o2Iz9Z9TGthIlUNsuB' +
        '8dEQHiR2uLctyn9cTT947x9+3XziNJlJhE+Gmweh2z629wO18PLmf' +
        'SFG12cehhPzJp1j9SGX5D1S8HapSgwk3hhDBzli7GG7PYznSSpJxd' +
        'shUo6nV+ldrHwD7evsCKWbD/6XHqDIbUizCrTpVekjVlDq3lVO0Zb' +
        'NvW3EvyiubqerluwVlA613cOynfaRdJVXrNMbn0eLocyGrHA6fnqj' +
        '8S32WXYuBZm3puQ1N0h8J0GKZNy8H0lZYhBotIY2wZkOIaZIvK/vf' +
        'SeMTfqyHAZyfRJmuGt/yb92Ga/AMCk0F8=');
e := 0;
procedure clickbutton();
 if FindColorSpiral(x,y,SPOT,260,350,911,740)then
  begin
    wait(RandomRange(500,1000));
    MoveMouse(x,y);
    wait(RandomRange(300,700));
    ClickMouse(x,y,1);
    wait(RandomRange(3000,3500));

  end;

procedure check();
 if FindBitmapIn(Energy,x,y,268,192,895,292) then
  begin
    FreeBitmap(Energy);
    e:=1;
   end;


begin
while e = 0 do
begin
  clickbutton();
  check();
end;

end;

Any help would be very appreciated.

Thanks

conts cannot be defined by functions.
so youll need to do

var
  energy: integer;

.
.
.
later on...

begin
  energy := BitmapFromString(...);
  setupsrl();
  and stuff.
end.

program bot;
var
x,y, e:Integer;
Const
SPOT=12356924; //button color
Energy := BitmapFromString(122, 16, 'meJztWKG2qzoQ/ahRUSgUChUVV' +
        'YVCoVBRqP4ACoXiGRQKhUKhUChUVNz4uyEtj0vbc8897ep5a70zis' +
        'Kws2dnZjKU+cd+7P9uUTXTziIinqvvIuALqrRiO758lW6YeR4+cFi' +
        'fd88vZBFRMZDwEctQROuNfw3BZlCY++cX+prtCXSGKcw6LQ4kn7QW' +
        'sF7aph6zueuAu+tzYtM+uZbubCQET1U1sRCR7fT+6X9Kbdipmr6Xz' +
        'zOGXaOk6TJyPynrmoT2W3xX7aznlEhXBXlKEDWpZJ5wf7SsdEXkhR' +
        '7KJEYGzsCMqvJ88lTmulA1Wl9p3/eJ8CoBPMj/KRU5BBQzfs9V9Ii' +
        'ALMc8oNWR824WfgQUrXyeGud8PlGUVyhViVJt0rRC2UpcT03qEOrB' +
        'hDEgva2WHcl+FeFRaBsN8ADrqkg9pcE/lcIt7WJf4hK+63vcZwe1D' +
        '9EBc4vlY7WB1uqQeS4GFiSBjB0SSVNFKPOpnjkQCQ+5CyQkMl22LT' +
        'eWCte6NXkA56EcWQFhKhcBB44o2B8NewLNZCnQQx44z5BCwKKnqHy' +
        'o4yVJ4AyJhhLhGIn2SNRlIGlUMWbiAlK289QD32adDbDWleSm9m1o' +
        't2rrEJnTLuHIos8QBQf5sObMiL4UCA3Y29x27+7VPmh7OCWdJyhtx' +
        '+WGUM0sKeKx3MoEsrhAWk2u02IXcNI6/vCPcD2jgTGpciylS90qgv' +
        'N8l4AHHbKTSzaR9RssIBI6sWn2/Pck99fOjOV6MkQxmB/Uvg3tVu1' +
        'NMcp6EMYRSlHtEBzavjyfz+1bSriJvJLSl1frC7kPZGPSZYFFHhbj' +
        '1kDiGnlOEw+Q/cBzI5D1NlxTccNBv9rWSqXk+VNqlwNaWZIlsqjLV' +
        '6kNRosDpDNdMVqFLJrKW7WRGaTbfd/eEuZv1UauBljl9wo6qL0CTk' +
        'qik55KHfN8makaVB8lVZO7bL+r9rVT0ZbbrnvcdX6kdmeZhJ7reM/' +
        '8JWqjvqSI5EnpWM7dHamdfWEmuUvJqVGib5ulNHpMqHY6qL04i7Nt' +
        '0wMH7K7QXRAEhzZyIIAOL0iZJuFr357bhe1o2Iz9Z9TGthIlUNsuB' +
        '8dEQHiR2uLctyn9cTT947x9+3XziNJlJhE+Gmweh2z629wO18PLmf' +
        'SFG12cehhPzJp1j9SGX5D1S8HapSgwk3hhDBzli7GG7PYznSSpJxd' +
        'shUo6nV+ldrHwD7evsCKWbD/6XHqDIbUizCrTpVekjVlDq3lVO0Zb' +
        'NvW3EvyiubqerluwVlA613cOynfaRdJVXrNMbn0eLocyGrHA6fnqj' +
        '8S32WXYuBZm3puQ1N0h8J0GKZNy8H0lZYhBotIY2wZkOIaZIvK/vf' +
        'SeMTfqyHAZyfRJmuGt/yb92Ga/AMCk0F8=');
procedure clickbutton();
  begin
 if FindColorSpiral(x,y,SPOT,260,350,911,740) then
    begin
    wait(RandomRange(500,1000));
    MoveMouse(x,y);
    wait(RandomRange(300,700));
    ClickMouse(x,y,1);
    wait(RandomRange(3000,3500));
    end;
  end;

procedure check();
   begin
 if FindBitmapIn(Energy,x,y,268,192,895,292) then
    begin
    FreeBitmap(Energy);
    e:=1;
    end;
   end;

begin
while e = 0 do
begin
  clickbutton();
  check();
end;

end;      

things changed to make it compile:
1. e changed from constant to variable, constants are not supposed to be modified
2. moved if statements between begin/end of their procedures
3. added begin/ends for if statements. without begin/end for if statements, it would simply tie the if to the first line of code after it.

procedure clickbutton();
begin
 if FindColorSpiral(x,y,SPOT,260,350,911,740)then
    wait(RandomRange(500,1000));
    MoveMouse(x,y);
    wait(RandomRange(300,700));
    ClickMouse(x,y,1);
    wait(RandomRange(3000,3500));
end;    

this would only do a wait for 500-1000 ms if the specified color is found and then do the next 3 lines of code regardless of whether or not the color is present.

procedure clickbutton();
  begin
 if FindColorSpiral(x,y,SPOT,260,350,911,740) then
    begin
    wait(RandomRange(500,1000));
    MoveMouse(x,y);
    wait(RandomRange(300,700));
    ClickMouse(x,y,1);
    wait(RandomRange(3000,3500));
    end;
  end;

this would do the 4 lines only if the color specified is present.

From: woo hoo

REMOVED

Thanks a lot! I am still learning the syntax and how things need to be come together.