a handy movie collector maker

[Petri Keckman]

REBOL [
title: "get movies"
]

substr: func [string start length][
  copy/part at string start length
]
prez: func [
   number [number!]
   length [integer!]
][
  copy/part ( tail ( join "00000000" number ) )  ( negate ( max length ( length? ( to-string number ) ) ) )
]
lmrk: to-char 34
newline: to-char 10
for i 1 115 1 [
   print i
   ii: i
   if i < 10 [ii: prez i 2]
   for j 1 11 1 [
      video:  join join join join "http://tgp.gammacash.com/galleries/videos/brunob/" ii "/videos/" j ".mpg"
      print video

   ;http://tgp.gammacash.com/galleries/videos/brunob/115/images/1.jpg
   ;http://tgp.gammacash.com/galleries/videos/brunob/62/videos/1.mpg
   
   if exists? to-url video [ ; onko ylipäätänsä thumbbia?
      print join join join "**********" i ", " j
      file: join join join join "br" prez i 3 "_" prez j 2 ".mpg"
      write/binary to-file file read/binary to-url video
   ]
]

]
          
halt

[leke]

Petri Keckman
You truly are the king of porn.