REBOL

;image name and extension parsed before this code


maxcount: length? imglist
dldir: request-dir
count: 0
imgcount: 0
foreach img imglist [
	count: count + (1 / maxcount)
	imgcount: imgcount + 1

	field_info/text: join "Downloading " [ "(" to-string imgcount "/" to-string maxcount ").." ]
	show field_info

	localurl: join dldir [ img first extlist ]							;create local img file path
	imgdlurl: join "http://images.website.org/" [ get_boardname dlurl "/src/" img first extlist ]	;create url

	write to-file localurl
	read/binary to-url imgdlurl

	p1/data: count show p1
	extlist: next extlist
]