ChatBot07 by 1337snak3.

Normal autotalker with forms. The procedure texting could never match srl's typesend , but this one may look more clear for new scripters.
Umm after the backup came , posting doesnt have "code" anymore and on the texting procedure it says texttring, if it is so still when u've copied , type there text:string.
# Version = 1
# Date = l0l
# Comments = The main point of making this was that now i can use forms with my scripts.
I'm sorry that i didn't make this to use shift + marks too.
/Script Info}
program New;
var

TheText,saytimes:string;
i:integer;
frmDesign:TForm;
TheTextpanel : TPanel;
TheTextEnter : TEdit;
SayTimespanel: Tpanel;
SayTimesEnter: TEdit;
StartButton : TButton;


procedure Texting(text:string);
var a,b:integer;
begin
a:= length(text);
for b:= 1 to a do
begin
wait(200/4+random(2));
keydown(getkeycode(Text));
wait(30+random(5));
keyup(getkeycode(Text));
wait(225/4+random(2));
end;
keydown(13);
wait(30+random(10));
keyup(13)
end;


procedure FinalText;
begin
TheText:= TheTextEnter.text;
SayTimes := SayTimesEnter.text;
repeat
texting(thetext);

i:= i+1;
until(i=strtoint(saytimes));
end;

procedure Start(sender:TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult := mrOk;
end;

procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 266;
frmDesign.Top := 277;
frmDesign.Width := 228;
frmDesign.Height := 259;
frmDesign.Caption := 'ChatBot07';
frmDesign.Color := 844444;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
saytimespanel := TPanel.Create(frmDesign);
saytimespanel.Parent := frmDesign;
saytimespanel.Left := 12;
saytimespanel.Top := 25;
saytimespanel.Width := 78;
saytimespanel.Height := 28;
saytimespanel.Caption := 'Times to Say?';
saytimespanel.Color := 3333333;
saytimespanel.Enabled := False;
saytimespanel.TabOrder := 8;
saytimesenter := TEdit.Create(frmDesign);
saytimesenter.Parent := frmDesign;
saytimesenter.Left := 95;
saytimesenter.Top := 26;
saytimesenter.Width := 121;
saytimesenter.Height := 21;
saytimesenter.TabOrder := 9;
TheTextPanel := TPanel.Create(frmDesign);
TheTextPanel.Parent := frmDesign;
TheTextPanel.Left := 10;
TheTextPanel.Top := 68;
TheTextPanel.Width := 81;
TheTextPanel.Height := 27;
TheTextPanel.Caption := 'What to say?';
TheTextPanel.TabOrder := 10;
TheTextEnter := TEdit.Create(frmDesign);
TheTextEnter.Parent := frmDesign;
TheTextEnter.Left := 94;
TheTextEnter.Top := 68;
TheTextEnter.Width := 122;
TheTextEnter.Height := 21;
TheTextEnter.TabOrder := 11;

startbutton := TButton.Create(frmDesign);
startbutton.Parent := frmDesign;
startbutton.OnClick:= @Start;
startbutton.Left := 62;
startbutton.Top := 169;
startbutton.Width := 75;
startbutton.Height := 25;
startbutton.Caption := 'Scream!!';

startbutton.TabOrder := 12;
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;
finaltext;
end.

 

uhm maybe you can post it in code tags?

 

[ CODE ] SCRIPT HERE [ / CODE]

// no spaces

 

God Damit How Many Times I Have To Say That The Code Thingy Doesnt Work For Me Atm.