home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00917_Script_917 < prev    next >
Text File  |  1987-04-12  |  587b  |  24 lines
  1. on CtrlSkrol T
  2.   put the bottom of sprite 3 into U
  3.   put the height of cast (the castNum of sprite 2) into H
  4.   put 1+(the top of sprite 4)-H into D
  5.   puppetSprite 2,1
  6.   puppetSprite 39,1
  7.   puppetSprite 40,1
  8.   if T <= D then
  9.     put D into T
  10.     set the locH of sprite 39 = 631
  11.     set the locH of sprite 40 = 9000
  12.   else if T >= U then
  13.     put U into T
  14.     set the locH of sprite 39 = 9000
  15.     set the locH of sprite 40 = 631
  16.   else
  17.     set the locH of sprite 39 = 631
  18.     set the locH of sprite 40 = 631
  19.   end if
  20.   set the locV of sprite 2 = T
  21.   updatestage
  22. end
  23.  
  24.