Results 1 to 9 of 9

Thread: on my way to be a scripter...PLEASE HELP!

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default on my way to be a scripter...PLEASE HELP!

    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.

  2. #2
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    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

  3. #3
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  4. #4
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by N1ke! View Post
    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 =))

  5. #5
    Join Date
    Mar 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  6. #6
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    hmmm solved my error can sum1 close this thread

  7. #7
    Join Date
    Dec 2007
    Posts
    372
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  8. #8
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    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   := ''; //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.

  9. #9
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Quote Originally Posted by faster789 View Post
    hmmm solved my error can sum1 close this thread
    Done
    STOP PM'ING ME

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. HI, Might be a new scripter
    By ridwan23 in forum Who Are You ? Who ? Who ?
    Replies: 3
    Last Post: 10-17-2008, 04:57 AM
  2. on my way to be a scripter...PLEASE HELP!
    By faster789 in forum OSR Help
    Replies: 11
    Last Post: 03-23-2008, 07:11 PM
  3. If You Are a Scripter...
    By ghost in forum News and General
    Replies: 5
    Last Post: 07-11-2007, 05:56 PM
  4. hi a scripter!
    By tunderofnl in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 02-01-2007, 06:35 PM
  5. The Joy of Being a Known Scripter
    By Pwnd in forum The Bashing Club / BBQ Pit
    Replies: 27
    Last Post: 04-14-2006, 11:10 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •