home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 39 / Creative-Review-CD-ROM-39.iso / pc / pres / cr.dir / 00124_Script_124 < prev    next >
Text File  |  1998-07-10  |  964b  |  32 lines
  1. on glacier
  2.   set rolllist = [28, 29, 30, 31, 32]
  3.   set blenlist = [23, 24, 25, 26, 27]
  4.   
  5.   set hRan = random (4) -1 -2
  6.   set vRan = random (4) -1 -2
  7.   
  8.   repeat with a = 1 to 5
  9.     
  10.     set blender = getat (blenlist a)
  11.     set current = getat (rolllist a)
  12.     set the constraint of sprite blender to sprite 22
  13.     set the constraint of sprite current to sprite 22
  14.     
  15.     if rollOver(current) then
  16.       
  17.       set the loch of sprite blender to the loch of sprite blender + Hran
  18.       set the locv of sprite blender to the locv of sprite blender + Vran
  19.       
  20.       if the blend of sprite (blender) <95 then
  21.         set the blend of sprite (blender) to the blend of sprite (blender) + 5
  22.         set the blend of sprite (current) to 100
  23.         
  24.       else nothing
  25.       
  26.     else if not rollover (current) then
  27.       set the blend of sprite (blender) to 0
  28.       set the blend of sprite (current) to 30
  29.     end if 
  30.   end repeat
  31. end
  32.