Poll: Did You Like My Script?

Be advised that this is a public poll: other users can see the choice(s) you selected.

Results 1 to 12 of 12

Thread: Port Sarim Rune Buyer

  1. #1
    Join Date
    Mar 2007
    Location
    Nr. Leeds, Uk
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Port Sarim Rune Buyer

    The New Version Is Out And The Old Version Is Still Avaluble At The Bottom. This version works 100% perfectly, but the next version will be able to do lots more.

    Here's the script and it is attached below... Please comment

    SCAR Code:
    //# Author      = Samoates1112//
    //# Description = Buys Any Rune In Bulk Amounts From Port Sarim Magic Store//
    //# Version     = Two//
    //# Date        = 25/3/07//
    //# Comments    = Select Runescape Window,Trade, Click Run, Fill In Form//

    program PortSarimRuneBuyerX22000Turbo;

    var
      frmDesign : TForm;
      Rune : TLabel;
      Amount : TLabel;
      Shape2 : TShape;
      Shape3 : TShape;
      Label1 : TLabel;
      Label2 : TLabel;
      Copywite : TLabel;
      Ok : TButton;
      Cancel : TButton;
      Runeselection : TComboBox;
      stAmount : TEdit;
      Location : TComboBox;
      xs,ys,y1s,Amo,Amo2 : integer;
     
    {.include srl/srl.scar}

    procedure exitscript;
    begin
          writeln('~########You Have Bought '+stAmount.Text+' '+Runeselection.Text+' Runes#########~');
    end;

    Procedure CancelSelected(sender: TObject);
    begin
        PlaySound('C:\Program Files\Scar\Scripts\Sounds\end.wav');
        writeln('~############You Have Clicked Cancel###########~')
    end;

    Procedure BuyRunesRow2;
    begin

           begin
             repeat
             Amo:=Amo+10;
             Mouse(xs,ys,4,4,false)
             Mouse(xs,y1s,4,2,true);
             wait(100+random(500));
             until(Amo>=Amo2-10);
           end;
         exitscript;
    end;
     
    Procedure BuyRunes;
    begin

           begin
             repeat
             Amo:=Amo+10;
             Mouse(xs,ys,4,4,false)
             Mouse(xs,y1s,4,2,true);
             wait(100+random(500));
             until(Amo>=Amo2)
           end;
         exitscript;
    end;
     
    procedure SetUpBuySarim;
    begin
         ys:=86;
         y1s:=(ys+70);
         if(Runeselection.Text=('Fire'))then xs:=95;
         if(Runeselection.Text=('Water'))then xs:=142;
         if(Runeselection.Text=('Air'))then xs:=189;
         if(Runeselection.Text=('Earth'))then xs:=236;
         if(Runeselection.Text=('Mind'))then xs:=283;
         if(Runeselection.Text=('Body'))then xs:=330;
         if(Runeselection.Text=('Chaos'))then xs:=377;
         if(Runeselection.Text=('Death'))then xs:=424;
         BuyRunes;
    end;

    procedure SetUpBuyWild2;
    begin
         ys:=132;
         y1s:=(ys+70);
         if(Runeselection.Text=('Death'))then xs:=18;
         if(Runeselection.Text=('Law'))then xs:=92;
         if(Runeselection.Text=('Cosmic'))then xs:=140;
         BuyRunesRow2;
    end;

    procedure SetUpBuyWild;
    begin
         ys:=86;
         y1s:=(ys+70);
         if(Runeselection.Text=('Fire'))then xs:=95;
         if(Runeselection.Text=('Water'))then xs:=142;
         if(Runeselection.Text=('Air'))then xs:=189;
         if(Runeselection.Text=('Earth'))then xs:=236;
         if(Runeselection.Text=('Mind'))then xs:=283;
         if(Runeselection.Text=('Body'))then xs:=330;
         if(Runeselection.Text=('Chaos'))then xs:=422;
         if(Runeselection.Text=('Nature'))then xs:= 374;
     //////////////////
         if(Runeselection.Text=('Death'))then SetUpBuyWild2;
         if(Runeselection.Text=('Law'))then SetUpBuyWild2;
         if(Runeselection.Text=('Cosmic'))then SetUpBuyWild2;
         BuyRunes;
    end;

    procedure SetUpBuyVarrok;
    begin
         ys:=86;
         y1s:=(ys+70);
         if(Runeselection.Text=('Fire'))then xs:=95;
         if(Runeselection.Text=('Water'))then xs:=142;
         if(Runeselection.Text=('Air'))then xs:=189;
         if(Runeselection.Text=('Earth'))then xs:=236;
         if(Runeselection.Text=('Mind'))then xs:=283;
         if(Runeselection.Text=('Body'))then xs:=330;
         if(Runeselection.Text=('Chaos'))then xs:=377;
         if(Runeselection.Text=('Death'))then xs:=424;
         BuyRunes;
    end;

    Procedure SetUpPlace;
    begin
         if(Location.Text=('Port Sarim'))then SetUpBuySarim;
         if(Location.Text=('Varrok')) then SetUpBuyVarrok;
         if(Location.Text=('Wilderness')) then SetUpBuyWild;
    end;

    procedure SelectedOk(sender: TObject);
    begin
      PlaySound('C:\Program Files\Scar\Scripts\Sounds\end.wav');
     
      writeln('~#You Are Buying '+stAmount.Text+' '+Runeselection.Text+' Runes from '+Location.Text+'#~');
      Amo2:= (strtoint(stAmount.Text));
      SetUpPlace;
    end;

    procedure InitForm;
    begin
    PlaySound('C:\Program Files\Scar\Scripts\Sounds\theme.wav');
    frmDesign := CreateForm;
    frmDesign.Left := 360;
    frmDesign.Top := 209;
    frmDesign.BorderIcons := [biSystemMenu];
    frmDesign.BorderStyle := bsNone;
    frmDesign.Caption := 'Rune Buyer X2200 Turbo';
    frmDesign.ClientHeight := 277;
    frmDesign.ClientWidth := 478;
    frmDesign.Color := clBlack;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 96;
    Rune := TLabel.Create(frmDesign);
    Rune.Parent := frmDesign;
    Rune.Left := 36;
    Rune.Top := 77;
    Rune.Width := 171;
    Rune.Height := 13;
    Rune.Caption := 'What Runes Do You Want To Buy?';
    Rune.Font.Color := clYellow;
    Rune.Font.Height := -11;
    Rune.Font.Name := 'MS Sans Serif';
    Rune.Font.Style := [];
    Rune.ParentFont := False;
    Amount := TLabel.Create(frmDesign);
    Amount.Parent := frmDesign;
    Amount.Left := 35;
    Amount.Top := 132;
    Amount.Width := 91;
    Amount.Height := 13;
    Amount.Caption := 'How Many Runes?';
    Amount.Font.Color := clYellow;
    Amount.Font.Height := -11;
    Amount.Font.Name := 'MS Sans Serif';
    Amount.Font.Style := [];
    Amount.ParentFont := False;
    Shape2 := TShape.Create(frmDesign);
    Shape2.Parent := frmDesign;
    Shape2.Left := 343;
    Shape2.Top := 87;
    Shape2.Width := 62;
    Shape2.Height := 68;
    Shape2.Brush.Color := clRed;
    Shape2.DragMode := dmAutomatic;
    Shape2.Shape := stSquare;
    Shape3 := TShape.Create(frmDesign);
    Shape3.Parent := frmDesign;
    Shape3.Left := 358;
    Shape3.Top := 106;
    Shape3.Width := 31;
    Shape3.Height := 31;
    Shape3.Brush.Color := clBlack;
    Shape3.Shape := stRoundSquare;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 337;
    Label1.Top := 117;
    Label1.Width := 77;
    Label1.Height := 13;
    Label1.Caption := 'SAMOATES1112';
    Label1.Color := clYellow;
    Label1.Font.Color := clYellow;
    Label1.Font.Height := -9;
    Label1.Font.Name := 'Arial Black';
    Label1.Font.Style := [];
    Label1.ParentColor := False;
    Label1.ParentFont := False;
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 35;
    Label2.Top := 23;
    Label2.Width := 108;
    Label2.Height := 13;
    Label2.Caption := 'Select Your Location...';
    Label2.Font.Color := clYellow;
    Label2.Font.Height := -11;
    Label2.Font.Name := 'MS Sans Serif';
    Label2.Font.Style := [];
    Label2.ParentFont := False;
    Copywite := TLabel.Create(frmDesign);
    Copywite.Parent := frmDesign;
    Copywite.Left := 308;
    Copywite.Top := 250;
    Copywite.Width := 145;
    Copywite.Height := 13;
    Copywite.Caption := 'Copyright 2007 Samoates1112';
    Copywite.Font.Color := clYellow;
    Copywite.Font.Height := -11;
    Copywite.Font.Name := 'MS Sans Serif';
    Copywite.Font.Style := [];
    Copywite.ParentFont := False;
    Ok := TButton.Create(frmDesign);
    Ok.Parent := frmDesign;
    Ok.ONCLICK := @SelectedOk;
    Ok.Left := 38;
    Ok.Top := 203;
    Ok.Width := 75;
    Ok.Height := 25;
    Ok.Cursor := crHandPoint;
    Ok.Hint := 'Continue Script';
    Ok.Cancel := True;
    Ok.Caption := 'Ok';
    Ok.Font.Color := clWindowText;
    Ok.Font.Height := -11;
    Ok.Font.Name := 'MS Sans Serif';
    Ok.Font.Style := [fsBold];
    Ok.ModalResult := 1;
    Ok.ParentFont := False;
    Ok.TabOrder := 8;
    Cancel := TButton.Create(frmDesign);
    Cancel.Parent := frmDesign;
    Cancel.ONCLICK := @CancelSelected;
    Cancel.Left := 192;
    Cancel.Top := 203;
    Cancel.Width := 75;
    Cancel.Height := 25;
    Cancel.Cursor := crHandPoint;
    Cancel.Hint := 'End Script';
    Cancel.Cancel := True;
    Cancel.Caption := 'Cancel';
    Cancel.Font.Color := clWindowText;
    Cancel.Font.Height := -11;
    Cancel.Font.Name := 'MS Sans Serif';
    Cancel.Font.Style := [fsBold];
    Cancel.ModalResult := 2;
    Cancel.ParentFont := False;
    Cancel.TabOrder := 9;
    Runeselection := TComboBox.Create(frmDesign);
    Runeselection.Parent := frmDesign;
    Runeselection.Left := 36;
    Runeselection.Top := 99;
    Runeselection.Width := 227;
    Runeselection.Height := 21;
    Runeselection.Cursor := crHandPoint;
    Runeselection.Color := clNone;
    Runeselection.Ctl3D := False;
    Runeselection.DragCursor := crDefault;
    Runeselection.Font.Color := clYellow;
    Runeselection.Font.Height := -11;
    Runeselection.Font.Name := 'MS Sans Serif';
    Runeselection.Font.Style := [];
    Runeselection.ItemHeight := 13;
    Runeselection.ParentCtl3D := False;
    Runeselection.ParentFont := False;
    Runeselection.TabOrder := 10;
    Runeselection.Text := 'Select The Type Of Rune To Buy...';
    Runeselection.Items.Add('Fire');
    Runeselection.Items.Add('Water');
    Runeselection.Items.Add('Air');
    Runeselection.Items.Add('Earth');
    Runeselection.Items.Add('Mind');
    Runeselection.Items.Add('Body');
    Runeselection.Items.Add('Chaos');
    Runeselection.Items.Add('Death');
    Runeselection.Items.Add('Nature');
    Runeselection.Items.Add('Law');
    Runeselection.Items.Add('Cosmic');
    stAmount := TEdit.Create(frmDesign);
    stAmount.Parent := frmDesign;
    stAmount.Left := 36;
    stAmount.Top := 154;
    stAmount.Width := 240;
    stAmount.Height := 21;
    stAmount.Color := clNone;
    stAmount.Font.Color := clYellow;
    stAmount.Font.Height := -11;
    stAmount.Font.Name := 'MS Sans Serif';
    stAmount.Font.Style := [];
    stAmount.ParentFont := False;
    stAmount.TabOrder := 11;
    stAmount.Text := '';
    Location := TComboBox.Create(frmDesign);
    Location.Parent := frmDesign;
    Location.Left := 35;
    Location.Top := 45;
    Location.Width := 176;
    Location.Height := 21;
    Location.Color := clNone;
    Location.Font.Color := clYellow;
    Location.Font.Height := -11;
    Location.Font.Name := 'MS Sans Serif';
    Location.Font.Style := [];
    Location.ItemHeight := 13;
    Location.ParentFont := False;
    Location.TabOrder := 12;
    Location.Text := 'Please Select Your Location...';
    Location.Items.Add('Port Sarim');
    Location.Items.Add('Varrok');
    Location.Items.Add('Wilderness');
    end;

    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    begin
      ClearDebug;
      writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
      writeln('~##############################################~')
      writeln('~#######Any Where Rune Buyer X22000 Turbo######~')
      writeln('~############Created By Samoates1112###########~')
      writeln('~##############################################~')
      SafeInitForm;
      SafeShowFormModal;
      writeln('~##############################################~')
      writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~')
    end.

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

    Default

    wrong section??

  3. #3
    Join Date
    Feb 2006
    Location
    Canada
    Posts
    2,254
    Mentioned
    21 Post(s)
    Quoted
    238 Post(s)

    Default

    Still, look at those pretty forms!

  4. #4
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Nice...

    You might want to add in world switching to the next one, then it'd be a very sweet script
    Interested in C# and Electrical Engineering? This might interest you.

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

    Default

    but,, it doesnt do anything does it?

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

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  6. #6
    Join Date
    Jun 2006
    Posts
    193
    Mentioned
    1 Post(s)
    Quoted
    43 Post(s)

    Default

    you should convert into srl
    altough i dont think it wont make differnce becuz youre in schop

  7. #7
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Looks very nice man.
    Good use of forms.

  8. #8
    Join Date
    Dec 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good Work! It works really well dude. I accidently voted no lol sorry.

  9. #9
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Doesnt work for me :s when I press the ok button in the "select" screen it executes the script :s

  10. #10
    Join Date
    Mar 2007
    Location
    Jersey
    Posts
    159
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    You should make it SRL.

  11. #11
    Join Date
    Apr 2007
    Posts
    275
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dont need to use it at this moment, but that is one slick script. If only I can make scripts like that *sigh*

  12. #12
    Join Date
    Nov 2007
    Posts
    73
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    you can buy as many as you want now
    Never Play Runescape Only Macro On It!!!!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Port Sarim Chocolate Buyer and Banker
    By Tootles in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 08-14-2008, 05:29 AM
  2. Port Sarim Fish buyer+cooker
    By plaxlord in forum Research & Development Lounge
    Replies: 8
    Last Post: 01-31-2008, 08:22 PM
  3. SL Port Sarim WC Questions
    By Blazingazn in forum OSR Help
    Replies: 1
    Last Post: 05-01-2007, 12:51 AM
  4. Draynor/ Port Sarim
    By therealjdb in forum Bot Information and Spottings
    Replies: 7
    Last Post: 02-21-2007, 06:55 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
  •