rj
12-11-2012, 01:33 AM
Why an i getting an error:
[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.
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/AfEzKPsCUPwkEJ8C4otAfBWIe3J0GMKtFMB0e7ASg5YABwMrUB wdM2LBYAAA9EoNDA==');
//pickaxicon := DTMFromString('mbQAAAHicY2VgYKhjYmBoAuJGIK4G4hogTg KKJwBxOhCnAHEcEDeE6TBUFeQyHDhwgKE/wZ4hIyODgRUojo4ZsWAwAAAVPQuQ');
lumtele := DTMFromString('mbQAAAHicY2VgYGhlYmDoAuJ6IO4B4gYgNm FkYNAFYn0gNgdiSyAONMhncLY2ZGibd5OhtecyQ1rQRgZ2oH50 zIgFgwEAz9oKwA==');
opmore := BitmapFromString(16, 15, 'meJx9ksENwkAMBOm/hhMPqOSEoI' +
'I8oBsWjTJaOCBaRY5vvHacjLmdb4/j9Z776bJFxGO+AkQ+SSUT5Wj' +
'Mt9PGKBQQ7o7NY0jSeShhpC5pXjl5j0pgHOawX7xFjniMg3lI Mpon' +
'xkqTbgq28nQx/7HbP7wD97Ztus6Dm3Db9rTWCmsuYG2ftvy43Wj1c' +
'cMr8JVU/Y/xP7iZX3oCrQfasw==');
falcave := BitmapFromString(19, 16, 'meJytU0EOgDAI4//v8DJfYowvMD' +
'v4FImNpKGb20FCTAcUGMOy12U7y16hjnEEYFd5I9WuxOTVhGa mMSk' +
'Pvh4Joz3SZKUO7RUQ1+MaEln/JTr+aDUR02TiIqkKC9tRLozq1SoY' +
'rOZPxOZR8QyRKzKI/nt5eAf4+jPziXeJsffexe3sir0dEoOLgOYf1' +
'NsE9OZ6AyUIP/w=');
repeat
tomine1;
until False;
Freedtm(lumtele);
Freedtm(magebook);
FreeBitmap(opmore);
FreeBitmap(falcave);
end.
[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.
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/AfEzKPsCUPwkEJ8C4otAfBWIe3J0GMKtFMB0e7ASg5YABwMrUB wdM2LBYAAA9EoNDA==');
//pickaxicon := DTMFromString('mbQAAAHicY2VgYKhjYmBoAuJGIK4G4hogTg KKJwBxOhCnAHEcEDeE6TBUFeQyHDhwgKE/wZ4hIyODgRUojo4ZsWAwAAAVPQuQ');
lumtele := DTMFromString('mbQAAAHicY2VgYGhlYmDoAuJ6IO4B4gYgNm FkYNAFYn0gNgdiSyAONMhncLY2ZGibd5OhtecyQ1rQRgZ2oH50 zIgFgwEAz9oKwA==');
opmore := BitmapFromString(16, 15, 'meJx9ksENwkAMBOm/hhMPqOSEoI' +
'I8oBsWjTJaOCBaRY5vvHacjLmdb4/j9Z776bJFxGO+AkQ+SSUT5Wj' +
'Mt9PGKBQQ7o7NY0jSeShhpC5pXjl5j0pgHOawX7xFjniMg3lI Mpon' +
'xkqTbgq28nQx/7HbP7wD97Ztus6Dm3Db9rTWCmsuYG2ftvy43Wj1c' +
'cMr8JVU/Y/xP7iZX3oCrQfasw==');
falcave := BitmapFromString(19, 16, 'meJytU0EOgDAI4//v8DJfYowvMD' +
'v4FImNpKGb20FCTAcUGMOy12U7y16hjnEEYFd5I9WuxOTVhGa mMSk' +
'Pvh4Joz3SZKUO7RUQ1+MaEln/JTr+aDUR02TiIqkKC9tRLozq1SoY' +
'rOZPxOZR8QyRKzKI/nt5eAf4+jPziXeJsffexe3sir0dEoOLgOYf1' +
'NsE9OZ6AyUIP/w=');
repeat
tomine1;
until False;
Freedtm(lumtele);
Freedtm(magebook);
FreeBitmap(opmore);
FreeBitmap(falcave);
end.