Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/ch08_lgo/tutor.dcr/00001.ls

Text File | 1996-12-06 | 856 b | 50 lines

global gVisited

on startMovie
  initPseudoHTML()
  setConstants()
  refreshLinks(1)
end

on setConstants
  global gHelpOffset, gLoSprite, gHiSprite
  set gHelpOffset to 20
  set gLoSprite to 10
  set gHiSprite to gLoSprite + 6
  repeat with i = gLoSprite + gHelpOffset to gHiSprite + gHelpOffset
    set the visible of sprite i to 0
  end repeat
end

on recordHistory theURL
  if not gVisited then
    set gVisited to []
  end if
  set index to getPos(gVisited, theURL)
  if index then
    deleteAt(gVisited, index)
  end if
  append(gVisited, theURL)
end

on visited theLabel
  if not gVisited then
    set gVisited to []
  end if
  set index to getPos(gVisited, theLabel)
  if index then
    return 1
  else
    return 0
  end if
end

on goBack
  deleteAt(gVisited, count(gVisited))
  go(label(getLast(gVisited)))
end

on stopMovie
  refreshLinks()
end