REM Project: TGC_Christmas
REM Created: 12/13/2006 9:06:49 AM
REM
REM ***** Main Source File *****
REM

spx as integer
spy as integer
sync ON:sync rate 60
datatoimage(1)
sprite 1,0,0,1
hide sprite 1
createspindle()
randomize timer()
hide mouse
set current bitmap 0
sync
sprite 2,rnd(screen width()-16),rnd(screen height()-16),2
  for cs=3 to 46
    clone sprite 2,cs
    sprite cs,rnd(screen width()-16),rnd(screen height()-16),2
    sync
  next cs
movespritesintoposition()
sprite 1,481,-83,1
show sprite 1
sync

do
  spx=481
  spy=23
  for yy=-83 to spy step 20
    sprite 1,spx,yy,1
    sync
  next yy
  sprite 1,spx,spy,1:sync
  sprite 1,spx,spy-5,1:sync:wait 100
  sprite 1,spx,spy,1:sync

  for dd=1 to 8
     if rnd(100)>50
        fall_right(spx,spy)
        spx=spx+40:spy=spy+70
        sync`:wait 100
     else
        fall_left(spx,spy)
        spx=spx-40:spy=spy+70
        sync`:wait 100
     endif
  next dd
  if rnd(100)>50
     finalfall_right(spx,spy)
     spx=spx+40:spy=spy+210
     sync`:wait 100
  else
     finalfall_left(spx,spy)
     spx=spx-40:spy=spy+210
     sync`:wait 100
  endif

loop

function fall_left(sx,sy)

  sprite 1,sx-16,sy+2,1:sync:wait 25
  sprite 1,sx-30,sy+9,1:sync:wait 20
  sprite 1,sx-37,sy+21,1:sync:wait 15
  sprite 1,sx-40,sy+35,1:sync:wait 10
  sprite 1,sx-40,sy+53,1:sync:wait 5
  sprite 1,sx-40,sy+70,1:sync
  sprite 1,sx-40,sy+65,1:sync:wait 100
  sprite 1,sx-40,sy+70,1:sync

endfunction

function fall_right(sx,sy)

  sprite 1,sx+16,sy+2,1:sync:wait 25
  sprite 1,sx+30,sy+9,1:sync:wait 20
  sprite 1,sx+37,sy+21,1:sync:wait 15
  sprite 1,sx+40,sy+35,1:sync:wait 10
  sprite 1,sx+40,sy+53,1:sync:wait 5
  sprite 1,sx+40,sy+70,1:sync
  sprite 1,sx+40,sy+65,1:sync:wait 100
  sprite 1,sx+40,sy+70,1:sync

endfunction

function finalfall_left(sx,sy)

  sprite 1,sx-16,sy+2,1:sync:wait 25
  sprite 1,sx-30,sy+9,1:sync:wait 20
  sprite 1,sx-37,sy+21,1:sync:wait 15
  sprite 1,sx-40,sy+35,1:sync:wait 10
  sprite 1,sx-40,sy+53,1:sync:wait 5
  sprite 1,sx-40,sy+70,1:sync
  sprite 1,sx-40,sy+90,1:sync
  sprite 1,sx-40,sy+110,1:sync
  sprite 1,sx-40,sy+130,1:sync
  sprite 1,sx-40,sy+150,1:sync
  sprite 1,sx-40,sy+170,1:sync
  sprite 1,sx-40,sy+190,1:sync
  sprite 1,sx-40,sy+210,1:sync

endfunction

function finalfall_right(sx,sy)

  sprite 1,sx+16,sy+2,1:sync:wait 25
  sprite 1,sx+30,sy+9,1:sync:wait 20
  sprite 1,sx+37,sy+21,1:sync:wait 15
  sprite 1,sx+40,sy+35,1:sync:wait 10
  sprite 1,sx+40,sy+53,1:sync:wait 5
  sprite 1,sx+40,sy+70,1:sync
  sprite 1,sx+40,sy+90,1:sync
  sprite 1,sx+40,sy+110,1:sync
  sprite 1,sx+40,sy+130,1:sync
  sprite 1,sx+40,sy+150,1:sync
  sprite 1,sx+40,sy+170,1:sync
  sprite 1,sx+40,sy+190,1:sync
  sprite 1,sx+40,sy+210,1:sync

endfunction


