PDA

View Full Version : Auto Talker V 1.0(Works Great)



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.

JuKKa
07-17-2007, 07:46 AM
well first of all you should take a look in the tutorial island and look for standards tutorials. Then DONT capitalize the bolded words. Its "OK" (i do it(sometimes)) to capitalize the first letter.

Begin
End;

etc...

But else its good for a new comer.

GoF
07-17-2007, 10:03 AM
PLEASE DON'T TYPE THE "BOLDED" WORDS LIKE THIS.. IT'S ANNOYING AND BAD STANDARDDS AS THEY'RE SUPPOSED TO BE ONLY lower case..

Ok, so.. This is a nice first script, I assume this is your first script..? Oh and I suggest including SRL and adding a option for using Typesend either than sendkeys.

EDIT: Woo, 600th post.

RiSe AgAiNsT
07-17-2007, 11:31 AM
Yes this is sort of my first script. Like ive been making scripts and trying to learn for a while, and I won't capatalize the bold words anymore. Thanks for the feed back guys!

dannymet
07-21-2007, 10:45 AM
omg this looks to much more advanced than mine, with all that crap at the beggining for a form, u probably dont need it, mine is a 10 line auto talker and has none of it!!!!!!!! muhahahahahahah

although im gonna try it now, to make my autoalker a lot more 1337 than urs!!
muahahahhaah you have now got competition!!

Santa_Clause
07-21-2007, 10:48 AM
/////////////////////////////////////////////////////////////////////////////////
// "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.

What's the point of the form if the script only types one message and that message isn't declared in the form?