Thanks for unmatched beginers guide i managed to build this!
Thanks for unmatched beginers guide i managed to build this!
Good jobBTW, where you had all those WriteLn functions: I'm guessing you wanted to clear the box? If so just use this:
SCAR Code://..script
Until(Counter=SayAmount);
ClearDebug;
End.
Cool script man! Great job. My first script was an auto talker too.
Hey here is your next step. Try to make your script look a little more like this:
It's easier to read, debug, and looks much better.Code:// Script by d3hm3d // My first script!!! // Fill in messeges and there you go //------------------------------------------------------------------------ program AutoTalker; var Counter : Integer; const Message1 = ''; // First Message. Message2 = ''; // Second Message. SayAmount = 200; // How Many Times To Type Your Message. TimeJ = 5000; // How Much Time To Wait Inbetween clicks. procedure AutoTalkin; begin SendKeysSilent(Message1); Wait(100+Random(10)); SendKeysSilent(chr(13)); Wait(TimeJ); SendKeysSilent(Message2); Wait(100+Random(10)); SendKeysSilent(chr(13)); Wait(TimeJ); end; begin Counter := 0; repeat AutoTalkin; Counter := Counter + 1; until(Counter = SayAmount) ClearDebug; end.![]()
You should change from this:
Code:begin Counter:=0 repeat AutoTalkin; Counter:=counter+1 Until(Counter=SayAmount); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); Writeln(''); End.
To this:
but other than that it's niceCode:begin ActivateClient; Counter:=0 repeat AutoTalkin; Counter:=counter+1 Until(Counter=SayAmount); Cleardebug; End.
There are currently 1 users browsing this thread. (0 members and 1 guests)