What PC? 1997 December/WPCDEC97.ISO/DXRS/FAEWDEC.DXR/00013_FAEImplementOption.ls

Text File | 1997-10-14 | 4.8 KB | 133 lines

on FAEImplementOption x
  global FAEOptionList, FAEYesOrCancel, GTSWIN95, FAEInstallSprite, FAEChoosen, FAE95List, FAEButtonsSprite, FAEExplainSprite, FAEPlaySprite, FAEPlayInstallList, DriveLtr
  set ThisList to getAt(FAEOptionList, x)
  if x = 3 then
    if GTSWIN95 = 1 then
      set WhichScenario to getAt(getAt(FAE95List, FAEChoosen), 1)
    else
      set WhichScenario to getAt(getAt(FAE311List, FAEChoosen), 1)
    end if
    if WhichScenario = 2 then
      if GTSWIN95 = 1 then
        set WhichTextBox to getAt(getAt(FAE95List, FAEChoosen), 2)
      else
        set WhichTextBox to getAt(getAt(FAE311List, FAEChoosen), 2)
      end if
      set the castNum of sprite FAEExplainSprite to WhichTextBox
      set the locH of sprite FAEExplainSprite to 224
      set the locV of sprite FAEExplainSprite to 283
      set the ink of sprite FAEExplainSprite to 0
    else
      set the castNum of sprite getAt(ThisList, 5) to getAt(ThisList, 6)
      set the locH of sprite getAt(ThisList, 5) to getAt(ThisList, 7)
      set the locV of sprite getAt(ThisList, 5) to getAt(ThisList, 8)
      set the ink of sprite getAt(ThisList, 5) to 39
    end if
  else
    set the castNum of sprite getAt(ThisList, 5) to getAt(ThisList, 6)
    set the locH of sprite getAt(ThisList, 5) to getAt(ThisList, 7)
    set the locV of sprite getAt(ThisList, 5) to getAt(ThisList, 8)
    set the ink of sprite getAt(ThisList, 5) to 39
  end if
  updateStage()
  if x = 2 then
    wait(1)
    FAEPreviewGame()
  end if
  if x = 4 then
    if the machineType > 200 then
      set TempName to getAt(FAEPlayInstallList, FAEChoosen)
      if TempName <> "0" then
        open(DriveLtr & TempName)
      end if
    else
      put "play"
    end if
    set the locH of sprite 23 to 2000
    set the locH of sprite FAEPlaySprite to 2000
    setAt(getAt(FAEOptionList, 4), 4, 5)
    wait(1)
    set the locH of sprite getAt(ThisList, 5) to 2000
    updateStage()
  end if
  if x = 1 then
    FAEGameStop()
  end if
  if x = 3 then
    repeat while the mouseDown
    end repeat
    repeat while 1
      if WhichScenario = 2 then
        if the mouseCast = WhichTextBox then
          repeat while 1
            if word the mouseWord of field WhichTextBox = "INSTALL" then
              set GTSThisword to the mouseWord
              set the foreColor of word GTSThisword of field WhichTextBox to 0
              repeat while word the mouseWord of field WhichTextBox = "INSTALL"
                if the mouseDown then
                  set FAEYesOrCancel to 1
                  set the castNum of sprite FAEExplainSprite to 52
                  set the locH of sprite FAEExplainSprite to 2000
                  set the castNum of sprite getAt(ThisList, 5) to 38
                  set the locH of sprite getAt(ThisList, 5) to 200
                  set the locV of sprite getAt(ThisList, 5) to 200
                  set the ink of sprite getAt(ThisList, 5) to 39
                  cursor(4)
                  updateStage()
                  exit repeat
                end if
              end repeat
              set the foreColor of word GTSThisword of field WhichTextBox to 255
            end if
            if word the mouseWord of field WhichTextBox = "CANCEL" then
              set GTSThisword to the mouseWord
              set the foreColor of word GTSThisword of field WhichTextBox to 0
              repeat while word the mouseWord of field WhichTextBox = "CANCEL"
                if the mouseDown then
                  set FAEYesOrCancel to 2
                  set the castNum of sprite FAEExplainSprite to 52
                  set the locH of sprite FAEExplainSprite to 2000
                  updateStage()
                  exit repeat
                end if
              end repeat
              set the foreColor of word GTSThisword of field WhichTextBox to 255
            end if
            if FAEYesOrCancel > 0 then
              exit repeat
              next repeat
            end if
            if (the mouseCast <> WhichTextBox) and the mouseDown then
              beep()
            end if
          end repeat
        end if
      else
        set FAEYesOrCancel to 1
      end if
      if FAEYesOrCancel = 1 then
        set FAEYesOrCancel to 0
        if the machineType > 200 then
          set TempName to getAt(FAEPlayInstallList, FAEChoosen)
          if TempName <> "0" then
            open(DriveLtr & TempName)
          end if
        else
          put "install"
        end if
        cursor(-1)
        set the castNum of sprite FAEExplainSprite to 52
        set the locH of sprite FAEExplainSprite to 2000
        set the locH of sprite getAt(ThisList, 5) to 2000
        set the locH of sprite FAEInstallSprite to 2000
        set the locH of sprite 22 to 2000
        setAt(getAt(FAEOptionList, 3), 4, 5)
        updateStage()
      else
        set FAEYesOrCancel to 0
      end if
      exit repeat
    end repeat
  end if
end