SRL Archive - Archive

spaztaz666 - SRL Member Application Form
spaztaz666

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
scar-scripts .. kinda

Programming Knowledge
Liberty Basic

Other Communitys
scar-scripts

How Long have You Played Runescape
1.5yrs

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

well i enjoy scrippting anyway. i have no real life and it doesnt take me too long to pick up o languages. i have almost finished my first script which i will post to take critisism and tips and all that. eeerrr yer rele but i do have GCSE mocks from now till 18th so wont rele be avaliable but after that then yes… that's my personal enjoy. lol

ps and the real mocks are in june for 2weeks ty :)

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

{hhmm pls read first .. i might re-apply once i finished this cos it in pieces at the moment but ill post some snippents anyway}

program Autominer;
{.include Si.scar}

Var x,y : Integer;

const loadstodo=4

Procedure minerocks;
Begin
if(Findcolor(x,y,1976644,123, 216,729, 637))then
begin
Mouse(x,y,1,1,true)
 Wait(5500)
 end;
 End;

and my form …

{ One thing for people that view this .... would the
anti-bans and randoms be better in a tick or untick
box rather than a yes no combo box?? just a question

spaztaz666}

  program Powerminer;
  {.include/SRL/miner.scar}

  var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label7 : TLabel;
  Label8 : TLabel;
  Label9 : TLabel;
  Label10 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label5 : TLabel;
  Label6 : TLabel;
  Label11 : TLabel;
  Edit1 : TEdit;
  Edit2 : TEdit;
  ComboBox1 : TComboBox;
  ComboBox2 : TComboBox;
  Button1 : TButton;
  ComboBox3 : TComboBox;

    procedure buttonclick(sender: TObject);
begin
  Writeln('Script Is Now Starting!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;
  
  procedure initform;
 begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 359;
frmDesign.Height := 464;
frmDesign.Caption := 'PowerMiner V1.0';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 67;
Label1.Top := 33;
Label1.Width := 233;
Label1.Height := 16;
Label1.Caption := 'Spaztaz666 First PowerMiner V1.0';
Label1.Color := clBtnFace;
Label1.Font.Color := clGray;
Label1.Font.Height := -13;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [fsBold, fsUnderline];
Label1.ParentColor := False;
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 32;
Label2.Top := 88;
Label2.Width := 71;
Label2.Height := 13;
Label2.Caption := 'Instructions:';
Label2.Font.Color := clRed;
Label2.Font.Height := -11;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [fsBold, fsUnderline];
Label2.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 38;
Label7.Top := 217;
Label7.Width := 48;
Label7.Height := 13;
Label7.Caption := 'Username';
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 38;
Label8.Top := 244;
Label8.Width := 46;
Label8.Height := 13;
Label8.Caption := 'Password';
Label9 := TLabel.Create(frmDesign);
Label9.Parent := frmDesign;
Label9.Left := 38;
Label9.Top := 274;
Label9.Width := 56;
Label9.Height := 13;
Label9.Caption := 'Anti-bans??';
Label10 := TLabel.Create(frmDesign);
Label10.Parent := frmDesign;
Label10.Left := 38;
Label10.Top := 301;
Label10.Width := 78;
Label10.Height := 13;
Label10.Caption := 'Anti-Randoms??';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 32;
Label3.Top := 112;
Label3.Width := 192;
Label3.Height := 13;
Label3.Caption := '1. Put in Username and Password';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [fsBold];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 32;
Label4.Top := 136;
Label4.Width := 237;
Label4.Height := 13;
Label4.Caption := '2. Select which ore to mine (copper, Iron)';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -11;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [fsBold];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 32;
Label5.Top := 160;
Label5.Width := 204;
Label5.Height := 13;
Label5.Caption := '3. Use Anti-randoms and anti-ban??';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -11;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [fsBold];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 32;
Label6.Top := 184;
Label6.Width := 59;
Label6.Height := 13;
Label6.Caption := '4. Enjoy!!!';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -11;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [fsBold];
Label6.ParentFont := False;
Label11 := TLabel.Create(frmDesign);
Label11.Parent := frmDesign;
Label11.Left := 36;
Label11.Top := 324;
Label11.Width := 93;
Label11.Height := 13;
Label11.Caption := 'What ore to mine??';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 167;
Edit1.Top := 211;
Edit1.Width := 121;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit1.Text := '<Username>';
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 167;
Edit2.Top := 239;
Edit2.Width := 121;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit2.Text := '<Password>';
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 167;
ComboBox1.Top := 267;
ComboBox1.Width := 145;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 10;
ComboBox1.Text := 'Select Please...';
ComboBox1.Items.Add('Yes');
ComboBox1.Items.Add('No');
ComboBox2 := TComboBox.Create(frmDesign);
ComboBox2.Parent := frmDesign;
ComboBox2.Left := 167;
ComboBox2.Top := 295;
ComboBox2.Width := 145;
ComboBox2.Height := 21;
ComboBox2.ItemHeight := 13;
ComboBox2.TabOrder := 11;
ComboBox2.Text := 'Select Please...';
ComboBox2.Items.Add('Yes');
ComboBox2.Items.Add('No');
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick:= @buttonclick
Button1.Left := 126;
Button1.Top := 365;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.TabOrder := 12;
ComboBox3 := TComboBox.Create(frmDesign);
ComboBox3.Parent := frmDesign;
ComboBox3.Left := 167;
ComboBox3.Top := 323;
ComboBox3.Width := 145;
ComboBox3.Height := 21;
ComboBox3.ItemHeight := 13;
ComboBox3.TabOrder := 13;
ComboBox3.Text := 'Select Please...';
ComboBox3.Items.Add('Copper');
ComboBox3.Items.Add('Iron');
end;

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

//Procedure 3:
procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

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

begin
  SafeInitForm;
  SafeShowFormModal;
end.

ty for reading hopefully i will learn more :D:D

spaztaz666

——————————————————

Good start but learn more before applying.

agreed with Boeas

[offtopic] Boreas….905 posts? You havent been here long at all…[/offtopic]

hehe I leave Ispy most of the day