home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / Democd3 / oasquiz.dxr / 00128.ls < prev    next >
Encoding:
Text File  |  1997-06-04  |  3.1 KB  |  99 lines

  1. on mouseDown
  2.   global diff, timeoption, timerate, helpon
  3.   puppetSound("click")
  4.   if (timeoption = 0) and (helpon = 0) then
  5.     if the keyCode = 18 then
  6.       set diff to 3
  7.     else
  8.       if the keyCode <> 18 then
  9.         set the text of cast "quest" to "Access Denied! You didn't enter the correct password! Complete the medium level to get the password"
  10.         startTimer()
  11.         repeat while the timer < 200
  12.           nothing()
  13.         end repeat
  14.         go(1, "oasquiz")
  15.         exit
  16.       end if
  17.     end if
  18.   end if
  19.   if timeoption = 1 then
  20.     set timerate to 4
  21.   end if
  22.   set the visible of sprite 13 to 0
  23.   set the visible of sprite 28 to 0
  24.   set the visible of sprite 29 to 0
  25.   set the visible of sprite 30 to 0
  26.   set the locH of sprite 7 to the locH of sprite 7 + 2
  27.   set the locV of sprite 7 to the locV of sprite 7 + 2
  28.   set the locH of sprite 24 to the locH of sprite 24 + 2
  29.   set the locV of sprite 24 to the locV of sprite 24 + 2
  30.   startTimer()
  31.   repeat while the timer < 15
  32.     nothing()
  33.   end repeat
  34.   updateStage()
  35.   set the locH of sprite 7 to the locH of sprite 7 - 2
  36.   set the locV of sprite 7 to the locV of sprite 7 - 2
  37.   set the locH of sprite 24 to the locH of sprite 24 - 2
  38.   set the locV of sprite 24 to the locV of sprite 24 - 2
  39.   updateStage()
  40.   if helpon = 1 then
  41.     set the visible of sprite 22 to 0
  42.     set the visible of sprite 23 to 0
  43.     set the visible of sprite 24 to 0
  44.     set the visible of sprite 14 to 1
  45.     set the visible of sprite 10 to 1
  46.     set the visible of sprite 8 to 1
  47.     set the visible of sprite 5 to 0
  48.     set the visible of sprite 6 to 0
  49.     set the visible of sprite 7 to 0
  50.     set the visible of sprite 9 to 0
  51.     set the visible of sprite 21 to 1
  52.     set the visible of sprite 25 to 1
  53.     updateStage()
  54.     set the text of cast "quest" to "The aim of the quiz is to get to a perfect fan rating on the most difficult level.  Get a question right and you move up one, get a question wrong and you move down from one to maybe the bottom.  There's a cheat mode on the easy level but you'll never find it!"
  55.     repeat while the mouseDown = 0
  56.       repeat with z = 370 down to 70
  57.         if the mouseDown then
  58.           set the visible of sprite 10 to 0
  59.           set the visible of sprite 14 to 0
  60.           updateStage()
  61.           go(1, "oasquiz")
  62.           exit
  63.         end if
  64.         set the locV of sprite 14 to z
  65.         updateStage()
  66.       end repeat
  67.       repeat with z = 70 to 370
  68.         set the locV of sprite 14 to z
  69.         if the mouseDown then
  70.           set the visible of sprite 10 to 0
  71.           set the visible of sprite 14 to 0
  72.           updateStage()
  73.           go(1, "oasquiz")
  74.           exit
  75.         end if
  76.         updateStage()
  77.       end repeat
  78.     end repeat
  79.     set the visible of sprite 9 to 1
  80.     set the visible of sprite 8 to 0
  81.     set the visible of sprite 19 to 0
  82.     updateStage()
  83.   end if
  84.   if (timeoption = 0) and (helpon = 0) then
  85.     set the visible of sprite 22 to 0
  86.     set the visible of sprite 23 to 0
  87.     set the visible of sprite 24 to 0
  88.     go("s")
  89.   end if
  90.   if timeoption = 1 then
  91.     set timeoption to 0
  92.     go(the frame)
  93.   end if
  94.   if helpon = 1 then
  95.     set helpon to 0
  96.     go(the frame)
  97.   end if
  98. end
  99.