home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / oasquiz.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  1.4 KB  |  60 lines
  1. on enterFrame
  2.   global timeup, level, oldlevel, x, n, vert, counter, qwrong, plost, pwon, pend, notend
  3.   cursor(0)
  4.   set the visible of sprite 22 to 0
  5.   set the visible of sprite 23 to 0
  6.   set the visible of sprite 24 to 0
  7.   set the visible of sprite 3 to 0
  8.   set the visible of sprite 4 to 0
  9.   set the visible of sprite 5 to 0
  10.   updateStage()
  11.   set the volume of sound 1 to 250
  12.   puppetSound("bellrng5")
  13.   set the text of cast "quest" to "Too slow!"
  14.   set the visible of sprite 31 to 1
  15.   set the visible of sprite 30 to 1
  16.   set the visible of sprite 13 to 0
  17.   set the visible of sprite 28 to 0
  18.   set the visible of sprite 29 to 0
  19.   set the visible of sprite 30 to 0
  20.   set qwrong to qwrong + 1.0
  21.   puppetSound("jewharp1")
  22.   updateStage()
  23.   startTimer()
  24.   repeat while soundBusy(1)
  25.     nothing()
  26.   end repeat
  27.   set oldlevel to level
  28.   set level to level - 1
  29.   set leveldiff to oldlevel - level
  30.   if level < 0 then
  31.     set level to 0
  32.   end if
  33.   set the castNum of sprite 12 to level + 275
  34.   updateStage()
  35.   startTimer()
  36.   repeat while the timer < 250
  37.     nothing()
  38.   end repeat
  39.   if level = 0 then
  40.     set plost to 1
  41.     set notend to 0
  42.     go("end")
  43.     exit
  44.   end if
  45.   if level = 22 then
  46.     set pend to 1
  47.     set notend to 0
  48.     go("end")
  49.     exit
  50.   end if
  51.   if (counter = 24) and (level <> 22) then
  52.     set pend to 1
  53.     set notend to 0
  54.     go("end")
  55.     exit
  56.   end if
  57.   set counter to counter + 1
  58.   go("trans")
  59. end
  60.