function movespritesintoposition()
  sprite 2,507,87,2:sync
  sprite 3,467,157,2:sync
  sprite 4,547,157,2:sync
  sprite 5,427,227,2:sync
  sprite 6,507,227,2:sync
  sprite 7,587,227,2:sync
  sprite 8,387,297,2:sync
  sprite 9,467,297,2:sync
  sprite 10,547,297,2:sync
  sprite 11,627,297,2:sync
  sprite 12,347,367,2:sync
  sprite 13,427,367,2:sync
  sprite 14,507,367,2:sync
  sprite 15,587,367,2:sync
  sprite 16,667,367,2:sync
  sprite 17,307,437,2:sync
  sprite 18,387,437,2:sync
  sprite 19,467,437,2:sync
  sprite 20,547,437,2:sync
  sprite 21,627,437,2:sync
  sprite 22,707,437,2:sync
  sprite 23,267,507,2:sync
  sprite 24,347,507,2:sync
  sprite 25,427,507,2:sync
  sprite 26,507,507,2:sync
  sprite 27,587,507,2:sync
  sprite 28,667,507,2:sync
  sprite 29,747,507,2:sync
  sprite 30,227,577,2:sync
  sprite 31,307,577,2:sync
  sprite 32,387,577,2:sync
  sprite 33,467,577,2:sync
  sprite 34,547,577,2:sync
  sprite 35,627,577,2:sync
  sprite 36,707,577,2:sync
  sprite 37,787,577,2:sync
  sprite 38,187,647,2:sync
  sprite 39,267,647,2:sync
  sprite 40,347,647,2:sync
  sprite 41,427,647,2:sync
  sprite 42,507,647,2:sync
  sprite 43,587,647,2:sync
  sprite 44,667,647,2:sync
  sprite 45,747,647,2:sync
  sprite 46,827,647,2:sync
endfunction

function createspindle()
   create bitmap 1,13,13
   dc=0
   for row=0 to 10
     for col=0 to 10
       read ic
       ink rgb(ic*84,ic*84,ic*84),0
       dot col,row
     next col
   next row
   get image 2,0,0,11,11,1
   `scale sprite 2,66
endfunction

function datatoimage(image)


  memblock=1
  read size
  make memblock 1,size
  read sx `as dword
  read sy `as dword
  read depth `as dword
  write memblock dword 1,0,sx
  write memblock dword 1,4,sy
  write memblock dword 1,8,depth

  for x=0 to sx-1
    for y=0 to sy-1
      pos=(y*sx+x)*4+12
      read b `as byte
      read g `as byte
      read r `as byte
      read a `as byte

      write memblock byte 1,pos,b
      write memblock byte 1,pos+1,g
      write memblock byte 1,pos+2,r
      write memblock byte 1,pos+3,a
    next y
  next x
make image from memblock image,1

endfunction

