Results 1 to 8 of 8

Thread: GE Item Buyer + Advertiser

  1. #1
    Join Date
    Aug 2008
    Location
    England
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default GE Item Buyer + Advertiser

    Hi everyone!!!
    This is my first script, so please dont mind the fact it doesnt have auto-logout, multiplayer or auto-login.

    Usage instructions:

    -- Stand in a spot near a clerk (facing one side of blue-topped clerks, and so you cant see the other clerk's (opposite side) blue shirts.

    -- Enter what you want to buy, and the amount (Both as strings)

    -- Run the script!!!

    -- Comment on how well \ utterly rubbishly I have made it.

    PN: BTW, it is my first RS scripts, all the others were dodian.

    -- BadProcessor

    V2 Released thanks to Joelster134

    Attachment 14945 << V1

    Attachment 14964 << V2

  2. #2
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Joined your HoloHYRDRAM forums

    ALso try not to use co-ords ver bannable,


    ok adding in a log in is simple...


    under your

    SCAR Code:
    program Example;

    put in


    SCAR Code:
    program Example;
    {.Include SRL/SRL.Scar}

    that will automaticlly come with any SRL functions such as login etc..

    now to make a login have this in your script (first procedure)

    SCAR Code:
    procedure DeclarePlayers;

    begin
       HowManyPlayers:= 1; //Change to your liking :)
       NumberOfPlayers(HowManyPlayers);

       Players[0].Name:=''; //username
       Players[0].Pass:=''; //Password
       Players[0].Nick:=''; //Nickname here 3-4 letters no nums
       Players[0].Active:=  True  ; //Are you using this player?
       Players[0].Worked:= 10     ; //How many fishing trips do you want to do?

      { Players[1].User:='Username'; //username
       Players[1].Pass:='Password'; //Password
       Players[1].Nick:='Nickname'; //Nickname here 3-4 letters no nums!
       Players[1].Active:='True'  ; //Are you using this player?
       Players[1].Worked:= 100    ; //How many Loads you wanna do }


    end;

    that is your login script.

    for logout just have

    SCAR Code:
    Logout;

    nice try for first script, for anti-ban/randoms add in this

    SCAR Code:
    procedure AntiBan;
    //Example of anit-ban\\
    procedure AntiBan;

    begin

      if not LoggedIn then Exit;
       case (Random(30)) of
        1: RandomRClick;
         5: HoverSkill('Woodcutting',False);
          11: RandomMovement;
           15: BoredHuman;
            21: DoEmote(400 +Random(90));
             24: PickUpMouse;
              27: begin
                   GameTab(1 + Random(12));
                   Wait(3200 + Random(2415));
                   GameTab(4);
                  end;
         30: SleepAndMoveMouse(3600);
      end;
    end;

    for anti-randoms have something like

    SCAR Code:
    procedure AntiRandoms;

    begin

      FindNormalRandoms;
      if FindFight then
      begin
       RunAway('W',True,1,5000+Random(1000));
      end;
    end;

    now to make it work, add in something like

    (this is taken out of your script the (ClickCLerk Function/procedure)

    SCAR Code:
    procedure ClickClerk;
        var x, y , x2, y2:Integer;
      begin
        BitmapSetup;
        FindColor(x, y, 4006702, 3, 3, 516, 338);
        MMouse(x, y, 3, 3);
        case(IsUpText('Talk')) of
          True: WriteLn('Notice: Clerk location confirmed.');
          False: WriteLn('Warning: Clerk location unconfirmed.');
        end;
        Mouse(x, y, 3, 3, False);
        AntiRandoms; //ADD IN THIS AROUND IT SO IT WILL LOOK FOR RANDOMS WHILE PERFORMING THE SCRIPT\\
        Wait(1000 + random(100) - random(100));
        FindBitmap(Exchange, x2, y2);
        Mouse(x2, y2, 2, 2, True);
        FBmp;
        Wait(1000 + random(100) - random(100));
        AntiRandoms;
      end;

    kind of hard to add in Anti-Ban because it has a different window open but you could put in

    (from your close GE procedure)

    SCAR Code:
    procedure CloseGE;
      begin
        Mouse(485, 40, 2, 2, True);
        Wait(2500 + random(100) - random(100));
        AntiBan;
        AntiRandoms;
      end;

    ill take a longer look through this script and post up a fixed version (if you want)

    also might wanna replace Bitmaps with DTM's or something (if you want)

    or use FindObjCustom

    like (from my chicken raper for example)

    SCAR Code:
    function KillChicken: boolean;
    var
      X, Y, Mark, Check: Integer;
    begin
      Check := ChickensKilled;
      if FindObjCustom(x, y, ['hick', 'ken','chi' ], [2572628, 6916764, 9155272, 3627895, 5928325], 3) then
      begin
        Mouse(x, y, 2, 2, False);
        Wait(25 + Random(100));
        AntiRandoms;
        if not ChooseOption('ttack') then Exit;
        Flag;
        MarkTime(Mark);
        Wait(2 * 5000 + Random(1000));
        AntiBan;
        AntiRandoms;

    Good attempt for first script

    Welcome to SRL

    ~~Joel~~
    IM BACK!!!!!!!!!!!!!!!!!

  3. #3
    Join Date
    Oct 2008
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good script dude !

  4. #4
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ajanmol View Post
    good script dude !
    please don't post useless posts on threads read rules + regulations and post CONSTRUCTIVE feed back.. if you read my post above this you would realise this would ban you plus you would die from randoms.
    IM BACK!!!!!!!!!!!!!!!!!

  5. #5
    Join Date
    Aug 2008
    Location
    England
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Thanks dudes.
    Il update later with V2 as soon as i update HoloHYDRA.

    -- BadProcessor

  6. #6
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, youve still got sum co-ords and if(findcolor etc..

    you could use this

    SCAR Code:
    FindColor(x, y, 4006702, 3, 3, 516, 338);

    change to

    {example from my alcher}


    SCAR Code:
    If  Findcolortolerance(x, y, HighAlchColor, MIX1, MIY1, MIX2, MIY2, 0) then
      MMouse(x, y, 2, 2);

    and maybe replace some of your Bitmaps with DTM's?

    goodwork Hyrda might turn out well

    Keep reading tuts and scripting thats all i got atm
    IM BACK!!!!!!!!!!!!!!!!!

  7. #7
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  8. #8
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it could make a good merchanter (if you could find an item that sold for less instantly and u could sell for highest instantly..)

    but yeah good attempt for a first script
    IM BACK!!!!!!!!!!!!!!!!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Hermpie's Adventures Item Buyer [Ardounge] [Yanixs Idea, thanks]
    By ShowerThoughts in forum RS3 Outdated / Broken Scripts
    Replies: 38
    Last Post: 08-15-2008, 05:43 PM
  2. Need help on my first script - item buyer
    By Timothegreat in forum OSR Help
    Replies: 10
    Last Post: 05-28-2007, 03:22 AM
  3. Using item??????Need help
    By wtf i sp4nk in forum OSR Help
    Replies: 16
    Last Post: 01-24-2007, 09:59 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
  •