home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1995 May / CdJoystickN°2.iso / jewels / start.dir / 00001_Script_1 next >
Text File  |  1994-10-19  |  2KB  |  83 lines
  1. on startMovie
  2.   
  3.   global screenRect,cipherPath,jewel, k
  4.   
  5.   InitVars
  6.   
  7.   set the exitLock to TRUE
  8.   
  9.   put findScrnSize() into screenRect
  10.   
  11.   set the preLoadRAM to 1024000
  12.   
  13.   put 0 into jewel
  14.   
  15.   -- store the pathName to the Cipher folder
  16.   put the pathName into cipherPath
  17.   
  18.   -- determine file separator marks based on IBM or Macintosh platforms
  19.   if (the machineType = 256) then set k = "\"
  20.   else set k = ":"
  21.   
  22.   if the colorDepth > 16 then
  23.     set the colorDepth to 16
  24.     -- else if the colorDepth < 8 then
  25.     --  set the colorDepth to 8
  26.   end if
  27.   
  28. end startMovie
  29.  
  30.  
  31. on InitVars
  32.   global screenRect, cipherPath, puzzle, gemStatus, facing, Hex, animName, Jewel, oracleSpeakData,┬
  33.          difficultyLevel,music, k
  34.   
  35.   
  36.   -- initialize the locals
  37.   put 0 into puzzle
  38.   put 0 into screenRect
  39.   put 0 into cipherPath
  40.   put 0 into gemStatus
  41.   put 0 into facing
  42.   put 0 into Hex
  43.   put 0 into animName
  44.   put 0 into Jewel
  45.   put 0 into oracleSpeakData
  46.   put 0 into difficultyLevel
  47.   put 0 into music
  48.   put 0 into k
  49.   
  50. end
  51.  
  52. on jumpFile
  53.   
  54.   global screenRect,cipherPath,k
  55.   
  56.   -- locate the file via a path
  57.   put cipherPath & "CIPHER" & k & "STAGE" & k & "STAGE" into myPathName
  58.   go movie myPathName
  59.   
  60. end
  61.  
  62.  
  63. on findScrnSize
  64.   
  65.   --
  66.   --  This handler establishes the users screen size from the stage
  67.   --
  68.   
  69.   put the stageTop * 2 + the stageBottom - the stageTop into Hight
  70.   put (the stageLeft + the stageLeft / 38) * 2 + the stageRight - the stageLeft into Width
  71.   return (rect(0,0,Width,Hight))
  72.   
  73. end
  74.  
  75. on fadeWellDwn
  76.   --
  77. end
  78.  
  79.  
  80. on clickStop
  81.   --
  82. end
  83.