Results 1 to 4 of 4

Thread: Help with first script

  1. #1
    Join Date
    Feb 2013
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default Help with first script

    Trying to write my first ever woodcutting script.

    program new;
    {$DEFINE SMART}
    {$I P07Include.Simba}
    {$i srl/srl.simba}

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active:=True;
    end;

    procedure ChopTree;
    var x, y: integer;
    begin
    repeat
    if FindObj (x, y, 'hop', 1848131, 35) then
    Mouse (x, y, 2, 2, false);
    ChooseOption('hop');
    repeat
    wait(1200+random(250));
    Until not IsUpText('ree') or (InvFull);
    until(InvFull);
    end;

    begin
    SetUpSRL;
    ActivateClient;
    DeclarePlayers;
    LoginPlayer;
    ChopTree;
    end.

    Keeping getting this error when using the 07 include.
    [Error] C:\Simba\Includes\P07Include.Simba(57:3): Unknown identifier 'MMouse' at line 56
    Compiling failed.

    Please help

  2. #2
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Put the srl include, on the line before my include,

    I also don't know if it will work for Smart or not yet


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  3. #3
    Join Date
    Feb 2013
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    Put the srl include, on the line before my include,

    I also don't know if it will work for Smart or not yet
    Thanks again, Its not working with Smart, edited that out.

  4. #4
    Join Date
    Feb 2013
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Does anybody know why this script wont log me in once I have filled in the log in details and ran the script please. I tried linking it to Chrome but still doesn't log me in.

    Thanks

    program new;
    {$i srl/srl.simba}
    {$I P07Include.Simba}

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active:=True;
    end;

    procedure ChopTree;
    var x, y: integer;
    begin
    repeat
    if FindObj (x, y, 'hop', 1848131, 35) then
    Mouse (x, y, 2, 2, false);
    ChooseOption('hop');
    repeat
    wait(1200+random(250));
    Until not IsUpText('ree') or (InvFull);
    until(InvFull);
    end;

    begin
    SetUpSRL;
    DeclarePlayers;
    LoginPlayer;
    ChopTree;
    end.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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