data 16396
data 64
data 64
data 32
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,217,217,219,1,231,231,231,13,246,246,246,13,237,242,247,19,234,241,246,44,160,206,225,46,82,157,201,46,74,177,225,46,66,212,255,33,59,207,255,13,54,200,250,13,52,185,231,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,181,183,222,1,222,222,244,19,246,243,248,54,248,248,248,105,247,247,247,164,245,250,255,206,252,252,252,209,236,242,247,215,230,236,239,241,142,185,208,242,85,133,178,242,77,166,213,242,69,210,255,229,61,211,255,209,55,209,255,206,49,206,255,168,43,203,255,135,38,198,255,77,33,191,248,25,32,176,227,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,212,212,241,6,202,202,243,63,220,220,247,156,247,250,255,212,250,251,251,242,249,249,249,255,248,252,255,255,254,254,254,255,239,244,249,255,228,234,231,255,175,202,217,255,97,150,188,255,88,140,184,255,79,176,223,255,71,214,255,255,63,212,255,255,56,210,255,255,50,208,255,255,44,205,255,255,39,200,255,251,34,196,253,219,30,192,250,164,27,188,247,98,23,182,242,36,27,156,205,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,234,234,251,6,226,226,251,63,217,217,248,168,217,217,249,241,245,245,253,255,253,253,253,255,252,255,255,255,250,250,250,255,255,255,255,255,242,243,243,255,233,238,242,255,194,213,217,255,110,167,197,255,100,146,186,255,90,168,212,255,81,210,255,255,73,214,255,255,65,212,255,255,58,210,255,255,51,208,255,255,46,207,255,255,40,203,255,255,35,198,255,255,31,195,252,255,27,190,250,254,24,186,246,226,21,181,242,142,18,176,238,43,20,154,206,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,251,251,254,1,247,247,255,57,240,240,255,168,232,232,253,241,223,223,251,255,241,241,254,255,254,254,255,255,254,254,254,255,253,255,253,255,251,254,251,255,246,249,246,255,238,241,238,255,214,224,223,255,145,185,207,255,112,154,191,255,102,161,202,255,92,202,245,255,83,217,255,255,75,215,255,255,67,213,255,255,59,210,255,255,53,209,255,255,47,207,255,255,41,205,255,255,36,201,255,255,32,196,255,255,28,193,251,255,24,188,248,255,21,183,244,255,19,179,240,228,17,175,237,142,15,171,233,43,20,138,184,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,10,255,255,255,108,251,251,255,231,244,244,255,255,236,236,254,255,236,236,254,255,254,254,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,244,247,244,255,230,235,232,255,186,204,218,255,125,169,200,255,114,160,198,255,104,190,230,255,94,219,255,255,85,218,255,255,76,215,255,255,68,213,255,255,60,211,255,255,54,209,255,255,47,207,255,255,42,206,255,255,37,203,255,255,32,198,255,255,28,194,253,255,25,189,249,255,22,186,245,255,19,181,242,255,17,178,239,255,15,173,236,228,13,168,232,108,12,159,219,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,31,255,255,255,158,255,255,255,249,255,255,255,255,247,247,255,255,239,239,255,255,250,250,255,255,255,255,255,255,255,255,255,255,255,255,255,255,253,255,253,255,255,255,255,255,240,244,248,255,220,224,232,255,146,187,209,255,128,166,199,255,116,180,217,255,105,214,255,255,95,220,255,255,86,218,255,255,77,215,255,255,69,213,255,255,61,211,255,255,54,209,255,255,48,208,255,255,42,206,255,255,37,205,255,255,33,201,255,255,29,196,255,255,25,192,251,255,22,187,248,255,19,182,244,255,17,179,240,255,15,174,237,255,13,170,233,249,12,166,230,151,11,162,226,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,1,255,255,255,64,255,255,255,200,255,255,255,255,255,255,255,255,255,255,255,255,249,249,255,255,247,247,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,252,253,253,255,253,254,254,255,234,239,237,255,188,210,221,255,140,176,205,255,129,174,208,255,117,205,243,255,106,223,255,255,96,221,255,255,86,218,255,255,78,216,255,255,69,213,255,255,62,211,255,255,55,209,255,255,48,208,255,255,42,206,255,255,37,205,255,255,33,203,255,255,29,199,255,255,25,194,254,255,22,189,250,255,19,185,246,255,17,181,243,255,15,177,239,255,13,172,236,255,12,168,232,254,11,165,228,187,11,161,225,45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,10,255,255,255,108,255,255,255,231,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,250,250,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,252,254,255,255,248,252,248,255,223,230,234,255,152,192,213,255,141,175,206,255,129,192,226,255,117,221,255,255,106,223,255,255,96,221,255,255,87,218,255,255,78,216,255,255,69,213,255,255,62,211,255,255,55,209,255,255,48,208,255,255,43,206,255,255,37,205,255,255,33,203,255,255,29,200,255,255,25,188,247,255,22,145,193,255,19,102,141,255,17,152,207,255,15,178,240,255,13,173,237,255,12,170,233,255,11,166,230,255,11,162,226,217,11,150,214,74,15,102,156,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,10,255,255,255,149,255,255,255,249,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,253,253,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,254,255,254,255,252,250,252,255,237,239,239,255,190,210,221,255,152,184,210,255,140,181,213,255,129,214,248,255,117,226,255,255,106,223,255,255,96,221,255,255,86,218,255,255,78,216,255,255,69,213,255,255,62,211,255,255,55,209,255,255,48,208,255,255,42,206,255,255,37,205,255,255,33,203,255,255,29,188,243,255,25,123,162,255,22,38,56,255,19,19,19,255,17,104,144,255,15,180,243,255,13,176,239,255,12,172,234,255,11,168,231,255,11,165,227,255,11,160,224,238,11,134,197,97,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,3,255,255,255,110,255,255,255,249,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,252,254,255,255,247,247,247,255,220,225,228,255,163,195,214,255,151,182,211,255,139,198,229,255,128,225,255,255,116,226,255,255,105,223,255,255,95,220,255,255,86,218,255,255,77,215,255,255,69,213,255,255,61,211,255,255,54,209,255,255,48,208,255,255,42,206,255,255,37,205,255,255,33,182,235,255,29,102,135,255,25,25,41,255,22,22,22,255,19,66,93,255,17,156,209,255,15,181,244,255,13,177,240,255,12,173,237,255,11,170,233,255,11,166,230,255,11,162,225,255,11,155,218,224,11,108,171,55,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,74,255,255,255,238,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,253,253,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,248,251,253,255,239,237,239,255,197,212,220,255,160,187,213,255,149,186,215,255,137,215,247,255,125,228,255,255,114,225,255,255,104,223,255,255,94,220,255,255,85,218,255,255,76,215,255,255,68,213,255,255,60,211,255,255,54,209,255,255,47,207,255,255,42,206,255,255,37,175,224,255,32,80,105,255,28,28,28,255,25,25,25,255,22,22,22,255,19,90,125,255,17,168,223,255,15,183,245,255,13,178,242,255,12,174,238,255,11,171,234,255,11,167,231,255,11,164,227,255,11,160,224,255,11,134,196,191,11,90,154,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
<