Results 1 to 3 of 3

Thread: I dont get why I am getting an error?

  1. #1
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default I dont get why I am getting an error?

    Why an i getting an error:

    Code:
    [Error] C:\Users\***********\Desktop\simba\Skilling\Mining\**** miner and banker.simba(62:4): Identifier expected at line 61
    Compiling failed.
    Line 61 is the last line.
    Simba Code:
    program Minebank;
    {$i srl/srl.simba}
    const
    Mousespeed1 = 18;
    var
      magebook,lumtele,opmore,falcave: Integer;
    procedure tomine1;
    var
      X, Y: Integer;
      begin
      if FindDTM(magebook, x, y, 730, 186, 764, 228) then
        begin
        MouseSpeed:=Mousespeed1;
        mmouse(x, y,1,1);
        Wait(250 + Random(150));
        ClickMouse(X, Y, mouse_Left);
        Wait(750 + Random(150));
        if FindDTM(lumtele, x, y, 634, 300, 657, 315) then
          begin
          mmouse(x, y,1,1);
          Wait(250 + Random(150));
          ClickMouse(X, Y, mouse_Left);
          Wait(850 + Random(150));
          if FindBitmapToleranceIn(opmore, X, Y,239, 439, 277, 452, 145) then
            begin
            mmouse(x, y,1,1);
            Wait(250 + Random(150));
            ClickMouse(X, Y, mouse_Left);
            Wait(1150 + Random(150));
            if FindBitmapToleranceIn(falcave, X, Y,217, 390, 306, 402, 145) then
              begin
              mmouse(x, y,1,1);
            Wait(250 + Random(150));
            ClickMouse(X, Y, mouse_Left);
            Wait(3700 + Random(1300));
          end;
        end;
      end;
    end;
    begin
    magebook := DTMFromString('mbQAAAHicY2VgYHjHxMDwBog/AfEzKPsCUPwkEJ8C4otAfBWIe3J0GMKtFMB0e7ASg5YABwMrUBwdM2LBYAAA9EoNDA==');
    //pickaxicon := DTMFromString('mbQAAAHicY2VgYKhjYmBoAuJGIK4G4hogTgKKJwBxOhCnAHEcEDeE6TBUFeQyHDhwgKE/wZ4hIyODgRUojo4ZsWAwAAAVPQuQ');
    lumtele := DTMFromString('mbQAAAHicY2VgYGhlYmDoAuJ6IO4B4gYgNmFkYNAFYn0gNgdiSyAONMhncLY2ZGibd5OhtecyQ1rQRgZ2oH50zIgFgwEAz9oKwA==');
    opmore := BitmapFromString(16, 15, 'meJx9ksENwkAMBOm/hhMPqOSEoI' +
            'I8oBsWjTJaOCBaRY5vvHacjLmdb4/j9Z776bJFxGO+AkQ+SSUT5Wj' +
            'Mt9PGKBQQ7o7NY0jSeShhpC5pXjl5j0pgHOawX7xFjniMg3lIMpon' +
            'xkqTbgq28nQx/7HbP7wD97Ztus6Dm3Db9rTWCmsuYG2ftvy43Wj1c' +
            'cMr8JVU/Y/xP7iZX3oCrQfasw==');
    falcave := BitmapFromString(19, 16, 'meJytU0EOgDAI4//v8DJfYowvMD' +
            'v4FImNpKGb20FCTAcUGMOy12U7y16hjnEEYFd5I9WuxOTVhGamMSk' +
            'Pvh4Joz3SZKUO7RUQ1+MaEln/JTr+aDUR02TiIqkKC9tRLozq1SoY' +
            'rOZPxOZR8QyRKzKI/nt5eAf4+jPziXeJsffexe3sir0dEoOLgOYf1' +
            'NsE9OZ6AyUIP/w=');
    repeat
        tomine1;
        until False;
    Freedtm(lumtele);
    Freedtm(magebook);
    FreeBitmap(opmore);
    FreeBitmap(falcave);
    end.

  2. #2
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    Needed another end on the procedure

    Code:
    program Minebank;
    {$i srl/srl.simba}
    const
    Mousespeed1 = 18;
    var
      magebook,lumtele,opmore,falcave: Integer;
    procedure tomine1;
    var
      X, Y: Integer;
      begin
      if FindDTM(magebook, x, y, 730, 186, 764, 228) then
        begin
          MouseSpeed:=Mousespeed1;
          mmouse(x, y,1,1);
          Wait(250 + Random(150));
          ClickMouse(X, Y, mouse_Left);
          Wait(750 + Random(150));
          if FindDTM(lumtele, x, y, 634, 300, 657, 315) then
          begin
            mmouse(x, y,1,1);
            Wait(250 + Random(150));
            ClickMouse(X, Y, mouse_Left);
            Wait(850 + Random(150));
            if FindBitmapToleranceIn(opmore, X, Y,239, 439, 277, 452, 145) then
            begin
              mmouse(x, y,1,1);
              Wait(250 + Random(150));
              ClickMouse(X, Y, mouse_Left);
              Wait(1150 + Random(150));
              if FindBitmapToleranceIn(falcave, X, Y,217, 390, 306, 402, 145) then
              begin
                mmouse(x, y,1,1);
                Wait(250 + Random(150));
                ClickMouse(X, Y, mouse_Left);
                Wait(3700 + Random(1300));
              end;
            end;
          end;
        end;
      end;
    
    begin
    magebook := DTMFromString('mbQAAAHicY2VgYHjHxMDwBog/AfEzKPsCUPwkEJ8C4otAfBWIe3J0GMKtFMB0e7ASg5YABwMrUBwdM2LBYAAA9EoNDA==');
    //pickaxicon := DTMFromString('mbQAAAHicY2VgYKhjYmBoAuJGIK4G4hogTgKKJwBxOhCnAHEcEDeE6TBUFeQyHDhwgKE/wZ4hIyODgRUojo4ZsWAwAAAVPQuQ');
    lumtele := DTMFromString('mbQAAAHicY2VgYGhlYmDoAuJ6IO4B4gYgNmFkYNAFYn0gNgdiSyAONMhncLY2ZGibd5OhtecyQ1rQRgZ2oH50zIgFgwEAz9oKwA==');
    opmore := BitmapFromString(16, 15, 'meJx9ksENwkAMBOm/hhMPqOSEoI' +
            'I8oBsWjTJaOCBaRY5vvHacjLmdb4/j9Z776bJFxGO+AkQ+SSUT5Wj' +
            'Mt9PGKBQQ7o7NY0jSeShhpC5pXjl5j0pgHOawX7xFjniMg3lIMpon' +
            'xkqTbgq28nQx/7HbP7wD97Ztus6Dm3Db9rTWCmsuYG2ftvy43Wj1c' +
            'cMr8JVU/Y/xP7iZX3oCrQfasw==');
    falcave := BitmapFromString(19, 16, 'meJytU0EOgDAI4//v8DJfYowvMD' +
            'v4FImNpKGb20FCTAcUGMOy12U7y16hjnEEYFd5I9WuxOTVhGamMSk' +
            'Pvh4Joz3SZKUO7RUQ1+MaEln/JTr+aDUR02TiIqkKC9tRLozq1SoY' +
            'rOZPxOZR8QyRKzKI/nt5eAf4+jPziXeJsffexe3sir0dEoOLgOYf1' +
            'NsE9OZ6AyUIP/w=');
    repeat
        tomine1;
        until False;
    Freedtm(lumtele);
    Freedtm(magebook);
    FreeBitmap(opmore);
    FreeBitmap(falcave);
    end.

  3. #3
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    yup just figured that out lol thanks anywayz

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
  •