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