How to make script wait until...

[stein3]

so far, the script makes a form AND starts typing at the same time. I want it to make the form THEN wait until the button is pressed to start typing.

I also want to make it so that certain editforms in the form change certain constants. How do I do this?

{
_______________ ____________ ______________ _____ ____ _____
| | | | | || | | |/ | | ||
| _________| |___ ___| || ________| |___| | | | ||
\ \____________ | | | |/ | |\ | ||
\ | | | | | | | | || | ||
\__________ | | | || |_______ | | | \| || | ||
/|/ / | | | _______/ | | | | \ || | ||
/|/ / | | || |/ | | | | \ ||_| ||
_______/|/ / | | | || | | | | \ ||| ||
| / | | | |_______ | | | | \ ||
|____________/ |__| /___________/ | | /____| \_______||
__________________________________________________ _____________________
<|Stein's Super Untrackable Autotyper. |>
<|Types up to 4 messages at a human pace. |>
<|Setup lines 24-29 with ease!!! |>
<|_________________________________________________ ______________________|>
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
}
program typer;
{.include srl/srl.scar}

const
messages=2; {number of messages}

Message1='buy 162 iron-usa'; //first message to be typed
Message2='buy coal-usa'; //second message to be typed, will be excluded if "messages<2"
Message3='enter message here'; //third message to be typed, will be excluded if "messages<3"
Message4='enter message here'; //fourth message to be typed, will be excluded if "messages<4"


var
xco, yco:integer;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
startbut : TButton;
message1edit : TEdit;
message2edit : TEdit;
message3edit : TEdit;
message4edit : TEdit;
Edit5 : TEdit;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure hide;
begin
SetupSRL
disguisescar('AOL Instant Messanger')
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure buttonclick(sender: TObject);
begin
Writeln('Button pressed!');
frmDesign.Caption:= frmDesign.Caption + '.';
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 312;
frmDesign.Top := 120;
frmDesign.Width := 242;
frmDesign.Height := 258;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.ShowHint := True;
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 5;
Label1.Top := 60;
Label1.Width := 67;
Label1.Height := 16;
Label1.Caption := 'Message 1';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -13;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 5;
Label2.Top := 89;
Label2.Width := 67;
Label2.Height := 16;
Label2.Caption := 'Message 2';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -13;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 5;
Label3.Top := 122;
Label3.Width := 67;
Label3.Height := 16;
Label3.Caption := 'Message 3';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -13;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 5;
Label4.Top := 149;
Label4.Width := 67;
Label4.Height := 16;
Label4.Caption := 'Message 4';
Label4.Font.Color := clWindowText;
Label4.Font.Height := -13;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 4;
Label5.Top := 23;
Label5.Width := 132;
Label5.Height := 16;
Label5.Caption := 'Number of Messages:';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -13;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
startbut := TButton.Create(frmDesign);
startbut.OnClick:= @buttonclick;
startbut.Parent := frmDesign;
startbut.Left := 83;
startbut.Top := 184;
startbut.Width := 75;
startbut.Height := 25;
startbut.Hint := 'starts script';
startbut.Caption := 'Start';
startbut.ParentShowHint := False;
startbut.ShowHint := True;
startbut.TabOrder := 8;
message1edit := TEdit.Create(frmDesign);
message1edit.Parent := frmDesign;
message1edit.Left := 80;
message1edit.Top := 57;
message1edit.Width := 121;
message1edit.Height := 21;
message1edit.Hint := 'enter message';
message1edit.ParentShowHint := False;
message1edit.ShowHint := True;
message1edit.TabOrder := 9;
message1edit.Text := 'message1edit';
message2edit := TEdit.Create(frmDesign);
message2edit.Parent := frmDesign;
message2edit.Left := 80;
message2edit.Top := 87;
message2edit.Width := 121;
message2edit.Height := 21;
message2edit.Hint := 'enter message';
message2edit.ParentShowHint := False;
message2edit.ShowHint := True;
message2edit.TabOrder := 10;
message2edit.Text := 'message2edit';
message3edit := TEdit.Create(frmDesign);
message3edit.Parent := frmDesign;
message3edit.Left := 80;
message3edit.Top := 117;
message3edit.Width := 121;
message3edit.Height := 21;
message3edit.Hint := 'enter message';
message3edit.ParentShowHint := False;
message3edit.ShowHint := True;
message3edit.TabOrder := 11;
message3edit.Text := 'message3edit';
message4edit := TEdit.Create(frmDesign);
message4edit.Parent := frmDesign;
message4edit.Left := 80;
message4edit.Top := 147;
message4edit.Width := 121;
message4edit.Height := 21;
message4edit.TabOrder := 12;
message4edit.Text := 'message4edit';
Edit5 := TEdit.Create(frmDesign);
Edit5.Parent := frmDesign;
Edit5.Left := 141;
Edit5.Top := 21;
Edit5.Width := 35;
Edit5.Height := 21;
Edit5.Hint := '#';
Edit5.ParentShowHint := False;
Edit5.ShowHint := True;
Edit5.TabOrder := 13;
Edit5.Text := 'Edit5';
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure type1;
begin
if messages>0 then
begin
cleardebug
writeln('typing message 1');
typesend(Message1);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure type2;
begin
if messages>1 then
begin
cleardebug
writeln('typing message 2');
typesend(Message2);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure type3;
begin
if messages>2 then
begin
cleardebug
writeln('typing message 3');
typesend(Message3);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
Procedure type4;
begin
if messages>3 then
begin
cleardebug
writeln('typing message 4');
typesend(Message4);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure trade;
begin
if findcolor(xco,yco,8388736,18,415,236,431) then
begin
cleardebug
writeln('found trade')
MMouse(xco,yco,0,0);
wait(100+random(50))
Mouse(xco,yco,0,0,true);
writeln('accepted trade')
exit;
end;
end;




begin
hide;
safeinitform;
SafeShowFormModal;
repeat
type1;
trade;
type2;
trade;
type3;
trade;
type4;
trade;
until(IsFKeyDown(12));
end.

[arti]

Do something like


repeat
wait(100);
until(buttonPressed);


I dont know forms, and Im learning SCAR at the moment ... but, just figured Id give you what I thought would be the solution.

Hope it helps.
GL.

[stein3]

thanks. how do i set the buttonpressed to a form button?

[arti]

http://www.villavu.com/forum/showthread.php?t=1616

Check that out. Otherwise, wait until someone else responds... Forms > Me.

[Infantry001]

procedure buttonclick(sender: TObject);
begin
Writeln('Button pressed!');
frmDesign.Caption:= frmDesign.Caption + '.';
frm.Design.ShowModal := mrOk; //add this line!
end;

In this procedure, add frm.Design.ShowModal := mrOk;

Also, for your second request, you must change message1 - 4 into variables (so they can be edited once the script starts). then put in this procedure after the form ends.

procedure DeclareVar;
begin
Message1 := message1edit.text;
Message2 := message2edit.text;
Message3 := message3edit.text;
Message4 := message4edit.text;
end;

If you have any questions about what i did, feel free to ask!

[stein3]

k... I don't get the first one...
what does that do? :(

[Infantry001]

ends the form when the button is clicked. then, it will go into that loop after safeshowformmodal