home *** CD-ROM | disk | FTP | other *** search
/ Better Homes & Gardens: …oking for Today - Chicken / Image.iso / pc / chooser.dxr / 00019_help.ls < prev    next >
Encoding:
Text File  |  1995-11-20  |  1.0 KB  |  42 lines
  1. on help2
  2.   global gLastHelp, gHelpLinks, gHelpActive, gHelpSprite
  3.   if gHelpActive then
  4.     set num to count(gHelpLinks)
  5.     set roll to 0
  6.     repeat with i = 1 to num
  7.       set channel to getPropAt(gHelpLinks, i)
  8.       if rollOver(channel) then
  9.         set roll to getProp(gHelpLinks, channel)
  10.         exit repeat
  11.       end if
  12.     end repeat
  13.     helpPosition()
  14.     put roll
  15.     if (roll = 19) and (the mouseV < 386) then
  16.       set roll to 23
  17.     else
  18.       if (roll = 19) and (the mouseV < 432) then
  19.         set roll to 1
  20.       end if
  21.     end if
  22.     if (roll = 107) and (the mouseV > 450) then
  23.       if the mouseH < 150 then
  24.         set roll to 126
  25.       else
  26.         set roll to 127
  27.       end if
  28.     end if
  29.     if roll <> gLastHelp then
  30.       if roll > 0 then
  31.         set text to field ("help" & roll)
  32.         put text into field "help"
  33.         helpPosition()
  34.         set the visible of sprite gHelpSprite to 1
  35.       else
  36.         set the visible of sprite gHelpSprite to 0
  37.       end if
  38.       set gLastHelp to roll
  39.     end if
  40.   end if
  41. end
  42.