SRL Archive - RS3 Outdated / Broken Scripts

program New;
var
  frmDesign : TForm;
  Jeffsgay1 : TButton;

procedure buttonclick(sender: TObject);
begin
  Writeln('You are gay!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 0;
  frmDesign.Top := 10;
  frmDesign.Width := 200;
  frmDesign.Height := 200;
  frmDesign.Caption := 'You are GAY!';
  frmDesign.Color := clBtnFace;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := 12;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 50;
  Jeffsgay1 := TButton.Create(frmDesign);
  Jeffsgay1.OnClick:= @buttonclick;
  Jeffsgay1.Parent := frmDesign;
  Jeffsgay1.Left := 69;
  Jeffsgay1.Top := 61;
  Jeffsgay1.Width := 83;
  Jeffsgay1.Height := 30;
  Jeffsgay1.Caption := 'You are GAY!!';
  Jeffsgay1.TabOrder := 2;
  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.

If you want to change what it says search for you are GAY!

Lol whats the use of this script?

Just to like trick your friends or sometihng just make it ti say like virus downloading lol i guees i just "made it"

Rofl, nice i edited a bit and came up wit this ;)

program New;
var
  frmDesign : TForm;
  Jeffsgay1 : TButton;

procedure buttonclick(sender: TObject);
begin
  Writeln('Fuck you! Virus is attacking!');
  frmDesign.Caption:= frmDesign.Caption + '.';
  frmDesign.ModalResult:= mrOk;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 0;
  frmDesign.Top := 10;
  frmDesign.Width := 200;
  frmDesign.Height := 200;
  frmDesign.Caption := 'Fuck you! Virus is attacking!';
  frmDesign.Color := clBtnFace;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := 12;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 50;
  Jeffsgay1 := TButton.Create(frmDesign);
  Jeffsgay1.OnClick:= @buttonclick;
  Jeffsgay1.Parent := frmDesign;
  Jeffsgay1.Left := 69;
  Jeffsgay1.Top := 61;
  Jeffsgay1.Width := 150;
  Jeffsgay1.Height := 30;
  Jeffsgay1.Caption := 'Fuck you! Virus is attacking!';
  Jeffsgay1.TabOrder := 2;
  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.

cool i like it