home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / CYRIXO.DXR / 00195_CROpenBox.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.4 KB  |  67 lines
  1. on CROpenBox
  2.   global CRSelect, LineHFlag
  3.   set the castNum of sprite 4 to the number of member "CrgreenDot"
  4.   set the loc of sprite 4 to point(316, 364)
  5.   updateStage()
  6.   repeat while 1
  7.     if the castNum of sprite 4 = the number of member "CrblueDot" then
  8.       set the castNum of sprite 4 to the number of member "CrgreenDot"
  9.     else
  10.       set the castNum of sprite 4 to the castNum of sprite 4 + 1
  11.     end if
  12.     AdWait(0.10000000000000001)
  13.     updateStage()
  14.     if (the mouseH > 302) and (the mouseH < 326) and (the mouseV > 356) and (the mouseV < 378) and the mouseDown then
  15.       repeat while the mouseDown
  16.       end repeat
  17.       set CRSelect to 1
  18.       set the castNum of sprite 1 to the number of member "CrOpenOne"
  19.       set the castNum of sprite 4 to the number of member "CrgreenDot"
  20.       updateStage()
  21.       puppetSound(1, "dooropen")
  22.       repeat with f = 1 to 5
  23.         set the castNum of sprite 1 to the castNum of sprite 1 + 1
  24.         updateStage()
  25.       end repeat
  26.       set the castNum of sprite 47 to the number of member "CrLogodarkBox"
  27.       set the loc of sprite 47 to point(410, 374)
  28.       puppetSound("Crmag.aif")
  29.       updateStage()
  30.       repeat while soundBusy(1)
  31.       end repeat
  32.       AdWait(1)
  33.       set the castNum of sprite 1 to the castNum of sprite 1 + 1
  34.       set the castNum of sprite 47 to the number of member "CrLogoTwo"
  35.       set the castNum of sprite 42 to the castNum of sprite 1
  36.       set the loc of sprite 42 to the loc of sprite 1
  37.       repeat with f = 6 to 12
  38.         set the locH of sprite f to 2000
  39.       end repeat
  40.       updateStage()
  41.       set the castNum of sprite 43 to the number of member "CRContentOne"
  42.       set the loc of sprite 43 to point(200, 200)
  43.       set the ink of sprite 43 to 36
  44.       set the castNum of sprite 44 to the number of member "CRContentTwo"
  45.       set the loc of sprite 44 to point(200, 200)
  46.       set the ink of sprite 44 to 36
  47.       set the castNum of sprite 45 to the number of member "CRContentThree"
  48.       set the loc of sprite 45 to point(202, 317)
  49.       set the ink of sprite 45 to 36
  50.       updateStage()
  51.       exit repeat
  52.     end if
  53.     if rollOver(48) and the mouseDown then
  54.       repeat with d = 1 to 48
  55.         set the locH of sprite d to 2000
  56.         puppetSprite(d, 0)
  57.       end repeat
  58.       updateStage()
  59.       set the stageColor to 255
  60.       updateStage()
  61.       play done
  62.       exit repeat
  63.     end if
  64.   end repeat
  65.   set LineHFlag to 5
  66. end
  67.