SRL Archive - First Scripts

Basic Auto Talker (actual one)


evilwalrus

2007-06-05 16:59:24

Hey, I was bored in class today so I decided to make an auto talker. It is not complicated so if you are a beginner (absolute beginner) then this should be a good script for you. If you are already a talented scripter, than you can probably make one better than this, or find one. but still it gets the job done =b

Pwnt by Pwnt

2007-06-06 22:31:32

uhhhh did u make this?
/////////Auto Talker Version 2.0//////////////////////
/////////by Mechancgod69//////////////////////////////
////////A basic script, but it gets the job done//////
//////////////////////////////////////////////////////
whats with the
by Mechancgod69
and also, if u did make it, it wont work well it will, but all it will do is say it in the debug box,
Writeln('blahblah');
only write in the debug box, change it to
TypeSend('blahblahblah');
and add
{include.SRL/SRL.scar}
right before the const. a couple other things, add more randoms to the waits like instead of
procedure autotype;
begin
wait(5000)
writeln(Message1);
wait(5000)
writeln(Message2);
end;
put
procedure AutoType;
begin
TypeSend(Message1);
Wait(5000+random(1000));
TypeSend(Message2);
Wait(5000+random(1000));
end;
but, personnaly i would pretty much change everything..
heres a "better" auto talker
program BasicAutoTalker;
//////////////////////////////////////////////////////
/// Auto Talker Version 2.0 ///
/// By Mechancgod69 ///
/// A basic script, but it gets the job done ///
/// Press F5 For Message One ///
/// And Press F6 For Message Two ///
//////////////////////////////////////////////////////

{.include SRL/SRL.scar}

const
Message1 = 'Hola';
Message2 = 'Sup???';

procedure AutoType;
begin
If(IsFKeyDown(5)) then
TypeSend(Message1);
If(IsFKeyDown(6)) then
TypeSend(Message2);
end;

begin
ActivateClient
repeat
AutoType;
until(IsFKeyDown(12));
end.
well, i hope that helps :D

shadows-collide

2007-06-25 12:58:33

LOl pwnt… you just completely pwnt him :)
Evil, dont post work that isnt yours, its completely disrespectful!

crossback7

2007-06-25 22:26:14

If you do, at least give the other person credit. . .