helooo presentin my unfinished script! please help! i rely enjoy scriptin but its SO hard...herez my script so far but it alwayz logs out rite after it clicks the rock. PLease help and thx a bunch!
SCAR Code:
program Miner;
{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}
const
SmartWorld = 126; // what world smart uses
Signed = True;
rockcolor1= 5274794;
rockcolor2= 4944798;
var x,y: integer;
procedure DeclarePlayers; //this is where i make players
begin
HowManyPlayers :=1; // how many players do you want
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0
Players[0].Name := 'Moneytalks4'; //Character Name
Players[0].Pass := 'faster123'; //Character Pass
Players[0].Nick := 'oney'; //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; // sets up SMART
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
FindTalk;
FindNormalRandoms;
SolveChatRandom;
FindLamp('Mining');
SolvePinball;
DwarfItem;
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;
begin
if not LoggedIn then
Exit;
MakeCompass('N');
repeat
if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7)
then
begin
Mouse(x,y,0,0,false);
Wait(500+ (random(150)));
ChooseOption('ine')
Myrandom;
antiban;
writeln('found rock');
end else
Exit;
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;
LoginPlayer;
repeat
Minedarock;
Drop;
until (False);
LogOut;
end.