Well, I admit that with the media players now available for OS/2, I've been snagging shows from
http://www.tv-mafia.com/, but often forget to keep my one stream from Rapidshare free service busy, so came up with this to nag me (nagging is good if has a point to it):
-------------------------- paste below to party.cmd ------------------------------
/* PARTY helps maximize downloading from Rapidshare by automated nagging. */
/* Tuned to recent changes that eliminate long waits between downloads. */
/* Chirps while 'RapidShare:' is in window list, then monitors .part files. */
call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
call sysloadfuncs
/* monitor this directory for .part files; trill when appear */
mondir= 'C:\TEMP'
/* poll window list every sleeptime secs; chirp while this is present */
monwl= 'RapidShare:'
/* sleep period in seconds; sets how often window list is queried */
sleeptime= 10
/* number of sleeptime loops before checking directory for .part files */
nloops= 3
np= 0
lc= 0
do forever
fl= 1 /* flag used to wait through the normal countdown period */
do until notpresent = 1 /* monitor window list for text in monwl */
call sysqueryswitchlist "wl."
notpresent= 1
do n= 1 to wl.0 /* check all entries */
if pos(monwl, wl.n) > 0 then notpresent= 0
end
if notpresent = 0 & fl = 1 then do
say '"'monwl'" present! Sleeping for 45 seconds before nagging...'
call syssleep 45
fl= 0
end
if notpresent = 0 then do /* after first loop, periodic chirping */
call chirp
call syssleep sleeptime
lc= 0 /* reset counter so goes right to check / trill */
end
end
if lc = 0 then do
lc= 0
rc= sysfiletree(mondir||'\*.part', 'parts.', 'FO')
say ' 'time('N')' Previous = 'np' Now present = 'parts.0
if np < parts.0 then call trill
if np > parts.0 then call ended
np= parts.0
end
call syssleep sleeptime
lc= lc + 1
if lc > nloops then lc= 0
end
chirp:
do n= 0 to 2; call beep 2500, 50; call syssleep 0.1; end; return
trill:
do n= 0 to 9; call beep 2000 + 200 * n, 50; end; return
ended: /* once used to this, might have to nag until a key is pressed... */
do n= 9 to 0 by -1; call beep 1000 + 50 * n, 200; end; return