home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1997 October / NET_DISC.iso / pc / html / issue / smatic / carypepp / option.dir / 00015.ls < prev    next >
Encoding:
Text File  |  1996-11-12  |  1.5 KB  |  69 lines
  1. on startMovie
  2.   global n, o, p, q, r, s, t, u
  3.   puppetTempo(2)
  4.   set n to 0
  5.   set o to 0
  6.   set p to 0
  7.   set q to 0
  8.   set r to 0
  9.   puppetSprite(1, 1)
  10.   puppetSprite(2, 1)
  11.   puppetSprite(3, 1)
  12.   puppetSprite(4, 1)
  13. end
  14.  
  15. on switch
  16.   global n, o, p, q, r, s, t, u, z
  17.   repeat while soundBusy(1) = 1
  18.     set z to z + 0
  19.   end repeat
  20.   if rollOver(1) then
  21.     set o to the castNum of sprite 1
  22.     set n to random(3) + 1
  23.     repeat while o = n
  24.       set n to random(3) + 1
  25.     end repeat
  26.     set the castNum of sprite 1 to n
  27.     puppetSound("pola.aiff")
  28.   end if
  29.   repeat while soundBusy(1) = 1
  30.     set z to z + 0
  31.   end repeat
  32.   if rollOver(2) then
  33.     set q to the castNum of sprite 2
  34.     set p to random(3) + 4
  35.     repeat while q = p
  36.       set p to random(3) + 4
  37.     end repeat
  38.     set the castNum of sprite 2 to p
  39.     puppetSound("aud.aiff")
  40.   end if
  41.   repeat while soundBusy(1) = 1
  42.     set z to z + 0
  43.   end repeat
  44.   if rollOver(3) then
  45.     set s to the castNum of sprite 3
  46.     set r to random(3) + 7
  47.     repeat while r = s
  48.       set r to random(3) + 7
  49.     end repeat
  50.     set the castNum of sprite 3 to r
  51.     puppetSound("te.aiff")
  52.   end if
  53.   repeat while soundBusy(1) = 1
  54.     set z to z + 0
  55.   end repeat
  56.   if rollOver(4) then
  57.     set u to the castNum of sprite 4
  58.     set t to random(2) + 20
  59.     repeat while t = u
  60.       set t to random(2) + 20
  61.     end repeat
  62.     set the castNum of sprite 4 to t
  63.     puppetSound("splain.aiff")
  64.   end if
  65.   repeat while soundBusy(1) = 1
  66.     set z to z + 0
  67.   end repeat
  68. end
  69.