Experience Hawaii/HAWAII.ISO/pc/hawaii.dir/00018_read prefs.ls

Text File | 1996-04-12 | 10.9 KB | 403 lines

on handleOnline
  set the cursor of sprite 16 to [14075, 14076]
  set the cursor of sprite 6 to [14075, 14076]
  set the cursor of sprite 2 to [14075, 14076]
  set the cursor of sprite 1 to -1
  if rollOver(2) then
    repeat while rollOver(2) = 1
      set the castNum of sprite 2 to 14248
      updateStage()
      if the mouseDown = 1 then
        repeat while the mouseDown = 1
          set the castNum of sprite 2 to 14249
          updateStage()
        end repeat
        updateStage()
        resetSprites()
        cursor(4)
        installMenu(0)
        go("ITVC")
        initFirstFrame()
        cursor(0)
        abort()
      end if
    end repeat
    set the castNum of sprite 2 to 14247
    updateStage()
  end if
  if rollOver(16) then
    repeat while rollOver(16) = 1
      set the castNum of sprite 16 to 388
      updateStage()
      if the mouseDown = 1 then
        repeat while the mouseDown = 1
          set the castNum of sprite 16 to 389
          updateStage()
        end repeat
        updateStage()
        quit()
      end if
    end repeat
    set the castNum of sprite 16 to 387
    updateStage()
  end if
  if rollOver(6) then
    if the mouseDown = 1 then
      set the castNum of sprite 6 to 276
      updateStage()
      cursor(0)
      handleServices()
    else
      set the castNum of sprite 6 to 277
      updateStage()
    end if
  end if
  go(the frame)
end

on initOnline
  repeat with x = 9 to 12
    puppetSprite(x, 1)
    set the visible of sprite x to 0
  end repeat
end

on LocateExistingService
  global gOnlinePath, gOnlineChoice
  if the optionDown then
    alert("You have just erased your current online choices!")
    go(1, "Online.dir")
    set gOnlineChoice to "none"
    set gOnlinePath to "none"
  else
    if gOnlineChoice = "AOL" then
      go("OLAOL")
      exit
    end if
    if gOnlineChoice = "TotalAccess" then
      go("OLTA")
      exit
    end if
    if gOnlineChoice = "none" then
      resetSprites()
      put "Go to movie Online.dir"
      go(1, "Online.dir")
      exit
    else
      alert("I don't recognize your service provider:  It is currently set to:" & gOnlineChoice)
      set gOnlineChoice to "none"
      go(1, "Online.dir")
    end if
  end if
end

on ConnectFound
  global gHomeDir, gIniName, gWinVersion, gConnectFile
  openXLib("DLLGlue")
  set objFindFile to DLLGlue(mnew, "FindFile.DLL", "UpdateOnlinePath", "I", "SSSS")
  if voidp(objFindFile) = 1 then
    alert("DLLGlue failed; may not be able to find FindFile.DLL" & RETURN & "Current path is " & the pathName)
  else
    if gWinVersion < 3.94999999999999973 then
      set gConnectFile to "connect.exe"
      set targetDir to "DIALER\APP\"
    else
      set gConnectFile to "Netscape.exe"
      set targetDir to "PROGRAM\"
    end if
    set found to objFindFile(mCall, gHomeDir, gIniName, targetDir, gConnectFile)
    if objFindFile(mStatus) <> 0 then
      alert("ConnectFound failed using objFindFile")
      quit()
    else
      if found then
        readPrefsFile()
        return 1
      else
        return 0
      end if
    end if
  end if
  objFindFile(mdispose)
  closeXLib("DLLGlue")
end

on RegisterFound
  global gHomeDir, gIniName, gWinVersion, gRegisterFile
  openXLib("DLLGlue")
  set objFindFile to DLLGlue(mnew, "FindFile.DLL", "UpdateOnlinePath", "I", "SSSS")
  if voidp(objFindFile) = 1 then
    alert("DLLGlue failed; may not be able to find FindFile.DLL" & RETURN & "Current path is " & the pathName)
  else
    if gWinVersion < 3.94999999999999973 then
      set gRegisterFile to "register.exe"
      set targetDir to "REGISTER\"
    else
      set gRegisterFile to "access.exe"
      set targetDir to "ACCESS\"
    end if
    set found to objFindFile(mCall, gHomeDir, gIniName, targetDir, gRegisterFile)
    if objFindFile(mStatus) <> 0 then
      alert("RegisterFound failed using objFindFile")
      quit()
    else
      if found then
        readPrefsFile()
        return 1
      else
        return 0
      end if
    end if
  end if
  objFindFile(mdispose)
  closeXLib("DLLGlue")
