| V1.50
If "<ChangeFSI$Dir>" = "" Then Error Please open a Filer directory containing !ChangeFSI V1.15 (or better) then try again.

| This turns on or off the Hourglass when ChangeFSI is converting.
| If you don't want it on Make the line below 'Off'
Set ChangeFSI$Hourglass On

WimpSlot -min 2000K
WimpSlot -next 2000K
Set campin$dir <obey$dir>.resources
Set campin$path <campin$dir>.
DIR <campin$dir>


DO campin:curl --env http://www.quantumsoft.co.uk/files/clipart/jpegs/number.txt -o today -s
campin:Returnline 1 campin:today
SETEVAL campins_last <headline>

| 200+ pictures of beautiful landscapes.
IF "<num>" >= 0 THEN SETEVAL num <num> + 1
IF "<num>" > "<campins_last>" THEN SET num 1

| remove the | from the lines below to make this script get each image 
| in random order.
 RND 1 <campins_last>
 Set num <Campin%RND>

IF LEN "<num>" < 4 THEN SETEVAL num "0" + "<num>"
IF LEN "<num>" < 4 THEN SETEVAL num "0" + "<num>"
IF LEN "<num>" < 4 THEN SETEVAL num "0" + "<num>"


SetEVAL surl "http://www.quantumsoft.co.uk/files/clipart/jpegs/Landscape_" + "<num>.jpg"
DO campin:curl --env <surl> -o image -s
campin:errorcheck

campin:camchk campin:Image

campin:CFSI campin:image campin:sprite <col> <scale> -nomode { > null: }

Backdrop <bkd> campin:sprite
