home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / secoli.dir / 00089_Script_•SU < prev    next >
Text File  |  1987-04-11  |  795b  |  28 lines
  1. on mouseDown
  2.   global gskr
  3.   put the top of sprite 2 into T
  4.   put the mouseCast into MC
  5.   repeat while the mouseDown = 1 and the mousecast = MC
  6.     put T + gSkr into T
  7.     put the bottom of sprite 3 into U
  8.     put the height of cast (the castNum of sprite 2) into H
  9.     put 1+(the top of sprite 4)-H into D
  10.     puppetSprite 2,1
  11.     puppetSprite 39,1
  12.     puppetSprite 40,1
  13.     if T <= D then
  14.       put D into T
  15.       set the locH of sprite 39 = 226
  16.       set the locH of sprite 40 = 9000
  17.     else if T >= U then
  18.       put U into T
  19.       set the locH of sprite 39 = 9000
  20.       set the locH of sprite 40 = 226
  21.     else
  22.       set the locH of sprite 39 = 226
  23.       set the locH of sprite 40 = 226
  24.     end if
  25.     set the locV of sprite 2 = T
  26.     updatestage
  27.   end repeat
  28. end