Better Homes & Gardens: …oking for Today - Chicken/Image.iso/pc/shared.dxr/01007_help.ls

Text File | 1995-11-21 | 1.8 KB | 79 lines

on help
  global gLastHelp, gHelpLinks, gHelpActive, gHelpSprite
  if gHelpActive then
    set num to count(gHelpLinks)
    set roll to 0
    repeat with i = 1 to num
      set channel to getPropAt(gHelpLinks, i)
      set aCast to the castNum of sprite channel
      if (the mouseCast = aCast) and the visible of sprite channel then
        set roll to getProp(gHelpLinks, channel)
        exit repeat
      end if
    end repeat
    helpPosition()
    if roll <> gLastHelp then
      if roll > 0 then
        set text to field ("help" & roll)
        put text into field "help"
        helpPosition()
        set the visible of sprite gHelpSprite to 1
      else
        set the visible of sprite gHelpSprite to 0
      end if
      set gLastHelp to roll
    end if
  end if
end

on helpOff
  global gHelpActive, gHelpSprite
  set gHelpActive to 0
  set the visible of sprite gHelpSprite to 0
  updateStage()
  set the locV of sprite gHelpSprite to 0
  set the locH of sprite gHelpSprite to 0
  updateStage()
  puppetSprite(gHelpSprite, 0)
  if the frame = label("video") then
    set the visible of sprite 16 to 1
  end if
end

on helpPosition
  global gHelpSprite
  if the mouseV > 240 then
    set offV to the height of cast 1031 + 20
  else
    set offV to -20
  end if
  if the mouseH > 320 then
    set offH to the width of cast 1031 + 20
  else
    set offH to -20
  end if
  set the locV of sprite gHelpSprite to the mouseV - offV
  set the locH of sprite gHelpSprite to the mouseH - offH
  updateStage()
end

on helpSound num
  if num < 41 then
    set aFolder to "HELP1"
  else
    if num < 81 then
      set aFolder to "HELP2"
    else
      set aFolder to "HELP3"
    end if
  end if
  if num < 10 then
    put "00" before num
  else
    if num < 100 then
      put "0" before num
    end if
  end if
  loadSound(aFolder, num, "helpsnd")
end