
Originally Posted by
Hy71194
thanks. i used it but still same problem.. btw this is my script..plz help the error keeps coming..
SCAR Code:
program Miner;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
var x,y: integer;
const
SmartWorld = 126; // what world smart uses
Signed = True;
LoadsPerPlayer= 2;
WaitPerRock= 5000;
rockcolor1= 5274794;
rockcolor2= 4944798;
rockcolor3= 4879005;
procedure DeclarePlayers; //this is where i make players
begin
HowManyPlayers :=1; // how many players do you want
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0
Players[0].Name := 'Username'; //Character Name
Players[0].Pass := 'Password'; //Character Pass
Players[0].Nick := 'nick'; //Nickname 3 - 4 Letter's of char name
Players[0].Active := True; //true if you want this player to be ran in the script false if you dont want it to run
end;
procedure SetupSmart;
begin
SmartSetupEx(SmartWorld, false, Signed);
ClearDebug;
WriteLn('Setting up Smart... Please Hold...');
Wait(10000 + random(5000));
SetTargetDC(SmartGetDC);
While not(SmartReady) do Wait(100);
end;
Procedure Myrandom;
begin
FindNormalRandoms;
FindLamp('Mining');
if(FindFight)then
RunAway('N', True,1,15000);
end;
procedure antiban;
begin
if(not(LoggedIn)) then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Mining', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(400 + Random(90));
end;
end;
procedure Minedarock;
var x, y, MyMark: integer;
begin
if(not(LoggedIn))then
Exit;
Marktime(Mymark);
MakeCompass('N');
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2, rockcolor3], 7)
then
begin
Mouse(x,y,0,0,false);
Wait(500+ (random(150)));
writeln('found rock');
if ChooseOption('ine') then
begin
Wait(WaitPerRock);
antiban;
Myrandom;
exit;
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false;
end;
procedure Drop;
begin
if Not(LoggedIn) then exit;
GameTab(4);
for x := 3 to 28 do
Begin
if Random(101) < 3 then
Begin
MouseItem(x, true);
MouseItem(x + 1, true);
end;
MouseItem(x, false);
ChooseOption('rop');
end;
end;
begin
if (not(LoggedIn)) then LoginPlayer;
SetupSmart;
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
repeat
Minedarock;
if InvFull then
begin
Drop;
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until False;
end.