Bobarkinator
2007-04-12 17:50:19
I was wondering if there was any way to convert a scar script to an exe. I think there is because of all those sythe scripts.
This is what I'm using. For a prank. If you want to stop press F12
This is what I'm using. For a prank. If you want to stop press F12
program New;
{.include SRL/SRL.scar}
var
frmDesign : TForm;
Button1 : TButton;
Memo1 : TButton;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 480;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.Show;
frmDesign.PixelsPerInch := 96;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.Left := 283;
Button1.Top := 213;
Button1.Width := 112;
Button1.Height := 25;
Button1.Caption := 'Click here to stop';
Button1.ModalResult := 2;
Button1.TabOrder := 8;
Memo1 := TButton.Create(frmDesign);
Memo1.Parent := frmDesign;
Memo1.Left := 249;
Memo1.Top := 308;
Memo1.Width := 185;
Memo1.Height := 29;
Memo1.ModalResult:=3;
Memo1.Caption:='If you really want to stop press F12';
Memo1.TabOrder := 9;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure MouseinBox;
begin
repeat
GetMousePos(x,y);
if (InCircle(x,y,592,370,65)) then
begin
Case Random(2)+1 of
1:MoveMouse(Random(682),Random(600));
2:MoveMouse(x+(Random(400)),y+Random(600));
end;
end;
until(IsFKeyDown(12))
end;
begin
SafeInitForm;
MouseInBox;
FreeForm(frmDesign);
end.