Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/casestdy/ch11_sfx/esnavbar.dir/00003.ls

Text File | 1996-11-12 | 424 b | 17 lines

global gNextPage, gBaseURL, gReadyToGo, gLastClick, gRealCast

on mouseDown
  set gLastClick to the clickOn
  set gRealCast to the castNum of sprite gLastClick
  set the visible of sprite (gLastClick + 10) to 1
  updateStage()
  if not gReadyToGo then
    set gNextPage to "../e_s" & the name of cast gRealCast & ".htm"
    goPage(gNextPage, "earMain")
    go(label(the name of cast gRealCast))
  end if
end

on mouseUp
end