home *** CD-ROM | disk | FTP | other *** search
/ Digitální fotografie a video / Digitalni-fotografie-a-video-covermount.bin / Aplikace / Servis / Katalog / Katalog.dxr / 00050.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  999 b   |  32 lines
  1. on pointer total, loopSound
  2.   global angle
  3.   set the visible of sprite 4 to 0
  4.   if stringp(loopSound) then
  5.     puppetSound(loopSound)
  6.   end if
  7.   repeat while the stillDown
  8.     set vert to the mouseV - the locV of sprite the clickOn
  9.     set horz to the mouseH - the locH of sprite the clickOn
  10.     set angle to 3.14159260000000007 / 4
  11.     set angle to atan(horz / (0.001 - vert)) + angle
  12.     set angle to integer((angle * (total - 1) / 3.14159260000000007 * 2.0) + 1)
  13.     if angle > total then
  14.       set angle to total
  15.     end if
  16.     if angle < 1 then
  17.       set angle to 1
  18.     end if
  19.     if vert < 0 then
  20.       set snap to word 1 of the name of cast the castNum of sprite the clickOn
  21.       put " " after snap
  22.       put angle after snap
  23.       set the castNum of sprite the clickOn to the number of member snap
  24.       set the volume of sound 3 to integer(275 / (total - 1) * (angle - 1))
  25.       updateStage()
  26.     end if
  27.   end repeat
  28.   puppetSound(0)
  29.   set the visible of sprite 4 to 1
  30.   updateStage()
  31. end
  32.