RiSe AgAiNsT
07-17-2007, 03:30 AM
AUTO TALKER V 1.1!
INSTRUCTIONS:
"INSTRUCTIONS"
1. DRAG CROSSHAIR TO RUNESCAPE SCREEN 2. SET UP LINE 74 ONLY!
3. PRESS PLAY OR PRESS CTRL+ALT+R
4. THEN CLIK THE BUTTON TO START THE SCRIPT
5. THEN MINIMIZE THE SCAR WINDOW!
- NOTE: THERE WILL BE A SHORT DELAY BEFORE THE AUTOTALKER STARTS SENDING THE
MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR!
/////////////////////////////////////////////////////////////////////////////////
// "INSTRUCTIONS" //
// 1. DRAG CROSSHAIR TO RUNESCAPE SCREEN //
// 2. SET UP LINE 74 ONLY! //
// 3. PRESS PLAY OR PRESS CTRL+ALT+R //
// 4. THEN CLIK THE BUTTON TO START THE SCRIPT //
// 5. THEN MINIMIZE THE SCAR WINDOW! //
// - NOTE: THERE WILL BE A SHORT DELAY BEFORE THE AUTOTALKER STARTS SENDING THE//
// MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR! //
/////////////////////////////////////////////////////////////////////////////////
PROGRAM AutoTalker;
VAR
FrmDesign : TForm;
Button1 : TButton;
PROCEDURE Buttonclick(Sender: TObject);
BEGIN
Writeln('AT(Auto Talker) Started!');
FrmDesign.Caption:= FrmDesign.Caption + '.';
FrmDesign.ModalResult:= MrOk;
END;
PROCEDURE InitForm;
BEGIN
FrmDesign := CreateForm;
FrmDesign.Left := 200;
FrmDesign.Top := 200;
FrmDesign.Width := 250;
FrmDesign.Height := 150;
frmDesign.Caption := 'AT(Auto Talker)';
FrmDesign.Color := ClBtnFace;
FrmDesign.Font.Color := clWindowText;
FrmDesign.Font.Height := -11;
FrmDesign.Font.Name := 'MS Sans Serif';
FrmDesign.Font.Style := [];
FrmDesign.Visible := False;
FrmDesign.PixelsPerInch := 100;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 100;
Button1.Top := 100;
Button1.Width := 220;
Button1.Height := 100;
Button1.Caption := 'START(After You Click Start MiniMize Scar!';
Button1.TabOrder := 10;
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;
Wait(5000);
REPEAT
SendKeys('Your Text HERE!'); // Text You Wish To Say Here
Wait(1000+Random(1000));
UNTIL(FALSE);
END.
INSTRUCTIONS:
"INSTRUCTIONS"
1. DRAG CROSSHAIR TO RUNESCAPE SCREEN 2. SET UP LINE 74 ONLY!
3. PRESS PLAY OR PRESS CTRL+ALT+R
4. THEN CLIK THE BUTTON TO START THE SCRIPT
5. THEN MINIMIZE THE SCAR WINDOW!
- NOTE: THERE WILL BE A SHORT DELAY BEFORE THE AUTOTALKER STARTS SENDING THE
MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR!
/////////////////////////////////////////////////////////////////////////////////
// "INSTRUCTIONS" //
// 1. DRAG CROSSHAIR TO RUNESCAPE SCREEN //
// 2. SET UP LINE 74 ONLY! //
// 3. PRESS PLAY OR PRESS CTRL+ALT+R //
// 4. THEN CLIK THE BUTTON TO START THE SCRIPT //
// 5. THEN MINIMIZE THE SCAR WINDOW! //
// - NOTE: THERE WILL BE A SHORT DELAY BEFORE THE AUTOTALKER STARTS SENDING THE//
// MESSAGES SO THAT YOU HAVE ENOUGH TIME TO MINIMIZE SCAR! //
/////////////////////////////////////////////////////////////////////////////////
PROGRAM AutoTalker;
VAR
FrmDesign : TForm;
Button1 : TButton;
PROCEDURE Buttonclick(Sender: TObject);
BEGIN
Writeln('AT(Auto Talker) Started!');
FrmDesign.Caption:= FrmDesign.Caption + '.';
FrmDesign.ModalResult:= MrOk;
END;
PROCEDURE InitForm;
BEGIN
FrmDesign := CreateForm;
FrmDesign.Left := 200;
FrmDesign.Top := 200;
FrmDesign.Width := 250;
FrmDesign.Height := 150;
frmDesign.Caption := 'AT(Auto Talker)';
FrmDesign.Color := ClBtnFace;
FrmDesign.Font.Color := clWindowText;
FrmDesign.Font.Height := -11;
FrmDesign.Font.Name := 'MS Sans Serif';
FrmDesign.Font.Style := [];
FrmDesign.Visible := False;
FrmDesign.PixelsPerInch := 100;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 100;
Button1.Top := 100;
Button1.Width := 220;
Button1.Height := 100;
Button1.Caption := 'START(After You Click Start MiniMize Scar!';
Button1.TabOrder := 10;
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;
Wait(5000);
REPEAT
SendKeys('Your Text HERE!'); // Text You Wish To Say Here
Wait(1000+Random(1000));
UNTIL(FALSE);
END.