home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / MAIN.DXR / 00018_jumpButtonscript.ls < prev    next >
Encoding:
Text File  |  1998-09-05  |  635 b   |  26 lines
  1. on jumpbuttons vs
  2.   if (vs >= 5) and (vs <= 10) and not (the mouseDown) then
  3.     set n to the memberNum of sprite vs
  4.     puppetSprite(vs, 1)
  5.     repeat with i = 0 to 5
  6.       set the memberNum of sprite vs to n + i
  7.       repeat with T = 0 to 1000
  8.         nothing()
  9.       end repeat
  10.       updateStage()
  11.     end repeat
  12.     repeat while rollOver(vs) and not (the mouseDown)
  13.       nothing()
  14.     end repeat
  15.     repeat with i = 5 down to 0
  16.       set the memberNum of sprite vs to n + i
  17.       repeat with T = 0 to 500
  18.         nothing()
  19.       end repeat
  20.       updateStage()
  21.     end repeat
  22.     puppetSprite(vs, 0)
  23.     updateStage()
  24.   end if
  25. end
  26.