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.
SCAR Code:
{ 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.