home *** CD-ROM | disk | FTP | other *** search
/ LAUNCH 7 / LAUNCH.BIN / pc / cypher / 1400.dir / 00027_Script_27 < prev    next >
Text File  |  1996-04-15  |  3KB  |  167 lines
  1. on startMovie
  2.   global mainVolume, dossierSwitch, gFileToSave, opensafe
  3.   
  4.   puppetSound 0
  5.   sound close 1
  6.   sound close 2
  7.   
  8.   set the volume of sound 1 to 255
  9.   set the volume of sound 2 to 255
  10.   
  11.   set the soundLevel to mainVolume
  12.   
  13.   put "cy1400-1.txt" into gFileToSave
  14.   
  15.   DisplayDossierIcon 20
  16.   
  17.   puppetSprite 12,TRUE
  18.   set the visible of sprite 12 to FALSE
  19.   puppetSprite 12,FALSE
  20.   
  21.   if opensafe = 1 then
  22.     go to "open safe"
  23.   end if  
  24. end
  25.  
  26. on stopMovie
  27.   set the volume of sound 1 to 255
  28.   set the volume of sound 2 to 255
  29.   
  30.   puppetSound 0
  31.   sound close 1
  32.   sound close 2
  33. end
  34.  
  35. on DisplayDossierIcon channel
  36.   global dossierSwitch
  37.   
  38.   puppetSprite channel,TRUE
  39.   if DossierSwitch then
  40.     set the visible of sprite channel to TRUE
  41.   else
  42.     set the visible of sprite channel to FALSE
  43.   end if
  44.   puppetSprite channel,FALSE  
  45. end
  46.  
  47. on PageTurnLeft
  48.   puppetSound "pageturn"
  49.   puppetTransition 2, 0, 6, TRUE
  50.   go to marker(1)
  51. end
  52.  
  53. on PageTurnRight
  54.   puppetSound "pageturn"
  55.   puppetTransition 1, 0, 6, TRUE
  56.   go to marker(-1)
  57. end
  58.  
  59.  
  60. on ReadFile fName
  61.   global gFilename, gStream, gText
  62.   
  63.   put fName into gFilename
  64.   
  65.   if objectP(gStream) then
  66.     gStream(mDispose)
  67.   end if
  68.   
  69.   if (the machineType = 256) then
  70.     openXLib "fileIO"
  71.   end if
  72.   
  73.   put  fileIO(mNew,"read",gFilename) into gStream
  74.   
  75.   if objectP(gStream) then
  76.     put gStream(mReadFile) into gText
  77.     put gText
  78.     gStream(mDispose)
  79.   end if
  80.   
  81.   if (the machineType = 256) then
  82.     closeXLib "fileIO"
  83.   end if  
  84. end
  85.  
  86. on WriteFile fName
  87.   global gFilename, gStream, gText
  88.   
  89.   put fName into gFilename
  90.   
  91.   if objectP(gStream) then
  92.     gStream(mDispose)
  93.   end if
  94.   
  95.   if (the machineType = 256) then    
  96.     openXLib "fileIO"
  97.   end if
  98.   
  99.   put  fileIO(mNew,"write",gFilename) into gStream
  100.   
  101.   if objectP(gStream) then
  102.     gStream(mWriteString, gText)
  103.     gStream(mDispose)
  104.   end if
  105.   
  106.   if (the machineType = 256) then
  107.     closeXLib "fileIO"
  108.   end if  
  109. end
  110.  
  111. on QueryReadFile fName
  112.   global gFilename, gStream, gText
  113.   
  114.   put fName into gFilename
  115.   
  116.   if objectP(gStream) then
  117.     gStream(mDispose)
  118.   end if
  119.   
  120.   if (the machineType =256) then
  121.     openXLib "fileIO"
  122.   end if
  123.   
  124.   put  fileIO(mNew,"?read",gFilename) into gStream
  125.   
  126.   if objectP(gStream) then
  127.     put gStream(mReadFile) into gText
  128.     gStream(mDispose)
  129.   end if
  130.   
  131.   if (the machineType = 256) then
  132.     closeXLib "fileIO"
  133.   end if  
  134. end
  135.  
  136. on QueryWriteFile fName
  137.   global gFilename, gStream, gText
  138.   
  139.   put fName into gFilename
  140.   
  141.   if objectP(gStream) then
  142.     gStream(mDispose)
  143.   end if
  144.   
  145.   if (the machineType = 256) then
  146.     openXLib "fileIO"
  147.   end if
  148.   
  149.   put  fileIO(mNew,"?write",gFilename) into gStream
  150.   
  151.   if objectP(gStream) then
  152.     gStream(mWriteString, gText)
  153.     gStream(mDispose)
  154.   end if
  155.   
  156.   if (the machineType = 256) then
  157.     closeXLib "fileIO"
  158.   end if  
  159. end
  160.  
  161. on MoveFile fName
  162.   global gText
  163.   put the pathname & fName
  164.   ReadFile the pathname & fName
  165.   put gText
  166.   QueryWriteFile fName
  167. end