Results 1 to 4 of 4

Thread: Error: Block expected

  1. #1
    Join Date
    Mar 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Error: Block expected

    I get this error
    Code:
    Error: Block expected at line 35
    Compiling failed.
    when I compile my script and I am not sure why

    Here is my script:
    Code:
    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

  2. #2
    Join Date
    Jan 2012
    Posts
    1,596
    Mentioned
    78 Post(s)
    Quoted
    826 Post(s)

    Default

    conts cannot be defined by functions.
    so youll need to do
    Simba Code:
    var
      energy: integer;

    .
    .
    .
    later on...

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

  3. #3
    Join Date
    Sep 2006
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    Simba Code:
    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.

    Simba Code:
    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.

    Simba Code:
    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.

  4. #4
    Join Date
    Mar 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by woo hoo View Post
    REMOVED
    Thanks a lot! I am still learning the syntax and how things need to be come together.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •