Jethr0x
2010-04-03 22:02:39
program RunescapeTopDownloader;
const
Path2Dl = 'C:\Documents and Settings\Owner.MATTHEW\Desktop\RuneScapePictures\New\';
var
png, jpg, gif, bmp, tif, none, i : integer;
a, b, c, d, e : integer;
ax, bx, cx, dx, ex, pix : string;
function DownloadFile(FileLink, Path: String): Boolean;
var
PageString: String;
iFile: Integer;
begin
try
PageString := GetPage(FileLink);
if PageString = '' then Exit;
iFile := RewriteFile(Path, False);
Result := WriteFileString(iFile, PageString);
CloseFile(iFile);
except
Result := False;
Exit;
end;
end;
procedure Download(Path2 : string);
begin
if (DownloadFile(Path2 + '.png', Path2DL + pix + '.png')) then
begin
Writeln('Downloaded: ' + Path2 + '.png');
png := png + 1;
Exit;
end;
if (DownloadFile(Path2 + '.jpg', Path2DL + pix + '.jpg')) then
begin
Writeln('Downloaded: ' + Path2 + '.jpg');
jpg := jpg + 1;
Exit;
end;
if (DownloadFile(Path2 + '.gif', Path2DL + pix +'.gif')) then
begin
Writeln('Downloaded: ' + Path2 + '.gif');
gif := gif + 1;
Exit;
end;
if (DownloadFile(Path2 + '.bmp', Path2DL + pix +'.bmp')) then
begin
Writeln('Downloaded: ' + Path2 + '.bmp');
bmp := bmp + 1;
Exit;
end;
if (DownloadFile(Path2 + '.tif', Path2DL + pix +'.tif')) then
begin
Writeln('Downloaded: ' + Path2 + '.tif');
tif := tif + 1;
Exit;
end;
none := none + 1;
end;
procedure PrintStats;
begin
ClearReport;
AddToReport('Stats:');
AddToReport('PNGs: ' +IntToStr(Png));
AddToReport('JPGs: ' +IntToStr(jpg));
AddToReport('GIFs: ' +IntToStr(gif));
AddToReport('BMPs: ' +IntToStr(bmp));
AddToReport('TIFs: ' +IntToStr(tif));
AddToReport('No Pic: ' +IntToStr(None));
end;
function ConvertNumber(number : integer): String;
begin
case Number of
0: Result := '0';
1: Result := '1';
2: Result := '2';
3: Result := '3';
4: Result := '4';
5: Result := '5';
6: Result := '6';
7: Result := '7';
8: Result := '8';
9: Result := '9';
10: Result := 'a';
11: Result := 'b';
12: Result := 'c';
13: Result := 'd';
14: Result := 'e';
15: Result := 'f';
end;
end;
procedure CreateDirs;
begin
a := 0;
b := 0;
c := 0;
d := 0;
e := 0;
for i:=0 to 1000 do
begin
e := e + 1;
if (e = 15) then
begin
e := 0;
d := d + 1;
if (d = 15) then
begin
d := 0;
c := c + 1;
if (c = 15) then
begin
c := 0;
b := b + 1;
end;
end;
end;
ax := ConvertNumber(a);
bx := ConvertNumber(b);
cx := ConvertNumber(c);
dx := ConvertNumber(d);
ex := ConvertNumber(e);
pix := ax + bx + cx + dx + ex;
Download('http://www.runescapetop.com/up/images/' + pix);
wait(250);
PrintStats;
end;
end;
begin
png := 0;
tif := 0;
bmp := 0;
jpg := 0;
gif := 0;
none := 0;
CreateDirs;
end.
{Jethr0x's Picture Downloader... it downloads EVERY picture on RuneScapeTop.com
Hopefully I find some nice nudies <3 ... or acc logs :D!!! <3 XtS }
Downloads pictures from RuneScapeTop … I like viewing pics for no reason… so i made this to download them so I can easily scan through them while afk training … I admit i did find some nudes… >.> … A few people asked me for it on IRC and use it… so I guess I can post it here :p
Set the download location…
RuneScapeTop is one of Zybez's uploading services… And its links look like: http://www.runescapetop.com/up/images/651ed.png
The script has this number broken down.
a := 0;
b := 0;
c := 0;
d := 0;
e := 0;
would be: http://www.runescapetop.com/up/images/00000.png
a := 1;
b := 2;
c := 9;
d := 10;
e := 14;
would be: http://www.runescapetop.com/up/images/129ae.png
understand?
The current number is: 659ae (if you want to start there)
6-5-9-10-14
have fun :p
