home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / faewaug.dxr / 00013_FAEImplementOption.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  9.6 KB  |  204 lines
  1. on FAEImplementOption x
  2.   global FAEOptionList, FAEYesOrCancel, FAEInstall, FAESizeList, GTSWIN95, FAENameList, FAEInstallSprite, FAEChoosen, FAEBatchInstallList, FAEBatchPlayList, FAEBatchBothList, FAELiar
  3.   if FAEInstall = 0 then
  4.     if x = 3 then
  5.       if getAt(getAt(FAESizeList, FAEChoosen), 2) = 0 then
  6.         put "Installing" && getAt(FAENameList, FAEChoosen) && "on to your HD  in order to play it will occupy" && getAt(getAt(FAESizeList, FAEChoosen), 1) & "Mb of disk space.It will be installed to " & getAt(getAt(FAESizeList, FAEChoosen), 3) & RETURN & "..........  INSTALL  ............ CANCEL ........." into field 40
  7.       else
  8.         if FAEChoosen = 3 then
  9.           put "Installing an icon for " && getAt(FAENameList, FAEChoosen) && "on your HD  will occupy" && getAt(getAt(FAESizeList, FAEChoosen), 1) & "Mb of disk space. It will be installed to " & getAt(getAt(FAESizeList, FAEChoosen), 3) & ". To play, leave the CD in the drive and click on the icon AFTER CLOSING THIS COVER DISK PROGRAMME." & RETURN & "..........  INSTALL  ............ CANCEL ........." into field 40
  10.         else
  11.           if FAEChoosen = 5 then
  12.             put "Installing an icon on your HD from which you can play" && getAt(FAENameList, FAEChoosen) && ",  will occupy" && getAt(getAt(FAESizeList, FAEChoosen), 1) & "Mb of disk space. It will be installed to " & getAt(getAt(FAESizeList, FAEChoosen), 3) & RETURN & "..........  INSTALL  ............ CANCEL ........." into field 40
  13.           else
  14.             put "Installing the files on your HD to enable you to play" && getAt(FAENameList, FAEChoosen) && "later, will occupy" && getAt(getAt(FAESizeList, FAEChoosen), 1) & "Mb of disk space. It will be installed to " & getAt(getAt(FAESizeList, FAEChoosen), 3) & RETURN & "..........  INSTALL  ............ CANCEL ........." into field 40
  15.           end if
  16.         end if
  17.       end if
  18.     end if
  19.     if x = 4 then
  20.       if (GTSWIN95 = 1) and (getAt(getAt(FAESizeList, FAEChoosen), 4) = 0) and (getAt(getAt(FAESizeList, FAEChoosen), 5) <> 4) then
  21.         if (getAt(getAt(FAESizeList, FAEChoosen), 5) = 0) or (getAt(getAt(FAESizeList, FAEChoosen), 5) = 3) then
  22.           if getAt(getAt(FAESizeList, FAEChoosen), 2) = 0 then
  23.             put "In order to play" && getAt(FAENameList, FAEChoosen) && ",it must first be Installed to your HD . This will occupy" && getAt(getAt(FAESizeList, FAEChoosen), 1) & "Mb of disk space and will be installed to " & getAt(getAt(FAESizeList, FAEChoosen), 3) & RETURN & "..........  INSTALL  ............ CANCEL ........." into field 40
  24.           else
  25.             put "To play" && getAt(FAENameList, FAEChoosen) && "from the CD Rom, some files must be installed on your HD which will occupy" && getAt(getAt(FAESizeList, FAEChoosen), 1) & "Mb of disk space" & RETURN & "and will be installed to " & getAt(getAt(FAESizeList, FAEChoosen), 3) & RETURN & "..........  INSTALL  ............ CANCEL ........." into field 40
  26.           end if
  27.           setAt(getAt(FAEOptionList, x), 6, 40)
  28.         else
  29.           setAt(getAt(FAEOptionList, x), 6, 39)
  30.         end if
  31.       else
  32.         setAt(getAt(FAEOptionList, x), 6, 39)
  33.       end if
  34.     end if
  35.     set ThisList to getAt(FAEOptionList, x)
  36.     set the castNum of sprite getAt(ThisList, 5) to getAt(ThisList, 6)
  37.     set the locH of sprite getAt(ThisList, 5) to getAt(ThisList, 7)
  38.     set the locV of sprite getAt(ThisList, 5) to getAt(ThisList, 8)
  39.     set the ink of sprite getAt(ThisList, 5) to 39
  40.     updateStage()
  41.     if x = 2 then
  42.       FAEPreviewGame()
  43.     else
  44.       repeat while 1
  45.         if x = 1 then
  46.           wait(1)
  47.           FAEGameStop()
  48.           exit repeat
  49.         end if
  50.         if x = 4 then
  51.           if (getAt(getAt(FAESizeList, FAEChoosen), 4) = 1) or (getAt(getAt(FAESizeList, FAEChoosen), 5) = 1) or (getAt(getAt(FAESizeList, FAEChoosen), 5) = 4) then
  52.             wait(1)
  53.             put "play only"
  54.             if the machineType > 200 then
  55.               set TempName to getAt(FAEBatchPlayList, FAEChoosen)
  56.               if TempName <> "0" then
  57.                 open(the pathName & TempName)
  58.               end if
  59.             end if
  60.             FAEGameStop()
  61.             exit repeat
  62.           else
  63.             set FAEInstall to 1
  64.             if the mouseUp then
  65.               set FAEMouseUP to 1
  66.             else
  67.               set FAEMouseUP to 0
  68.             end if
  69.             if (FAEMouseUP = 1) and (the mouseCast = 40) then
  70.               set FAEMouseUP to 0
  71.               repeat while 1
  72.                 if word the mouseWord of field 40 = "INSTALL" then
  73.                   set GTSThisword to the mouseWord
  74.                   set the foreColor of word GTSThisword of field 40 to 0
  75.                   repeat while word the mouseWord of field 40 = "INSTALL"
  76.                     if the mouseDown then
  77.                       set FAEYesOrCancel to 1
  78.                       set the castNum of sprite getAt(ThisList, 5) to 38
  79.                       set the locH of sprite getAt(ThisList, 5) to 200
  80.                       set the locV of sprite getAt(ThisList, 5) to 200
  81.                       set the ink of sprite getAt(ThisList, 5) to 37
  82.                       cursor(4)
  83.                       updateStage()
  84.                     end if
  85.                   end repeat
  86.                   set the foreColor of word GTSThisword of field 40 to 255
  87.                 end if
  88.                 if word the mouseWord of field 40 = "CANCEL" then
  89.                   set GTSThisword to the mouseWord
  90.                   set the foreColor of word GTSThisword of field 40 to 0
  91.                   repeat while word the mouseWord of field 40 = "CANCEL"
  92.                     if the mouseDown then
  93.                       set FAEYesOrCancel to 2
  94.                       set the locH of sprite getAt(ThisList, 5) to 2000
  95.                       updateStage()
  96.                     end if
  97.                   end repeat
  98.                   set the foreColor of word GTSThisword of field 40 to 255
  99.                 end if
  100.                 if FAEYesOrCancel > 0 then
  101.                   exit repeat
  102.                   next repeat
  103.                 end if
  104.                 if (the mouseCast <> 40) and the mouseDown then
  105.                   beep()
  106.                 end if
  107.               end repeat
  108.               if FAEYesOrCancel = 1 then
  109.                 set FAEYesOrCancel to 0
  110.                 put "both install then play"
  111.                 if the machineType > 200 then
  112.                   set TempName to getAt(FAEBatchBothList, FAEChoosen)
  113.                   if TempName <> "0" then
  114.                     open(the pathName & TempName)
  115.                   end if
  116.                 end if
  117.                 cursor(-1)
  118.                 set the locH of sprite getAt(ThisList, 5) to 2000
  119.                 setAt(getAt(FAESizeList, FAEChoosen), 5, 1)
  120.                 updateStage()
  121.                 FAEGameStop()
  122.                 exit repeat
  123.               end if
  124.               if FAEYesOrCancel = 2 then
  125.                 set FAEYesOrCancel to 0
  126.                 exit repeat
  127.               end if
  128.             end if
  129.           end if
  130.         end if
  131.         if x = 3 then
  132.           set FAEInstall to 1
  133.           if the mouseUp then
  134.             set FAEMouseUP to 1
  135.           else
  136.             set FAEMouseUP to 0
  137.           end if
  138.           if (FAEMouseUP = 1) and (the mouseCast = 40) then
  139.             set FAEMouseUP to 0
  140.             repeat while 1
  141.               if word the mouseWord of field 40 = "INSTALL" then
  142.                 set GTSThisword to the mouseWord
  143.                 set the foreColor of word GTSThisword of field 40 to 0
  144.                 repeat while word the mouseWord of field 40 = "INSTALL"
  145.                   if the mouseDown then
  146.                     set FAEYesOrCancel to 1
  147.                     set the castNum of sprite getAt(ThisList, 5) to 38
  148.                     set the locH of sprite getAt(ThisList, 5) to 200
  149.                     set the locV of sprite getAt(ThisList, 5) to 200
  150.                     set the ink of sprite getAt(ThisList, 5) to 37
  151.                     cursor(4)
  152.                     updateStage()
  153.                   end if
  154.                 end repeat
  155.                 set the foreColor of word GTSThisword of field 40 to 255
  156.               end if
  157.               if word the mouseWord of field 40 = "CANCEL" then
  158.                 set GTSThisword to the mouseWord
  159.                 set the foreColor of word GTSThisword of field 40 to 0
  160.                 repeat while word the mouseWord of field 40 = "CANCEL"
  161.                   if the mouseDown then
  162.                     set FAEYesOrCancel to 2
  163.                     set the locH of sprite getAt(ThisList, 5) to 2000
  164.                     updateStage()
  165.                   end if
  166.                 end repeat
  167.                 set the foreColor of word GTSThisword of field 40 to 255
  168.               end if
  169.               if FAEYesOrCancel > 0 then
  170.                 exit repeat
  171.                 next repeat
  172.               end if
  173.               if (the mouseCast <> 40) and the mouseDown then
  174.                 beep()
  175.               end if
  176.             end repeat
  177.             if FAEYesOrCancel = 1 then
  178.               set FAEYesOrCancel to 0
  179.               put "install only"
  180.               if the machineType > 200 then
  181.                 set TempName to getAt(FAEBatchInstallList, FAEChoosen)
  182.                 if TempName <> "0" then
  183.                   open(the pathName & TempName)
  184.                 end if
  185.               end if
  186.               cursor(-1)
  187.               set the locH of sprite getAt(ThisList, 5) to 2000
  188.               set the locH of sprite FAEInstallSprite to 2000
  189.               set the locH of sprite 22 to 2000
  190.               setAt(getAt(FAEOptionList, 3), 4, 5)
  191.               updateStage()
  192.               exit repeat
  193.             end if
  194.             if FAEYesOrCancel = 2 then
  195.               set FAEYesOrCancel to 0
  196.               exit repeat
  197.             end if
  198.           end if
  199.         end if
  200.       end repeat
  201.     end if
  202.   end if
  203. end
  204.