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.