Results 1 to 5 of 5

Thread: My script need ideas + help

  1. #1
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My script need ideas + help

    Hey there this is my script so far ... personally its pathetic atm

    but comments on what to add and what im doing wrong would be great

    SCAR Code:
    {===============================================================
    |                       Gwallunits Powerminer                   |
    |                 Use on Low Detail and 32 Bit Color            |
    |                        My First Script v1.0                   |
    |                                                               |
    |                                                               |
    |===============================================================}



    program PowerMiner;
      {.include SRL/SRL.Scar}
      {.include SRL/SRL/skill/Mining.scar}
    Const
      RockColor=1654857; // Set Your Rock Color here



    procedure RockMine;
    begin
      if findObj(x, y, 'Mine', RockColor, 20)then   //I need to Change this with some better FindObj :p
      begin
        if not FindGas(x, y) then
        Mouse(X,y,4,4,true)
      end;
    end;



    Procedure AntiRandomBitmap
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;


    procedure drop;
    begin
      Dropto(2,28);
    end;



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

        Players[0].Name := 'Username';
        Players[0].Pass := 'Password';
        Players[0].Nick := 'Nickname'; // 3-4 Letters (nickname)
        Players[0].Active :=True;
    end;

    Procedure FindNormalRandoms;
    end;


    procedure ProgressReport;
    begin
    ClearDebug;
       Writeln('[]=============================[]');
        Writeln('---->Gwallunit Powerminer Progress<----');
        Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');


     {---------------------------------------------------------------
                              Main Loop
    ----------------------------------------------------------------}


    begin
      SetUpSRL;
      SetupSRLMining;
      DeclarePlayers;
      LoginPlayer;
      Highestangle;
      AntiRandomBitmap;
      ProgressReport;
    end.

  2. #2
    Join Date
    Apr 2007
    Location
    Finland
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Id suggest autocolors and not just 1 ore color, and like 2-3 colors per ore or use tolerances.

    And u should do the drop like that it checks IsUpText "opper & re" if mining copper and so.

    I suggest to use findfastrandoms too.

    That's what i can write now, need to go. I'll look onto this tomorrow.

  3. #3
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thanks a lot mate appreciate it

    will look into them

  4. #4
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    What does
    SCAR Code:
    Procedure FindNormalRandoms;
    end;
    Do? Just write in FindNormalRandoms; if you need to use it, you dont need the whole procedure

    SCAR Code:
    procedure RockMine;
    begin
      if findObj(x, y, 'Mine', RockColor, 20)then   //I need to Change this with some better FindObj :p
      begin
        if not FindGas(x, y) then
        Mouse(X,y,4,4,true)
      end;
    end;

    You never even put that in ur main loop?

    SCAR Code:
    Procedure AntiRandomBitmap
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    Isnt needed, LoginPlayer; Automatically makes one of those for the player.

    SCAR Code:
    procedure drop;
    begin
      Dropto(2,28);
    end;

    Maybe make a DTM of the ore. And then..

    SCAR Code:
    Repeat
    if FindDTM(Ore,x,y) then // or however findDTM Works
    begin
    Mouse(x,y,0,0,False)
    ChooseOption(x,y,'rop')
    end;
    until( not (FindDTM))

    That sort of thing?

    Thats all now, Except the script wont do anything,, Just log in, and then make the antirandom thing, and then do the proggy..

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  5. #5
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks a lot mate

    and yup i know that was all going to be added

    rep +

    Just learnt DTM's So i will add

    Il do for Copper/Tin , Iron maybe for now ?

    And im trying to add auto color if anyone wants to show me how or point me in the way of a tut

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. looking for script ideas
    By mormonman in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 12-16-2008, 01:54 AM
  2. Need New Script IDEAS!
    By The_Shermanator in forum RS3 Outdated / Broken Scripts
    Replies: 25
    Last Post: 11-03-2008, 05:03 AM
  3. Out Of Script Ideas, Once Again... :p
    By Timer in forum RS3 Outdated / Broken Scripts
    Replies: 20
    Last Post: 08-25-2008, 07:35 AM
  4. Script help + ideas
    By Gwallunit in forum OSR Help
    Replies: 18
    Last Post: 05-07-2007, 03:26 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
  •