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