home *** CD-ROM | disk | FTP | other *** search
/ Star Trek Starfleet Academy Mini Omnipedia / MINI_OMNI.ISO / pc / omni_v2.dxr / 00341_HelpIndex.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  752 b   |  27 lines
  1. on mouseUp
  2.   global gComputerTypeK
  3.   set x to the mouseLine
  4.   if x > 0 then
  5.     if marker(0) <> label("Help" & string(x)) then
  6.       set the textStyle of field "HelpIndex" to "plain"
  7.       set the textStyle of line x of field "HelpIndex" to "Bold"
  8.       if the puppet of sprite 5 then
  9.         puppetSprite(5, 0)
  10.       end if
  11.       set the visible of sprite 39 to 0
  12.       if label("Help" & string(x)) > 0 then
  13.         hputmsg("Mouseup on helpindexcast calling a branch to Help" & string(x))
  14.         go(label("Help" & string(x)))
  15.       else
  16.         abort()
  17.       end if
  18.       if x > 1 then
  19.         if not (the puppet of sprite 5) then
  20.           puppetSprite(5, 1)
  21.         end if
  22.       end if
  23.       set the locV of sprite 5 to 190
  24.     end if
  25.   end if
  26. end
  27.