home *** CD-ROM | disk | FTP | other *** search
/ CD PowerPlay 7 / cdpowerplayissue.iso / sources / shared.dxr / 00458.ls < prev    next >
Encoding:
Text File  |  1994-10-17  |  2.3 KB  |  83 lines
  1. on initStuff
  2.   global glossList, gloss_texts, religion, Subject, counter
  3.   if glossList = EMPTY then
  4.     set glossList to getFileContent(gloss_texts & "SofIndex.txt")
  5.   end if
  6.   set counter to counter + 1
  7.   set religion to "NoReligion"
  8.   set Subject to "NoSubject"
  9.   puppetSprite(18, 1)
  10.   puppetSprite(19, 1)
  11.   set sprtHght to (16 + the height of sprite 19) / 2
  12.   set the locV of sprite 19 to sprtHght
  13.   puppetSprite(20, 1)
  14.   puppetSprite(24, 1)
  15.   puppetSprite(23, 1)
  16.   set the locH of sprite 17 to 43
  17.   set the locH of sprite 23 to 800
  18.   set the locH of sprite 24 to 800
  19.   set the immediate of sprite 18 to 1
  20.   set the locH of sprite 19 to 800
  21.   set the locH of sprite 20 to 800
  22.   set the immediate of sprite 20 to 1
  23.   set the stretch of sprite 20 to 1
  24.   set the castNum of sprite 18 to 449
  25.   when mouseUp then cleanUp
  26.   when keyDown then soundSwitch(the keycode)
  27.   put "In the beginning..." into field "store"
  28.   updateStage()
  29. end
  30.  
  31. on cleanup
  32.   global isEXE, mmd_movies, religion, Subject, IdleReligion
  33.   set the locH of sprite 19 to 800
  34.   set the locV of sprite 20 to 800
  35.   put religion & Subject into field "store"
  36.   if (the mouseCast = 449) or (the mouseCast = 450) or (the mouseCast = 451) or (the mouseCast = 511) then
  37.     if (field "store" contains "NoReligion") or (field "store" contains "In the beginning...") or (field "store" contains "bla") or (field "store" contains "NoSubject") then
  38.       exit
  39.     end if
  40.     set IdleReligion to word 1 of field "store"
  41.     checkWhereIam()
  42.     updateStage()
  43.     sound fadeOut 1, 60
  44.     sound fadeOut 2, 60
  45.     if isEXE = 1 then
  46.       play movie mmd_movies & field "store" & ".dxr"
  47.     else
  48.       play movie mmd_movies & field "store" & ".dir"
  49.     end if
  50.   end if
  51. end
  52.  
  53. on reallyQuit
  54.   global isEXE, mmd_movies, userColourDepth
  55.   if the machineType < 256 then
  56.     set the colorDepth to userColourDepth
  57.   else
  58.   end if
  59.   closeXLib()
  60.   if isEXE = 1 then
  61.     go(1, mmd_movies & "Finish.dxr")
  62.   else
  63.     go(1, mmd_movies & "Finish.dir")
  64.   end if
  65. end
  66.  
  67. on soundSwitch theKey
  68.   global OnorOff
  69.   if the optionDown then
  70.     if theKey = 49 then
  71.       set the soundEnabled to not (the soundEnabled)
  72.       set OnorOff to the soundEnabled
  73.     end if
  74.   end if
  75. end
  76.  
  77. on soundCut
  78.   sound fadeOut 1, 60
  79.   sound fadeOut 2, 60
  80.   set the volume of sound 1 to 0
  81.   set the volume of sound 2 to 0
  82. end
  83.