end

on CheckWhichPath
  global gOnlinePath, gWinVersion, gConnectFile
  if gOnlinePath contains "Dialer\App" then
    open(gOnlinePath & "connect.exe")
  else
    if gOnlinePath contains "Program\" then
      installMenu(cast "Menubar")
    else
      if ConnectFound() then
        if gWinVersion < 3.94999999999999973 then
          installMenu(cast "Menubar")
          open(gOnlinePath & gConnectFile)
        else
          installMenu(cast "Menubar")
        end if
      else
        if gWinVersion < 3.94999999999999973 then
          open(gOnlinePath & "register.exe")
        else
          open(gOnlinePath & "access.exe")
        end if
      end if
    end if
  end if
end

on FindConnect
  global gOnlinePath, gROMDrive, gWinVersion, gRegisterFile, gConnectFile
  if ConnectFound() then
    if gWinVersion < 3.94999999999999973 then
      installMenu(cast "Menubar")
      open(gOnlinePath & gConnectFile)
    else
      installMenu(cast "Menubar")
    end if
  else
    if RegisterFound() then
      open(gOnlinePath & gRegisterFile)
    else
      if gWinVersion < 3.94999999999999973 then
        open(gROMDrive & ":\EarthLnk\Win31\Setup.exe")
      else
        open(gROMDrive & ":\EarthLnk\Win95\Setup.exe")
      end if
    end if
  end if
end

on LocateTotalAccessPC
  global gOnlineChoice, gOnlinePath, gHomeDir, gIniName, gWinVersion
  if gWinVersion < 3.94999999999999973 then
    go("WIN31MSG")
  else
    go("WIN95MSG")
  end if
  set gOnlineChoice to "TotalAccess"
  writePrefsFile()
  set gIniName to "hawaii.ini"
  if gOnlinePath = "none" then
    FindConnect()
  else
    CheckWhichPath()
  end if
end

on locateTotalAccess
  global gOnlinePath, gPrefsPath, gOnlineChoice
  set ffResult to FindFolder()
  if ffResult <> EMPTY then
    set gOnlinePath to ffResult
    set gOnlineChoice to "TotalAccess"
    writePrefsFile()
    open(gOnlinePath)
  else
    set gOnlinePath to "none"
    beep()
    alert("Internet Dialer was not located on your hard drive!  Please install TotalAccess again! Note: Internet Dialer will not appear in the TotalAccess folder until you complete the registration process!")
    writePrefsFile()
  end if
end

on cleanexitOnline
  writePrefsFile()
end

on handleServices
  global gOnlinePath, gOnlineChoice, gROMDrive, gWinVersion
  updateStage()
  if the machineType <> 256 then
    if gOnlineChoice = "TotalAccess" then
      if gOnlinePath <> "none" then
        put "gonlinePath=", gOnlinePath
        cleanexitOnline()
        go("MACMSG")
        open(gOnlinePath)
      else
        go("MACMSG")
        locateTotalAccess()
      end if
    else
      if gOnlineChoice = "AOL" then
        cleanexitOnline()
        unLoadCast()
        installMenu(cast "menubar")
        CallAOLGoto()
      end if
    end if
  else
    if gOnlineChoice = "TotalAccess" then
      saveNotebookFile()
      LocateTotalAccessPC()
    else
      if gOnlineChoice = "AOL" then
        cleanexitOnline()
        unLoadCast()
        set installPath to gROMDrive & ":\AOL\25instal.exe"
        openXLib("DLLGlue")
        set fAOLGoTo to DLLGlue(mnew, "Launch16.DLL", "AOLGoTo", "I", "WSSSSS")
        if voidp(fAOLGoTo) = 1 then
          alert("DLLGlue failed; may not be able to find Launch16.DLL" & RETURN & "Current path is " & the pathName)
        else
          put fAOLGoTo(mCall, 0, 0, 0, installPath, "iTravel", 0)
        end if
        fAOLGoTo(mdispose)
        closeXLib("DLLGlue")
      else
        cleanexitOnline()
      end if
    end if
  end if
