home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 September / macformat-028.iso / mac / Demos / UNZIP-DEMO / ZIPFILES / man00 / 00025.ls < prev    next >
Encoding:
Text File  |  1995-05-24  |  654 b   |  26 lines
  1. on vvv
  2.   if the mouseCast = the castNum of sprite 14 then
  3.     set a to the castNum of sprite 15
  4.     repeat while the mouseCast = the castNum of sprite 14
  5.       set the castNum of sprite 15 to a + 1
  6.       updateStage()
  7.       ktime(15)
  8.       set the castNum of sprite 15 to a
  9.       updateStage()
  10.       ktime(15)
  11.       set the castNum of sprite 15 to a - 1
  12.       updateStage()
  13.       ktime(15)
  14.       set the castNum of sprite 15 to a - 2
  15.       updateStage()
  16.       ktime(25)
  17.       set the castNum of sprite 15 to a - 1
  18.       updateStage()
  19.       ktime(15)
  20.       set the castNum of sprite 15 to a
  21.       updateStage()
  22.       ktime(15)
  23.     end repeat
  24.   end if
  25. end
  26.