home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00001.ls next >
Encoding:
Text File  |  1997-06-27  |  3.8 KB  |  70 lines

  1. on startMovie
  2.   global IntLocV, IntHighLightSprite, SecTLeave, DriveLtr, SLIdatabaselist, SLIchosenprogramdetails, SLImainmenuhilitenumber, SLImainmenutextnumber, SLIsunmenuhilitenumber, SLImainmenubacknumber, SLIsubmenubacknumber, SLIsubmenuhilitenumber, SLIsubmenutextnumber, SLIactiveprogramlist, SLIBackArrowNumber, SLIForwardArrowNumber, SLIsubmenubackshadownumber, SLIActionButton, SLICopyButton, SLItextboxframe, SLIInfoTabRect, SLIProcTabRect, SLIExtraTabRect, SLIpicturebox, SLITextBoxContents, SLITextFilesLoaded, SLIplatformcheckbox, SLIRunButtonList, SLIInstallButtonList, SLIActionList, SLIFullTextOptionBox, SLITextLoadOptionRect, SLIFullTextTick, SLIPictureBoxNumber, SLIAddressBoxNumber, SLIProductBoxNumber, SLIPlatformCheck01, SLIPlatformCheck02, SLIPlatformCheck03, SLIPlatformCheck04, SLIInstallButtonTextBox, SLIRunButtonTextBox, SLICopyWIthInstallTextBox, SLICopyWIthRunTextBox, SLIExecuteTextBox
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 0)
  5.   end repeat
  6.   updateStage()
  7.   repeat with t = 1 to 48
  8.     puppetSprite(t, 1)
  9.   end repeat
  10.   updateStage()
  11.   set the member of sprite 1 to member "SLIBackNoNavtext"
  12.   updateStage()
  13.   if the machineType > 200 then
  14.     openXLib(the pathName & "fileio")
  15.   end if
  16.   set SLIInstallButtonTextBox to "You have chosen to INSTALL this program. This will copy and decompress files to your hard disk and allow you to run the program. "
  17.   set SLIRunButtonTextBox to "This program will run straight from the CD without  copying any files to your hard disk. If you prefer to run the program from your hard disk use the COPY button to copy the files to your system first."
  18.   set SLICopyWIthRunTextBox to "You have chosen to COPY all files for this program. The filesthat will be written to your hard disk will allow the program to run with no further installation."
  19.   set SLICopyWIthInstallTextBox to "You have chosen to COPY installation files for this program.You will still need to run the installation program from your hard disk before using the program."
  20.   set SLIInfoTabRect to rect(169, 220, 322, 242)
  21.   set SLIProcTabRect to rect(323, 220, 475, 242)
  22.   set SLIExtraTabRect to rect(476, 220, 625, 242)
  23.   set SLITextLoadOptionRect to rect(131, 318, 145, 331)
  24.   set SLIRunButtonList to list("Bo_run", "Ro_run", "Ri_run")
  25.   set SLIInstallButtonList to list("Bo_inst", "Ro_inst", "Ri_inst")
  26.   set SLITextFilesLoaded to 0
  27.   set SLIactiveprogramlist to list(1, 1)
  28.   set SLIProductBoxNumber to 8
  29.   set SLIAddressBoxNumber to 9
  30.   set SLIPictureBoxNumber to 10
  31.   set SLIFullTextOptionBox to 19
  32.   set SLIFullTextTick to 20
  33.   set SLItextboxframe to 21
  34.   set SLIplatformcheckbox to 22
  35.   set SLIPlatformCheck01 to 23
  36.   set SLIPlatformCheck02 to 24
  37.   set SLIPlatformCheck03 to 25
  38.   set SLIPlatformCheck04 to 26
  39.   set SLIpicturebox to 27
  40.   set SLITextBoxContents to 28
  41.   set SLIActionButton to 29
  42.   set SLICopyButton to 30
  43.   set SLIBackArrowNumber to 32
  44.   set SLIForwardArrowNumber to 33
  45.   set SLImainmenubacknumber to 34
  46.   set SLImainmenuhilitenumber to 35
  47.   set SLImainmenutextnumber to 36
  48.   set SLIsubmenubackshadownumber to 37
  49.   set SLIsubmenubacknumber to 38
  50.   set SLIsubmenuhilitenumber to 39
  51.   set SLIsubmenutextnumber to 40
  52.   set SLIExecuteTextBox to 41
  53.   set SLIActionList to SLIRunButtonList
  54.   set the member of sprite 2 to member "Slloader"
  55.   set the ink of sprite 2 to 36
  56.   set the loc of sprite 2 to point(375, 240)
  57.   updateStage()
  58.   fillslidatabaselist()
  59.   installmenuitems()
  60.   set the member of sprite 2 to member "slidot"
  61.   set the loc of sprite 2 to point(2000, 2000)
  62.   setupstage()
  63.   cursor(200)
  64.   set thismenutitle to string(getPropAt(SLIdatabaselist, getAt(SLIactiveprogramlist, 2)))
  65.   set chooseprogcommand to "set SLIchosenprogramdetails =  the prog" & getAt(SLIactiveprogramlist, 1) & " of the " & thismenutitle & " of SLIdatabaselist"
  66.   do(chooseprogcommand)
  67.   refreshprogramdetails()
  68.   set the keyDownScript to "keyscript"
  69. end
  70.