Results 1 to 4 of 4

Thread: Making first "simple" script

  1. #1
    Join Date
    Feb 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Making first "simple" script

    To me this is not a simple script but for you guys it is.

    Ok, so I would like my script to buy me cosmic runes. 1 at a time and I will manually switch worlds and even open up this screen myself


    All I really need it to do is buy 100 at a time.

    Could someone please tell me where to start? There are all kinds of tutorials but I haven't came across any scripts that buy items from a store.

  2. #2
    Join Date
    Sep 2008
    Location
    Earth
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This will be eally simple if your going to hop worlds and open up the store... All you need to do is make a bitmap for the cosmic runes like
    SCAR Code:
    program CosmicBuyer;
    {.include Srl/srl.scar}
    Procedure BuyTehCosmics;
    Begin
     If (FindbitMapIn(CosmicRune, x, y, MSx1, MSy1, MSx2, MSy2)) Then
     Begin
      Mouse(x, y, 10, 10, False);
      Wait(250+random(250));
      ChooseOption('uy');
      Wait(250+random(250));
     End;
    end;

    begin
     BuyTehCosmics;
    End.
    and if you buy them only one at a time your going to want something like this.
    SCAR Code:
    program CosmicBuyer;
    {.include Srl/srl.scar}
    var
    a : Integer;
    Procedure BuyTehCosmics;
    Begin
     If (FindbitMapIn(CosmicRune, x, y, MSx1, MSy1, MSx2, MSy2)) Then
     Begin
     Repeat
      Mouse(x, y, 10, 10, False);
      Wait(250+random(250));
      ChooseOption('uy');
      a:=A+1;
     Until(a >= 100)
     End;
    end;

    begin
     BuyTehCosmics;
    End.
    hope this helped if you have anymore questions just ask Note: You will have to make the bitmap yourself!!

    ~lVlaverick~

  3. #3
    Join Date
    Feb 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks alot for replying. How ever when i try to compile
    program CosmicBuyer;
    {.include Srl/srl.scar}
    var
    a : Integer;
    Procedure BuyTehCosmics;
    Begin
    If (FindbitMapIn(CosmicRune, x, y, MSx1, MSy1, MSx2, MSy2)) Then
    Begin
    Repeat
    Mouse(x, y, 10, 10, False);
    Wait(250+random(250));
    ChooseOption('uy');
    a:=A+1;
    Until(a >= 100)
    End;
    end;

    begin
    BuyTehCosmics;
    End.

    It says Line 7: [Error] (16115:18): Unknown identifier 'CosmicRune' in script

  4. #4
    Join Date
    Sep 2008
    Location
    Earth
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thats becasuse you have to make your own bitmap go to the tutorial section and learn how to make a bitmap.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 0
    Last Post: 08-04-2007, 06:50 PM
  2. action="www.site.com" method="post"
    By Jason2gs in forum General
    Replies: 4
    Last Post: 05-17-2007, 11:50 PM
  3. Replies: 3
    Last Post: 04-19-2007, 03:44 AM
  4. Replies: 5
    Last Post: 10-26-2006, 11:30 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
  •