I dont get why I am getting an error?

Printable View

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.

12-11-2012, 01:37 AM
JPHamlett

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.
12-11-2012, 01:43 AM
rj

yup just figured that out lol thanks anywayz