SRL Archive - Other Scripts

Time it takes to Download.


XxKanexX

2006-04-12 04:06:39

Re-written Script:


Const
MegDownloading = 50; //MegaBytes Downloading.
KBps = 32; //KiloBytes per Second Downloading at.

function DecDown(e: Extended): extended;
var i: integer;
begin
for i:= 1 to Length(floattostr(e)) do
begin
if (copy(floattostr(e), i, 1) = '.') then
begin
result:= strtofloat(copy(floattostr(e), 1, i + 2));
exit;
end;
end;
end;

var Bytes, Speed: integer;
var Time: extended;
begin
ClearDebug;
Bytes:= MegDownloading * 1000000;
Speed:= (KBps * 100)*8;
Time:= (Bytes/Speed)/60;
Writeln(inttostr(MegDownloading) + ' Meg @ ' + inttostr(KBps) + 'KB/ps Takes Approx: ')
if (Time < 60) then
Writeln(floattostr(DecDown(Time)) + ' Minute[s].');
if (Time > 1) and (Time > 60) then
Writeln(floattostr(DecDown(Time/60)) + ' Hour[s].');
end.

phantombmx

2006-04-12 04:29:38

cool, its fairly accurate.. altho mine goes like 2x faster than that :p

imagine this…

Downloading "100 Meg" at "1250 KB/ps",
Takes an estimate time of,
1.666 Minutes
Successfully executed


haha that would pwn

Jagex_Fagex

2006-04-13 18:13:03

hm, y do you got

InternetSpeed/8
???

XxKanexX

2006-04-13 21:20:55

From: jagex_fagex
hm, y do you got

InternetSpeed/8
???

That's your max download speed.

256kb ps Internet speed can max download at 32kbps. Your upload speed is half of the download speed ;)

512kbps has a max of 64kbps.. And so on.

Jagex_Fagex

2006-04-14 04:12:43

hmm ok, lol, never heard that before… :eek:

XxKanexX

2006-05-13 03:07:14

I re-wrote it much Simpler ;) Things to do when i'm bored :p

driger1592

2006-05-13 12:41:44

What you said in your last post makes me mad at my internet :p I'm constantly downloading at 20kb/s, and constantly upload at 20kb/s. Growl!

XxKanexX

2006-05-14 01:01:59

Ahaha :)

My internet has spazzes and Downloads at 600kbps sometimes. That's why we havn't changed companys, yet ;)

driger1592

2006-05-14 01:37:55

Your internet can go die XD

Jagex_Fagex

2006-05-14 03:19:40

From: driger1592
Your internet can go die XD


or, he could make it always go at 600kbps and give it to me :p

JiveTonto@Gmail.com

2006-05-14 05:33:37

ya net speed is x divided by 8

XxKanexX

2006-05-14 05:50:53

.. What brought that up?

JiveTonto@Gmail.com

2006-05-14 15:32:26

well x being your net speed and 8 being the divider unless you live close ass to a interchange

XxKanexX

2006-05-15 02:26:51

Um, Jive.. No-one asked the question for you to reply to. Do you find fun out of Spamming? Because you're doing it everywhere, lately.

JiveTonto@Gmail.com

2006-05-15 03:37:04

hm, y do you got


Code:
InternetSpeed/8???

ya so there you go

XxKanexX

2006-05-15 06:42:25

Yeh, and if you had read it, Jive, you would see that i answered that a while ago.

Please stop trying to be smart, you're digging yourself into an even bigger hole.

Abyssal

2006-06-15 12:50:13

50 Meg @ 400KB/ps Takes Approx:
2.6 Minute.

Yay fast internet ^_^.

XxKanexX

2006-06-16 04:41:49

If that's what you have i hate you, Abyssal. :p