home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / indice.dir / 00024_Script_GIU < prev    next >
Text File  |  1997-04-09  |  863b  |  24 lines
  1. on mouseDown
  2.   global gI, gSkr, gF
  3.   put gSkr into S
  4.   put the mouseCast into MC
  5.   repeat while the mouseDown and the mousecast = MC
  6.     put the top of sprite 12 - S into T
  7.     put the top of sprite 24 + S/gF into B
  8.     put the top of sprite 20 - gSkr*the number of lines in field "LabSalto" into U
  9.     put the bottom of sprite 19 + gSkr into D
  10.     if T <= U then
  11.       put U into T
  12.       put the top of sprite 28 - the height of sprite 24 into B
  13.     else if T >= D then
  14.       put D into T
  15.       put the bottom of sprite 27 into B
  16.     end if
  17.     set the locV of sprite 12 = T
  18.     set the locV of sprite 13 = T + gI + the height of sprite 13/2
  19.     set the locV of sprite 24 = B
  20.     spriteBox 25, 609, the bottom of sprite 27, 619, B
  21.     spriteBox 26, 609, B+the height of sprite 24, 619, the top of sprite 28
  22.     updatestage
  23.   end repeat
  24. end