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

Text File | 1996-12-06 | 1.5 KB | 61 lines

on getCurrLabel
  set lastLine to the number of lines in the labelList - 1
  repeat with i = 1 to lastLine
    if the frame < label(line i of the labelList) then
      if i > 1 then
        return line i - 1 of the labelList
      else
        return EMPTY
      end if
      exit
    end if
  end repeat
  return line lastLine of the labelList
end

on fadeAllSounds fadeDuration
  if soundBusy(1) or soundBusy(2) then
    set lPlaying to 1
  end if
  if soundBusy(1) then
    sound fadeOut 1, fadeDuration
  end if
  if soundBusy(2) then
    sound fadeOut 2, fadeDuration
  end if
  if lPlaying = 1 then
    waitForTicks(fadeDuration)
  end if
end

on checkRollN loSprite, hiSprite
  global gLastRollover, gSpriteName, gHelpOffset
  repeat with checkSprite = loSprite to hiSprite
    if rollOver(checkSprite) then
      set cRoll to 1
      exit repeat
    end if
  end repeat
  if cRoll then
    if checkSprite <> gLastRollover then
      if gLastRollover <> 0 then
        set the visible of sprite (gLastRollover + gHelpOffset) to 0
      end if
      set the visible of sprite (checkSprite + gHelpOffset) to 1
      updateStage()
    else
      if not (the visible of sprite (checkSprite + gHelpOffset)) then
        set the visible of sprite (checkSprite + gHelpOffset) to 1
      end if
      updateStage()
    end if
    set gLastRollover to checkSprite
  else
    if gLastRollover then
      set the visible of sprite (gLastRollover + gHelpOffset) to 0
      set gLastRollover to 0
      set gSpriteName to 0
    end if
  end if
end