?????????????????????????????????????????????????? ?????????????
H E L P!!!!!!!!!!
What has happened when you compile and it says "Identifier Expected" on the "end." line.
What do i do?
post back for details.
SCAR Code:
{============================================
G I N O and B E R T
Presents
A U T O - C H O P P E R
===========================================}
{Instructions:
1) Drag crosshairs to RuneScape window
2) Fill in Username and Password
3) Press play and enjoy!
===========================================}
program RunescapeLogger;
var x,y,Tree:Integer;
procedure LoadBmps;
begin
Tree := BitmapFromString(12, 12, 'beNqrl0qsl+JkZQSik0f3IyOI' +
'YES9VARYAVxcsJRJt90aSIpOYoWrBKqBsPmCmSFSyAiuDFMNnLFiy' +
'bxjh/ZA1EAUQBDcEKUDjEASqAbZEDQ1aDYC1cCVIdsFtxGuBqtpQA' +
'UQNXBlQK6jFi+QBIYAmgIIgogE6vBAxOEKMIMXYg5mgCNzgWri7DW' +
'QRTIBnEOytw==');
end;
procedure ExistingUser;
begin
MoveMouse(459,289);
Wait(300);
ClickMouse(459, 289, true);
Wait(300);
end;
procedure TypeUserAndPass;
begin
SendKeys('donomonotor'); //Type your username in here
Wait(1000);
SendKeys(Chr(13));
Wait(300);
SendKeys('1g1i1n1o'); //Type your password in here
Wait(500);
MoveMouse(299,321);
ClickMouse(299,321, true);
end;
procedure LogIn;
begin
MoveMouse(386,334);
Wait(4000);
Clickmouse(386,334, true);
end;
procedure GetToPlace;
begin
Wait(2000);
MoveMouse(643,80);
Wait(1500);
end;
procedure FindBmps;
begin
if(FindBitmap(tree,x,y))then
begin
MoveMouse(x,y);
wait(200+random(100));
ClickMouse(x,y,true);
ClickMouse(x,y,true);
end;
begin
ClearDebug;
activateclient;
Wait(700)
LoadBmps;
Wait(1000);
ExistingUser;
Wait(500);
TypeUserAndPass;
Wait(2500);
LogIn;
Wait(1500);
GetToPlace;
Wait(1000);
FindBmps;
end.