Results 1 to 2 of 2

Thread: Help!

  1. #1
    Join Date
    Dec 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help!

    Hey Another Attempt at a Script!




    --------------------------------------------------------------------------

    program Miner;
    {.include SRL/SRL.Scar}
    {.include SRL/SRL/skill/mining.scar}

    const
    Theorecolor=2043181; // Ore Color! (Mith)

    procedure MakePlayer;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer:= 0;
    Players[0].Name:='User';
    Players[0].Pass:='Pass';
    Players[0].Nick:='Nick';
    end;

    procedure login;
    begin
    if(not (LoggedIn)) then
    LoginPlayer;
    end;

    procedure MineOre;
    begin
    repeat
    FindObj(a, b, 'Mine', Theorecolor, 5);
    Mouse(a,b,2,2,true); //
    wait(3000+random(1800));
    FindPick;
    until(Invfull)
    end;

    procedure DropOres;
    begin
    GameTab(4);
    DropTo(2,28);
    FindNormalRandoms;
    end;


    begin
    SetUpSRL;
    MakePlayer;
    repeat
    FindNormalRandoms;
    Antiban;
    MineOre;
    DropOres;
    until(false);
    end.

    --------------------------------------------------------------------------

    It Compiles!! But Why Doesnt It Find Colors? The Mouse Just Moves Around And Lags...

  2. #2
    Join Date
    Dec 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok it Works!!

    Now Suggestions Why The Mouse Moves So SLOW..?

    Even When It Drops The Mouse Is So Slow!

    Cheers

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
  •