home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1997 October / NET_DISC.iso / pc / html / issue / smatic / carypepp / storm.dir / 00019.ls < prev    next >
Encoding:
Text File  |  1997-02-15  |  469 b   |  33 lines
  1. on startMovie
  2.   preLoad()
  3.   puppetTempo(5)
  4. end
  5.  
  6. on change
  7.   global x
  8.   set x to random(10) + 8
  9.   if rollOver(2) then
  10.     set the castNum of sprite 2 to x
  11.     puppetSound("ah")
  12.   end if
  13. end
  14.  
  15. on sounds
  16.   global y
  17.   set y to random(4)
  18.   if y = 1 then
  19.     puppetSound("h1")
  20.   end if
  21.   if y = 2 then
  22.     puppetSound("h2")
  23.   end if
  24.   if y = 3 then
  25.     puppetSound("h3")
  26.   end if
  27.   if y = 4 then
  28.     puppetSound("h4")
  29.   end if
  30.   set the castNum of sprite 2 to 28
  31.   go(14)
  32. end
  33.