home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 39 / Creative-Review-CD-ROM-39.iso / pc / pres / cr.dir / 00014_Script_14 < prev    next >
Text File  |  1998-07-10  |  612b  |  27 lines
  1. on home 
  2.   
  3.   repeat with a = 1 to 6
  4.     
  5.     set endHPos = getat (ghorizlist, a)
  6.     set endVPos = getat (gvertlist, a)
  7.     
  8.     set startHPos = the locH of sprite getat (gspritelist, a)
  9.     set startVPos = the locV of sprite getat (gspritelist, a)
  10.     
  11.     
  12.     set difH = (startHPos - endHPos)
  13.     set difV = (startVPos - endVPos)
  14.     
  15.     set the loch of sprite getat (gspritelist, a) to ((startHPos - (difH / 12)))
  16.     set the locV of sprite getat (gspritelist, a) to ((startVPos - (difV / 12)))
  17.     
  18.     updatestage
  19.     
  20.   end repeat
  21.   
  22.   set the loch of sprite 13 to 700
  23.  
  24. end
  25.  
  26.  
  27.