SRL Archive - First Scripts

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!

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.

ummm and i keep getting this error when i try to compile..:
Line 91: [Error] (12755:1): Identifier expected in script C:\Documents and Settings\Owner\My Documents\Grade 7\SCAR 3.14\Scripts\miner.scar

Idk what the reason it yet! But you should edit out your pass..

Edit : Changed and pmed. AND FOR THE LOVE OF GOD STOP POSTING YOUR PASS

From: N1ke!
Idk what the reason it yet! But you should edit out your pass..

Edit : Changed and pmed. AND FOR THE LOVE OF GOD STOP POSTING YOUR PASS

lol thx a lot =))

Hmm… I get a different error each time. Maybe its just me.

hmmm solved my error can sum1 close this thread

DUDE delete these THREADS! you have like six of them!

2 in first scrips and 1 in help.


just click delete when you click edit.

Still need help? I'll fix it up :) I commented where I fixed something.

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   := ''; //Character Name
     Players[0].Pass   := ''; //Character Pass
     Players[0].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;     // 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;
    until(....) //Since you have a repeat you need it to stop sometime :p

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.

Really the only thing I saw was the loop (where you forgot the until) missing. Other than that, try to learn better standards and put some antiban and failsafes in there.

From: faster789
hmmm solved my error can sum1 close this thread

Done