SRL Archive - RS3 Outdated / Broken Scripts

i think you can do this in 5/15 mins


ShowerThoughts

2007-08-17 10:06:06

i think you can do this in 5/15 mins
i need a script that if i put the printscreen button
its safes the screenie auto in a file in a map somewhere
could some1 do that i wanna make few screenies so…
already thank you

pls can some1 do this pls? i need it for my new script

itSchRis917

2007-08-17 11:09:40

Here ya go hermpie:


program New;

var
I: Integer;

Const
NUM = 3;//Number of pictures you want to save..
Directory = 'C:\Program Files\Scar 3.11\Pictures\Screenshot';//File to save to.
FileType = '.bmp';//Self explanitory.. Make sure to put the period before it!
begin
For I:=1 To NUM Do
Begin
SaveScreenShot(Directory+IntToStr(I)+FileType);
End;
end.

ShowerThoughts

2007-08-17 11:12:56

thanks chris get on msn k? im online

itSchRis917

2007-08-17 11:21:57

MSN's not working for me right now.. Its wierd..

ShowerThoughts

2007-08-17 11:33:14

ow thats not nice reinstall and if i want to sue the script on a f button so i do somthing like this?
program New;

var
I:Integer;

Const
NUM = 1000000;//Number of pictures you want to save..
Directory = 'H:\Program Files\Scar 3.11\Pictures\screenies';//File to save to.
FileType = '.bmp';//Self explanitory.. Make sure to put the period before it!
begin
if fkey(11)is down then/// somthing like this?
For I:=1 To NUM Do
Begin
SaveScreenShot(Directory+IntToStr(I)+FileType);
wait(1)
writeln('saved screenie in H:\Program Files\Scar 3.11\Pictures\screenies')
End;
End;
End.

Smartzkid

2007-08-17 11:49:44

program New; 
var
I:Integer;
Const
Directory = 'H:\Program Files\Scar 3.11\Pictures\screenies';//Folder to save to.
Name = 'screenie'; //Name to save as
begin
repeat
if isfkeydown(11) then
begin
SaveScreenShot(Directory+Name+IntToStr(I)+'.bmp');
writeln('saved screenie in ' + Directory + ' as ' + Name + '.bmp');
Inc(i);
End;
wait(10);
until(false)
End.

rotflmfwao

2007-08-17 12:48:22

Thats really good smartz, I didn't know SCAR could do that XD

bullzeye95

2007-08-17 14:42:10

That'll take excessive screenshots until he stops pressing F11. This will fix it
program New;
var
I:Integer;
Const
Directory = 'H:\Program Files\Scar 3.11\Pictures\screenies';//Folder to save to.
Name = 'screenie'; //Name to save as
begin
repeat
repeat
wait(10);
until(IsFKeyDown(11))
begin
SaveScreenShot(Directory+Name+IntToStr(I)+'.bmp');
writeln('saved screenie in ' + Directory + ' as ' + Name + '.bmp');
Inc(i);
End;
while IsFKeyDown(11) do
wait(100);
until(false)
End.

dvdcrayola

2007-08-17 20:18:10

i used this!

thanks everyone

neep

2007-08-18 10:11:45

Just get swiftswitch :P

ShowerThoughts

2007-08-18 11:52:25

thanks you and that he wil take evry like 1/1000,s sec a pic i dont care about it lol my computer was very slow after like 1000 screenies