Personal Computer World 1997 June/Personal_Computer_World_Jun_97.iso/dxrs/gtspcw06.dxr/00013_GTSImplementOption.ls

Text File | 1997-03-26 | 4.9 KB | 133 lines

on GTSImplementOption x
  global GTSOptionList, GTSYesOrCancel, GTSInstall, GTSSizeList, GTSNameList, GTSInstallSprite, GTSChoosen, GTSBatchInstallList, GTS95List, GTSButtonsSprite, GTSExplainSprite, GTSWIN95, GTSPlaySprite, GTSPlayInstallList, IFLUSERPRESSEDESCKEY, DriveLtr
  set ThisList to getAt(GTSOptionList, x)
  if x = 3 then
    if GTSWIN95 = 1 then
      set WhichScenario to getAt(getAt(GTS95List, GTSChoosen), 1)
    else
      set WhichScenario to getAt(getAt(GTS311List, GTSChoosen), 1)
    end if
    if WhichScenario = 2 then
      if GTSWIN95 = 1 then
        set WhichTextBox to getAt(getAt(GTS95List, GTSChoosen), 2)
      else
        set WhichTextBox to getAt(getAt(GTS311List, GTSChoosen), 2)
      end if
      set the castNum of sprite GTSExplainSprite to WhichTextBox
      put "textsprite"
      set the locH of sprite GTSExplainSprite to 224
      set the locV of sprite GTSExplainSprite to 283
      set the ink of sprite GTSExplainSprite 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 37
    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 37
  end if
  updateStage()
  if x = 2 then
    wait(0.5)
    set IFLUSERPRESSEDESCKEY to 2
    GTSPreviewGame()
  end if
  if x = 4 then
    if the machineType > 200 then
      set TempName to getAt(GTSPlayInstallList, GTSChoosen)
      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 GTSPlaySprite to 2000
    setAt(getAt(GTSOptionList, 4), 4, 5)
    wait(1)
    set the locH of sprite getAt(ThisList, 5) to 2000
    updateStage()
  end if
  if x = 1 then
    GTSGameStop()
  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 GTSYesOrCancel to 1
                  set the castNum of sprite GTSExplainSprite to 52
                  set the locH of sprite GTSExplainSprite 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 37
                  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 GTSYesOrCancel to 2
                  set the castNum of sprite GTSExplainSprite to 52
                  set the locH of sprite GTSExplainSprite to 2000
                  updateStage()
                  exit repeat
                end if
              end repeat
              set the foreColor of word GTSThisword of field WhichTextBox to 255
            end if
            if GTSYesOrCancel > 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 GTSYesOrCancel to 1
      end if
      if GTSYesOrCancel = 1 then
        set GTSYesOrCancel to 0
        if the machineType > 200 then
          set TempName to getAt(GTSPlayInstallList, GTSChoosen)
          if TempName <> "0" then
            open(DriveLtr & TempName)
          end if
        end if
        cursor(-1)
        set the castNum of sprite GTSExplainSprite to 52
        set the locH of sprite GTSExplainSprite to 2000
        set the locH of sprite getAt(ThisList, 5) to 2000
        set the locH of sprite GTSInstallSprite to 2000
        set the locH of sprite 22 to 2000
        setAt(getAt(GTSOptionList, 3), 4, 5)
        updateStage()
      else
        set GTSYesOrCancel to 0
      end if
      exit repeat
    end repeat
  end if
end