home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / IMAP13 / XIMAP13.dxr / 00045_sb 13 setup.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  736 b   |  31 lines
  1. on enterFrame
  2.   global gSB13List, gNavMap
  3.   if getaProp(gNavMap, 15) <> 1 then
  4.     setProp(gNavMap, 15, 2)
  5.   end if
  6.   commonSetup(13, 1, 1, 0)
  7.   hSetVisibles([20, 21, 22], 0)
  8.   if getProp(gSB13List, 10) = 0 then
  9.     hSetVisibles(10, 1)
  10.   else
  11.     hSetVisibles(10, 0)
  12.   end if
  13.   if getProp(gSB13List, 11) = 0 then
  14.     hSetVisibles(11, 1)
  15.   else
  16.     hSetVisibles(11, 0)
  17.   end if
  18.   if getProp(gSB13List, 13) = 0 then
  19.     hSetVisibles(13, 1)
  20.   end if
  21.   if (getProp(gSB13List, 11) = 0) and (getProp(gSB13List, 10) = 0) then
  22.     hSetVisibles(14, 1)
  23.   else
  24.     hSetVisibles(14, 0)
  25.   end if
  26.   hPup([9, 10, 11, 13, 14], 1)
  27.   set the loc of sprite 9 to point(571, 148)
  28.   set listoSprites to [4, 9, 10, 11, 13]
  29.   changeCursor(listoSprites, 1)
  30. end
  31.