SRL Archive - RS3 Outdated / Broken Scripts

test out this script, you dont need to be running RS just load it and push play to tell me if it works on your version of scar too, i just dont wanna take days to make a script and then nobody can use it lol. thanks to those who will actually try it out.

 { Made by Sukomabawls as a test to begin scripting again, i'm a little rusty!}
 // Be sure to read the bottom box after pushing button!!
program new;
var
  frmDesign : TForm;
  Button1 : TButton;

procedure buttonclick(sender: TObject);
begin
  Writeln('If you are reading this then it worked!!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 259;
  frmDesign.Top := 132;
  frmDesign.Width := 354;
  frmDesign.Height := 254;
  frmDesign.Caption := 'My first script in a while'; // Yes, you do!!!
  frmDesign.Color := 13222846;
  frmDesign.Font.Color := 16580865;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := false;
  frmDesign.PixelsPerInch := 96;
  Button1 := TButton.Create(frmDesign);
  Button1.OnClick:= @buttonclick;
  Button1.Parent := frmDesign;
  Button1.Left := 69;
  Button1.Top := 61;
  Button1.Width := 200;
  Button1.Height := 25;
  Button1.Caption := 'Press to test my script!'; //you know you wanna press it
  Button1.TabOrder := 8;
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
  SafeInitForm;
  SafeShowFormModal;
end.

Yea it works. Why wouldn't it. Forms have been in SCAR for a long time… ;)

just seeing if there would be any unkown indentifiers or anything gay, i'm sure you know how SCAR can act sometimes.

In this particular script everything should be fine for most SCAR versions.

Yeah it works. I'm just learning about forms from SantaClause, too :). He's taught me some really cool stuff, like how to make it so that when you type something into an edit box, the same thing comes out on a Button and other cool things.

Glad to hear that, now i'll begin making usefull scripts again, think i'll do an auto fighter first.

It will work, lol.

I did try it

Yeah it works make some scripts!!

ill be usin lol :cool:

It Worked and it whas a fun Script relaly i just spammed with it just clicking run everytime its Fun Lol

Nice Grave Dig…. (Post before : 11-24-2007)

Don't worry i have done this before on accident too…;)

Close, delete please

although the last post was 11/24/07 it still works.. so its not like hes posting on a script for SCAR 3.04 or something :\