end

on readPrefsFile
  global gPrefsPath, gPrefsName, gHomeDir, gWinVersion, gWelcomeState, gAudioState, gFanState, gOnlinePath, gOnlineChoice, gROMDrive
  if the machineType <> 256 then
    set gPrefsName to gHomeDir & "Hawaii Prefs"
  else
    set gPrefsName to gHomeDir & "hawaii.ini"
  end if
  set gReadObject to FileIO(mnew, "read", gPrefsName)
  if not objectp(gReadObject) then
    if the machineType = 256 then
      alert("Cannot find HAWAII.INI." & RETURN & "Please run SETUP.EXE from the CD-ROM.")
      quit()
    else
      writeDefaultPrefsfile()
      exit
    end if
  else
    set gPrefsPath to gReadObject(mReadFile)
    gReadObject(mdispose)
    set str to line 1 of gPrefsPath
    set gHomeDir to EMPTY
    repeat with C = 1 to the number of chars in str
      if char C of str = "=" then
        repeat with n = C + 1 to length(str)
          put char n of str after gHomeDir
        end repeat
        exit repeat
      end if
    end repeat
    put "Home Directory=" & gHomeDir
    set str to line 2 of gPrefsPath
    repeat with C = 1 to the number of chars in str
      if char C of str = "=" then
        set gROMDrive to char C + 1 of str
        exit repeat
      end if
    end repeat
    put "CDROM Drive=" & gROMDrive
    set str to line 3 of gPrefsPath
    set gOnlineChoice to EMPTY
    repeat with C = 1 to length(str)
      if char C of str = "=" then
        repeat with n = C + 1 to length(str)
          put char n of str after gOnlineChoice
        end repeat
        exit repeat
      end if
    end repeat
    put "Online Choice=" & gOnlineChoice
    set str to line 4 of gPrefsPath
    set WinV to EMPTY
    repeat with C = 1 to length(str)
      if char C of str = "=" then
        repeat with n = C + 1 to length(str)
          put char n of str after WinV
        end repeat
        exit repeat
      end if
    end repeat
    set gWinVersion to float(WinV)
    put "Windows Version=" & gWinVersion
    set str to line 5 of gPrefsPath
    set gWelcomeState to 0
    repeat with C = 1 to length(str)
      if char C of str = "=" then
        set gWelcomeState to integer(char C + 1 of str)
        exit repeat
      end if
    end repeat
    put "WelcomeState=" & gWelcomeState
    set str to line 6 of gPrefsPath
    set gAudioState to 0
    repeat with C = 1 to length(str)
      if char C of str = "=" then
        set gAudioState to integer(char C + 1 of str)
        exit repeat
      end if
    end repeat
    put "AudioState=" & gAudioState
    set str to line 7 of gPrefsPath
    set gFanState to 1
    repeat with C = 1 to length(str)
      if char C of str = "=" then
        set gFanState to integer(char C + 1 of str)
        exit repeat
      end if
    end repeat
    put "FanState=" & gFanState
    set str to line 8 of gPrefsPath
    set gOnlinePath to EMPTY
    repeat with C = 1 to length(str)
      if char C of str = "=" then
        repeat with n = C + 1 to length(str)
          put char n of str after gOnlinePath
        end repeat
        exit repeat
      end if
    end repeat
    put "Online path=" & gOnlinePath
  end if
end

on ListPrefs
  global gHomeDir, gWinVersion, gWelcomeState, gAudioState, gFanState, gOnlinePath, gOnlineChoice, gROMDrive, gPrefsPath
  put "gPrefspath=" && gPrefsPath
  put "ListPrefs dump follows:"
  put "Home Directory=" & gHomeDir
  put "CDROM Drive=" & gROMDrive
  put "Online Choice=" & gOnlineChoice
  put "Windows Version=" & gWinVersion
  put "WelcomeState=" & gWelcomeState
  put "AudioState=" & gAudioState
  put "FanState=" & gFanState
  put "Online path=" & gOnlinePath
end