MacAddict 24/MacAddict_024_1998_08.iso/Media/Software.dxr/Internal_1.ls

Text File | 1998-06-04 | 3.4 KB | 144 lines

on startMovie
  global DBfact, TBfact, gDb, gTB, gBrowser
  new(script "BrowserClass", "htmlsource")
  openXLib(the pathName & "xtras:FileIOXtraFat")
  openXLib(the pathName & "xtras:v12-dbe")
  openXLib(the pathName & "xtras:v12table")
  set gOSDir to getOSDirectory()
  put gOSDir & "Preferences:" into field "OSPath"
  put gOSDir & "Preferences:Browser" into field "ThePath"
  loadBrowser()
  getSoftData()
  if the optionDown = 1 then
    go("import")
  end if
  put "Apple" into field "fld"
  repeat with h = 3 to 5
    set the visible of sprite h to 0
  end repeat
  repeat with i = 11 to 18
    set the visible of sprite i to 0
  end repeat
  set the visible of sprite 25 to 0
  set the visible of sprite 26 to 0
end

on restartMe
  global DBfact, TBfact
  clearGlobals()
  openXLib(the moviePath & "xtras:V12Dbe")
  openXLib(the moviePath & "xtras:V12Table")
  set DBfact to xtra("V12Dbe")
  set TBfact to xtra("V12Table")
  set the visible of sprite 25 to 0
  put "Communication" into field "fld"
end

on ClearMe
  global gTB, gDb
  set gTB to 0
  set gDb to 0
  go("begin")
end

on doPopMenu spriteNum, h, v
  set the visible of sprite spriteNum to 1
  set the locH of sprite spriteNum to h
  set the locV of sprite spriteNum to v
  updateStage()
  set cNum to the castNum of sprite spriteNum
  set lastSelection to 0
  set len to the number of lines in field cNum
  repeat while the stillDown
    set mc to the mouseLine
    if (0 < mc) and (mc <= len) and rollOver(spriteNum) then
      if mc <> lastSelection then
        set lastSelection to mc
        hilite line mc of field cNum
        updateStage()
      end if
      next repeat
    end if
    if mc <> lastSelection then
      set lastSelection to -1
      hilite line len + 1 of field cNum
      updateStage()
    end if
  end repeat
  set the visible of sprite spriteNum to 0
  set the visible of sprite 25 to 0
  updateStage()
  if line lastSelection of field cNum <> EMPTY then
    return lastSelection
  else
    return -1
  end if
end

on setVolumePos
  case the soundLevel of
    7:
      set the locH of sprite 18 to 514
    6:
      set the locH of sprite 18 to 524
    5:
      set the locH of sprite 18 to 538
    4:
      set the locH of sprite 18 to 552
    3:
      set the locH of sprite 18 to 566
    2:
      set the locH of sprite 18 to 580
    1:
      set the locH of sprite 18 to 593
    0:
      set the locH of sprite 18 to 606
  end case
end

on setVolume
  if the locH of sprite 18 <= 514 then
    set the soundLevel to 7
  end if
  if the locH of sprite 18 > 514 then
    set the soundLevel to 6
  end if
  if the locH of sprite 18 > 524 then
    set the soundLevel to 5
  end if
  if the locH of sprite 18 > 538 then
    set the soundLevel to 4
  end if
  if the locH of sprite 18 > 552 then
    set the soundLevel to 3
  end if
  if the locH of sprite 18 > 566 then
    set the soundLevel to 2
  end if
  if the locH of sprite 18 > 580 then
    set the soundLevel to 1
  end if
  if the locH of sprite 18 > 593 then
    set the soundLevel to 0
  end if
end

on getSoftData
  global myfile
  if the machineType = 256 then
    set i to the moviePath & "Images\categories.dat"
  else
    set i to the moviePath & "images:categories.dat"
  end if
  set DaPath to i
  if objectp(myfile) then
    set myfile to 0
  end if
  set myfile to new(xtra("fileio"))
  openFile(myfile, DaPath, 1)
  set Adinfo to readFile(myfile)
  put Adinfo into field "fields"
  closeFile(myfile)
  set myfile to 0
end